Bài tập Pascal lớp 11

Chia sẻ: Lê Nguyên Hưng | Ngày: | Loại File: DOC | Số trang:15

Thêm vào BST

Báo xấu

1.317
lượt xem 214
download

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

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.');

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 Pascal lớp 11

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)