Bài tập 3 :

For i := 1 to 10 do

⇒ Gía trị đầu của i là 1

⇒ Giá trị cuối của i là 10

⇒ Giá trị biến i chạy từ 1 đến 10

⇒ Sau khi thực hiện đoạn chương trình i bằng 10

Bài tập 4 :

- Viết thuật toán :

+ Bước 1 : nhập số a, k, t

+ Bước 2 : i ← 1

+ Bước 3 : nếu i > t thì đưa ra giá trị a rồi kết thúc

+ Bước 4 :

+ Bước 4.1 : a ← a + a * (k / 100)

+ Bước 4.2 : i ← i + 1 quay lại bước 3

- Viết chương trình :

uses crt;

var a, k : real; i, t : integer;

begin

clrscr;

write('Nhap so tien ban dau : '); readln(a);

write('Nhap lai suat va so thoi gian : '); readln(k, t);

i := 1; while i <= t do

begin a := a + a * (k / 100);

i := i + 1; end;

write('So tien sau ', t ,' thang = ', a : 10 : 0);

readln

end.

Bài 3:

For i := 0 to 10 do

`=>` $\text{Giá trị ban đầu i = 0}$

`=>` $\text{Giá trị cuối của i = 10}$

`=>` $\text{Giá trị biến i chạy từ 0 đến 10}$

`=>` $\text{Sau khi thực hiện chương trình i=10}$

Bài 4:

$\textit{Thuật toán :}$

+ Bước 1: Nhập các giá trị a,k,t

+ Bước 2: Gán i←1

+ Bước 3: Nếu i>t In giá trị a ra màn hình rồi kết thúc

+ Bước 5: Gán a ← a+a*(k/100)

+ Bước 6: Gán i←i+1 quay lại bước 3

$\textit{CT:}$

uses crt;

var i, t : integer;

     a,k: real;

begin

clrscr;

write('Nhap so tien da gui: ');

readln(a);

write('Nhap lai suat: ');

readln(k);

write('Nhap thoi gian gui: ');

readln(t);

i:=1;

while i<=t do

begin

a:=a+a*(k/100);

i:=i+1;

end;

write('So tien nhan duoc sau ',t,' thang la: ', a:10:2);

readln;

end.