Các bài tập Pascal

{
Program PhuongTrinhbac2;
Var a,b,c,delta,x1,x2,xk: real;
BEGIN
Writeln('Chuong trinh giai PT bac hai:');
Writeln('Hay nhap cac he so:');
Write('a = '); readln(a);
Write('b = '); readln(b);
Write('c = '); readln(c);
Delta:=b*b-4*a*c;
If Delta > 0 then
Begin
x1:=(-b+Sqrt(Delta))/(2*a);
x2:=(-b-Sqrt(Delta))/(2*a);
Writeln('Phuong trinh co hai nghiem phan
biet:');
Writeln('x1 = ',x1:5:2);
Writeln('x2 = ',x2:5:2);
End
Else If Delta = 0 then
Begin
xk:=-b/(2*a);
Writeln('PT co mot nghiem kep xk =
',xk:5:2);
End
Else Writeln('Phuong trinh vo nghiem...');
Readln
END.
Program Max3;
Var a,b,c,max: Integer;
BEGIN

Writeln('Tim so lon nhat cua 3 so:');
Write('Nhap vao ba so a, b, c = ');Readln(a,b,c);
max:= a;
If max < b then max:= b;
If max < c then max:= c;
Writeln('So lon nhat la: ',max);
Readln
END.
Program ThangQuy;
Var thang,quy:1..12;
BEGIN
Writeln('Chuong trinh kiem tra xem mot thang thuoc quy
nao.');
Write('Nhap vao thang can kiem tra: '); Readln(thang);
If thang mod 3 = 0 then quy:= thang div 3
Else quy:= thang div 3 + 1;
Writeln('Thang ',thang,' thuoc quy ',quy);
Readln
END.
Program KiemTraTamGiac;
Var a,b,c: Word;
BEGIN
Writeln('Kiem tra xem mot tam giac Nhon, Tu hay
Vuong:');
Writeln('Nhap vao ba canh cua tam giac (a, b, c >
0)...');
Write('a, b, c = '); Readln(a,b,c);
IF ((a+b)>c) And ((a+c)>b) And ((b+c)>a) then
Begin
IF (a>=b) And (a>=c) then

Begin
If a*a > b*b + c*c then Writeln('Day la tam giac
Tu...');
If a*a = b*b + c*c then Writeln('Day la tam giac
Vuong...');
If a*a < b*b + c*c then Writeln('Day la tam giac
Nhon...');
End;
IF (b>=a) And (b>=c) then
Begin
If b*b > a*a + c*c then Writeln('Day la tam giac
Tu...');
If b*b = a*a + c*c then Writeln('Day la tam giac
Vuong...');
If b*b < a*a + c*c then Writeln('Day la tam giac
Nhon...');
End;
IF (c>=a) And (c>=b) then
Begin
If c*c > a*a + b*b then Writeln('Day la tam giac
Tu...');
If c*c = a*a + b*b then Writeln('Day la tam giac
Vuong...');
If c*c < a*a + b*b then Writeln('Day la tam giac
Nhon...');
End;
End
Else Writeln('Khong la ba canh cua tam giac...');
Readln
END.

Program GiaiHePT;
Var a1,b1,c1,a2,b2,c2: Integer;
Delta,deltax,deltay,x,y: Real;
BEGIN
Writeln('Giai he hai PT bac nhat hai an.');
Write('Nhap cac he so a1, b1, c1 = '); Readln(a1,b1,c1);
Write('Nhap cac he so a2, b2, c2 = '); Readln(a2,b2,c2);
Delta:=a1*b2-a2*b1;
Deltax:=c1*b2-c2*b1;
Deltay:=a1*c2-a2*c1;
IF Delta = 0 then
Begin
If Deltax <> Deltay then Writeln('He PT vo
nghiem...')
Else Writeln('He PT co vo so nghiem dang: x,
y=(',c1,'-',a1,'x)/',b1)
End
Else IF Deltax=Deltay then
Writeln('He PT co vo so nghiem dang: x,
y=(',c1,'-',a1,'x)/',b1)
ELse Begin
x:=Deltax/Delta;
y:=Deltay/Delta;
Writeln('He PT co nghiem x = ',x:0:2,', y =
',y:0:2);
End;
Readln
END.
Program TinhTong;
Var S,i,n: Word;

BEGIN
Writeln('Tinh tong cua n so tu nhien.');
Write('Nhap so tu nhien n = '); Readln(n);
S:= 0;
For i:= 1 to n do S:= S + i;
Writeln('Ket qua la: S = ',S);
Readln
END.
Program TinhTongBinhPhuong;
Var S,i,n: Word;
BEGIN
Writeln('Tinh tong binh phuong cua n so tu nhien.');
Write('Nhap so tu nhien n = '); Readln(n);
S:= 0;
For i:= 1 to n do S:= S + i*i;
Writeln('Ket qua la: S = ',S);
Readln
END.
Program TinhTongPhanSo;
Var S: Real; i,n: Word;
BEGIN
Writeln('Tinh tong 1/n cua n phan so.');
Write('Nhap so tu nhien n = '); Readln(n);
S:= 0;
For i:= 1 to n do S:= S + 1/i;
Writeln('Ket qua la: S = ',S:10:2);
Readln
END.
Program TinhGiaiThua;
Var i,n: Word; P: Real;

BEGIN
Writeln('Tinh giai thua cua so n>=0.');
Write('Nhap vao so n = '); Readln(n);
IF n>0 then
Begin
P:= 1;
For i:=1 to n do P:=P*i
End
Else If n=0 then
Readl
END.
Program TinhCanThuc;
Var i,n:Word; S:Real;
BEGIN
Writeln('Tinh tong can thuc.');
Write('Nhap so n = '); Readln(n);
S:= n;
For i:=n-1 Downto 0 do
S:= i + Sqrt(S);
Writeln('Ket qua S = ',S:10:3);
Readln
END.
Program TinhTongPhanSo;
Var i,n:Word; S:Real;
BEGIN
Writeln('Tinh tong Phan so.');
Write('Nhap so n = '); Readln(n);
S:= n;
For i:=n-1 Downto 0 do
S:= i + 1/S;

Writeln('Ket qua S = ',S:10:3);
Readln
END.
Program TimUCLN;
Var a,b: Integer;
BEGIN
Writeln('Tim UCLN cua hai so khac 0.');
Write('Nhap hai so a, b = '); Readln(a,b);
a:=ABS(a);
b:=ABS(b);
While a<>b do
If a>b then a:=a-b Else b:=b-a;
Writeln('Ket qua UCLN cua hai so la: ',a);
Readln
END.
Program BanCuuChuong;
Var i,j: Byte;
BEGIN
Writeln('BAN CUU CHUONG:');
For i:=2 to 9 do
For J:= 1 to 10 do
Writeln(i,'x',j,' = ',i*j);
Readln
END.
Program BanCuuChuong;
Var i,j: Byte;
BEGIN
Writeln('BAN CUU CHUONG:');
For j:=1 to 10 do
Begin

For i:= 1 to 5 do
Write(i,'x',j:2,'=',i*j:2,' ');Writeln;
End;
Writeln;
For j:=1 to 10 do
Begin
For i:= 6 to 10 do
Write(i,'x',j:2,'=',i*j:2,' ');Writeln;
End;
Readln
END.
Program BaiToanGaCho;
Var sg,sc: Byte;
BEGIN
Writeln('Bai toan co Ga + Cho = 36 con. Chan ga + Chan
Cho = 100 chan');
For sg:=1 to 36 do
For sc:=1 to 25 do
If (sg*2+sc*4=100) And (sg+sc=36) then
Writeln('Ket qua So Ga la: ',sg,' So Cho la:
',sc);
Readln
END.
Program BaiToanTramTrauTramCo;
Var td,tn,tg: Byte;
BEGIN
Writeln('Co 100 Trau an 100 bo co.');
Writeln('Trau dung an 5, Trau nam an 3, Trau gia 3
con/1bo.');
Writeln('CAC KET QUA LA:');

For td:=1 to 20 do
For tn:=1 to 33 do
For tg:=1 to 100 do
If (td*5+tn*3+tg/3=100) And (td+tn+tg=100) then
Begin
Writeln('Trau dung co: ',td,' con');
Writeln('Trau nam co: ',tn,' con');
Writeln('Trau gia co: ',tg,' con');
Writeln;
End;
Readln
END.
Program TinhTongChuSo;
Var n: LongInt; tong: Byte;
BEGIN
Writeln('Tinh tong cac chu so cua STN n.');
Write('Nhap STN n = '); Readln(n);
Write('Tong cac chu so cua ',n,' la: ');
tong:= 0;
Repeat
tong:=tong + n mod 10;
n:= n div 10;
Until n = 0;
Writeln(tong);
Readln
END.
Program KiemTraSNTo;
Var i,j,n: Integer;
Dung: Boolean;
BEGIN

Writeln('Kiem tra xem n co la So Nguyen To hay khong?');
Write('Nhap So Nguyen n = '); Readln(n);
Dung:= False;
IF (n=2) Or (n= 3) then Dung:=True;
IF n>3 then
Begin
i:=2; j:=n div 2;
While (i<=j) And (n mod i <> 0) do i:=i+1;
If i > j then Dung:= true;
End;
If Dung then Writeln('Ket qua ',n,' co la So Nguyen
To.')
Else Writeln('Ket qua ',n,' khong la So Nguyen To.');
Readln
END.
Program TinhTongCacUoc;
Var tong,n,i: integer;
BEGIN
Writeln('Chuong trinh tinh tong cac uoc thuc su cua mot
so:');
Write('Nhap so n = '); Readln(n);
tong:=0;
For i:=2 to (n div 2) do
If n mod i = 0 then tong:= tong+i;
Writeln('Tong cac uoc thuc su cua ',n,' la: ',tong);
Readln
END.
Program SoHoanHao;
Var Tonguoc,i,n: Integer;
BEGIN

Writeln('Kiem tra xem mot so cola So Hoan Hao khong?');