TH11 - Bài tập & đáp án Pascal - Phần 1
Nhằm giúp các bạn tìm hiểu về chất lượng bộ môn Tin học và tìm giải pháp nâng cao chất lượng trong dạy học, mời các bạn cùng tham khảo nội dung tài liệu sáng kiến kinh nghiệm với đề tài "Một số kinh nghiệm dạy tốt môn Tin học lớp 11". Hy vọng đây là tài liệu tham khảo hữu ích cho các bạn.
Bài tập 1: Viết chương trình Pascal in bài ca dao ra màn hình
01.Program Ca_dao;02. 03.Begin04.Writeln('Trong dam gi dep bang sen,');05.Writeln('La xanh bong trang lai chen nhi vang,');06.Writeln('Nhi vang bong trang la xanh.');07.Writeln('Gan bun ma chang hoi tanh mui bun');08.Readln09.End.
Bài tập 2: Viết chương trình Pascal in tam giác ra màn hình
01.
Program Tam_giac;02.Begin03.Writeln('*********');04.Writeln(' *******');05.Writeln(' *****');06.Writeln(' ***');07.Writeln(' *');08.Readln09.End.
Bài tập 3: Viết chương trình Pascal thực hiện phép trừ số học
01.Program Phep_Tru;02.Var03.so1,so2,hieu :Integer;04. 05.Begin06.Writeln(' CHUONG TRINH THUC HIEN PHEP TRU SO HOC');07.Writeln(' co toi da 4 ky so');08.Write('-Nhap so thu nhat = ');09.Readln(so1);10.Write('-Nhap so thu hai = ');11.Readln(so2);12.hieu:= so1-so2;13.Writeln;14.Writeln;15.Writeln('-------------------------------');16.Writeln;17.Writeln(' ',so1:4);18.Writeln(' - ',so2:4);19.Writeln(' -----');20.Writeln(' = ',hieu:5);21.Readln22.End.
Bài tập 4: Viết chương trình Pascal In bảng cửu chương ra màn hình (Không dùng lệnh For)
01.Program Cuu_chuong_1;02.Var03.so :Integer;04. 05.Begin06.Write('-Bang cuu chuong so may ?: ');07.Readln(so);08.Writeln;09.Writeln;10.Writeln(' CHUONG TRINH BANG CUU CHUONG');11.Writeln('-------------------------------');12.Writeln;13.Writeln(so:2,' lan 1 = ',so*1:3);14.Writeln(so:2,' lan 2 = ',so*2:3);15.Writeln(so:2,' lan 3 = ',so*3:3);16.Writeln(so:2,' lan 4 = ',so*4:3);17.Writeln(so:2,' lan 5 = ',so*5:3);18.Writeln(so:2,' lan 6 = ',so*6:3);19.Writeln(so:2,' lan 7 = ',so*7:3);20.Writeln(so:2,' lan 8 = ',so*8:3);21.Writeln(so:2,' lan 9 = ',so*9:3);22.Writeln(so:2,' lan 10 = ',so*10:3);23.Readln24.End.
Bài tập 5: Viết chương trình Pascal In bảng cửu chương ra màn hình (Dùng lệnh For)
01.Program Cuu_chuong_2;02.Var03.so,i :Integer;04. 05.Begin06.Write('-Bang cuu chuong so may ?: ');07.Readln(so);08.Writeln;09.Writeln;10.Writeln(' CHUONG TRINH BANG CUU CHUONG');11.Writeln('-------------------------------');12.Writeln;13.For i:=1 To 10 Do14.Writeln(so:2,' lan ',i:2,' = ',so*i:3);15.Readln16.End.
Bài tập 6: Viết chương trình Pascal tính diện tích hình thang khi biết độ dài 2 đáy và chiều cao
01.Program Hinh_thang;02.Var03.a,b,h:Integer;04.S:Real;05.Begin06.Writeln('CHUONG TRINH TINH DIEN TICH HINH THANG');07.Write('-Cho biet day ngan = ');08.Readln(a);09.Write('-Cho biet day dai = ');10.Readln(b);11.Write('-Cho biet chieu cao = ');12.Readln(h);13.S := 0.5 * (a + b) * h;14.Writeln('+Dien tich hinh thang = ',s:6:2,' met vuong');15.Readln16.End.
Bài tập 7: Viết chương trình Pascal tính diện tích tam giác khi biết độ dài 3 cạnh
01.Program Tam_Giac;02.Var03.a,b,c:Integer;04.p,s:Real;05.Begin06.Writeln('CHUONG TRINH TINH DIEN TICH TAM GIAC');07.Write('-Cho biet canh thu nhat = ');08.Readln(a);09.Write('-Cho biet canh thu hai = ');10.Readln(b);11.Write('-Cho biet canh thu ba = ');12.Readln(c);13.p := 0.5 * (a + b + c);14.s := sqrt(p*(p-a)*(p-c)*(p-c));15.Writeln('+Dien tich hinh tam giac = ',s:6:2,' met vuong');16.Readln17.End.
Bài tập 8: Viết chương trình Pascal tính thể tích hình cầu khi biết diện tích hình tròn
01.Program Hinh_cau;02.Var03.s:integer;04.r,v:Real;05.Begin06.Writeln('CHUONG TRINH TINH THE TICH HINH CAU');07.Writeln('---------------------------------');08.Write('Cho biet dien tich hinh tron = ');09.Readln(s);10.r:=Sqrt(s/4*3.1416);11.v:=4/3 * 3.1416 *r*r*r;12.Writeln('*The tich hinh cau la : ',V:6:2,' met khoi');13.Readln14.End.
Bài tập 9: Viết chương trình Pascal tính lực hút giữa 2 vật khi biết khối lượng của 2 vật
01.Program Luc_hut;02.CONST03.g=6.672E-8;04.Var05.m1,m2,d,f:Real;06.Begin07.Writeln('CHUONG TRINH TINH LUC HUT GIUA 2 VAT');08.Write('-Khoi luong m1 (gam) = ');09.Readln(m1);10.Write('-Khoi luong m2 (gam) = ');11.Readln(m2);12.Write('-Khoang cac giua 2 vat (Cm) = ');13.Readln(d);14.f := g * m1 * m2 / sqr(d);15.Writeln('+Luc hut giua 2 vat = ',f:6:2);16.Readln17.End.
Bài tập 10: Viết chương trình Pascal tính Pignet
Program Pignet;02.Var03.Ten:String;04.Tuoi:Integer;05.lon,nho,tb,tl,cao,pig:Real;06.Begin07.Writeln('CHUONG TRINH TINH PIGNET');08.Writeln('------------------------');09.Write('-Cho biet ho ten : ');10.Readln(ten);11.Write('-Cho biet tuoi : ');12.Readln(tuoi);13.Write('-Cho biet chieu cao : ');14.Readln(cao);15.Write('-Cho biet trong luong : ');16.Readln(tl);17.Write('-So do vong nguc luc hit vao = ');18.Readln(lon);19.Write('-So do vong nguc luc tho ra = ');20.Readln(nho);21.tb := 0.5 * (lon-nho);22.pig := cao - (tb + tl);23.Writeln;24.Write('+Ong (Ba) : ',ten:24);25.Writeln(' , ',tuoi,' tuoi');26.Writeln('+Co so do Pignet = ',pig:6:2);27.Readln28.End.
Bài tập 11: Viết chương trình Pascal tính lương
01.Program Tinh_luong;02.Var03.Ten:String;04.nc,pc,tam:Integer;05.bl,hs,tt,cl:Real;06.Begin07.Writeln('CHUONG TRINH TINH LUONG');08.Writeln('------------------------');09.Write('-Cho biet ho ten : ');10.Readln(ten);11.Write('-Cho biet bac luong : ');12.Readln(bl);13.Write('-Cho biet ngay cong : ');14.Readln(nc);15.Write('-Cho biet he so trach nhiem : ');16.Readln(hs);17.Write('-Cho biet phu cap khu vuc = ');18.Readln(pc);19.Write('-Cho biet so tien da tam ung ky 1 = ');20.Readln(tam);21.tt := ((bl/30 * nc * hs)+pc);22.cl := tt - tam;23.Writeln;24.Writeln('+Ong (Ba) : ',ten:24);25.Writeln('+Tien luong trong thang = ',tt:10:2,' dong');26.Writeln('+So tien con linh = ',cl:10:2,' dong');27.Writeln(' Bam phim <Enter> de ket thuc');28.Readln29.End.
Bài tập 12: Viết chương trình Pascal tính diện tích lớn nhất của hình chữ nhật
01.Program Tinh_dien_tich;02.Var03.cv,canh,s:Real;04.Begin05.Writeln('TINH DIEN TICH LON NHAT CUA HINH CHU NHAT');06.Writeln('-----------------------------------------');07.Write('-Cho biet chu vi chu nhat : ');08.Readln(cv);09.canh:=cv / 4;10.s:=canh * canh;11.Writeln('-Chu vi hinh chu nhat = ',cv:10:2,' met');12.Writeln('-Dien tich lon nhat se= ',s:10:2,' met vuong' );13.Writeln(' Bam phim <Enter> de ket thuc');14.Readln15.End.
Bài tập 13 Viết chương trình Pascal tính tam thức
01.Program Tam_thuc;02.Var03.a,b,c,x,p:Integer;04.Begin05.Writeln('TINH TAM THUC');06.Writeln('-------------');07.Write('-Nhap a= ');08.Readln(a);09.Write('-Nhap b= ');10.Readln(b);11.Write('-Nhap c= ');12.Readln(c);13.Write('-Nhap x= ');14.Readln(x);15.p:=((a*(x*x)) + (b*x) + c);16.Writeln('*Tri cua tam thuc = ',p);17.Writeln('Bam phim <Enter> de ket thuc');18.Readln19.End.
Bài tập 14: Viết chương trình Pascal độ dài của vec tơ
01.Program Tinh_do_dai_vec_to;02.Var03.x,y,z:Integer;04.l:Real;05.Begin06.Writeln('TINH CHIEU DAI VECTO');07.Writeln('---------------------');08.Writeln;09.Write('-Cho biet toa do X : ');10.Readln(x);11.Write('-Cho biet toa do Y : ');12.Readln(y);13.Write('-Cho biet toa do Z : ');14.Readln(z);15.l:= Sqrt(Sqr(x) + Sqr(y) + Sqr(z));16.Writeln('+Chieu dai cua vecto = ',l:10:2);17.Writeln(' Bam phim <Enter> de ket thuc');18.Readln19.End.
Bài tập 15: Viết chương trình Pascal tính giá trị Z qua số thực X
01.Program Tinh_Z;02.Var03.x,z:Real;04.Begin05.Writeln('TINH GIA TRI Z QUA SO THUC X');06.Writeln('----------------------------');07.Write('-Nhap tri x = ');08.Readln(x);09.z:=ln(x + abs(sin(2 * x)));10.Writeln('*Gia tri cua Z = ',z:10:2);11.Writeln(' Bam phim <Enter> de ket thuc');12.Readln13.End.
Nguồn: Sưu tầm trên mạng Internet
hay tks
Trả lờiXóa