TỔNG hợp một số bài tập PASCAL

TỔNG HỢP MỘT SỐ BÀI TẬP PASCAL
Bài 1
Program Ca_dao;
Begin
Writeln('Trong dam gi dep bang sen,');
Writeln('La xanh bong trang lai chen nhi vang,');
Writeln('Nhi vang bong trang la xanh.');
Writeln('Gan bun ma chang hoi tanh mui bun');
Readln
End.
bài 2
Program Tam_giac;
Begin
Writeln('*********');
Writeln(' *******');
Writeln(' *****');
Writeln('
***');
Writeln('
*');
Readln
End.
Bµi 3
Program Phep_Tru;
Var
so1,so2,hieu :Integer;
Begin
Writeln(' CHUONG TRINH THUC HIEN PHEP TRU SO HOC');
Writeln('
co toi da 4 ky so');
Write('-Nhap so thu nhat = ');

Readln(so1);
Write('-Nhap so thu hai = ');
Readln(so2);
hieu:= so1-so2;
Writeln;
Writeln;
Writeln('-------------------------------');
Writeln;
Writeln('
',so1:4);
Writeln(' - ',so2:4);
Writeln('
-----');
Writeln(' = ',hieu:5);
Readln
End.
Bµi 4
Program Cuu_chuong_1;
Var


so :Integer;
Begin
Write('-Bang cuu chuong so may ?: ');
Readln(so);
Writeln;
Writeln;
Writeln(' CHUONG TRINH BANG CUU CHUONG');
Writeln('-------------------------------');
Writeln;

Writeln(so:2,' lan 1 = ',so*1:3);
Writeln(so:2,' lan 2 = ',so*2:3);
Writeln(so:2,' lan 3 = ',so*3:3);
Writeln(so:2,' lan 4 = ',so*4:3);
Writeln(so:2,' lan 5 = ',so*5:3);
Writeln(so:2,' lan 6 = ',so*6:3);
Writeln(so:2,' lan 7 = ',so*7:3);
Writeln(so:2,' lan 8 = ',so*8:3);
Writeln(so:2,' lan 9 = ',so*9:3);
Writeln(so:2,' lan 10 = ',so*10:3);
Readln
End.
Bµi 5
Program Cuu_chuong_2;
Var
so,i :Integer;
Begin
Write('-Bang cuu chuong so may ?: ');
Readln(so);
Writeln;
Writeln;
Writeln(' CHUONG TRINH BANG CUU CHUONG');
Writeln('-------------------------------');
Writeln;
For i:=1 To 10 Do
Writeln(so:2,' lan ',i:2,' = ',so*i:3);
Readln
End.
Bµi 6
Program Hinh_thang;

Var
a,b,h:Integer;
S:Real;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH HINH THANG');


Write('-Cho biet day ngan = ');
Readln(a);
Write('-Cho biet day dai = ');
Readln(b);
Write('-Cho biet chieu cao = ');
Readln(h);
S := 0.5 * (a + b) * h;
Writeln('+Dien tich hinh thang = ',s:6:2,' met vuong');
Readln
End.
Bµi 7
Program Tam_Giac;
Var
a,b,c:Integer;
p,s:Real;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH TAM GIAC');
Write('-Cho biet canh thu nhat = ');
Readln(a);
Write('-Cho biet canh thu hai = ');
Readln(b);
Write('-Cho biet canh thu ba
= ');

Readln(c);
p := 0.5 * (a + b + c);
s := sqrt(p*(p-a)*(p-c)*(p-c));
Writeln('+Dien tich hinh tam giac = ',s:6:2,' met
vuong');
Readln
End.
Bµi 8
Program Hinh_cau;
Var
s:integer;
r,v:Real;
Begin
Writeln('CHUONG TRINH TINH THE TICH HINH CAU');
Writeln('---------------------------------');
Write('Cho biet dien tich hinh tron = ');
Readln(s);
r:=Sqrt(s/4*3.1416);
v:=4/3 * 3.1416 *r*r*r;
Writeln('*The tich hinh cau la : ',V:6:2,' met khoi');
Readln
End.
Bµi 9


Program Luc_hut;
CONST
g=6.672E-8;
Var
m1,m2,d,f:Real;

Begin
Writeln('CHUONG TRINH TINH LUC HUT GIUA 2 VAT');
Write('-Khoi luong m1 (gam) = ');
Readln(m1);
Write('-Khoi luong m2 (gam) = ');
Readln(m2);
Write('-Khoang cac giua 2 vat (Cm) = ');
Readln(d);
f := g * m1 * m2 / sqr(d);
Writeln('+Luc hut giua 2 vat = ',f:6:2);
Readln
End.
Bµi 10
Program Pignet;
Var
Ten:String;
Tuoi:Integer;
lon,nho,tb,tl,cao,pig:Real;
Begin
Writeln('CHUONG TRINH TINH PIGNET');
Writeln('------------------------');
Write('-Cho biet ho ten : ');
Readln(ten);
Write('-Cho biet tuoi
: ');
Readln(tuoi);
Write('-Cho biet chieu cao : ');
Readln(cao);
Write('-Cho biet trong luong : ');
Readln(tl);

Write('-So do vong nguc luc hit vao = ');
Readln(lon);
Write('-So do vong nguc luc tho ra = ');
Readln(nho);
tb := 0.5 * (lon-nho);
pig := cao - (tb + tl);
Writeln;
Write('+Ong (Ba) : ',ten:24);
Writeln(' , ',tuoi,' tuoi');
Writeln('+Co so do Pignet = ',pig:6:2);
Readln
End.


Bµi 11
Program Tinh_luong;
Var
Ten:String;
nc,pc,tam:Integer;
bl,hs,tt,cl:Real;
Begin
Writeln('CHUONG TRINH TINH LUONG');
Writeln('------------------------');
Write('-Cho biet ho ten : ');
Readln(ten);
Write('-Cho biet bac luong
: ');
Readln(bl);
Write('-Cho biet ngay cong : ');
Readln(nc);

Write('-Cho biet he so trach nhiem : ');
Readln(hs);
Write('-Cho biet phu cap khu vuc = ');
Readln(pc);
Write('-Cho biet so tien da tam ung ky 1 = ');
Readln(tam);
tt := ((bl/30 * nc * hs)+pc);
cl := tt - tam;
Writeln;
Writeln('+Ong (Ba) : ',ten:24);
Writeln('+Tien luong trong thang = ',tt:10:2,' dong');
Writeln('+So tien con linh = ',cl:10:2,' dong');
Writeln('
Bam phim <Enter> de ket thuc');
Readln
End.
Bµi 12
Program Tinh_dien_tich;
Var
cv,canh,s:Real;
Begin
Writeln('TINH DIEN TICH LON NHAT CUA HINH CHU NHAT');
Writeln('-----------------------------------------');
Write('-Cho biet chu vi chu nhat : ');
Readln(cv);
canh:=cv / 4;
s:=canh * canh;
Writeln('-Chu vi hinh chu nhat = ',cv:10:2,' met');
Writeln('-Dien tich lon nhat se= ',s:10:2,' met vuong' );
Writeln('

Bam phim <Enter> de ket thuc');
Readln
End.


Bµi 13
Program Tam_thuc;
Var
a,b,c,x,p:Integer;
Begin
Writeln('TINH TAM THUC');
Writeln('-------------');
Write('-Nhap a= ');
Readln(a);
Write('-Nhap b= ');
Readln(b);
Write('-Nhap c= ');
Readln(c);
Write('-Nhap x= ');
Readln(x);
p:=((a*(x*x)) + (b*x) + c);
Writeln('*Tri cua tam thuc = ',p);
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
Bµi 14
Program Tinh_do_dai_vec_to;
Var
x,y,z:Integer;
l:Real;

Begin
Writeln('TINH CHIEU DAI VECTO');
Writeln('---------------------');
Writeln;
Write('-Cho biet toa do X : ');
Readln(x);
Write('-Cho biet toa do Y : ');
Readln(y);
Write('-Cho biet toa do Z : ');
Readln(z);
l:= Sqrt(Sqr(x) + Sqr(y) + Sqr(z));
Writeln('+Chieu dai cua vecto = ',l:10:2);
Writeln('
Bam phim <Enter> de ket thuc');
Readln
End.
Bµi 15
Program Tinh_Z;
Var
x,z:Real;
Begin
Writeln('TINH GIA TRI Z QUA SO THUC X');
Writeln('----------------------------');


Write('-Nhap tri x = ');
Readln(x);
z:=ln(x + abs(sin(2 * x)));
Writeln('*Gia tri cua Z = ',z:10:2);
Writeln(' Bam phim <Enter> de ket thuc');

Readln
End.
C¸c vÝ dô
Program PTB2;
Var
a,b,c:Integer;
delta,x1,x2:Real;
Begin
Writeln('GIAI PHUONG TRINH BAC HAI');
Writeln('
--------------');
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')
Else
If delta = 0 Then
Writeln('*Phuong trinh co 2 nghiem bang nhau X= ',b/2*a:6:2)
Else
Begin
x1:=(-b-sqrt(delta))/2*a;
x2:=(-b+sqrt(delta))/2*a;
Writeln('*Nghiem thu nhat X1= ',x1:6:2);

Writeln('*Nghiem thu hai X2= ',x2:6:2);
End;
readln
End.
Program Ao_thu;
Begin
Writeln('
BAI THO AO THU');
Writeln('Ao thu lanh leo nuoc trong veo');
Writeln('Mot chiec thuyen cau be teo teo');
Writeln('Song biec theo lan hoi gon ty');
Writeln('La vang truoc gio se dua veo');
Writeln('
NGUYEN KHUYEN');
Readln
End.
Program So_hoc;


Var

so1,so2,tong,hieu,tich:Integer;
thuong:Real;
Begin
Write('-Nhap so thu nhat = ');
Readln(so1);
Write('-Nhap so thu hai = ');
Readln(so2);
tong := so1 + so2;
hieu := so1 - so2;

tich := so1 * so2;
thuong := so1 / so2;
Writeln('*Tong cua hai so ',so1,' va ',so2,' =
Writeln('*Hieu cua hai so ',so1,' va ',so2,' =
Writeln('*Tich cua hai so ',so1,' va ',so2,' =
Writeln('*Thuong cua hai so ',so1,' va ',so2,'
Readln
End.

',tong);
',hieu);
',tich);
= ',thuong:6:2);

Program Pithagore;
Var
a,b :Integer;
c:Real;
Begin
Writeln(' CHUONG TRINH TINH CANH HUYEN TAM GIAC VUONG');
Writeln('
theo dinh ly Pithagore');
Write('-Nhap canh a = ');
Readln(a);
Write('-Nhap canh b = ');
Readln(b);
c := Sqrt((a*a) + (b*b));
Writeln('*Canh huyen = ',c:6:2);
Readln
End.

Program Phep_Cong;
Var
so1,so2,so3,tong :Integer;
Begin
Writeln(' CHUONG TRINH THUC HIEN PHEP CONG SO HOC');
Writeln('
co toi da 4 ky so');
Write('-Nhap so thu nhat = ');
Readln(so1);
Write('-Nhap so thu hai = ');
Readln(so2);
Write('-Nhap so thu ba
= ');
Readln(so3);
tong:= so1+so2+so3;
Writeln;
Writeln;
Writeln('-------------------------------');
Writeln;
Writeln('
',so1:4);
Writeln(' + ',so2:4);


Writeln('
Writeln('
Writeln('
Readln
End.

',so3:4);
-----');
= ',tong:5);

Program Lenh_Write;
Begin
Write('Nam ');
Write('Quoc ');
Write('Son ');
Write('Ha ');
Write('Nam ');
Write('De ');
Write('Cu ');
Readln
End.
Program Lenh_Writeln;
Begin
Writeln('Nam ');
Writeln('Quoc ');
Writeln('Son ');
Writeln('Ha ');
Writeln('Nam ');
Writeln('De ');
Writeln('Cu ');
Readln
End.
Program Tam_giac_Pascal;
Begin
Writeln('
1');

Writeln('
1
1');
Writeln('
1
2
1');
Writeln(' 1
3
3
1');
Writeln('1
4
6
4
1');
Readln
End.
Program Hinh_tron;
Var
r:Integer;
s:Real;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH HINH TRON');
Write('-Cho biet ban kinh = ');
Readln(r);
s:=3.1416 * r * r;
Writeln('*Dien tich hinh tron = ',s:6:2,' met vuong');
Readln
End.

Program Khuon_dang;
Var
ky_tu :Char;
chuoi :string[24];
so_nguyen:Integer;
so_thuc:Real;
Begin
Writeln('CHUONG TRINH XUAT DU LIEU THEO KHUON DANG');
Write('-Nhap mot ky tu = ');
Readln(ky_tu);
Write('-Nhap ho ten = ');
Readln(chuoi);
Write('-Nhap mot so nguyen = ');
Readln(so_nguyen);
Write('-Nhap mot so thuc = ');
Readln(so_thuc);
Writeln;
Writeln('------------------------------');
Writeln('XUAT DU LIEU RA MAN HINH');
Writeln(ky_tu);
Writeln(chuoi);
Writeln(so_nguyen);
Writeln(so_thuc);
Readln
End.