<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

<b>Sử dụng lệnh For</b>

<b>Bài 1 :</b>

Lập trình tính tích các số tự nhiên từ 1 tới 10 .

<b>Bài 2 :</b>

Viết chương trình đếm số lần xuất hiện của các kí tự thuộc bảng chữ cái trong 50 lần gõ kí

tự bằng bàn phím (khơng phân biệt a với A, b với B …, dùng hàm Upcase để chuyển đổi

chữ thường với chữ hoa) .

<b>Bài 3 :</b>

Cho số tự nhiên n , hãy lập trình để tính các tổng sau :

a.

<b>a. </b>

1 + 1/2

2

_{+ 1/3}

2

_{+ … + 1/n}

2

b.

<b>b. </b>

1 + 1/2! + 1/3! + … + 1/n!

<b>Bài 4 :</b>

Tính giá trị của biểu thức sau :

( 1 + 1/1

2

_{) ( 1 + 1/2}

2

_{) … ( 1 + 1/n}

2

₎

<b> Sử dụng lệnh While</b>

<b>Bài 5 :</b>

Lập trình tính tổng :

A = 1 + 1/2 + 1/3 + … + 1/n

ở đây n là số tự nhiên được nhập vào từ bàn phím .

<b>Bài 6 :</b>

Tính hàm lũy thừa a

n

_{, ở đây a thực và n tự nhiên được nhập vào từ bàn phím .}

<b>Bài 7 :</b>

Viết chương trình nhập một dãy số tối đa 100 số , sau đó in ra màn hình các số khác nhau .

<b>Bài 8 :</b>

Viết chương trình nhập một dãy số tối đa 100 số , sau đó sắp xếp lại theo thứ tự tăng dần .

<b> Sử dụng lệnh Repeat</b>

<b>Bài 9 :</b>

Cho một dãy số được nhập từ bàn phím . Hãy viết chương trình nhập một số a rồi liệt kê tất

cả các phần tử trong dãy lớn hơn a.

<b>Bài 10 :</b>

Viết chương trình nhập một dãy số tối đa 50 số rồi in ra màn hình các số trùng nhau của

dãy.

<b>Bài 11 :</b>

Bạn có 1000 đ đem gửi ngân hàng với lãi suất 8%/tháng . Sau mỗi tháng tiền lãi được nhập

vào để tính lãi suất tháng sau . Bạn muốn để dành cho đến khi số tiền tăng lên là x . Vậy

phải để trong bao lâu

<b>Bài 12 :</b>

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

<b>BÀI GIẢI</b>

<b>Sử dụng lệnh For</b>

<b>Bài 1 :</b>

Lập trình tính tích các số tự nhiên từ 1 tới 10 .

Var i : Byte ; (* chỉ số chạy *)
p : word ; (* tích số *)
BEGIN

p := 1; (* cho giá trị ban đầu của tích *)

For i := 1 to 10 Do (* cho i chạy từ 1 tới 10 *)

p := p * i ; (* lần lượt nhân i với p *)

Write (' 1 * 2 * ... * 10 = ', p ) ;
Readln ;

END .

<b>Bài 2 :</b>

Uses Crt ;

Var a : Array[ 'A'..'Z' ] of integer; (* mảng bộ đếm *)
ch : char ; (* biến nhập kí tựù *)
i : byte ; (* chỉ số của lần gõ phím *)
BEGIN

Clrscr ;

For ch :='A' to 'Z' Do a[ch] := 0 ; (* xả bộ đếm *)
Writeln (' Go phim 50 lan ') ;

For i := 1 To 50 Do (* thực hiện 100 lần *)
Begin

ch :=Readkey ; (* nhập kí tự vào Ch không cần gõ Enter *)
ch := Upcase(ch) ; (* Đỗi chữ thường thành chữ hoa *)
a[ch] := a[ch] + 1 ;

End;

Writeln (' So lan xuat hien cac ki tu la :') ;

For ch :='A' to 'Z' do (* Kiểm tra bộ đếm từ 'A' tới 'Z' *)
If a[ch] > 0 Then (* Nếu Ch có xuất hiện *)

Writeln (ch , a[ch] : 4 , ' lan . ') ; (* Viết ra màn hình kí tự và
số lần xuất hiện *)

Readln ;
END .

<b>Bài 3 :</b>

a)

Var n , i : Word ;
S : Real ;
BEGIN

Write (' Nhap n : ') ; Readln (n) ;
S := 0 ;

For i := 1 To n Do
S := S + 1 / sqr(i) ;
Writeln (' S = ', S:0:2) ;
Readln ;

END .
b)

Var n , i , j , p : Word ;
S : Real ;

BEGIN

</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>

p := 1 ;
s := 0 ;

For i :=1 To n Do
Begin

p := p * i ; (* tính i *)
S := S + 1 / p ;

End ;

Writeln (' S = ', S:0:2) ;
Readln ;

END .

<b>Bài 4 :</b>

Var i , n : Byte ;
p : Real ;
Begin

Write(' Nhap n : ') ; Readln (n) ;
p := 1 ;

For i := 1 To n Do p := p * ( 1 + 1/sqr(i) ) ;
Writeln(' p = ', p:10:5 ) ;

Readln ;
End .

<b> Sử dụng lệnh While</b>

<b>Bài 5 :</b>

Uses Crt ;

Var i , n : Integer ;

tong: Real ;
BEGIN

Clrscr ;

Write (' Cho so tu nhien n : ') ; Readln (n) ;
tong :=0 ;

i :=1 ;

While i <= n Do
Begin

tong := tong + 1/i ;
i := i + 1 ;

End ;

Writeln (' Tong can tim la : ', tong:12:6 ) ;
Readln ;

END .

<b>Bài 6 :</b>

Uses Crt ;

