Home Home » lop11baitap » Bài tập & đáp án Pascal - Phần 3

Bài tập & đáp án Pascal - Phần 3

Sunday, August 18, 2013

zipBài tập 1: Viết chương trình Pascal tính giờ phút giây
01.Program Tinh_Gio_Phut_Giay;
02.Var
03.sogiay,gio,phut,giay:Integer;
04.Begin
05.Writeln('TINH GIO:PHUT:GIAY');
06.Writeln('------------------');
07.Write('-Nhap so giay can tinh: ');
08.Readln(sogiay);
09.gio:=sogiay DIV 3600;
10.sogiay:= sogiay MOD 3600;
11.phut:=sogiay DIV 60;
12.giay:=sogiay MOD 60;
13.Writeln;
14.Writeln('KET QUA CHUYEN DOI');
15.Writeln('+Neu nhap vao: ',sogiay,' giay');
16.Writeln('+Doi thanh: ',gio,' gio, ',phut,' phut, ',giay,' giay');
17.Readln
18.End.
zipBài tập 2: Viết chương trình Pascal đổi chỗ 2 số nguyên
01.Program Doi_cho;
02.Var
03.so1,so2:Integer;
04.Begin
05.Writeln('DOI CHO 2 SO NGUYEN');
06.Writeln('-------------------');
07.Write('-Nhap so thu nhat: ');
08.Readln(so1);
09.Write('-Nhap so thu hai : ');
10.Readln(so2);
11.so1:=so1+so2;
12.so2:=so1-so2;
13.so1:=so1-so2;
14.Writeln('SAU KHI CHUYEN CHO');
15.Writeln('+So thu nhat bay gio la: ',so1);
16.Writeln('+So thu hai bay gio la : ',so2);
17.Readln
18.End.
zipBài tập 3: Viết chương trình Pascal trình bày phép nhân số học
01.Program Phep_nhan_so_hoc;
02.Var
03.binhan,nhan:LongInt;
04.donvi,chuc,tram:Integer;
05.Begin
06.Writeln('TRINH BAY PHEP NHAN SO HOC');
07.Writeln('-------------------------');
08.Write('-Nhap so bi nhan : ');
09.Readln(binhan);
10.Write('-Nhap vao so nhan: ');
11.Readln(nhan);
12.donvi:=nhan MOD 10;
13.chuc:=(nhan DIV 10) MOD 10;
14.tram:=nhan DIV 100;
15.Writeln(binhan:15);
16.Writeln('x':9,nhan:6);
17.Writeln('----':15);
18.Writeln(donvi*binhan:15);
19.Writeln(chuc*binhan:14);
20.Writeln(tram*binhan:13);
21.Writeln('-------':15);
22.Writeln(binhan*nhan:15);
23.Readln
24.End.
zipBài tập 4: Viết chương trình Pascal tính thể tích hình cầu khi biết diện tích
01.Program Tinh_the_tich_hinh_cau;
02.Var
03.s,v,r:Real;
04.Begin
05.Writeln('TINH THE TICH HINH CAU KHI BIET DIEN TICH');
06.Writeln('-----------------------------------------');
07.Write('-Cho biet dien tich hinh cau: ');
08.Readln(s);
09.r:= Sqrt(s/4*pi);
10.v:=4/3*pi*r*r*r;
11.Writeln('+The tich hinh cau la: ',v:10:4,' met khoi');
12.Readln
13.End.
zipBài tập 5: Viết chương trình Pascal tinh Sin(x)
01.Program Tinh_sin;
02.Var
03.goc:Integer;
04.rad,x:Real;
05.Begin
06.Writeln('TINH SIN(X)');
07.Writeln('-----------');
08.Write('-Nhap vao mot goc: ');
09.Readln(goc);
10.rad:=(pi * goc) / 180;
11.x:=sin(rad);
12.Writeln('+Sin(',goc:2,') = ',x:10:8);
13.Readln;
14.End.
zipBài tập 6: Viết chương trình Pascal tìm mã ASCCI của ký tự
01.Program Ma_ASCII;
02.Var
03.kytu:Char;
04.Begin
05.Writeln('TIM MA ASCII CUA KY TU');
06.Writeln('----------------------');
07.Write('-Nhap vao mot ky tu: ');
08.Readln(kytu);
09.Writeln('+Ma ASCII cua ky tu: ',kytu,' la: ',Ord(kytu));
10.Readln
11.End.
zipBài tập 7: Viết chương trình Pascal tìm ký tự khi biết mã ASCII
01.Program Ky_tu;
02.Var
03.ma:Byte;
04.Begin
05.Writeln('TIM KY TU KHI BIET MA ASCII');
06.Writeln('--------------------------');
07.Write('-Cho biet ma ASCII: ');
08.Readln(ma);
09.Writeln('+Ky tu cua ma ASCII: ',ma:2,' la: ',Chr(ma));
10.Readln
11.End.
zipBài tập 8: Viết chương trình Pascal đổi chữ thường ra chữ HOA
01.Program Doi_chu_thuong_ra_chu_HOA;
02.Var
03.ch,c1,c2:Char;
04.Begin
05.Writeln('DOI CHU THUONG RA CHU HOA');
06.Writeln('-------------------------');
07.Write('-Nhap mot ky tu bat ky: ');
08.Readln(ch);
09.c1:=upcase(ch);
10.c2:=chr(ord(ch)-32);
11.Writeln('+Cach thu nhat, dung ham Upcase: ',c1);
12.Writeln('+Cach thu hai,khong dung ham Upcase: ',c2);
13.Readln
14.End.
zipBài tập 9: Viết chương trình Pascal đổi chữ HOA ra chữ thường
01.Program Doi_chu_HOA_ra_chu_thuong;
02.Var
03.ch,c:Char;
04.Begin
05.Writeln('DOI CHU HOA RA CHU THUONG');
06.Writeln('-------------------------');
07.Write('-Nhap mot chu HOA bat ky: ');
08.Readln(ch);
09.c:=chr(ord(ch)+32);
10.Writeln('+Doi ra chu thuong la: ',c);
11.Readln
12.End.
zipBài tập 10: Viết chương trình Pascal xuất 5 lần chuỗi vừa nhập
01.Program Xuat_chuoi;
02.Var
03.ch:String;
04.Begin
05.Writeln('XUAT 5 LAN CHUOI VUA NHAP');
06.Writeln('-------------------------');
07.Write('-Nhap vao mot chuoi bat ky: ');
08.Readln(ch);
09.Write(ch,', ',ch,', ',ch,', ',ch,', ',ch);
10.Readln
11.End.
zipBài tập 11: Viết chương trình Pascal tính chu kỳ dao động của con lắc
01.Program Chu_ky_con_lac;
02.Const
03.g=918;
04.Var
05.l,t:Real;
06.Begin
07.Writeln('TINH CHU KY DAO DONG CON LAC DON');
08.Writeln('-----------------------');
09.Write('-Cho biet chieu dai con lac: ');
10.Readln(l);
11.t:=2*pi*sqrt(l/g);
12.Writeln('+Chu ky dao dong dieu hoa cua con lac: ',t:10:3);
13.Readln;
14.End.
zipBài tập 12: Viết chương trình Pascal tính lực hập dẫn giữa 2 vật
01.Program Luc_hap_dan;
02.Const
03.gama=6.673E-8;
04.Var
05.m1,m2,f,d:Real;
06.Begin
07.Writeln('TINH LUC HAP DAN GIUA 2 VAT');
08.Writeln('----------------------');
09.Write('-Khoi luong vat thu nhat: ');
10.Readln(m1);
11.Write('-Khoi luong vat thu hai : ');
12.Readln(m2);
13.Write('-Khoang cach 2 vat: ');
14.Readln(d);
15.f:=gama*m1*m2/sqr(d);
16.Writeln('+Luc hap dan giua 2 vat= ',f:10:3);
17.Readln
18.End.
zipBài tập 13: Viết chương trình Pascal tính khoảng cách từ 1 điểm đến đường thẳng
01.Program Tinh_khoang_cach;
02.Var
03.a,b,c,d,x,y:Real;
04.Begin
05.Writeln('TINH KHOANG CACH TU 1 DIEM DEN DUONG THANG');
06.Writeln('------------------------------------------');
07.Write('-Nhap he so a= ');
08.Readln(a);
09.Write('-Nhap he so b= ');
10.Readln(b);
11.Write('-Nhap he so c= ');
12.Readln(c);
13.Write('-Nhap toa do x= ');
14.Readln(x);
15.Write('-Nhap toa do y= ');
16.Readln(y);
17.d:=((a*x) + (b*y) + c) / Sqrt(Sqr(a) + Sqr(b));
18.Writeln('+Khoang cach tu diem I den duong thang la: ',d:10:2);
19.Readln
20.End.
zipBài tập 14: Viết chương trình Pascal tách một số nguyên thành 2 số
01.Program Tach_so;
02.Var
03.n:Integer;
04.x,p:Real;
05.Begin
06.Writeln('TACH MOT SO NGUYEN THANH 2 SO');
07.Writeln('-----------------------------');
08.Write('-Nhap mot so: ');
09.Readln(n);
10.x:=2*n/3;
11.Write('+Con so: ',n,' tach thanh so: ',x:6:2);
12.Writeln(' va so: ',(n-x):6:2);
13.Readln
14.End.

Nguồn: Sưu tầm trên mạng Internet


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