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.

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