Bài 7. Câu lênh lặp
Các câu hỏi tương tự
DẠNG 1: TÌM LỖI VÀ SỬA LỖICâu 1.Var s,i: longint;Begin S:0.5 i 1; while s ≤ 5.5 do s s+i; write(‘s ‘,s);end;Câu 2.Var p,i,n: real;Begin Readln(n) p:1; for i1 to n do p p*i/(i+1); write(‘p ‘,p);end;Câu 3.Var a:array[1: 50] of longint;n,s,i: real;Begin Readln(n); For i:1 to n do Readln(a(i));S:0; For i: 1 to n...
Đọc tiếp
DẠNG 1: TÌM LỖI VÀ SỬA LỖI
Câu 1.
Var s,i: longint;
Begin
S:=0.5
i = 1;
while s ≤ 5.5 do
s = s+i;
write(‘s = ‘,s);
end;
Câu 2.
Var p,i,n: real;
Begin
Readln(n)
p:=1;
for i=1 to n do
p= p*i/(i+1);
write(‘p = ‘,p);
end;
Câu 3.
Var a:array[1: 50] of longint;
n,s,i: real;
Begin
Readln(n);
For i:=1 to n do
Readln(a(i));
S:=0;
For i:= 1 to n do
S:= s+a(i);
write(‘s = ‘,s);
end.
giúp mình với mình đang cần gấp
program Tinh_tong;
uses crt;
var i, n, s: integer;
begin clrscr;
writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');
write('Nhap so n: ');read(n); s:=0;
for i := 1 to n do s := s + i;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln;
readln;
end.
* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while
Viết lại chương trình sau cho đúng: PROGRAM Ten-KTGK-DTNT_Buon Ho VAR i: Real; S: integer; Begin S = 0; For i = 1 To 20 Do S:= S+i; Write (‘Tong S =’ , S) End
Giải thích mấy câu lệnh này giúp tui vs Program Tong_chu_so; Var s:string; i:byte; p:integer;{bien luu tong} begin write('Nhap so: ');readln(s); for i:=1 to length(s) do p:=p+ord(s[i]); p:=p-48*length(s); writeln(p); readln End.
- Cho biết chương trình sau đây làm công việc gì ?
Uses crt;
Var
S,i: integer;
Begin
S:=0;
for i:= 1 to 10 do
begin
S:= S + i*i;
writeln('Buoc thu ', i, ' tong S=', S);
end;
readln;
End.
cho các đoạn chương trình sau:
a) S:=1; For i:=1 to 8 do S:=S+5
Writeln (S'='=S);
b) i:=1; S:=0 ; While S<10 do
Begin S:=S+2; i:=i+1; End;
để tính tổng s=2+4+6 ... +n;
em chọn lệnh:
a) for i:=1 to n do if (i mod 2)=0 then s:=s+1;
b) for i:=1 to n do if (i mod 2) <> 2 then s:=s+1;
c) for i:=1 to n do s:=s+1;
d) for i:=1 to n do if (i mod 2) = 1 then s:=s+1;
mn giúp em với ạ, cảm ơn mn nhiều
Chạy đoạn chương trình
a) S:=1; P:=2;
For i:=1 to 5 do S:=S+i; P:=P*S;
b)S:=1; P:=1;
For i:=1 to 3 do begin S:=S+1; P:=P*S end;
cho biết số lần lặp và giá trị của các biến sau khi thực hiện câu lệnh sau ?
s:0;k:1; s:0;k:1;
For i:1 to 5 do For i:1 to 5 do
s:s+1; Begin
k:k+s; s:s+1i;
k:k+s;
End;
Đọc tiếp
cho biết số lần lặp và giá trị của các biến sau khi thực hiện câu lệnh sau ?
s:=0;k:=1; s:=0;k:=1;
For i:=1 to 5 do For i:=1 to 5 do
s:=s+1; Begin
k:=k+s; s:=s+1=i;
k:=k+s;
End;