Cho chương trình sau, tìm lỗi sai và sữa lại cho đúng:
Program kiem tra;
Var a,b:integer
Const Tong=integer
Begin
Write('Nhap so a=');
Readln(a);
Write('Nhap so b=');
Readln(b)
Tong=a+b;
Writeln('Tong cua ca a va b la ' ,Tong):
Readln
End.
Những câu hỏi liên quan
Đọ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 integerBeginWrite(‘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) ; Readlnend
Đọc tiếp
Đọ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
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
Đúng 0
Bình luận (0)
Đọc và sửa sai các lỗi trong chương trình Pascal sauBrogram Bai 1;Uses crt ;Var x, y integerBeginWrite(‘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) ; Readlnend
Đọc tiếp
Đọ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
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
- 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.
Đúng 0
Bình luận (0)
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.
Program tinhtong.
Var N, i:=integer
Begin
Write(‘nhap so N =’)
Readln(N)
S=0
For i= 1 to N do S= S+i
Writeln(‘Tong cua ‘,N,’ so tu nhien dau tien S=’,S)
Readln
End
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
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 ạ
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln(n);
S:=0;
While n<0 do
begin
s:=s+n/2; n:=n-1;
end;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Đúng 0
Bình luận (0)
Lỗi sai:
Program câu 1; -> Tên chương trình không chứa dấu cách trắng.
-> Sửa: Program cau_1;
Writeln(‘ Nhap gia tri n=’); Readln; -> Nhập giá trị cho n nhưng thiếu lệnh đọc n
-> Sửa:
Writeln(‘ Nhap gia tri n=’); Readln(n);
While n >0 do
s:=s+n/2; n:=n-1;
Cả 2 câu lệnh s:=s+n/2; n:=n-1; đều nằm trong vòng lặp while..do nên cần begin...end con.
-> Sửa
While n >0 do
begin
s:=s+n/2; n:=n-1;
end;
Đúng 0
Bình luận (0)
cho chương trình sau hãy sắp xếp lại cho đúng
var a,b,c:integer;
c:a+b;
begin
write(nhap gia tri a);
readln(b);
program tong hai so;
end.
write(nhap so b)
readln(a);
clrscr;
readln;
uses crt;
writeln(tong cua hai so vua nhap la:,c)
bạn nào biết thì giúp mình với mai mình kt rồi
Đọc tiếp
cho chương trình sau hãy sắp xếp lại cho đúng
var a,b,c:integer;
c:=a+b;
begin
write('nhap gia tri a);
readln(b);
program tong hai so;
end.
write('nhap so b')
readln(a);
clrscr;
readln;
uses crt;
writeln(tong cua hai so vua nhap la:',c)
bạn nào biết thì giúp mình với mai mình kt rồi
program tong hai so;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('nhap gia tri a);readln(a);
write('nhap so b'); readln(b);
c:=a+b;
writeln(tong cua hai so vua nhap la:',c);
readln;
end.
var a,b,c:integer;
begin
write('nhap a);readln(a);
write('nhap b'); readln(b);
c:=a+b;
writeln(tong cua hai so la:',c);
readln;
end.
Hãy cho biết chương trình Pascal sau đây có đúng không ? Tại sao ? Program Tong_hai_so; Begin Writel(‘Hay nhap hai so’); Readln(a,b); Write(‘Tong cua hai so la: ‘,a+b); Var a,b: Integer; End.Giúp mik vs mai mik thi r
Đọc tiếp
Hãy cho biết chương trình Pascal sau đây có đúng không ? Tại sao ?
Program Tong_hai_so;
Begin
Writel(‘Hay nhap hai so’); Readln(a,b);
Write(‘Tong cua hai so la: ‘,a+b);
Var a,b: Integer;
End.
Giúp mik vs mai mik thi r
Không đúng (biên dịch lỗi).
Ở dòng 3, lệnh Writel bị viết sai chính tả. Ở dòng 7 thực hiện khai báo biến cho 2 biến a b ở phía trong hàm chính (thay vì nằm phía trên).
Đúng 1
Bình luận (0)
Chắc chắn là chương trình sẽ bị lỗi rồi
Bởi vì thứ nhất là bạn phải khai báo a,b trước khi bạn nhập
thứ hai là ở dòng 3 chữ writel bạn viết sai chính tả rồi
Đúng 1
Bình luận (0)
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.
