Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a) Thừa dấu hai chấm trong điều kiện;
b) Thiếu dấu hai chấm trong câu lệnh gán;
c) Thiếu các từ khóa begin và end trước và sau các lệnh n:=n+1; S:=S+n, do đó vòng lặp trở thành vô tận.
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
Bài 1: S=15
Bài 2: S=17
Bài 3:
1)X:=10; while X:=10 to X:(thiếu dấu '=') X+5;
2) X:=10; while X = 10 do X(thiếu dấu ';') =X+5 (thiếu dấu ';')
3) S:=0; n:=0; while S <= 10 do (thiếu 'begin') n:(thiếu dấu '=')n+1 ,(để kết thúc đoạn lệnh dùng dấu ';' không phải dấu ',') S:= S+n; (thiếu end;)
Lời giải :
Câu 1 :
a) So=1 (vô hạn lần)
b) In ra màn hình dãy số từ 1 đến 20
Câu 2 :
a) Vòng lặp chạy 3 vòng , A=12
Program hotrotinhoc;
var n,A: integer;
begin
n:=2; A:=0;
while A<9 do
begin
n:=n+1;
A:=A+n;
end;
write('A=',A);
readln
end.
b) Bạn xem lại đề nha
Câu 3 : ( ) = lỗi sai
a) X:=10; while X(:)=10 do X:=X+5;
b) X:=10; while X=10 do X(thiếu dấu :)=X+5;
c) S:=0; n:=0; while S<=10 do (thiếu begin) n:=n+1; S:=S+n; (thiếu end;)
Câu 4 :a) var X: Array[10,13] Of Integer; (S)
b) var X: Array[5..10.5] Of Real; (S)
c) var X: Array[3.4..4.8] Of Integer; (S)
d) var X: Array[10..1] Of Integer; (S)
e) var X: Array[4..10] Of Real; (Đ)
Câu 5 :
program hotrotinhoc ;
var a : array[1..32000] of real ;
i,n : integer ;
begin
write('Nhap do dai cua day :'); readln(n);
writeln('Nhap gia tri cua cac phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
while (1>=a[i]) or (a[i]>=100) do
begin
write('Nhap lai a[',i,']='); readln(a[i]);
end;
readln
end.
Bài 6 : Bạn tham khảo ở mục câu hỏi tương tự
Bài 7 :
Program hotrotinhoc;
var a: array[1..32000] of integer ;
i,n,min,max,tong : integer ;
begin
write('Nhap do dai cua day :'); readln(n);
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:= 2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
write('so lon nhat la :',max);
write('So be nhat la:',min);
tong:=0;
for i:= 11 to 199 do tong:=tong+a[i];
write('Tong la :',tong);
readln
end.
a) X:= 5(;) while X <= 5(;) do X:= X + 5;
----> lỗi sai: Thừa 2 dấu ';' ở sau while và ở sau do (lỗi sai trong ngoặc)
----> sửa lại :X:= 5 while X <= 5 do X:= X + 5;
b) X= 10; while X = 10 do X:= X + 5;
----> lỗi sai : Sai lệnh gán X=10.
----> sửa lại : X:= 10; while X = 10 do X:= X + 5;
c) S:= 0; n:=0; while S <= 10 do S:=S + n ; n:=n+1;
Về cấu trúc không sai nhưng để như vậy sẽ thành vòng lặp vô hạn.
----> lỗi sai : thiếu begin ... end; ở sau câu lệnh lặp
----> sửa lại : S:= 0; n:=0; while S <= 10 do begin S:=S + n ; n:=n+1; end;
program Tinh_Tong;
var n, s, i: integer;
begin
write('Nhap vao so nguyen duong n: ');
readln(n);
s := 0;
i := 1;
while i <= n do
begin
s := s + i;
i := i + 1;
end;
writeln('Tong cua ', n, ' so tu nhien dau tien la: ', s);
end.
bài 1
var i,n,S:longint;
begin
writeln('n=');
readln(n);
S:=0;
i:=0;
for i:=1 to n do
S:=S+n;
writeln('S=',S);
readln
end.
3
a) s:= 0 while X:=10 \(\rightarrow\) X<= 10
b) thiếu câu lệnh
c) n:=1