Hãy liệt kê các lỗi có thể có trong chương trình dưới đây và viết lại chương trình cho đúng:
Prograsm Hinh_vuong;
Use Crt;
Var a) chu_vi , dien_tich:Real;
Begin
Clrscr;
Write(‘Moi nhap do dai canh hinh vuong a=’) ; Realn(a);
Writeln(Tinh chu vi va dien tich hinh vuong);
Chu vi:=a*4;
Dien tich:=a*a;
Writeln(‘chu vi hinh vuong la :’, chu_vi : 2 : 1);
Writeln(Dien tich hinh vuong la : , dien tich : 2 : 1);
Readln
End
Mọi người giúp mình với ạ!Làm ơn!
Đây là bài sửa lại của mình
Program Hinh_vuong;
Uses Crt;
Var a, chu_vi , dien_tich:Real;
Begin
Clrscr;
Write(‘Moi nhap do dai canh hinh vuong a=’) ;
Readln(a);
Writeln(‘Tinh chu vi va dien tich hinh vuong’);
Chu_vi:=a*4;
Dien_tich:=a*a;
Writeln(‘chu vi hinh vuong la :’, chu_vi : 2 : 1);
Writeln(‘Dien tich hinh vuong la : ‘, dien_tich : 2 : 1);
Readln
End.
Sửa lại hết luôn nhé bạn:
Program Hinh_vuong;
Use Crt;
Var a,chu_vi,dien_tich:Integer;
Begin
Clrscr;
Write(‘Moi nhap do dai canh hinh vuong a=’); Realn(a);
Writeln(‘Tinh chu vi va dien tich hinh vuong’);
chu_vi:=a*4;
dien_tich:=a*a;
Writeln(‘chu vi hinh vuong la :’, chu_vi );
Writeln(‘Dien tich hinh vuong la : ‘, dien_tich );
Readln;
End.