[tin học 8] lênh while....do

**kien2000**

Trial Mod

Tổng số bài gửi : 160

Reputation : 43

Huy chương :

Postado 21/3/2014, 20:50

1/viết chương trình pascal tính tổng nghịch đảo từ 1 đến 1000?
2/ viết chương trình tính tích của n ố tự nhiên khác 0, sao cho tích <100?
:cao1: :cao1:

HEROSTAR 2K13

Thành viên mới

Tổng số bài gửi : 8

Reputation : 8

Postado 21/3/2014, 20:55

1/ program tinhtong;
var s:real;
i:integer;
begin
s:=0;
i:=1;
while i<=1000 to
begin
s:=s+i;

i:=i+1;
end;
writeln(' vay tong la : ',s);
readln
end.

**quanghai_2000**

Thành viên năng động

Tổng số bài gửi : 26

Reputation : 34

Postado 22/3/2014, 19:16

1/
program tinhtong;
var
S:real;
i:integer;
begin
S:=0;
i:=1;
while i<=1000 to
begin
S:=S+1/i;
i:=i+1;
end;
writeln(' vay tong = ',S);
readln
end.
2/
program tinhttich;
var
S:real;
i:integer;
begin
S:=1;
i:=1;
while S<1000 to
begin
S:=S*1/i;
i:=i+1;
end;
writeln(' vay tich = ',S);
readln
end.

Sponsored content

Postado

#1
kien2000

#2
HEROSTAR 2K13

#3
quanghai_2000

#4
Sponsored content

#1 kien2000

#2 HEROSTAR 2K13

#3 quanghai_2000

#4 Sponsored content

#1
kien2000

#2
HEROSTAR 2K13

#3
quanghai_2000

#4
Sponsored content