CÂU 3 điểm:

1. Giải hệ bậc nhất 2 ẩn:

PHP:

{HE 2 PHUONG TRINH BAC NHAT}
uses crt;
var a,b,c,d,e,f,DD,Dx,Dy:real;
BEGIN
clrscr;
Writeln('Nhap he so a, b, c: '); readln(a,b,c);
Writeln('Nhap he so d, e, f: '); readln(d,e,f);
DD:=a*e-d*b;
Dx:=c*e-f*b;
Dy:=a*f-d*c;
IF DD<>0 then
writeln('HPT co nghiem duy nhat: x=',Dx/DD:5:2,' va y=',Dy/DD:5:2);
IF DD=0 then
Begin
IF (Dx<>0) or (Dy<>0) then writeln('HPT vo nghiem :(');
IF (Dx=0) and (Dy=0) then writeln('HPT vo so nghiem :))');
End;
readln;
END.

2. Giải PT bậc 2:

PHP:

{Giai phuong trinh bac 2}
uses crt;
var a,b,c,delta:real;
BEGIN
clrscr;
repeat
write('Nhap a, b, c:'); readln(a,b,c);
Until (a<>0) or (b<>0) or (c<>0);
IF a=0 then
IF b<>0 then writeln('Phuong trinh co nghiem duy nhat: x= ',-c/b:6:3)
else write('Phuong trinh vo nghiem!!!')
ELSE
Begin DELTA:=b*b-4*a*c;
If delta=0 then write('Phuong trinh co nghiem kep: x=',-b/a:6:3);
IF delta>0 then
begin writeln('Phuong trinh co 2 nghiem phan biet: ');
writeln('X1= ',(-b+sqrt(delta))/2/a:6:3);
writeln('X2= ',(-b-sqrt(delta))/2/a:6:3);
end;
If delta<0 then write('Phuong trinh vo nghiem.!!.');
end;
readln;
END.

3. Nhập vào dãy n số bất kỳ từ bàn phím. Tìm giá trị max, min của dãy. In kết quả tìm được ra màn hình cùng vị trí max, min trong dãy.

PHP:

 {MAX, MIN cua day}
uses crt;
var A: array[1..1000] of INTEGER;
n,i,max,min:integer;
BEGIN
clrscr;
write('Nhap so phan tu cua day: '); read(n);
FOR i:=1 to n do
Begin write('A[',i,']= '); read(a[i]); end;
max:=a[1]; min:=a[1];
FOR i:=1 to n do
BEGIN
IF a[i]>max then max:=a[i];
IF a[i]<min then min:=a[i];
END;
writeln('Gia tri MAX = ',max);
writeln('Gia tri MIN = ',min);
write('Cac vi tri max la: ');
For i:=1 to n do If a[i]=max then write(i:4);
writeln;
write('Cac vi tri min la: ');
For i:=1 to n do If a[i]=min then write(i:4);
readln;
readln;
END. 

Bài 4: Tìm giá trị MAX, MIN của ma trận

PHP:

 uses crt;
var A: array[1..100,1..100] of INTEGER;
n,m,i,j,max,min:integer;
BEGIN
clrscr;
write('Nhap n,m cua ma tran A[n,m]: '); read(n,m);
FOR j:=1 to m do
FOR i:=1 to n do
Begin
write('A[',i,',',j,']= ');
read(a[i,j]);
end;
max:=a[1,1]; min:=a[1,1]; tong:=0;
FOR j:=1 to m do
FOR i:=1 to n do
Begin
IF a[i,j]>max then max:=a[i,j];
IF a[i,j]<min then min:=a[i,j];
End;
writeln('Gia tri MAX cua ma tran la ',max);
writeln('Gia tri MIN cua ma tran la ',min);
readln;
END. 

Bài 5: Tam giác nội tiếp Elip, Elip nội tiếp chữ nhật, chữ nhật nội tiếp hình tròn.

PHP:

 {HINH NOI TIEP}
USES graph;
Const
tamgiac: Array[1..3] of pointtype=((x:357;y:355),(x:660;y:180),(x:963;y:355));
VAR i,driver,mode:INTEGER;
BEGIN
driver:=detect;
initgraph(driver,mode,''