Chuyển các bài sau từ vòng lặp FOR sang vòng lặp WHILE: Việc chương trình tổng n cố tự nhiên đầu tiên chia hết cho 3, với n nhập từ bàn phím
Chuyển các bài sau từ vòng lặp FOR sang vòng lặp WHILE:
1. Việc chương trình tổng n cố tự nhiên đầu tiên chia hết cho 3, với n nhập từ bàn phím.
program Tinh_tong;
var n,i:integer;
s:longint;
begin
write(' nhap so n='); readln (n);<br />s:=0;<br />for i:=1 to n do if i mod 3=0 then s:=s+i;<br />writeln('Tong cua,n,'so tu nhien chia het cho 3 la:',s);
readln
end.
2. Tinh trung binh cong cua n so tu nhien dau tien , voi n nap tu ban phim .
program Tinh_trung_binh_cong;
var n,i:integer;
s:longint;
begin
write (' nhap so n='); readln(n);<br /> s:=0;<br /> for i:=1 to n do s:=s+i;<br /> writeln(' Tong cua',n,'so tu nhien s=',s/n);<br /> readln <br />end.<br />3. viết chương trinh tính s= 1+1/2+1/3+...+1/n , với n là số tự nhiên nhập từ bàn phím .<br />program Tong;<br />var n,i:integer;<br /> s:real;<br />begin<br /> write (' nhap so n='); readln (n);<br /> s:=0;<br /> for i:=1 to n do s:=s+1/i;<br /> writeln ( 'Tong la:',s);
readln
end.
4. và các bài 1,2,3 trong bài thực hành sgk tin học 8 chuyển sang lệnh lặp while.
tôi đang cần gấp , nếu giải chính sát dễ hiểu nhất tôi sẽ cho 5 sao. Nhớ chuyền lệnh lặp for sang lệnh lặp while .
1. Việc chương trình tổng n cố tự nhiên đầu tiên chia hết cho 3, với n nhập từ bàn phím.
program Tinh_tong;
var n,i:integer;
s:longint;
begin
write(' nhap so n='); readln (n);<br />s:=0;<br />for i:=1 to n do if i mod 3=0 then s:=s+i;<br />writeln('Tong cua,n,'so tu nhien chia het cho 3 la:',s);
readln
end.
2. Tinh trung binh cong cua n so tu nhien dau tien , voi n nap tu ban phim .
program Tinh_trung_binh_cong;
var n,i:integer;
s:longint;
begin
write (' nhap so n='); readln(n);<br /> s:=0;<br /> for i:=1 to n do s:=s+i;<br /> writeln(' Tong cua',n,'so tu nhien s=',s/n);<br /> readln <br />end.<br />3. viết chương trinh tính s= 1+1/2+1/3+...+1/n , với n là số tự nhiên nhập từ bàn phím .<br />program Tong;<br />var n,i:integer;<br /> s:real;<br />begin<br /> write (' nhap so n='); readln (n);<br /> s:=0;<br /> for i:=1 to n do s:=s+1/i;<br /> writeln ( 'Tong la:',s);
readln
end.
4. và các bài 1,2,3 trong bài thực hành sgk tin học 8 chuyển sang lệnh lặp while.
tôi đang cần gấp , nếu giải chính sát dễ hiểu nhất tôi sẽ cho 5 sao. Nhớ chuyền lệnh lặp for sang lệnh lặp while .