Tổng hợp các bài toán Pascal - Tin hoc 8

 B à i 1 : Nhập vào 2 cạnh c aủ một hình chữ nhật. In ra màn hình diện tích và chu vi của 
nó. Program HINH_CHU_NHAT;
Uses Crt;
Var a,b,s,c: real; 
Begin
End.
Clrscr;
Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’); 
Writeln(‘--------------------------------------------------------------‘); 
Write('Nhap chieu dai='); readln(a);
Write('Nhap chieu rong=');readln(b);
s:=a*b;
c:=(a+b)*2;
Writeln('Dien tich hinh chu nhat la:’,s:6:2); 
Writeln('Chu vi hinh chu nhat:',c:6:2); 
Readln;
B à i 2 : Nhập vào bán kính c aủ hình tròn. In ra màn hình diện tích và chu vi của 
nó. Program HINHTRON;
Uses Crt;
Var r,dt,cv:real; 
Begin
Clrscr;
Writeln('TINH DIEN TICH & CHU VI HINH TRON:'); 
Writeln('------------------------------------------------------'); 
Write ('Nhap ban kinh R=');readln(r);
dt:=pi*r*r;
cv:=2*pi*r;
Writeln('Dien tich hinh tron la:',dt:6:2); 
Writeln('Chu vi hinh tron la:',cv:6:2);
Readln; 
End.
B à i 3 : Tính tam giác: N âụ p vào ba s a,b,c b t kìố ấ . Kiểm tra xem nó có thể là độ dài ba 
cạnh hay không, n uế không thì in ra màn hình ' Khong la ba canh cua mot tam 
giac'. Ngược l iạ , thì in diện tích, chu vi c aủ tam giác ra màn hình.
Program TAMGIAC; 
Uses crt;
Var a,b,c,s,p : real; 
Begin
Clrscr;
Writeln(‘BAI TOAN TAM GIAC:’); 
Writeln('---------------------------------'); 
Write('nhap a =');readln(a);
Write ('nhap b =');readln(b); 
Write('nhap c =');readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
Else
End
 p:=(a+b+c)/2
;
s:=sqrt(p*(p-
a)*(p-b)*(p-
c)); 
Writeln('Chu 
vi tam 
giac:',2*p:4:2
) ; 
Writeln('Dien 
tich tam 
giac:',s:4:2);
Tran
g
1
 End.
Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac') ; 
Readln;
B à i 4 : Viết chương trình giải phương trình bậc 1 (ax + b = 
0) Program GIAI_PHUONG_TRINH_BAC_NHAT;
Var a,b,x:real; 
Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0'); 
Writeln('------------------------------------------------------------'); 
Write ('Nhap a= '); readln(a);
Write ('Nhap b= ');readln(b); 
If(a=0) then
If(b=0) then
Writeln(' Phuong trinh co vo so nghiem')
Else
Else
writeln(' Phuong tring vo nghiem')
End.
Writeln('Phuong trinh co nghiem x=',-b/a:4:2); 
Readln;
B à i 5 : Viết chương trình gi iả b tấ ph ngươ trình bậc 1 (ax + b 
0) Program BAT_PHUONG_TRINH_BACI;
Uses crt;
Var a,b: real; 
Begin
Clrscr;
Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0'); 
Writeln('----------------------------------------------------------------------'); 
Write('nhap a=');readln(a);
Write('nhap b=');readln(b); 
If a0 then
If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2) 
Else Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)
Else
If b>=0 then Writeln('Bat phuong trinh co vo so nghiem') 
Else writeln('Bat phuong trinh vo nghiem');
End..
Readln;
B à i 6: Viết chương trình gi iả ph nươ g trình bậc 2 (ax2 + bx + c =0)
.Program GIAI_PHUONG_TRINH_BACII; 
Uses crt;
Var a,b,c,d,x,x1,x2:real; 
Begin
Writeln('GIAI PHUONG TRINH BAC II:'); 
Writeln('-------------------------------------------'); 
W
rit
 e('Nhap he so a=');readln(a);
Write('Nhap he so b=');readln(b); 
Write('Nhap he so c=');readln(c);
Trang 2
 If a=0 then
 If b=0 then
