Bài 1
Lỗi:
1) Program bai 1; => sửa: Program bai1;
2) Var x; n: integer; => sửa: Var x, n:integer;
3) X = 12 => sửa: x:=12;
-------------------
Bài 2
Lỗi
1) Program 2bai; => sửa: Program bai2;
2) Var i, n, s:integer;
3) S:=0 => sửa S:=0;
4) For i:=0,5 to n do => sửa: For i:=1 to 5 do
5) S=S+i; => sửa: S:=S+i;
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu
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 ạ
Tìm và sửa lỗi trong chương trình pascal sau:
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0;
while i <= n do
begin
t := t + i;
i := i + l;
write('Tong = ', t);
Readln;
end.
Chương trình Pascal sau đây thực hiện hoạt động nào?
var i,s: integer;
begin
s:=0;
for i:=1 to 1000 do
s:=s+i;
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.
Câu 1: Hãy điền vào chỗ trống để được một chương trình đúng:
Program tinh_tich;
Var i: integer;
s: ………….;
Begin
s:= ……..;
for i:= 1 to 10 … s:= s*1/i;
writeln ('tich ',……...);
readln;
End.
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.
Xác định lỗi sai và sửa lại
a) Var X : Array [1;50] of integer;
b) Var X : Array [5..50.5] of real;
c) For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A');
e) While x:=10 do x:=x+5;
