ÔN TẬP
I/ Lý Thuyết.
1) Khai báo kiểu mảng 1 chiều.
2) Các thao tác làm việc với kiểu dữ liệu tệp.
3) Khái niệm chương trình con? Ý nghĩa của việc sử dụng
chương trình con?
4) Thư viện chương trình con chuẩn là gì ? Cách sử dụng các
chương trình con trong các thư viện chuẩn ??? 

Gợi ý :
1) Để khai báo kiểu mảng 1 chiều ta chọn một trong 2 cách
sau :
 Cách 1 : khai báo trực tiếp
Var <tên biến mảng> : array[kiểu chỉ số] of <kiểu phần
tử>;
 Cách 2: khai báo gián tiếp qua kiểu mảng 1 chiều
Type<tên biến mảng>=array[kiểu chỉ số] of <kiểu phần tử>;
Var <tên biến mảng>:<tên kiểu mảng>;
* Trong đó :
* kiểu chỉ số thường là một đoạn số nguyên liên tục có
dạng n1,n2, với n1,n2 là các hằng hoặc biểu thức
nguyên xác định chỉ số đầu và chỉ số cuối ( n1<= n2).
* Kiểu phần tử là kiểu của các phần tử mảng.
2) Các thao tác làm việc với tệp.
Trước khi làm việc với tệp ta phải khai báo biến tệp theo cú
pháp : var <tên biến tệp >:text;
- Gắn tên tệp : tên tệp là biến xâu hoặc hằng xâu. Dùng thủ
tục sau :
Assign(<biến tệp>,<tên tệp>);
- Mở tệp :
+ để ghi dữ liệu : rewrite(<biến tệp>);

for i:=1 to n do if a[i]>max1 then max1:=a[i];
max2:=-200;
for i:=1 to n do if ((a[i]>max2) and(a[i]<max1)) then
max2:=a[i];
write(‘phan tu lon nhi : ‘,max2);
readln;readln;
end.

** Tìm phần tử bé nhì trong mảng :

Uses crt;
Var a:array[1 100] of integer;
n,i,min1,min2 :integer;
begin
clrscr;randomize;
write(‘nhap n :’);read(n);
for i:=1 to n do a[i]:=random(201)-random(201);
writeln(‘cac phan tu trong mang :’);
for i:=1 to n do writeln(a[i]:5);
min1:=a[1];
for i:=1 to n do if a[i]<min1 then min1:=a[i];
max2:= 200;
for i:=1 to n do if ((a[i]<min2) and(a[i]>min1)) then
min2:=a[i];
write(‘phan tu be nhi : ‘,min2);
readln;readln;
end.
** Cách khác : sắp xếp các phần tử trong mảng theo chiều
tăng dần thì phần tử lớn nhì là phần tử n-1 và phần tử bé
nhì là phần tử thứ 2 .

tử thứ nhất đến thứ i của a.
3) Viết thủ tục kiểm tra tính nguyên tố của một số nguyên (
nếu số đó âm thì lấy trị tuyệt đối của số đó ).
Uses crt;
Var n,i:integer;
Procedure NT(i:integer);
Var kt:boolean;
Begin
If n<0 then n:=abs(n);
Writeln(n);
Kt:=true;
For i:=2 to n-1 do if (n mod i =0) then kt:=false;
If kt=true then write (‘day la so NT ‘) else write (day k phai
so NT’);
End;
Begin
Clrscr;
Write(‘nhap n : ‘);read(n);
NT(i);
Readln;readln;
End.
** Mở rộng bài toán : Giả sử bài toán không yêu cầu viết thủ
tục mà là viết hàm để kiểm tra tính nguyên tố của n thì ta làm
như sau :
Function kt(n:integer):boolean;
var i: integer;
begin
kt:=true;
for i:=2 to n-1 do if (n mod i) = 0 then kt:=false;
end;

Clrscr;
Write(‘nhap xau : ’);read(a);
Write(‘ xau dao nguoc : ‘, DN(a));
Readln;readln;
End.

5) Viết chương trình con giải và biện luận phương trình bậc 2.
Uses crt;
Var a,b,c,d,x1,x2,x :real;
Procedure GPT1(b,c : real);
Var x :real;
Begin
If b<>0 then write(‘PT co nghiem x= ‘, (-c/b):6:1)
else
Begin
If c=0 then write(‘PT co VSN ‘);
If c<>0 then write(‘PT vo nghiem’);
End;
End;
Procedure GPT2(a,b,c:real);
Var d,x1,x2,x:real;
If a=0 then GPT1(b,c) else
Begin
D:=b*b-4*a*c;
If d<0 then write(‘PT vo nghiem’);
If d=0 then write(‘PT co nghiem x= ‘, (-b/(2*a)):6:2);
If d>0 then write(‘PT co 2 nghiem x1= ‘, (-
b+sqrt(d))/(2*a)):6:2, ‘x2= ‘, (-b-sqrt(d))/(2*a):6:2);
End;
End;