If c=0 then
Writeln('Phuong trinh co vo so nghiem')
Else
Else
Writeln('Phuong trinh vo nghiem')
Else
Begin
Writeln('Phuong trinh co mot nghiem: x=',-c/b:4:2)
d:=b*b-4*a*c; 
If d=0 then
Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a):4:2)
Else
If d<0 then
Writeln('Phuong trinh vo nghiem')
End.
End; 
Readln;
Else
Begin
End;
x1:= (-b+sqrt(d))/(2*a);
x2:= (-b-sqrt(d))/(2*a);
Write('Phuong trinh co hai nghiem: ‘); 
Writeln(‘ x1=',x1:4:2,' va x2=',x2:4:2);
B à i 7 : Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím). 
Program TIM_SO_LON_NHAT;
Uses crt;
Var a,b,c,d,max:real; 
Begin
End.
Clrscr;
Writeln('TIM SO LON NHAT TRONG BON SO A, B, C, D'); 
Writeln('---------------------------------------------------------------'); 
Write('Nhap a='); Readln(a);
Write('Nhap b='); Readln(b); 
Write('Nhap c='); Readln(c); 
Write('Nhap d='); Readln(d); 
max:=a;
If b>max then max:=b; 
If d>max then max:=d;
Writeln('So lon nhat la:',max:4:2); 
Readln;
Bài 8 : Tìm giá trị nhỏ nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím). 
Program TIM_SO_NHO_NHAT;
Uses crt;
Var a,b,c,d,min:real; 
 Begin
Clrscr;
Writeln('TIM SO NHO NHAT TRONG BON SO A, B, C, D');
Trang 3
 End.
Writeln('---------------------------------------------------------------'); 
Write('Nhap a='); Readln(a);
Write('Nhap b='); Readln(b); 
Write('Nhap c='); Readln(c); 
Write('Nhap d='); Readln(d); 
min:=a;
If b<min then min:=b;
 If c<min then min:=c; 
If d<min then min:=d;
Writeln('So nho nhat la:',min:4:2); 
Readln;
B à i 9 : Giải hệ phương trình tuyến tính:
ax + by = m
cx + dy = n
Program GIAI_HE_HAI_AN; 
Uses crt;
Var a,b,c,d,m,n:real;
dx,dy,dd:real;
Begin
Clrscr;
Writeln(' GIAI HE HAI AN:'); 
Writeln('----------------------------------'); 
Write('Nhap a=');readln(a); 
Write('Nhap b=');readln(b); 
Write('Nhap c=');readln(c); 
Write('Nhap m=');readln(m); 
Write('Nhap n=');readln(n);
dd:=a*d-b*c; 
dx:=m*d-b*n; 
dy:=a*n-c*m; 
If dd=0 then
If (dx=0) and (dy=0) then
Writeln('He vo so nghiem hoac vo nghiem') 
Else writeln('He vo nghiem')
Else
Begin
End;
Write('He co nghiem :'); 
Writeln('x=',dx/dd:4:2,' va y=',dy/dd:4:2);
End.
Readln;
Bài 10 : Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra 
màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu 
giây. Program DOI_GIO_PHUT_GIAY;
Uses crt;
Var gio, phut,giay, x: longint; 
Begin
Clrscr;
 Writeln('DOI SANG GIO PHUT GIAY');
Trang 4
 End.
Writeln('--------------------------------------'); 
Write('Nhap vao so giay: ');readln(x); 
gio:= x div 3600;
x:=x mod 3600; 
phut:=x div 60; 
x:=x mod 60;
Writeln('Ket qua = ', gio,'gio : ', phut, 'phut : ', x, 'giay'); 
Readln;
B à i 1 1 : Nh pậ vào tâm và bán kính của m tộ đ nườ g tròn. Sau đó nhập vào một điểm 
A(x, y) bất kì và ki mể tra xem nó có thuộc đường tròn hay không?
Program KIEM_TRA_DIEM_THUOC_DUONG_TRON; 
Uses crt;
Var x0,y0,xa,ya,d,r:real; 
Begin
Writeln('KIEM TRA DIEM THUOC DUONG TRON:'); 
Writeln('--------------------------------------------------------'); 
Write('Nhap ban kinh R= ');readln(r);
Write('Nhap toa do tam duong tron = '); readln(x0, y0); 
Write('Nhap toa do diem a = '); readln(xa, ya);
d:=SQRT(SQR(xa-x0)+SQR(ya-y0)); 
If r=d then
Writeln('Diem A nam tren duong tron')
Else
If d>r then Writeln('Diem A nam ngoai duong tron') 
Else Writeln('Diem A nam trong duong tron');
End.
Readln;
B à i 1 2 : Tính xy ( Với x, y là số 
th c). Pự rogram X_LUYTHUA_Y;
Uses crt;
Var x,y,z:real; 
Begin
Writeln(‘TINH X LUY THUA Y:’); 
Writeln('----------------------------------'); 
Write('Nhap x = '); readln(x); 
Write('nhap y = '); readln(y);
If x>=0 then
Begin
Else
End
z:=exp(y*ln(x)); 
Writeln('x ^ y = ',z:4:2);
End.
Writeln('Khong tinh duoc do x la so am'); 
Readln;
B à i 1 3 : Tính n!
Program 
TINH_N
 _GIAI_THUA; Uses crt;
