Câu 1: Nêu cấu trúc và hoạt động của câu lệnh lặp?
Câu 2:
Các lệnh sau đúng hay sai? Chỉ rõ chỗ sai?
a. For i:=1 to 10; do x:=x+1;
b. For i:=10 to 1 do x:=x+1;
c. For i:=1 to 10 do x:= x+1;
d. For i:=1 to 10 For j:=1 to 10 do x:=x+1;
e. For i:=1 to 10 do For i:=1 to 10 do x:=x+1;
Câu 3:
Viết chương trình tính tổng S sau bằng câu lệnh lặp:
S= 1 + 1/2 + 1/3 +…+ 1/N
Câu 4: Hãy sử dụng câu lệnh lặp for ..do để viết câu lệnh in lên màn hình 10 dòng chữ “CHUC MUNG NAM MOI 2021”.
Câu 5: (Bài 3 SGK/trang 59):
Hãy mô tả thuật toán để tính tổng A sau đây (n là số tự nhiên được nhập từ bàn phím)
Một câu tương đương 10 điểm nha
Mà các bạn nhớ làm hết nha
Câu 1: Nêu cấu trúc và hoạt động của câu lệnh lặp? Câu 2: Các lệnh sau đúng hay sai? Chỉ rõ chỗ sai? a. For i:=1 to 10; do x:=x+1; b. For i:=10 to 1 d
By Alexandra
Câu 1:
Cấu trúc lặp là một điều khiển thực hiện công việc lặp đi lặp lại khi chưa đủ số lần lặp hoặc khi một điều kiện nào đó còn đúng.
– Quá trình lặp không thể dừng được gọi là quá trình lặp vô hạn. Điều này xảy ra khi điều kiện để dừng lặp không còn bị biến đổi giá trị sau mỗi lần lặp. Khi đó để thoát lặp vô hạn, cần có các câu lệnh cho phép thoát ngay khỏi lặp.
– Có hai loại cấu trúc lặp: lặp với số lần biết trước và lặp với số lần chưa biết trước.
Câu 2
câu lệnh b,e sai
chỗ sai
b. câu lệnh lặp for..do là câu lệnh lặp theo thứ tự tăng dần ko phải giảm dần
e. thiếu do
còn các câu lệnh còn lại đều đúng
Câu 3
uses crt;
var
i,N: integer;
S: real;
begin
write(‘nhap so N:=’); readln(N);
For i:=1 to N do S:=S+1/i
write(‘ket qua la ‘,S);
readln
End.
Câu 4
uses crt;
var
i: byte;
begin
clrscr;
For i:=1 to 10 do writeln(‘CHUC MUNG NAM MOI 2021’);
readln
End.
Câu 5
INPUT nhập số N
OUTPUT tính tổng A
Bước 1: nhập số N
bước 2 nếu i nhỏ hơn hoặc bằng N thì sang bước 3 ngược lại sang bước 4
bước 3 tăng thêm 1 vào i cộng A với i
bước 4 in ra kết quả A
Khá vất vả nên cho xin hay nhất nhé.
Câu 1:
Cấu trúc: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Ban đầu, biến đếm sẽ nhận giá trị bằng giá trị đầu. Sau mỗi vòng lặp, biến đếm sẽ tự động tăng thêm 1 đơn vị cho đến khi bằng giá trị cuối.
Câu 2:
a. For i:=1 to 10; do x:=x+1; Sau số 10 không được có ‘;’.
b. For i:=10 to 1 do x:=x+1; Số 10 > số 1 nên không được làm giá trị đầu.
c. For i:=1 to 10 do x:= x+1; Câu lệnh đúng.
d. For i:=1 to 10 For j:=1 to 10 do x:=x+1; Thiếu do của vòng for i.
e. For i:=1 to 10 do For i:=1 to 10 do x:=x+1; Không được lặp lại biến i trong 2 vòng for.
Câu 3:
uses crt;
var i,n:longint; s:real;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do s:=s+1/i;
writeln(‘S= ‘,s);
readln
end.
Câu 4:
uses crt;
var i:longint;
begin
clrscr;
for i:=1 to 10 do writeln(‘CHUC MUNG NAM MOI’);
readln
end.