Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end
Cho chương trình Pascal sau:
Program dientich_duongtron;
uses : crt;
const pi = 3.14;
var dt, r = real;
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng
a) uses crt;
b) var dt, r: real;
c) Thiếu readln(r);
d) dt:= pi*sqr(r);
Lỗi 1: Dòng uses : crt; - Lỗi cú pháp do dấu hai chấm : không cần thiết. Sửa lại thành uses crt;.
Lỗi 2: Dòng var dt, r = real; - Lỗi khai báo biến không đúng cú pháp. Sửa lại thành var dt, r: real;.
Lỗi 3: Dòng clrscr; - Lỗi cú pháp do sử dụng hàm clrscr trong môi trường không hỗ trợ. Nếu muốn xóa màn hình, có thể sử dụng clrscr trong IDE hoặc xóa dòng này nếu không cần thiết.
Lỗi 4: Dòng writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2); - Lỗi cú pháp do sử dụng sai định dạng khi in giá trị. Sửa lại thành writeln('Dien tich hinh tron co ban kinh ', r:0:2, ' la: ', dt:0:2:2); để in diện tích với đúng định dạng số thập phân.
Cho chương trình Pascal sau:
Program chuvi_duongtron :
uses crt;
const pi := 3.14;
var cv, r: real;
Begin
clrscr;
write(‘nhap ban kinh r = ‘);
writeln(r);
cv:= 2*pi*r;
writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);
readln
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) readln(r);
d) Thiếu End.
Cho chương trình Pascal sau:
Program chuvi_duongtron:
uses crt;
const pi = 3,14;
var cv, r: real;
Begin
clrscr;
write(nhap ban kinh r = );
readln(r);
cv:= 2*pi*r;
writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);
readln
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) write(‘nhap ban kinh r = ‘);
d) Thiếu End.
Cho chương trình Pascal sau:
Program dientich_duongtron;
uses= crt;
const pi = 3.14;
var: dt, r: real;
clrscr;
write(‘nhap ban kinh r = ‘);
readln(r);
dt = pi*sqr(r);
writeln(‘dien tich duong tron la: ‘,dt:10:2, ‘ m’);
readln
End.
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
a) uses crt;
b) var dt, r: real;
c) Thiếu Begin
d) dt:= pi*sqr(r);
Cho đoạn chương trình sau. Em hãy tìm lỗi sai và sửa lại, sắp xếp cho đúng?
Tính giá trị biểu thức: 12.x – 30 + 12
Uses CRT:
Clrscr.
Begin
Writeln(‘Gia tri bieu thuc 12.x – 30 + 12 = ’ , 12 *x – 30 + 12: 5:3)
Program Tinh _gia_tri_bieu_thuc;
Var x: Real;
Write(‘Nhap gia tri x: ’); readln(x);
Readln;
End.
Program Tinh _gia_tri_bieu_thuc;
Uses CRT;
Var x: Real;
Begin
Clrscr;
readln(x);
Writeln(‘Gia tri bieu thuc 12*x – 30 + 12 = ’ , 12 *x – 30 + 12: 5:3');
Write(‘Nhap gia tri x: ’);
Readln
End.
Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program Soam Soduong;
uses crt
var A, B: integer;
Begin
clrscr;
writeln(Nhap so A: );
readln(A);
if A > 0 then writeln(A,’ la so duong ‘);
else writeln(A,‘ la so am ’);
readln;
End.
Tìm và sửa chương trình này thành một đoạn chương trình hoàn chỉnh Program NHOM_PPT Uses crt Begin Writenln ('Nhom chung minh Phan,My,Minh') Writeln ('chuc cac ban hoc tot') Readln End
program nhom_ppt;
uses crt;
begin
writeln('Nhom chung minh Phan,My,Minh');
writeln('Chuc cac ban hoc tot');
readln;
end.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
program So_Sanh
uses crt;
var A B: integer;
begin
clrscr;
writeln(‘Nhap so A: ’) readln(A);
writeln(‘Nhap so B, khac so A: ‘); readln(B);
if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
end.
Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:
Program So_Sanh;
uses crt
var A: B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’);
readln(B);
writeln(‘Nhap so B, khac so A: ‘);
readln(B);
if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);
readln;
End.