Var i,n,gt:integer;
Trang 5
 Begin
End.
Clrscr;
Writeln(' TINH N GIAI THUA:'); 
Writeln('----------------------------------'); 
Write('Nhap n ='); readln(n);
gt:=1;
For i:=1 to n do 
gt:=gt*i; 
Writeln(n, '!= 
',gt);
Readln;
B à i 1 4 : Tính xn (V iớ n là số nguyên không âm). 
Program TINH_X_LUY_THUA_N;
Uses crt;
Var i,n,x:integer;
lt:real;
Begin
End.
Writeln(' TINH X LUY THUA Y:'); 
Writeln('----------------------------------'); 
Write('Nhap x ='); readln(x); 
Write('Nhap n ='); readln(n);
lt:=1;
For i:=1 to n do 
lt:=lt*x;
Writeln(x, '^',n,' = ',lt:4:2); 
Readln;
n
B à i 1 5 : Tính tổng S = ∑ 1
i=0 i!
Program TINH_TONG1; 
Uses crt;
Var i,n,gt: integer;
s:real;
Begin
Clrscr;
Writeln('CHUONG TRINH TINH TONG:'); 
Writeln('----------------------------------------'); 
Write('Nhap n='); Readln(n);
gt:=1;
s:=1;
For i:=1 to n do
Begin
End;
gt:=gt*i;
s:=s+1/gt;
End.
Writeln('Tong S = ',s:8:2); 
Readln;
 Trang 6
 n
B à i 1 6 : Tính tổng S = ∑ x i
i=1
Program TINH_TONG2; 
Uses Crt;
Var i,n:integer;
x,s,lt:real;
Begin
Clrscr;
Writeln('TINH TONG LUY THUA:'); 
Writeln('----------------------------------'); 
Write('Nhap x = '); readln(x); 
Write('nhap n = '); readln(n) ;
s:=0;
lt:=1;
For i:=1 to n do
Begin
End;
lt:=lt*x ;
s:=s+lt ;
End.
Writeln('Tong S = ',s:8:2); 
Readln;
n i
B à i 1 7 : Tính tổng S = ∑ x 
i= 0 
i! Program TINH_TONG3; 
Uses Crt;
Var i,n,gt:integer;
x,s,lt:real;
Begin
Clrscr;
Writeln('TINH TONG LUY THUA/GIAI THUA:'); 
Writeln('--------------------------------------------------'); 
Write('Nhap x = '); readln(x);
Write('nhap n = '); readln(n) ;
s:=2; 
gt:=1; 
lt:=1;
For i:=1 to n do
Begin
End;
lt:=lt*x ; 
gt:=gt*i; 
s:=s+lt/gt ;
End.
Writeln('Tong S = ',s:8:2); 
Readln;
B à i 1 8 : Tìm tất cả các chữ số có ba chữ số abc sao cho tổng các l pậ phương của các 
chữ
 số thì b ngằ chính s đó ố ( abc = a3 + b3 + 
c3). Program TIM_SO;
Uses crt;
Trang 7
 Var i,j,k:integer; 
Begin
Writeln('CHUONG TRINH TIM SO:'); 
Writeln('----------------------------------'); 
For i:=1 to 9 do
For j:=0 to 9 do
For k:=0 to 9 do
if (100*i+10*j+k)=(i*i*i + j*j*j + k*k*k) then
Writeln(i,j,k,' = ',i,'^3 + ',j,'^3 + ',k,'^3');
End.
Readln;
Bài 19 : Nh pậ vào một số nguyên không âm, kiểm tra xem nó có phải là số nguyên tố 
hay không?
Program SO_NGUYEN_TO; 
Uses crt;
Var i,n: integer; 
Begin
Clrscr;
Writeln('KIEM TRA SO NGUYEN TO:'); 
Writeln('----------------------------------------'); 
Write ('Nhap so can kiem tra n = '); readln(n); 
If (n=0) or (n=1) then
Writeln(n,' Khong phai la so nguyen to')
Else
Begin
End;
i:=1; 
Repeat
i:= i+1;
Until (n mod i= 0) or (i*i>n);
If i*i>n then Writeln (n,' la so nguyen to')
Else Writeln (n,' khong phai la so nguyen to');
End.
Readln;
B à i 2 0 : In ra các số nguyên tố nhỏ hơn hoặc bằng N (N là số nguyên không âm được 
nh p ậ từ bàn phím).
Program CAC_SO_NGUYEN_TO; 
Uses crt;
Var n,i,t: integer; 
Begin
Clrscr;
Writeln('IN RA CAC SO NGUYEN SO <=N'); 
Writeln('---------------------------------------------'); 
Write('Nhap n = ');readln(n);
If n<2 then
Writeln('Khong co so nguyen to nao <=',n)
Else
Begin
 W
riteln('Cac so nguyen to <= ',n,' la:'); 
For i := 2 to n do
Begin
t:= 1;
Trang 8
 End; 
Readln;
End.
End;
Repeat
t:= t+1;
Until ( i mod t = 0) or ( t*t>i ) ; 
If( t*t>i) then
Write(i:4);
Bài 21 : Nh pậ 3 loại tiền và số ti nề cần đổi. Hãy tìm tất cả các tổ hợp có được c aủ 3 
lo i ạ ti nề trên cho số tiền v aừ nhập.
Program DOI_TIEN; 
Uses Crt;
Var x,y,z,n,i,j,h,s:longint; 
Begin
Clrscr;
Writeln('CHUONG TRINH DOI TIEN:'); 
Writeln('---------------------------------------'); 
Write('Nhap so tien can doi n = ');readln(n); 
Write('Nhap loai tien thu 1: ');readln(x); 
Write('Nhap loai tien thu 2: ');readln(y); 
Write('Nhap loai tien thu 3: ');readln(z); 
Writeln('Loai ',x:6,' Loai ',y:6,' Loai ',z:6); 
For i:=0 to (n div x) do
For j:=0 to (n div y) do
For h:= 0 to (n div z) do
If (i*x+j*y+h*z=n) then
Writeln (i:8,j:12,h:10);
End.
Readln;
B à i 2 2 :
Trăm trâu trăm cỏ
Trâu đứng ăn năm
Trâu n mằ ăn ba
Trâu già ba con m tộ 
bó. H iỏ có bao nhiêu con mỗi loại?
Program TRAMTRAU_TRAMCO; 
Uses crt;
Var td,tn,tg:integer; 
Begin
Clrscr;
Writeln(' TRAM TRAU TRAM CO:'); 
Writeln('----------------------------------'); 
Writeln('Trau dung Trau nam Trau gia'); 
For td:=0 to 20 do
For tn:=0 to 33 do
For tg:=0 to 100 do
If ((5*td+3*tn+tg/3=100)and (td+tn+tg=100)) then
Writeln(td:6, tn:12, tg:15);
Readln;
 End.
 Trang 9
 B à i 2 3 : Tạo b ngả số d ngạ sau:
0 1 2 3 4 5 6 7 8 9
10 11 12 13 14 15 16 17 18 19
.........................................................................
Program BANG_SO; 
Uses crt;
Var i,j,n:integer; 
Begin
Clrscr;
Writeln(' TAO BANG SO TU 0-99'); 
Writeln('---------------------------------------------'); 
For i:=0 to 99 do
Begin
End.
End; 
Readln;
If (i mod 10 = 0) then
Writeln; 
Write(i:3)
B à i 2 4 : T oạ hình
a)
*
b) c)
* * * * * *
* *
* * *
* * * *
* * * * *
Program TAO_HINH_A; 
Uses Crt;
Var i,j,n: integer; 
Begin
* * * *
* * *
* *
*
 * * *
* * * * *
* * * * * * *
* * * * * * * * *
Clrscr;
Writeln(' TAO HINH A:'); 
Writeln('------------------------'); 
Write('Nhap so dong n=');readln(n); 
For i:= 1 to n do
Begin
End;
For j:=1 to i do
Write('* '); 
Writeln;
End.
Readln;
Program TAO_HINH_B; 
Uses Crt;
Var 
 i,j,n,m: integer;
Trang 10