Câu lệnh lặp for...do
Tính \(S=\sqrt{1^2+2^2+...+n^2}\)
Những câu hỏi liên quan
viết chương trình sử dụng câu lệnh lặp for...do tính S=1+1/2^3+1/3^3+...+1/n^3
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/(i*i*i);
write('S = ',s:6:2);
readln
end.
Đúng 2
Bình luận (0)
program TongS;
var
n: Integer;
S: Real;
i: Integer;
begin
write('Nhap n: ');
readln(n);
S := 0;
for i := 1 to n do
begin
S := S + 1/Power(i,3);
end;
writeln('Tong S = ', S:0:2);
readln;
end.
Đúng 0
Bình luận (1)
Em hãy viết công thức tính số lần lặp của câu lệnh lặp For...do và áp dụng vào để tính số lần lặp của câu lệnh lặp sau: a:=0; For i:=2 to 7 do a:=a+2
Công thức : < giá trị cuối > - < giá trị đầu > + 1
Áp dụng : 7 - 2 + 1 = 6 ( lần lặp )
Đúng 1
Bình luận (0)
10 tháng 3 2022 lúc 21:32
ét o ét đê ;-;Câu 8: Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?A. if...then B. if...then...else C. for...to…do D. while...do Câu 9. Trong Câu lệnh lặp: For i : 1 to 15 do s: s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?A. 10 lần ; B. 15 lần; C. 20 lần; D. Không thực hiện.Câu 10 : Trong câu lệnh lặp...
Đọc tiếp
ét o ét đê ;-;
Câu 8: Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?
A. if...then B. if...then...else C. for...to…do D. while...do
Câu 9. Trong Câu lệnh lặp: For i := 1 to 15 do s:= s + 2*i. Khi kết thúc Câu lệnh lặp trên, Câu lệnh tính s được thực hiện bao nhiêu lần?
A. 10 lần ; B. 15 lần; C. 20 lần; D. Không thực hiện.
Câu 10 : Trong câu lệnh lặp for i :=1 to 20 do begin s:= s+i; end ;
câu lệnh gán được thực hiện bao nhiêu lần?
a) Không lần nào. b) 1 lần c) 2 lần d) 20 lần
Câu 11 : Trong câu lệnh lặp: For <Biến đếm>:=<Giá trị đầu> to <Giá trị cuối> do <câu lệnh>; Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:
A. 1 đơn vị B. 2 đơn vị C. 3 đơn vị D. 4 đơn vị
Câu12: Khi nào thì câu lệnh lặp For…do (dạng tiến) kết thúc?
A. Khi biến đếm nhỏ hơn giá trị cuối. B. Khi biến đếm bằng giá trị đầu.
C. Khi biến đếm bằng giá trị cuối. D. Khi biến đếm lớn hơn giá trị cuối.
sao ko ai ngó ngàng gì đến tui hết zậy ;-;
Đúng 1
Bình luận (1)
Câu 8: C
Câu 9: B
Câu 10: D
Câu 11: A
Câu 12: D
Đúng 2
Bình luận (0)
Viết chương trình sử dụng câu lệnh lặp while..do tính S=1/1*2+1/2*2+1/3*2+...+1/n*2
Program HOC24;
var i,n: integer;
s: real;
begin
write('Nhap N: '); readln(n);
s:=0; i:=1;
while i<=n do
begin
s:=s+1/(i*2);
i:=i+1;
end;
write('S= ',s:6:2);
readln
end.
Đúng 1
Bình luận (0)
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Program HOC24;
var i,n: integer;
S: real;
begin
write('Nhap N: '); readln(n);
s:=0;
for i:=1 to N do s:=s+1/i;
write('S= ',s:5:2);
readln
end.
Đúng 0
Bình luận (0)
I. PHẦN LÍ THUYẾTcâu 1:cho đoạn chương trình sau:S:0;For i: 1 to 6 do S:S+i;Tính giá trị của S?II. PHẦN BÀI TẬP:câu 1: Viết chương trình tính tích của 10 số tự nhiên đầu tiên.Câu 2: Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với sốlần lặp chưa biết trước.Câu 3: Hãy tìm hiểu đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó chương trìnhthực hiện bao nhiêu vòng lặp?S:1; n:0;While S 10 doBeginn:n+1;S:S+n;End;
Đọc tiếp
I. PHẦN LÍ THUYẾT
câu 1:cho đoạn chương trình sau:
S:=0;
For i:= 1 to 6 do S:=S+i;
Tính giá trị của S?
II. PHẦN BÀI TẬP:
câu 1: Viết chương trình tính tích của 10 số tự nhiên đầu tiên.
Câu 2: Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với số
lần lặp chưa biết trước.
Câu 3: Hãy tìm hiểu đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó chương trình
thực hiện bao nhiêu vòng lặp?
S:=1; n:=0;
While S <=10 do
Begin
n:=n+1;
S:=S+n;
End;
viết chương trình sử dụng câu lệnh lặp while...do hoặc for to do để tính tổng s=2+4+6...+n,n là số nguyên nhập từ bàn phím.In kết quả ra màn hình
Program HOC24;
var i,n: integer;
S: longint;
begin
write('Nhap N: '); readln(n);
i:=2; s:=0;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write('S=',S);
readln
end.
Đúng 1
Bình luận (0)
program TongCacSoChan;
var
n, s, i: integer;
begin
write('Nhap n: ');
readln(n);
s := 0;
i := 2;
while i <= n do
begin
s := s + i;
i := i + 2;
end;
writeln('Tong cac so chan la: ', s);
readln;
end.
Đúng 1
Bình luận (0)
Trong câu lệnh lặp for i:=1 to 20 do begin s:=s+i; end; câu lệnh gán được thực hiện bao nhiêu lần? A. Không lần nào B. 1 lần C. 2 lần D. 20 lần
Dùng câu lệnh lặp For... to... do để viết chương trình tính tổng s: 1+5+10+15+...+n