THUC HANH 1
program bt1th1;
Var
a,b,c:real;
delta,x,x1,x2:real;
Begin
writeln('GIAI PHUONG TRINH BAC 2 ');
repeat
write('Nhap he so a='); readln(a);
until a<>0;
write('Nhap he so b='); readln(b);
write('Nhap he so c='); readln(c);
delta:=(b*b-4*a*c);

if delta<0 then
writeln('phuong trinh vo nghiem');
if delta=0 then
begin
x:=-b/(2*a);
writeln('co nghiem kep x=',x:8:3);
end;
if delta>0 then
begin
x1:=(-b+sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);
writeln('x1=',x1:8:3);
writeln('x2=',x2:8:3);
end;
readln;
END.

program bt2th1;

Var
a,b,c,m,n,p,X1,X2:real;
DD,DX,DY:real;

BEGIN
writeln('nhap gia tri cac he so cua he');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('m='); readln(m);
write('n='); readln(n);
write('p='); readln(p);

DD:=a*n-m*b;
DX:=c*n-b*p;
DY:=a*p-c*m;
X1:=DX/DD;
X2:=DY/DD;
if DD=0 then
begin
if (DX=0) and (DY=0) then
writeln('phuong trinh vo so nghiem')
else
writeln('phuong trinh vo nghiem');
end
else
begin

Writeln('X1=',X1:8:3);
writeln('X2=',X2:8:3);
end;
readln;
END.




Program bt3th1;

Var
a,b,c,Cv,s,p:real;

BEGIN
writeln('nhap he so tam giac:');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Cv:=a+b+c;

if (a+b>c) and (a+c>b) and (b+c>a) and
(a>0) and (b>0) and (c>0) then
begin
writeln('a,b,c la 3 canh tam giac');
writeln('s=',s:3:1);
writeln('Cv=',Cv:3:1);
end

else
writeln('Rat tiec so ban nhap ko thoa man !');
readln;

END.




program bt4th1;
var
i,n,tc,tl:integer;
begin
write('nhap gia tri n=');
readln(n);
tc:=0;
tl:=0;
for i:= 1 to n do
if i mod 2 =0 then
tc:=tc+i
else
tl:=tl+i;
write('tong cac so chan la:',tc:3);
write('tong cac so le la:',tl:3);
readln;
end.





program bt5th1;
var
s:real;
i,n:integer;
begin
writeln('nhap gia tri n='); readln(n);
s:=0;
for i:= 1 to n do
s:=s+1/i;
write('tong s=',s:3:1);
readln;
end.




program bt6th1;
var
T,i,n:integer;
S,x:real;
begin
write('nhap gia tri n='); readln(n);
write('nhap gia tri x='); readln(x);
T:=1;
S:=0;
for i:= 1 to n do
begin
T:=-1*T;
S:=S+(T*x)/i;
end;

write('tong s=',s:5:2);
readln;
end.




program bt7th1;
var
a,b,c:integer;
begin
for a:= 1 to 9 do
for b:= 0 to 9 do
for c:= 0 to 9 do
if 100*a+10*b+c= a*a*a+b*b*b+c*c*c then
writeln(a,b,c);
readln;
end.




program bt8th1;

var
x,y,z:integer;
begin

for x:= 0 to 20 do
for y:= 0 to 33 do

for z:= 0 to 100 do
if (5*x+3*y+z/3=100) and (x+y+z =100) then
writeln(x:3,y:3,z:3);
readln;
end.




program bt9th1;
var
n:integer;
begin
repeat
write('nhap gia tri n=');
readln(n);
writeln('so ban nhap la:');
until (n>=0) and (n<=9);
case n of
0:write('so khong');
1:write(' so mot');
2:write('so hai');
3:write('so ba');
4:write('so bon');
5:write('so nam');
6:write('so sau');
7:write('so bay');
8:write('so tam');
9:write('so chin');
end;

readln;
end.



program bt10th1;
var
a,b,t:integer;
begin
repeat
write('Nhap so a='); readln(a);
write('Nhap so b='); readln(b);
until (a>0) and (b>0);
repeat
t:=b;
b:=a mod b;
a:=t;
until b=0;
write('USCLN hai so a va b la:',a:2);
readln;
end.



program bt11th1;
var
a,b,t,x,y:integer;
bscnn: integer;
begin
repeat

write('Nhap so a='); readln(a);
x:=a;
write('Nhap so b='); readln(b);
y:=b;
until (a>0) and (b>0);
repeat
t:=b;
b:=a mod b;
a:=t;
until b=0;
writeln('USCLN hai so a va b la:',a:2);;
bscnn:=trunc((x*y)/a);
writeln('BSCNN hai so a va b la:',bscnn:3);
readln;
end.



