Câu 1:Viết trương trình tính tổng tích và hiệu của hai số được nhập từ bàn phím
Câu 2:Tìm lỗi sai và sửa trong chương trình sau:
Begin
Program vd
Uses crt:
Clrscr:
Writeln (‘chao cac ban !’)
End
readln
program oken;
uses crt;
var a,b:integer
begin
clrscr;
write(‘nhap so a: ‘); readln(a);
write(‘nhap so b: ‘); readln(b);
write(‘tong 2 so ‘,a,’ va ‘,b,’: ‘,a+b);
write(‘tich 2 so ‘,a,’ va ‘,b,’: ‘,a*b);
write(‘hieu 2 so ‘,a,’ va ‘,b,’: ‘,a-b);
readln;
end.
câu 2:
+program và uses ở trong phần khai báo và thiếu dấu ;
+clrscr sai dấu ;
+Writeln (‘chao cac ban !’) thiếu ;
+end thiếu dấu . và phải ở dưới cùng chương trình.
sửa:
program vd;
uses crt;
begin
clrscr;
writeln(‘chao cac ban!’);
readln
end.
Câu 1:
Program FNG;
Uses crt;
Var a,b,s,t,h: extended;
Begin
Clrscr;
Write(‘Nhap a, b: ‘); Readln(a,b);
s:=a*b;
t:=a+b;
h:=abs(a-b);
Writeln(‘Tong = ‘,t:0:2);
Writeln(‘Hieu = ‘,h:0:2);
Write(‘Tich = ‘,s:0:2);
Readln
End.
Câu 2:
Sai thứ tự các câu lệnh và thiếu + sai dấu ; và dấu . kết thúc ctr
Program vd;
Uses crt;
Begin
Clrscr;
Write(‘chao cac ban!’);
Readln
End.