program BaiTap;
uses crt;
var
a, b, c, i, n: integer;
D: longint;
begin
clrscr;
a:=2;
b:=3;
c:=5;
n:=7;
D:=a+b+c;
for i:=4 to n do
begin
a:=b;
b:=c;
c:=a+b;
D:=D+c;
end;
writeln('Tong la: ', D);
readln;
end.
1. Lặp với số lần chưa biết trước là lệnh gì?
a. while..to..do
b. for …to…do
c. while …do
d. if…then
2. “Nếu trời mưa thì em không đi chơi đá bóng”. Là câu lệnh gì?
a. Câu lệnh lặp với số lần biết trước
b. Câu lệnh lặp với số lần chưa biết trước
c. Câu lệnh điều kiện
d. Câu lệnh in ra màn hình
3. Hãy cho biết giá trị đầu của câu lệnh dưới đây:
for i:=5 to 21 do writeln(i*2);
a. 5 b. 6 c. 20 d. 21
4. Hãy cho biết giá trị cuối của câu lệnh dưới đây: for i:=5 to 21 do writeln(i*2);
a. 5 b. 6 c. 20 d. 21
5. Hãy cho biết số vòng lặp của câu lệnh dưới đây: for i:=5 to 21 do writeln(i*2);
a. 15 b. 16 c. 17 d. 18
6. Câu lệnh GotoXY(3,5) có tác dụng gì?
a. Đưa con trỏ về cột 3, hàng 5
b. Đưa con trỏ về cột 5, hàng 3
7. Hãy cho biết đoạn lệnh sau đây thực hiện bao nhiêu vòng lặp?
S:=0;
While S>10 do writeln(s*s);
a. 0 b. 1 c. 9 d. 10
8. Hãy cho biết đoạn lệnh sau đây thực hiện bao nhiêu vòng lặp?
S:=3; N:=1
While S<=10 do
Begin
N:=N+1;
S:=S+N;
End;
a. 2 b. 3 c. 4 d. 5
II. Tự luận
Hãy cho biết đoạn lệnh sau đây in ra giá trị của S là bao nhiêu?
S:=3; N:=1
While S<=10 do
Begin
N:=N+1;
S:=S+N;
End;
Writeln(S);
lập chương trình tính :
+ S1 = 1*2*3*4*...*n ( n là số nguyên )
+ S2 = 10+11+12+13+... sao cho S 2 là số lớn nhất bé hơn 10 000
giúp mình với ạ
các câu lệnh lặp chưa biết trước sau có hợp lệ không,sửa lại:
a) a:= 8; while a>5 do a:=a+2;
b) a:=9; while b mod 2<0 do b=b-2;
c) d:=6; while d :=6 do d:= d*d;
d)c=9; while c=>5 do c := c-2;
Nhập 2 số m,n từ bàn phím, in ra các số nguyên tố từ m đến n. Nếu không có số nào thì in 'khong co'
Vd: 4 18
=> 5 7 11 13 17
8 10
=> khong co
Cho đoạn chương trình:
j:= 2;
for i:= 1 to 5 do j:= j+1;
Sau khi thực hiện chương trình trên, giá trị của biến j bằng bao nhiêu?
A. 7; B. 8; C. 9; D. 10
Câu 3. cho đoạn chương trình sau :
S:=1; n:=0;
While S<=5 do
Begin
n:=n+1;
S:=S+n;
End;
Hãy cho biết giá trị của S bằng bao nhiu?
A.6 B.7 C.8 D.9
câu 4. Đọan chương nào sai:
A. Var x, y :real while (x=3.5) do y:=y+1; end.
B.Var x,y :real while (x<3.5) do y:=y+1 ; end.
C. Var x,y :real while (x:=3.5) do y:=y+1 ;end.
D.Var x,y :real while (x >3.5 ) do y:=y+1 ;end.
câu 5:Sau khi thực hiện đoạn chương trình sau:
j:=1;
for i:=1 to 4 do
j:=j+2;
Gía trị của biến bằng bao nhiu:
A.7 B.8 C.9 D.10
Tính S = 2/3 + 3/4 + 4/5 +..+49/50. Dùng For..do và While..do
Bài 1: Tính tổng ( Sử dụng lệnh while....do )
A=1+\(\dfrac{1}{2}\) +\(\dfrac{1}{3}\) +.......+\(\dfrac{1}{n}\) ( n được nhập từ bàn phím )
Bài 2: Tính tổng ( Sử dụng lệnh while....do )
T=1+\(\dfrac{1}{3}\) +\(\dfrac{1}{5}\) +........+\(\dfrac{1}{n}\) ( n nhập từ bàn phím )
Bài 3: Tính tổng ( Sử dụng lệnh while....do )
A=\(\dfrac{1}{1\cdot3}\) + \(\dfrac{1}{2\cdot4}\) + \(\dfrac{1}{3\cdot5}\) +.........+\(\dfrac{1}{n\left(n+2\right)}\) ( n nhập từ bàn phím )
Giúp với mai mink ktra rồi!
Viết CT giải các bài toán sau: S = 1-2+3-4+5-6+7-8+...+n
(Viết cấu trúc câu lệnh While...do)
