Bài tập Pascal lớp 11

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.);
Nội dung trích xuất từ tài liệu:
Bài tập Pascal lớp 11BÀI TẬP PASCALChủ nhật, 30/11/2008 12:23 pm BÀI TẬP PASCAL Chương 1.Bài 1Program 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); ReadlnEnd.Bài 2Program Tam_giac;Begin Writeln(*********); Writeln( *******); Writeln( *****); Writeln( ***); Writeln( *); ReadlnEnd.Bài 3Program 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); ReadlnEnd.Bài 4Program 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); ReadlnEnd.Bài 5rogram 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); ReadlnEnd.Bài 6Program 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); ReadlnEnd.Bài 7Program 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); ReadlnEnd.Bài 8Program 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); ReadlnEnd.Bài 9Program 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); ReadlnEnd.Bài 10Program 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); ReadlnEnd.Bài 11Program 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); ReadlnEnd.Bài 12Program 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); ReadlnEnd.Bài 13Program 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); ReadlnEnd.Bài 14Program Tinh_do_dai_vec_to;Var x,y,z:Integer; l:Real;Begin ...