Bài tập chuyên đề Pascal

Chia sẻ: Anhbuon_anhkhoc Anhyeuem | Ngày: | Loại File: DOC | Số trang:15

Thêm vào BST

Báo xấu

347
lượt xem 67
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

tài liệu tuyển tập bài tập chuyên đề pascal giúp các bạn củng cố kiến thức và ôn thi tốt hơn.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Bài tập chuyên đề Pascal

BÀI TẬP PASCAL Chủ nhật, 30/11/2008 12:23 pm BÀI TẬP PASCAL Chương 1. 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 rogram 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 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 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 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 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 de ket thuc'); Readln End. Chương 2. Bài 1 Program ten_bien; Begin Writeln('Ky tu : Ten bien khong duoc co khoang trong'); Writeln('$conso: Ten bien khong duoc co dau $ o dau'); Writeln('5so : Ten bien khong duoc co con so o dau'); Writeln('Do,Repeat: Khong duoc dung cac tu khoa de dat ten bien'); Writeln; Writeln(' Bam phim de ve cua so soan thao'); Readln End. Bài 2 Program tinh_luong; Var Ten:String[24]; bl,nc,pc,thang:Integer; tl,hs:Real; Begin Writeln('CHUONG TRINH TINH LUONG'); Writeln('-----------------------'); Writeln; Write('-Cho biet thang : '); Readln(thang); 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 : '); Readln(hs); Write('-Cho biet phu cap : '); Readln(pc); Writeln; tl:=((bl/30)*nc*hs+pc); Writeln('+Tien luong thang : ',thang:2,', cua Ong/Ba : ',ten,' la = ',tl:8:2); Writeln(' Bam phim de ve cua so soan thao'); Readln End. Bài 3 Program Vong_tron; Var Radius,s,cv :Real; Begin Writeln('TINH CHU VI, DIEN TICH VONG TRON'); Writeln('--------------------------------'); Write('-Cho biet ban kinh : '); Readln(Radius);
cv:=2*Pi*Radius; S:=Pi*Radius*Radius; Writeln; Writeln('+Chu vi vong tron = ',cv:10:2); Writeln('+Dien tich vong tron = ',s:10:2); Writeln; Writeln(' Bam phim de tro ve cua so soan thao'); Readln End. Bài 4 Program Doi_do_F_C; Var f,c:Real; Begin Writeln('DOI DO FAHRENHEIT SANG CELCIUS'); Write('-Cho biet do Fahrenheit : '); Readln(f); c:=((f-32) * 5)/9; Writeln; Writeln(f:5:2,' do Fahrenheit doi sang do Celcius = ',c:5:2,#248); Writeln; Writeln(' Bam phim de ket thuc'); Readln End. Bài 5 Program Doi_do_Mile_Km; Const Km_Mile=1.609344; Var m,k:Real; Begin Writeln('DOI MILE SANG Km'); Write('-Cho biet so Mile can doi: '); Readln(m); k:=m * Km_Mile; Writeln; Writeln(m:5:2,' dam Anh doi thanh = ',k:5:2,' Km'); Writeln; Writeln(' Bam phim de ket thuc'); Readln End. Bài 6 Program Chu_so; Var n:Integer; Begin Writeln('XUAT CAC CHU SO CUA SO NGUYEN DUONG N'); Write('-Cho biet so nguyen: '); Readln(n); Writeln('So nguyen: ',n:5,' Co cac chu so sau'); Write(' ', n DIV 10000); n :=n MOD 10000; Write(' ', n DIV 1000); n :=n MOD 1000; Write(' ', n DIV 100); n :=n MOD 100;
Write(' ', n DIV 10); n :=n MOD 10; Write(' ',n); Writeln; Writeln(' Bam phim de ket thuc'); Readln End. Bài 7 Program Cac_phep_toan; Var a,b,c,d,e,x,y,g,h,i:Integer; Begin Writeln('CAC PHEP TOAN'); Writeln('-------------'); Writeln; a:=124; b:=12; Writeln(a:3,' DIV ',b:2,' = ',a DIV b); Writeln(a:3,' MOD ',b:2,' = ',a MOD b); c:=12; d:=22; Writeln(c:2,' AND ',d:2,' = ',c AND d); Writeln(c:2,' OR ',d:2,' = ',c OR d); Writeln(c:2,' XOR ',d:2,' = ',c XOR d); x:=2; g:=x Shl 7; Writeln('g = ',x:2,' Shl 7 = ',g); x:=256; h:=x Shr 7; Writeln('h = ',x:2,' Shr 7 = ',h); i:=g+h; Writeln('i = g + h = ',i); Writeln('Lo(i) = ',Lo(i)); Writeln('Hi(i) = ',Hi(i)); Writeln('Swap(i) = ',Swap(i)); Writeln; Writeln(' Bam phim de ket thuc'); Readln End. Bài 8 Program Diem_trung_binh; Var Ten:String[24]; Van,Toan,Ly,Sinh,NgoaiNgu,Tb:Real; Begin Writeln('DIEM TRUNG BINH'); Writeln('-------------'); Write('-Cho biet ho ten: '); Readln(ten); Write('-Cho biet diem mon Van: '); Readln(Van); Write('-Cho biet diem mon Toan: '); Readln(Toan); Write('-Cho biet diem mon Ly: '); Readln(Ly); Write('-Cho biet diem mon Sinh vat: ');
Readln(Sinh); Write('-Cho biet diem mon Ngoai ngu: '); Readln(NgoaiNgu); tb:=((Van * 3) + (Toan * 2) + (Ly * 2) + Sinh + NgoaiNgu) / 9; Writeln('+Hoc sinh: ',ten,' co diem trung binh = ',tb:6:2); Writeln; Writeln(' Bam phim de ket thuc'); Readln End. Bài 9 Program Tinh_gia_tri_hang_hoa; Var n:Integer; a,c,l:Real; Begin Writeln('TINH GIA TRI HANG HOA'); Writeln('---------------------'); Writeln; Write('-Cho biet gia goc tra ngay: '); Readln(a); Write('-Cho biet lai suat l%/nam: '); Readln(l); Write('-Cho biet so ngay tra cham: '); Readln(n); c:= a * (1 + n * l / 36000); Writeln('+Gia hang hoa tra cham = ',c:10:2,' dong'); Writeln(' Bam phim de ket thuc'); Readln End. Bài 10 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 de ket thuc'); Readln End. Bài 11 Program Trung_binh; Var a,b,c:Integer; P,S:Real; Begin Writeln('TINH TRUNG BINH CONG,TRUNG BINH NHAN');
Writeln('------------------------------------'); Writeln; Write('-Nhap so thu nhat: '); Readln(a); Write('-Nhap so thu hai : '); Readln(b); Write('-Nhap so thu ba : '); Readln(c); S:=(a + b + c) / 3; P:=Exp((1 / 3) * Ln(a * b * c)); Writeln('*Trung binh cong cua 3 so= ',s:6:2); Writeln('*Trung binh nhan cua 3 so= ',p:6:2); Writeln(' Bam phim de ket thuc'); Readln End. Bài 12 Program Tinh_a_mu_b; Var a,b:Integer; p:Real; Begin Writeln('TINH TRI CUA A MU B'); Writeln('-------------------'); Writeln; Write('-Nhap so nguyen A: '); Readln(a); Write('-Nhap so mu B : '); Readln(b); P:=Exp(b * Ln(a)); Writeln('*Tri A mu B = ',p:10:2); Writeln(' Bam phim de ket thuc'); Readln End. Bài 13 Program Tinh_tong; Var n,tong:Integer; Begin Writeln('TINH TONG CUA N SO NGUYEN'); Writeln('-------------------'); Writeln; Write('-Nhap so nguyen N: '); Readln(n); tong:=(n * (n + 1) DIV 2); Writeln('*Tong tu 1 den N = ',tong); Writeln(' Bam phim de ket thuc'); Readln End. Bài 14 Program Tinh_tien; Var v:Integer; l,n:Real; Begin Writeln('TINH TIEN GUI NGAN HANG'); Writeln('-------------------');
Writeln; Write('-So tien gui = '); Readln(v); Write('-Lai suat = '); Readln(l); n:=(v * (1 + (l/100))); Writeln('*Neu gui: ',v,' dong, lai suat 1 nam= ',l:4:2,' %'); Writeln('*So tien lai trong 1 nam = ',Round(v*l/100),' dong'); Writeln('*Von + Lai trong 1 nam = ',Round(n),' dong'); Writeln(' Bam phim de ket thuc'); Readln End. Bài 15 Program Gia_hang_hoa; Var f,a,pe,pc,r:Real; n,y,t:Integer; Begin Writeln('TINH GIA HANG HOA'); Writeln('-----------------'); Writeln; Write('-So tien vay = '); Readln(a); Write('-Lai suat vay Ngan hang = '); Readln(r); Write('-Thoi gian san xuat= '); Readln(y); Write('-So san pham thu duoc = '); Readln(n); Write('-Thoi gian luu kho = '); Readln(t); Write('-Phi ton luu kho = '); Readln(f); pe:=a/n; pc:=pe * (1 + r * (t + y) / 1200) + f * t; Writeln('*Gia xuat xuong = ',pe:10:2,' dong'); Writeln('*Gia ban de hoa von la : ',pc:10:2,' dong'); Writeln(' Bam phim de ket thuc'); Readln End. Chương 3. Bài 1 Program Tinh_Gio_Phut_Giay; Var sogiay,gio,phut,giay:Integer; Begin Writeln('TINH GIO:PHUT:GIAY'); Writeln('------------------'); Write('-Nhap so giay can tinh: '); Readln(sogiay); gio:=sogiay DIV 3600; sogiay:= sogiay MOD 3600; phut:=sogiay DIV 60; giay:=sogiay MOD 60; Writeln; Writeln('KET QUA CHUYEN DOI');
Writeln('+Neu nhap vao: ',sogiay,' giay'); Writeln('+Doi thanh: ',gio,' gio, ',phut,' phut, ',giay,' giay'); Readln End. Bài 2 Program Doi_cho; Var so1,so2:Integer; Begin Writeln('DOI CHO 2 SO NGUYEN'); Writeln('-------------------'); Write('-Nhap so thu nhat: '); Readln(so1); Write('-Nhap so thu hai : '); Readln(so2); so1:=so1+so2; so2:=so1-so2; so1:=so1-so2; Writeln('SAU KHI CHUYEN CHO'); Writeln('+So thu nhat bay gio la: ',so1); Writeln('+So thu hai bay gio la : ',so2); Readln End. Bài 3 Program Phep_nhan_so_hoc; Var binhan,nhan:LongInt; donvi,chuc,tram:Integer; Begin Writeln('TRINH BAY PHEP NHAN SO HOC'); Writeln('-------------------------'); Write('-Nhap so bi nhan : '); Readln(binhan); Write('-Nhap vao so nhan: '); Readln(nhan); donvi:=nhan MOD 10; chuc:=(nhan DIV 10) MOD 10; tram:=nhan DIV 100; Writeln(binhan:15); Writeln('x':9,nhan:6); Writeln('----':15); Writeln(donvi*binhan:15); Writeln(chuc*binhan:14); Writeln(tram*binhan:13); Writeln('-------':15); Writeln(binhan*nhan:15); Readln End. Bài 4 Program Tinh_the_tich_hinh_cau; Var s,v,r:Real; Begin Writeln('TINH THE TICH HINH CAU KHI BIET DIEN TICH'); Writeln('-----------------------------------------'); Write('-Cho biet dien tich hinh cau: ');
Readln(s); r:= Sqrt(s/4*pi); v:=4/3*pi*r*r*r; Writeln('+The tich hinh cau la: ',v:10:4,' met khoi'); Readln End. Bài 5 Program Tinh_sin; Var goc:Integer; rad,x:Real; Begin Writeln('TINH SIN(X)'); Writeln('-----------'); Write('-Nhap vao mot goc: '); Readln(goc); rad:=(pi * goc) / 180; x:=sin(rad); Writeln('+Sin(',goc:2,') = ',x:10:8); Readln; End. Bài 6 Program Ma_ASCII; Var kytu:Char; Begin Writeln('TIM MA ASCII CUA KY TU'); Writeln('----------------------'); Write('-Nhap vao mot ky tu: '); Readln(kytu); Writeln('+Ma ASCII cua ky tu: ',kytu,' la: ',Ord(kytu)); Readln End. Bài 7 Program Ky_tu; Var ma:Byte; Begin Writeln('TIM KY TU KHI BIET MA ASCII'); Writeln('--------------------------'); Write('-Cho biet ma ASCII: '); Readln(ma); Writeln('+Ky tu cua ma ASCII: ',ma:2,' la: ',Chr(ma)); Readln End. Bài 8 Program Doi_chu_thuong_ra_chu_HOA; Var ch,c1,c2:Char; Begin Writeln('DOI CHU THUONG RA CHU HOA'); Writeln('-------------------------'); Write('-Nhap mot ky tu bat ky: '); Readln(ch); c1:=upcase(ch); c2:=chr(ord(ch)-32);
Writeln('+Cach thu nhat, dung ham Upcase: ',c1); Writeln('+Cach thu hai,khong dung ham Upcase: ',c2); Readln End. Bài 9 Program Doi_chu_HOA_ra_chu_thuong; Var ch,c:Char; Begin Writeln('DOI CHU HOA RA CHU THUONG'); Writeln('-------------------------'); Write('-Nhap mot chu HOA bat ky: '); Readln(ch); c:=chr(ord(ch)+32); Writeln('+Doi ra chu thuong la: ',c); Readln End. Bài 10 Program Xuat_chuoi; Var ch:String; Begin Writeln('XUAT 5 LAN CHUOI VUA NHAP'); Writeln('-------------------------'); Write('-Nhap vao mot chuoi bat ky: '); Readln(ch); Write(ch,', ',ch,', ',ch,', ',ch,', ',ch); Readln End. Bài 11 Program Chu_ky_con_lac; Const g=918; Var l,t:Real; Begin Writeln('TINH CHU KY DAO DONG CON LAC DON'); Writeln('-----------------------'); Write('-Cho biet chieu dai con lac: '); Readln(l); t:=2*pi*sqrt(l/g); Writeln('+Chu ky dao dong dieu hoa cua con lac: ',t:10:3); Readln; End. Bài 12 Program Luc_hap_dan; Const gama=6.673E-8; Var m1,m2,f,d:Real; Begin Writeln('TINH LUC HAP DAN GIUA 2 VAT'); Writeln('----------------------'); Write('-Khoi luong vat thu nhat: '); Readln(m1); Write('-Khoi luong vat thu hai : ');
Readln(m2); Write('-Khoang cach 2 vat: '); Readln(d); f:=gama*m1*m2/sqr(d); Writeln('+Luc hap dan giua 2 vat= ',f:10:3); Readln End. Bài 13 Program Tinh_khoang_cach; Var a,b,c,d,x,y:Real; Begin Writeln('TINH KHOANG CACH TU 1 DIEM DEN DUONG THANG'); Writeln('------------------------------------------'); Write('-Nhap he so a= '); Readln(a); Write('-Nhap he so b= '); Readln(b); Write('-Nhap he so c= '); Readln(c); Write('-Nhap toa do x= '); Readln(x); Write('-Nhap toa do y= '); Readln(y); d:=((a*x) + (b*y) + c) / Sqrt(Sqr(a) + Sqr(b)); Writeln('+Khoang cach tu diem I den duong thang la: ',d:10:2); Readln End. Bài 14 Program Tach_so; Var n:Integer; x,p:Real; Begin Writeln('TACH MOT SO NGUYEN THANH 2 SO'); Writeln('-----------------------------'); Write('-Nhap mot so: '); Readln(n); x:=2*n/3; Write('+Con so: ',n,' tach thanh so: ',x:6:2); Writeln(' va so: ',(n-x):6:2); Readln End. Nam Duy Nguyen (suu tam)