Câu 4. Cho đoạn chương trình dưới đây. Hãy chỉ ra những lỗi sai và sửa lại cho đúng. a. Chương trình 1. Program DT hinh vuong Uses crt Var a, S: Integer ; Begin clrscr; writeln(‘nhap do dai canh hinh vuong:’); readln(A) S:=a x a writeln(‘dien tich hinh vuong : ’,S); readln End b. Chương trình 2. Begingin Clrscr; Writeln (‘nhap ban kinh R:=’) Readln(R); C:=2 x pi x R S:=R*R*pi Writeln(‘Chu vi hinh tron la:’,C:8:2); Writeln(‘Dien tich hinh tron la:’,S:8:2); Readln; End Giúp mình với huhu
2 câu trả lời
a.
Program DT hinh vuong // Đặt tên sai, thiếu ";" >>> Program DT_hinh_vuong
Uses crt // Thiếu ";" >>> Uses crt;
Var a, S: Integer ;
Begin
clrscr;
writeln(‘nhap do dai canh hinh vuong:’);
readln(A) // Thiếu ";" >>> readln(A);
S:=a x a // Sai quy tắc phép toán trong Pascal, thiếu ";" >>> S:=a*a ;
writeln(‘dien tich hinh vuong : ’,S);
readln // Thiếu ";" >>> readln;
End // Thiếu "." >>> End.
b.
// thiếu khai báo tên CT >>> program ct;
// thiếu khai báo thư viện >>> uses crt;
// thiếu khai báo biến >>> var R,C,S: real;
// thiếu khai báo hằng >>> const pi=3.14;
Begingin // Cú pháp từ khóa sai >>> Begin
Clrscr;
Writeln (‘nhap ban kinh R:=’) // Thiếu ";" >>> Writeln (‘nhap ban kinh R:=’);
Readln(R);
C:=2 x pi x R // Sai quy tắc phép toán trong Pascal, thiếu ";" >>> C:=2*pi*R ;
S:=R*R*pi // thiếu ";" >>> S:=R*R*pi ;
Writeln(‘Chu vi hinh tron la:’,C:8:2);
Writeln(‘Dien tich hinh tron la:’,S:8:2);
Readln;
End // Thiếu "." >>> End.
_________________
Học tốt, thi tốt nha, 10 điểm!!!!
Câu 4. Cho đoạn chương trình dưới đây. Hãy chỉ ra những lỗi sai và sửa lại cho đúng.
a. Chương trình 1.
Program DT_hinh vuong;
Uses crt;
Var a, S: Integer ;
Begin
clrscr;
writeln(‘nhap do dai canh hinh vuong:’);
readln(A) ;
S:=a*a ;
writeln(‘dien tich hinh vuong : ’,S);
readln
End.
b. Chương trình 2.
Begin
Clrscr;
Writeln (‘nhap ban kinh R:=’);
Readln(R);
C:=2 * pi * R;
S:=R*R*pi;
Writeln(‘Chu vi hinh tron la:’,C:8:2);
Writeln(‘Dien tich hinh tron la:’,S:8:2);
Readln;
End.