Home Home » lop11baitap » Bài tập Pascal lớp 11-Phần 1

Bài tập Pascal lớp 11-Phần 1

Sunday, August 18, 2013
zipBà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.Begin
04.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.Readln
09.End.
zipBà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.Begin
03.Writeln('*********');
04.Writeln(' *******');
05.Writeln('  *****');
06.Writeln('   ***');
07.Writeln('    *');
08.Readln
09.End.
zipBà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.Var
03.so1,so2,hieu :Integer;
04. 
05.Begin
06.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.Readln
22.End.
zipBà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.Var
03.so :Integer;
04. 
05.Begin
06.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.Readln
24.End.
zipBà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.Var
03.so,i :Integer;
04. 
05.Begin
06.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 Do
14.Writeln(so:2,' lan ',i:2,' = ',so*i:3);
15.Readln
16.End.
zipBà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.Var
03.a,b,h:Integer;
04.S:Real;
05.Begin
06.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.Readln
16.End.
zipBà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.Var
03.a,b,c:Integer;
04.p,s:Real;
05.Begin
06.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.Readln
17.End.
zipBà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.Var
03.s:integer;
04.r,v:Real;
05.Begin
06.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.Readln
14.End.
zipBà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.CONST
03.g=6.672E-8;
04.Var
05.m1,m2,d,f:Real;
06.Begin
07.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.Readln
17.End.
zipBài tập 10: Viết chương trình Pascal tính Pignet
01.Program Pignet;
02.Var
03.Ten:String;
04.Tuoi:Integer;
05.lon,nho,tb,tl,cao,pig:Real;
06.Begin
07.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.Readln
28.End.
zipBài tập 11: Viết chương trình Pascal tính lương
01.Program Tinh_luong;
02.Var
03.Ten:String;
04.nc,pc,tam:Integer;
05.bl,hs,tt,cl:Real;
06.Begin
07.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.Readln
29.End.
zipBà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.Var
03.cv,canh,s:Real;
04.Begin
05.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.Readln
15.End.
zipBài tập 13 Viết chương trình Pascal tính tam thức
01.Program Tam_thuc;
02.Var
03.a,b,c,x,p:Integer;
04.Begin
05.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.Readln
19.End.
zipBà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.Var
03.x,y,z:Integer;
04.l:Real;
05.Begin
06.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.Readln
19.End.
zipBà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.Var
03.x,z:Real;
04.Begin
05.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.Readln
13.End.


Lưu ý!
Cảm ơn các bạn đã ghé thăm cry-cry.tk ( http://hlb-blh.blogspot.com )
  • Không chèn liên kết quảng cáo khi đăng nhận xét.
  • Nội dung nên liên quan tới chủ đề của bài.
  • Nếu thấy bài viết có ích hãy Like, +1 hoặc Share trên các mạng xã hội nhé!
  • Vui lòng đăng những nhận xét lịch sự và gõ tiếng Việt có dấu nếu có thể.
  • Rất cảm ơn những comment thiện ý.
Chia sẻ bài viết
Bài liên quan

Comments[ 0 ]


Post a Comment