Câu 4:

S ban đầu bằng 0;

N ban đầu bằng 0;

Điều kiện chạy: s<=6 thực hiện n:=n+1(n tăng lên 1); s:=s+n(cộng n vào s)

Mô phỏng:

Vòng lặp 1: n=0; s=0; `->` s<6 `->`  n:=n+1; s:=s+n; `->` n=1; s=1; `->` s<6 `->` chạy tiếp

Vòng lặp 2: n=1; s=1; `->` s<6 `->`  n:=n+1; s:=s+n; `->` n=2; s=3; `->` s<6 `->` chạy tiếp

Vòng lặp 3: n=2; s=3; `->` s<6 `->`  n:=n+1; s:=s+n; `->` n=3; s=6; `->` s=6 `->` chạy tiếp

Vòng lặp 4: n=3; s=6; `->` s=6 `->`  n:=n+1; s:=s+n; `->` n=4; s=10; `->` s>6 `->` dừng

Vậy sau khi thực hiện vòng lặp thì N=4;

                                                        S=10;

II/ Tự luận

Câu 1:

a) For i:=100 to 1 do writeln ('A');  `->` For i:=1 to 100 do writeln ('A');

Sai điều kiện trong for..to..do:

Cú pháp: For <biến đếm>:=<Giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Hoạt động: Biến đếm, giá trị đầu, giá trị cuối là các số nguyên với giá trị cuối phải lớn hơn hoặc bằng giá trị cuối

For,to,do là các từ khóa

Biến đếm,Giá trị đầu, Giá trị cuối, câu lệnh là các dữ liệu do người lập trình tạo ra

-------------------------------------------------------------------------------------------------

b) For i:=1.5 to 10.5 do writeln ('A');  `->`  For i:=1 to 10 do writeln ('A');

Sai về lỗi kiểu dữ liệu của biến đếm, giá trị đầu và giá trị cuối

Cú pháp: For <biến đếm>:=<Giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Hoạt động: Biến đếm, giá trị đầu, giá trị cuối là các số nguyên với giá trị cuối phải lớn hơn hoặc bằng giá trị cuối

For,to,do là các từ khóa

Biến đếm,Giá trị đầu, Giá trị cuối, câu lệnh là các dữ liệu do người lập trình tạo ra

-------------------------------------------------------------------------------------------------

c) x:=10; while x:=10 do x:=x+5; `->` x:=10; while x=10 do x:=x+5;

Cú pháp: While <điều kiện> do <câu lệnh>;

Hoạt động: Câu lệnh sẽ được thực hiện lặp đi lặp lại khi điều kiện cho giá trị đúng và dừng lại khi điều kiện sai thì dừng

While,do là các từ khóa

Điều kiện: Là các phép so sánh toán học chứ không phải là phép gán ":="

-------------------------------------------------------------------------------------------------

d) x:=10; while x=10 do x:=x+5;

Cú pháp: While <điều kiện> do <câu lệnh>; `->` Đây là câu lệnh đúng

Hoạt động: Câu lệnh sẽ được thực hiện lặp đi lặp lại khi điều kiện cho giá trị đúng và dừng lại khi điều kiện sai thì dừng

While,do là các từ khóa

Điều kiện: Là các phép so sánh toán học

-------------------------------------------------------------------------------------------------

Câu 2:

uses crt;

var n,i: ineteger;

begin

clrscr;

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

for i:=1 to n do

writeln (n,' + ',i,' = ',n+i);

readln;

end.

$#Trumtinhoc$