Var i , n : Integer ;
a , giatri : Real ;
BEGIN

Clrscr ;

Write (' Cho so a : ') ; Readln(a) ;
Write (' Cho so mu n : ') ; Readln(n) ;
i := 1 ;

giatri := 1 ;
While i <= n Do
Begin

giatri := giatri * a ;
i:= i+1 ;

End ;

</div>
<span class='text_page_counter'>(4)</span><div class='page_container' data-page=4>

END .

<b>Bài 7 :</b>

Uses Crt;

Var A : Array [1..100] Of Integer;
i , j , n : Integer ;

BEGIN

Clrscr ;

Write(' Do dai cua day so N = ') ; Readln (N) ;
For I := 1 To N Do

Begin

Write ('A[', i , ']= ') ; Readln ( A[i] ) ;
End ;

Writeln (' Cac so khac nhau la : ') ; Writeln ( A[1] ) ;
i := 2 ;

While i <= N Do
Begin

j := 1 ;

While ( j < i ) and ( A[j] <> A[i] ) Do inc(j) ;
If j = i Then Writeln( A[i] ) ;

i :=i + 1 ;
End ;

Readln ;
END .

<b>Bài 8 :</b>

Uses Crt;

Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;
BEGIN

Clrscr ;

Write(' Do dai cua day so N = ') ; Readln (N) ;

Writeln (' Nhap day so : ') ;

For i := 1 To N Do
Begin

Write('A[', i ,'] = ') ; Readln ( A[i] ) ;
End ;

i := 1 ;

While (i <= n-1) Do
Begin

j := i+1;
While j<=n do
Begin

If A[j] < A[i] then
Begin

T := A[j];
A[j ] := A[i];

A[i] := T ;
End ;
j := j + 1;
End ;

i := i + 1;
End ;

Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A[i] : 4) ;
Readln ;

</div>
<span class='text_page_counter'>(5)</span><div class='page_container' data-page=5>

<b> Sử dụng lệnh Repeat</b>

<b>Bài 9 :</b>

Uses Crt ;

Var b : Array[1..100] Of Real;
a : Real ;

n , i : Byte ;
BEGIN

Clrscr ;

Write ('Nhap do dai cua day so : ') ; Readln(n) ;
Writeln (' Nhap cac phan tu cua day : ') ;

For i := 1 To n Do
Begin

Write (' b[', i ,'] = ') ; Readln( b[i] ) ;
End ;

Write (' Nhap so thuc a : ') ; Readln(a) ;
Writeln (' Cac phan tu lon hon a cua day : ') ;
i:=1;

Repeat

If ( b[i] > a ) Then Writeln (' b[', i ,'] = ', b[i]:8:2 ) ;
inc(i) ;

Until i > n ;
Readln ;
END .

<b>Bài 10 :</b>

Uses crt ;

Var a , b : Array[1..50] Of Integer ;
n , m , i , j , k : Byte ;
trung : Boolean ;

BEGIN

Clrscr ;

Write (' Nhap do dai cua day so nguyen : ') ; Readln(n) ;
Writeln (' Nhap cac phan tu cua day : ') ;

For i := 1 To N do
Begin

Write (' a[', i ,'] = ') ; Readln( a[i] ) ;
End ;

i := 1 ; m := 0 ;
Repeat

trung := false ;
j := i + 1;
Repeat

If ( j <= n ) and ( a[i] = a[j] ) Then trung := true ;
inc (j) ;

Until trung or ( j > n ) ;
If trung Then

Begin

m := m + 1;

b[m] := a[i] ; writeln ( b[m] : 4 ) ;
End ;

inc(i) ;
Until i > n ;
If m > 1 Then
Begin

i := 1 ;
Repeat

</div>
<span class='text_page_counter'>(6)</span><div class='page_container' data-page=6>

Repeat

trung := false ;

If b[i] = b[j] Then trung := true ;
If trung Then

Begin
If j < m Then

For k := j To m - 1 Do b[k] := b[k + 1] ;
m := m - 1 ;

dec ( j ) ;
End ;
inc ( j ) ;
Until j > m ;
inc ( i ) ;
Until i > m ;
End ;

If m > 0 Then

For k := 1 To m Do Write ( b[k] : 4 ) ;
Readln ;

END .

<b>Bài 11 :</b>

uses crt ;
var

thang : Byte ;

tien , lai , x : Real ;
BEGIN

clrscr ;

writeln (' Chuong trinh tinh thoi gian rut tien lai ') ;
write (' So tien lai muon rut ra : ') ; readln(x) ;
tien := 1000 ;

thang :=1 ;
repeat

lai := tien * 8 / 100 ;
tien := tien + lai ;
thang := thang + 1 ;
until tien >= x ;

writeln (' Ban phai gui tien trong ', thang div 12 , ' nam ',

thang mod 12 ,' thang .') ;

writeln (' Khi do so tien ban rut ra duoc la ', tien:12:2 ,' dong .') ;
readln ;

END .

<b>Bài 12 :</b>

Uses crt ;

Var a : Array [1..100] Of Integer ;

n , i : Byte ;

d : integer ;
BEGIN

Clrscr ;

Writeln (' Tim USCLN cua N so :') ;
Write (' Nhap so N : ') ; Readln(n) ;
Writeln ('Nhap ', N ,' so : ') ;
For i := 1 To n Do

Begin

Write(' So thu ', i ,' = ') ; Readln( a[i] ) ;
End ;

For i := 1 To n-1 Do
Repeat

d := a[i] ;

</div>
<span class='text_page_counter'>(7)</span><div class='page_container' data-page=7>

a[i+1] := d ;
Until a[i] = 0 ;

Writeln (' USCLN cua ', N ,' so la : ', a[n] ) ;
Readln ;

</div>

<!--links-->