uses crt;
var s,i,n:integer;
begin
clrscr;
write('N='); readln(n);
s:=0;
i:=1;
while s<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
câu 1 : nêu cấu trúc lặp của câu lệnh lặp với số lần biết trước, giải thích ý nghĩa của các thành phần trong câu lệnh. lấy 2 ví dụ minh họa
câu 2: hãy biểu diễn đoạn thuật toán dưới đây bằng ngôn ngữ pascal
bước 1 : nhập N, S <-0; i <- 1;
bước 2; nếu i <=N thì chuyển đến bước 3; ngược lại chuyển đến bước 4
bước 3: i:=i+1;S<-S và quay lại bước 2
bước 4: đưa ra tổng S rồi kết thúc
Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật toán đó:
a) Thuật toán 1
Bước 1. S \(\leftarrow\) 10, x \(\leftarrow\) 0.5
Bước 2. Nếu S \(\leq\) 5.2, chuyển tới bước 4.
Bước 3. S \(\leftarrow\) S - x và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
b) Thuật toán 2
Bước 1. S \(\leftarrow\) 10, n \(\leftarrow\) 0.
Bước 2. Nếu S ≥ 10, chuyển tới bước 4.
Bước 3. n \(\leftarrow\) n + 3, S \(\leftarrow\) S - n quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
viết chương trình với thuật toán sau:
Bước 1. S←0,n←0
Bước 2. Nếu S ≤ 1000 thi chuyển tới bước 3; ngược lại ( S>1000) chuyển tới bước 4 Bước 3. n←n+1; S←S+n; và quay lại bước 2
Bước 4. In kết quả: S và n là số tự nhiên nhỏ nhất sao cho S > 1000. Kết thúc thuật toán.
Câu 6: Đoạn lệnh sau đây cho biết kết quả nào?
var i: byte;
i:= 5;
While i<=5 do
Begin
Write(i:2);
i:= i-1;
end;
a.In ra các số từ 1 đến 5; b.In ra các số từ 0 đến 5;
c.In ra các số lần lượt từ 5 đến 0; d. In ra vô hạn các số5, mỗi số trên một dòng.
Câu 7:Đoạn lệnh sau đây cho biết kết quả nào?
Var so: byte:
so:= 1;
While so<10 do writeln(so);
so:=so+1;
a.In ra các số từ 1 đến 9; b.In ra các số từ 1 đến 10;
c.In ra vô hạn các số1, mỗi số trên một dòng. d.In ra các số từ 10 đến 1.
Câu 8:Cho đoạn chương trình sau:
Var x, tong : byte;
x:=0; tong:=0;
While tong <= 20 do
Begin
Writeln(tong);
tong:=tong +1;
End;
x:=tong;
Sau khi đoạn chương trình trên được thực hiện, giá trị của x bằng bao nhiêu?
a.20. b. 21. c. Không xác định. d. 0.
Câu 9: Hãy cho biết kết quả của đoạn chương trình dưới đây?
a:=10;
While a< 11do writlen(a);
a.Trên màn hình xuất hiện một số 10.
b.Trên màn hình xuất hiện 10 chữ.
c.Trên màn hình xuất hiện vô số chữ số10,chương trình bị lặp vô tận.
d.Trên màn hình xuất hiện một số 11.
Câu 14:Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật toán đó.
a) Thuật toán 1:
Bước 1. S ← 10, x ← 0.5
Bước 2. Nếu S ≤ 5.2, chuyển tới bước 4.
Bước 3. S ← S –x và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
b) Thuật toán 2:
Bước 1. S ←10, n ← 0.
Bước 2. Nếu S ≥ 10, chuyển tới bước 4.
Bước 3. n ← n+3, S ← S-n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
Câu 15: Hãy tìm hiểu mỗi đ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. Hãy rút ra nhận xét của em.
a)S:=0;n:=0;
while S <=10 do
begin n:=n+1;S:=S+n end;
b)S:=0;n:=0;
while S >=10 do
n:=n+1; S:=S+n;
Câu 16: Sử dụng cấu trúc lệnh While ...do để viết chương trình tính tổng của các số tự nhiên liên tiếp bé hơn 20.
Câu 17: Sử dụng cấu trúc lệnh While ...do để viết chương trình tính tích của các số tự nhiên liên tiếp từ 1 đến n.
giúp với nhé, mình cảm ơn nhiều lắm ^-^
viết chương trình pascal thể hiện thuật toán sau: chương trình tính tổng các số lẻ từ 1 đến 20
thuật toán: b1:i<--1; tong<--0.
b2: nếu i>20 chuyển tới bước 4.
b3: tong<--tong+i; i<--i+2 và quay lại bước 2.
b4: thông báo tổng và kết thúc thuật toán.
=>mong mọi người giúp tôi viêts chương trình nhé xin cám ơn rất nhìu ạ.
Em hãy cho biết thuật toán máy tính sẽ thực hiên bao nhiêu vòng lặp? kết thúc giá trị của S bằng bao nhiêu? viết chương trình bằng pascal để mô tả thuật toán đo.
b1:s<- 10, n<-1;
b2: nếu s ≥5,chuyển B4.
b3:n←N+1,s←s-n và quay lại bước 2
b4:tông báo s và kết thúc thuật toán
1,Tìm hiểu thuật toán sau:Cho biết số vòng lặp?Giá trị biến S?Diễn giải các vòng lặp và viết chương trình?
B1: S<-10, n<-6
B2:Nếu S>34,chuyển sang bước 4
B3:S=S+n và quay lại bước 2
B4:Thông báo KQ S và kết thúc thuật toán
2,Sử dụng câu lệnh lặp while...do để viết chương trình :Tính tích của n số tự nhiên với số lần lặp không xác định (Với n là số tự nhiên đầu tiên được nhập từ bàn phím)
Mai mình thi rồi,mn giúp mình với :33
cho biết giá trị S bằng bao nhiêu và số lần lặp khi thực hiện thuật toán sau?
B1: S:=5, x:=1.
B2:nếu S >=12, chuyển qua B4
B3: S:=S+x; x:=x+1 và quay lai bước 2;
B4:Thông báo S và kết thúc thuật toán
