Program kiem tra;
Var a,b:integer -> thêm ; ở cuối
Const Tong=integer -> khai báo sai -> tong: integer;
Begin
Write('Nhap so a=');
Readln(a);
Write('Nhap so b=');
Readln(b) -> thiếu ; ở cuối dòng
Tong=a+b;
Writeln('Tong cua ca a va b la ' ,Tong):
Readln
End.
Đọc và sửa sai các lỗi trong chương trình Pascal sau (1điểm)
Brogram Bai 1;
Uses crt ;
Var x, y = integer
Begin
Write(‘nhap vao gia tri cua x : ‘, ‘x=’) ;
Readln(x);
Write(‘nhap vao gia tri cua y : ‘, ‘y=’) ;
Readln();
Write(‘tong cua hai so x va y la:’, x+y) ;
Readln
end
Đọc và sửa sai các lỗi trong chương trình Pascal sau
Brogram Bai 1;
Uses crt ;
Var x, y = integer
Begin
Write(‘nhap vao gia tri cua x : ‘, ‘x=’) ;
Readln(x);
Write(‘nhap vao gia tri cua y : ‘, ‘y=’) ;
Readln();
Write(‘tong cua hai so x va y la:’, x+y) ;
Readln
end
Tìm lỗi sai của chương trình sau và sửa lại cho đúng:
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln;
S:=0;
While n >0 do
s:=s+n/2; n:=n-1;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Mn giải giúp mik vs ạ. Mik cảm ơn ạ
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
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.
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.
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.
Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp?
Var N, i: integer;
Write(‘Nhap so N=’); s:=0;
S: Longint; readln(n);
For i:=1 to n do
Begin
Program tinh_tong;
S:=s+i;
Writeln(‘Tong cua ‘, N, ‘ So tu nhien dau tien s=’, s);
End.
hãy cho biết chương trình pascal sau đây có đúng hay không ?vì sao?
a) Program Hieu_hai_so;
Begin
Writeln(‘Hay nhap hai so’);
Readln(a,b);
Write(‘Hieu cua hai so la:‘,a-b);
Var a,b: Integer;
End
b) Program Tong_hai_so;
Begin
Writeln(‘Hay nhap hai so’);
Readln(a,b);
Write(‘Tong cua hai so la:‘,a-b);
Var a,b: Integer;
End
