Hãy tìm lỗi trong đoạn chương trình sau và sửa lại cho đúng
Program Vi_du
Var a,b,c,s: Interger ;
Begin
write ( ‘ nhap chieu dai a = ‘); Realn ( ‘a’)
write (‘ nhap chieu rong b=’) ; Raeln ( ‘b’)
S:= a*b
C: ( a+b)*2
write (‘ dien tich hinh chu nhat la: ‘ , ‘ S ‘);
write ( ‘ chu vi hinh chu nhat la: ‘ , ‘ C ‘);
Realn;
End.
Hãy tìm lỗi trong đoạn chương trình sau và sửa lại cho đúng Program Vi_du Var a,b,c,s: Interger ; Begin write ( ‘ nhap chieu dai a = ‘); Realn ( ‘a’)
By Maria
Program Vi_du;
Var a,b: Integer;
S, C : Real;
Begin
Clrscr;
Write(‘Nhap chieu dai a=’); readln(a);
Write(‘Nhap chieu rong b=’); readln(b);
S:= a*b;
C:= (a+b)*2;
Write(‘dien tich hinh chu nhat la:’,S:4:2);
Write(‘chu vi hinh chu nhat la:’,C:4:2);
Readln
End.
Program vi_du;
var a,b: interger;
C,S: real
uses crt;
begin
clrscr;
writeln(‘nhap chieu rong hinh chu nhat’); realn(‘a’);
writeln(‘nhap chieu dai hinh chu nhat’); realn(‘b’);
S:= a*b
C: ( a+b)*2
write (‘ dien tich hinh chu nhat la: ‘ , S ); write ( ‘ chu vi hinh chu nhat la: ‘ , C );
Realn;
End.