Câu 1: (Đề chính thức THPT)
Viết chơng trình nhập vào độ dài ba cạnh của một tam giác và tính
chu vi, diện tích của tam giác đó?
Program Chu_vi_Dien_tich;
uses crt;
var a,b,c,cv,dt,P: real;
Begin
clrscr;
writeln('Nhap do dai canh 1 cua tam giac a = : '); readln(a);
writeln('Nhap do dai canh 2 cua tam giac b = : '); readln(b);
writeln('Nhap do dai canh3 cua tam giac c = : '); readln(c);
cv:=a+b+c; {cv: la chu vi cua tam giac}
P:=cv/2;
dt:=sqrt(P*(P-a)*(P-b)*(P-c)); {dt: la dien tich cua tam giac}
writeln('Chu vi tam giac can tim la :', cv:10:2);
writeln('Dien tich tam giac can tim la :',dt:10:2);
readln
end.
Câu 2: (Đề chính thức THPT)
Lập trình nhập từ bàn phím bảng số nguyên A có kích thớc 10 x 10,
thực hiện tính và đa ra màn hình:
1. Tính tổng các phần tử trên đờng chéo chính và đờng chéo phụ?
2. Sắp xếp các phần tử của hàng theo thứ tự tăng dần?
3. Kiểm tra đếm trong bảng có bao nhiêu phần tử chia hết cho 3, hiển thị
ra màn các phần tử đó?
program Cau_2;
var b: array[1 10,1 10] of integer;
i,j,k,p,tc,tp,t,d: integer;
begin
writeln('nhap cac phan tu cua mang theo dong: ');
for i:=1 to10 do

writeln('cac hang duoc sap xep: ');
for i:=1 to 10 do
begin
write (b[i,j]:4);
writeln;
end;

{Phan 3: Kiểm tra đếm trong bảng có bao nhiêu phần tử chia hết cho 3}
d:=0;
for i:=1 to 10 do
for j:=1 to 10 do
if (b[i,j] mod 3 = 0) then d:=d+1;
writeln('so phan tu cua mang chia het cho 3 la: ',d);
readln
end.
Câu 3: (Đề chính thức THPT)
Thiết lập chế độ đồ hoạ mô phỏng quả bóng tròn màu đỏ chuyển
động đập vào các cạnh của màn hình dới một góc 45
0
?
Program cau3;
uses crt,graph;
var gd,gm,a,b,r: integer;
dx,dy: integer;
Begin
gd:=0;
initgraph(gd,gm,'C:\BIN\BGI');
r:=20; a:=320; b:=240; dx:=2; dy:=2;
Repeat
Setcolor(red); {Thiet lap ve hinh tron rong voi mau vien mau do}

Program gia_tri_tong;
const E=2000000000;
uses crt;
var n, tong, i: integer;
Function mu(a:integer): integer;
var i,A:integer,k;
Begin
k:=1;
for i:=1 to 3 do
k:=k*a;
mu:=k;
end;
begin
write('nhap n:');
readln(n);
tong:=1;
While tong<=E do
Begin
for i:=1 to n do
tong:=tong(n-1)+mu(2n-1);
n:=n+1;
end;
writeln('gia tri tong can tim la:', tong:10);
readln
end.
Câu 1: (Đề chính thức THCS)
Nhập vào một dãy số nguyên dơng gồm 10 số đợc nhập vào từ bàn
phím, thực hiện tính và đa ra màn hình:
Tính tổng các phần tử trong dãy số?
Đếm và tính tổng các số chẵn, số lẻ?

writeln('So cac phan tu chan trong day so nguyen:', d1, 'Tong cac phan tu
chan trong day la: ',S1);
writeln('So cac phan tu le trong day so nguyen:', d2, 'Tong cac phan tu le
trong day la: ',S2);
readln
end.
Câu 3: ((Đề chính thức THCS))
Cho một dãy số gồm 10 phần tử (X1, X2, X3, , X10)
1. Nhập giá trị các phần tử trong dãy số?
2. Sắp xếp các phần tử trong dãy số theo chiều tăng dần?
3. Tìm vị trí phần tử trong dãy số có giá trị = 25 theo phơng pháp tìm
kiếm nhị phân (Binary Search)?
Program cau6;
{uses crt;}
var A: array[1 20] of integer;
i,j,n,k,Dau,cuoi,giua,tg: integer;
Tim_thay:boolean;
begin
{Phan 1: Nhập giá trị các phần tử trong dãy số}
write('nhap so phan tu trong day so:');
readln(n);
for i:=1 to n do
Begin
writeln('Cho A[',i,']= ');
readln(a[i]);
end;
{Phan 2: S¾p xÕp c¸c phÇn tö trong d·y sè theo chiÒu t¨ng dÇn}
For j:=N downto n do
For i:=1 to j -1 do
If A[i]> A[j] then

(hệ số a, b, c là các số nguyên dương).
Program Cau7;
{ uses crt;}
var a,b,c: integer; delta,x1,x2: real;
begin
write('nhap vao he so cua phuong trinh: ');
readln(a,b,c);
If a = 0 then
Begin
writeln('Quay tro lai giai phuong trinh bac nhat !');
if b=0 then
begin
if c=0 then
writeln('Phuong trinh vo so nghiem')
else
writeln('Phuong trinh vo nghiem')
end
else
write('Phuong trinh co nghiem ',-c/b);
end
else
begin
delta:=b*b-4*a*c;
if delta=0 then
begin
x1:=-b/(2*a);
writeln('phuong trinh co 2 nghiem kep :', x1:10:4)
end
else
begin

if i=k then kt:=true;
end;
begin
write('nhap so m:'); readln(m);
d:=0;
k:=1;
writeln(m,'so nguyen to dau tien la: ');
While d<m do
begin
k:=k+1;
If kt(k) then
begin
write(k:4);
d:=d+1;
end;
end;
readln
end.