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.
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;
usescrt;
var A, B= integer;
Begin
clrscr;
writeln(‘Nhap so A: ’); readln(A);
writeln(‘Nhap so B: ‘); readln(A);
if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)
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.
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
program chuong_trinh thiếu chấm phẩy
Sửa lại: program chuong_trinh;
mọi người giúp mình
Sửa lỗi chương trình sau
Program bang_cuu_chuong
Uses crt;
Var N: read;
i: integer;
Begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan ',N)
writeln;
for i:=1 to 10 do
writeln(N,' x ',i:2,' = ',N')
readln
end.
program bang_cuu_chuong ;
Uses crt;
Var N , i : integer ;
Begin
Clrscr ;
write('Nhap so N=');
readln(N);
writeln;
write ('Bang nhan',N) ;
writeln;
for i:=1 to 10 do
writeln(N,'x',i:2,'=',N*i);
readln ;
End.
Chương trình sau khi sửa lỗi:
Program bang_cuu_chuong;
Uses crt;
Var N: real;
i: integer;
Begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan ',N);
writeln;
for i:=1 to 10 do
writeln(N,' x ',i:2,' = ',N);
readln
end.
Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End
Câu 2. Hãy liệt kê các lỗi nếu có trong chương trình dưới đây và sửa lại cho đúng.
program tinh tong ;
uses crt ;
var a, b, tong := integer ;
begin
clrscr ;
writeln ( ‘ Nhap so a = ’ );
readln (a) ;
writeln ( ‘ Nhap so b = ’ ) ;
readln (b) ;
tong = a + b ;
writeln ( ‘ Tong cua hai so a va b la: ’ , tong ) ;
readln ;
end
Tên chương trình: có dấu cách, sửa: tinh_tong;
Khai báo biến sai cấu trúc, sửa : thay := thành :
Lệnh gán biến tong sai, sửa : tong:=a+b;
End thiếu chấm, sửa : end.
- program: có dấu cách
sửa: program tinh_tong;
- var: a, b, tong là các số khai báo kiểu nên không được dùng dấu gán
sửa: var a, b, tong : integer;
- phần begin: sai phần "tong = a+b", tổng phải được gán giá trị
sửa: tong := a+b;
- kết thúc chương trình: end viết thiếu
sửa: end.
10. Hãy tìm lỗi sai và sửa lại cho đúng.
Uses crt;
Program cau1;
Var toan ; van; tbc ; anh , interger ;
Clrscr ;
begin
writeln(‘nhap vao diem toan:’) ; readln(toan)
writeln(‘nhap vao so diem van: ‘) ; readln(van)
writeln(‘nhap vao so diem anh: ‘) ; readln(anh)
tbc:=(van+toan+anh)/3;
writeln(‘diem trung binh la: ‘, tbc);
readln
end.
* Program cau 1 phải trước uses crt;
Var toan; van; tbc; anh, interger; ( Sai )
=> Var toan, van, tbc, anh: integer;
* Begin phải trước lệnh clrscr;
Bổ sung thêm nhé!
Sau lệnh readln ( toan ) phải có dấu;
=> readln ( toan );
Tương tự các lệnh readln ( van ) => readln ( van );
_______________ readln ( anh ) => readln ( anh );
Một số câu lệnh trong ct sau đây viết ko đúng, em hãy sửa lại những lỗi sai
program So_sanh
usercrt;
var A,B=interger;
Begin clrscr;
writeln('Nhap so A:'); readln(A);
writeln('Nhap so B:'); readln(B);
if A <> B then writeln('A',' khac ',B) else writeln(B,'=' ,A)
readln
End.