program bt12th1;
var
n,i:integer;
begin
writeln('TRUONG TRINH KIEM TRA SO NGUYEN
TO');
write('nhap so n muon kiem tra:'); readln(n);
for i:= 2 to trunc(sqrt(n)) do
if n mod i <> 0 then
write('La so nguyen to ')
else
write('Khong la so nguyen to');

readln;
end.



program bt13th1;
var i:integer; s,n:real;
begin
writeln('dan so nam 1990 la: 65 trieu');
s:=65; i:=0; n:=65;
while s<95 do
begin
s:=s+s*2/100;
i:=i+1;
end;
writeln('sau ',i,' nam dan so nuoc nay la 95 trieu');
for i:=1 to 19 do
n:=n+n*2/100;
writeln('nam 2009 dan so nuoc nay la ',n:5:2,' trieu');
readln;
end.



program bt14th1;
var
s,n,x:integer;
begin
write('nhap so x= '); readln(x);
repeat

n:=n+1;
s:=s+1;
until s>=x;
writeln('so lon nhan thoa man la:',n-1:2);
readln;
end.
program b15p1;
var
i,d:integer; s:real;
a:array[1..20] of integer;
begin
writeln('nhap vao cac gia tri cua day so');
d:=0;
repeat
inc(d);
write('nhap a[',d,']: '); readln(a[d]);
until a[d]=0;
s:=0;
for i:=1 to d-1 do s:=s+a[i];
writeln('trung binh cong cac so vua nhap: ',s/(d-1):3:2);
readln;
end.




Program BT15TH1;
var
i,d:integer; s:real;
a:array[1..20] of integer;

begin
writeln('nhap vao cac gia tri cua day so');
d:=0;
repeat
inc(d);
write('nhap a[',d,']: '); readln(a[d]);
until a[d]=0;
s:=0;
for i:=1 to d-1 do s:=s+a[i];
writeln('trung binh cong cac so vua nhap: ',s/(d-1):3:2);
readln;
end.





Thuc hanh 2

program bt1th2;
var
i,x,n,d:integer;
a:array [1..20] of integer;
begin
write('cho so phan tu n='); readln(n);
writeln('nhap gia tri cac phan tu cua day');
for i:= 1 to n do
begin
write('a[',i,']=');
readln(a[i]);

end;
writeln('day so vua nhap la');
for i:= 1 to n do
write(a[i]:7);
writeln;
write('nhap so x='); readln(x);
d:=0;
for i:=1 to n do
if a[i]= x then
begin
d:=d+1;
end;
write('co ',d,' so bang so x');
writeln;
write('vi tri cua chung la');
for i:=1 to n do
if a[i]= x then
write(i:5);
readln;
end.





program bt2th2;
var
i,x,y,n,d:integer;
a:array [1..20] of integer;


begin
write('cho so phan tu n='); readln(n);
writeln('nhap gia tri cac phan tu cua day');
for i:= 1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('day so vua nhap la');
for i:= 1 to n do
write(a[i]:7);
writeln;
repeat
write('nhap so x='); readln(x);
write('nhap so y='); readln(y);
until (x<y)
d:=0;
for i:= 1 to n do
if ( a[i]>x ) and ( a[i]<y) then
d:=d+1;
write('co ',d, 'so nam trong khoang x va y ');
writeln;
write('cac so do la');
for i:= 1 to n do
if ( a[i]>x ) and ( a[i]<y) then
write(a[i]:7);
readln;
end.




program bt3th2;
var
i,max,n,vt:integer;
a:array [1..20] of integer;
begin
write('cho so phan tu n='); readln(n);
writeln('nhap gia tri cac phan tu cua day');
for i:= 1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('day so vua nhap la');
for i:= 1 to n do
write(a[i]:7);
writeln;
max:=a[1];
vt:=1;
for i:= 2 to n do
if max < a[i] then
begin
max:=a[i];
vt:=i;
end;
writeln('phan tu max cua day la:', max:4);
write('vi tri luc dau la:',vt:4);
readln;
end.


program bt4th2;
var
i,min,n,vt:integer;
a:array [1..20] of integer;
begin
write('cho so phan tu n='); readln(n);
writeln('nhap gia tri cac phan tu cua day');
for i:= 1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('day so vua nhap la');
for i:= 1 to n do
write(a[i]:7);
writeln;
min:=a[1];
vt:=1;
for i:= 2 to n do
if min> a[i] then
begin