Bài 8. Lặp với số lần chưa biết trước

Program Tim_uoc;

uses crt;

var i,n:integer;

begin

clrscr;

Write(' Nhap so n = '); readln(n);

For i:=1 to n do if n mod i = 0 then write ( i:3 , ' , ' );

readln

end.

Var n: integer;
s: longint;
BEGIN
repeat
write( 'Nhap n: '); readln(n);
until (n>=0);
s:=0;
for i:=1 to n do
s:=s+i;
write('Tong cac so tu 1 toi ', n,' =', s);
readln
END.

Bổ sung thêm: "For..to..do.." hay "For..downto..do.." được hiểu như là cấu trúc lặp với số lần lặp được báo trước và thường sẽ có kết thúc (hay còn gọi là "thoát" khỏi vòng lặp).
Tuy nhiên, cấu trúc "While..do.." hay "Repeat..Until.." nói chung được hiểu như cấu trúc lặp với số lần lặp không biết trước (hoặc chưa biết trước) và có một số trường hợp sẽ "treo" máy vì cấu trúc lặp vô tận xãy ra do lỗi cài đặt hoặc xử lý câu lệnh của người viết chương trình
#from yahoo

program baitap;
uses crt;
var s: real;
n: integer;
const sai_so = 0.001;
BEGIN
clrscr;
s:= sai_so;
n:= 1 div s;
while s<=sai_so do
begin
n:= n-1;
s:= 1/n
end;
writeln('So n lon nhat de s = 1/n > ', sai_so, ' la: ',n);
readln;
END.

mấy bn ơi giúp mk vs( một câu cũng đc)

1)

var a,b : integer;

begin

writeln('nhap a va b =');

readln(a,b);

if a>b then writeln('So lon hon la a') else writeln('so lon hon la b');

if a=b then writeln('a va b bang nhau');

readln

end.

Chào bạn!

Câu hỏi của bạn nếu là làm trên giấy thì cần có chương trình để mô tả tìm hiểu các lệnh.

Còn nếu là thực hành thì bạn tự thực hành nhé.

Chúc bạn học tốt.

Hãy phân biệt sự khác nhau giữa câu lệnh lặp với số lần biết trước và số lần chưa biết trước

⇒ Câu lệnh lặp với số lần biết trước :

- Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần đã được xác định từ trước.

- Điều kiện là 1 giá trị của 1 biến đếm có giá trị nguyên

Câu lệnh lặp với số lần chưa biết trước :

- Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần lặp chưa biết trước.

- Điều kiện tổng quát hơn, có thể là kiểm tra của 1 giá trị có thực, cũng có thể là 1 điều kiện tổng quát khác.

P/s : Câu này mới đúng nè bạn ! Câu vừa nãy mình trả lời sai . Sorry nhé . Bạn chép câu này ... nhớ đó .

Hãy phân biệt sự khác nhau giữa câu lệnh lặp với số lần biết trước và số lần chưa biết trước

\(\Rightarrow\) Câu lệnh lặp với số lần biết trước :

- Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần đã được xác định từ trước.
- Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần lặp chưa biết trước.
- Điều kiện là 1 giá trị của 1 biến đếm có giá trị nguyên

Câu lệnh lặp với số lần chưa biết trước :

- Điều kiện tổng quát hơn, có thể là kiểm tra của 1 giá trị có thực, cũng có thể là 1 điều kiện tổng quát khác.

var

T:real;

n,i:integer;

begin

T:=0;

i:=i+1;

Writeln('nhap n =');

readln(n);

if (n mod 2)=1 then

begin

for 1:=1 to n do begin

if (i mod 2)=1 then T:=T+1/i ;

writeln('tong la',T);

readln;

end;

end;

end.

var T,i,n: integer;

begin

readln(n);

while n mod 2=0 do begin

write('nhap lai n'); readln(n);

end;

T:=0;

for i:=1 to n do

if i mod 2 <>0 then T:=T+1/i;

Writeln(T);

End.

var

T:real;

n,i:integer;

begin

T:=0;

i:=i+1;

Writeln('nhap n =');

readln(n);

if (n mod 2)=1 then

begin

for 1:=1 to n do begin

if (i mod 2)=1 then T:=T+1/i ;

writeln('tong la',T);

readln;

end;

end;

end.

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

i=0;

s=0;

while (i<=n)

{

if (i%2==0) s=s-i;

else s=s+i;

}

cout<<s;

return 0;

}

var i,n: integer;

s:longint;

begin

write('nhap so n=');readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+i; i:=i+1;

end;

write('tong cua',n,' so tu nhien dau tien la',s);

readln

end.

program cttinhtong;

uses crt;

var i,n,s : integer;

begin

clrscr;

readln(n);

i:= 0;

s:= 0;

while i<=n do

begin

s:= s+i;

i:= i|+1;

end;

write(' tong s la',s);

readln

end.