Viết phương trình pascal để a, Nhập vào 2 số thực m,n bất kỳ b, Tính trung bình cộng của 2 số đó
Bài 4. Sử dụng biến trong chương trình
viết chương trình nhập 2 số x và y a. tính tổng b. tính hiệu c. tính tích d. tính thương e. tìm phần dư f. tìm phần nguyên g. tính chu vi, diện tích hình chữ nhật biết chiều dài là x, chiều rộng là y h. tính P,S hình tròn với x là bán kính i. tính P,S hình vuông với y là cạnh
Viết chương trình nhập vào từ bàn phím 2 số nguyên x và y tính và in ra màn hình giá trị của biểu thức sau A =5 (x - y)
Viết chương trình tính tích của 2 số a và b. A và b được nhập từ bàn phím
Var a,b,s:real;
Begin
Write('Nhap a = ');readln(a);
Write('Nhap b = ');readln(b);
s:=a+b;
Write('Tong la ',s:10:2);
Readln;
End.
_______________________________________________
Var a,b,s:real;
Begin
Write('Nhap a = ');readln(a);
Write('Nhap b = ');readln(b);
s:=a*b;
Write('Tich la ',s:10:2);
Readln;
End.
Sửa bởi: MinhLe
Đúng 0
Bình luận (0)
viet chuong trinh nhap tu ban phim ban kinh hinh tron la mot so nguyen. Thuc hien tinh va in ra man hinh chu vi va dien tich cua hinh tron.
uses crt;
var a:integer;
begin
clrscr;
readln(a);
writeln(2*a*pi:4:2);
writeln(a*a*pi:4:2);
readln;
end.
Đúng 0
Bình luận (0)
viet chuong trinh nhap tu ban phim chieu dai va chieu rong cua hinh chu nhat la hai so nguyen. Thuc hien tinh va in ra man hinh chu vi va dien tich cua hinh chu nhat
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln('Chu vi la: ',(a+b)*2);
writeln('Dien tich la: ',a*b);
readln;
end.
Đúng 0
Bình luận (0)
viet chuong trinh nhap tu ban phim 2 so nguyen a va b. Thuc hien tinh va in ra man hinh ket qua cua a+b/3( lay 2 chu so sau phan thap phan)
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a+b/3:4:2);
readln;
end.
Đúng 1
Bình luận (1)
Hãy liệt kê các lỗi có trong chương trình dưới đây và sửa lại cho đúng program Tinh dientich; var a:= integer dientich: integer Con h:= 3 begin a=10 h=4 dientich=axh/2
Lỗi: program Tinh dientich; Sửa: program Tinhdientich;
Lỗi: var a:=integer dientich: integer;
Sửa: var a:integer;
dientich:integer;
Lỗi: con h:= 3
Sửa: const h=3;
Lỗi: a=10 h=4 dientich=a×h/2
Sửa: a:=10; h:=4;
dientich:=a*h/2;
Đúng 2
Bình luận (1)
Tìm lỗi sai và giải thích rõ
Var bankinh,S : Real;
P,S : Integer
Nhanh vs ạ
Chỗ sau integer thiếu chấm phẩy
Đúng 1
Bình luận (0)
viết chương trình tính diện tích và chu vi hình tròn với bán kính bằng 5 được nhập vào từ bàn phím và in kết quả ra màn hình