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

2 câu trả lời

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.

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.