Bài tập Pascal lớp 11 docx

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 t

Trang 1

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(' ',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);

Trang 2

Writeln;

Writeln(' CHUONG TRINH BANG CUU CHUONG');

Writeln(' -');

Writeln;

Writeln(so:2,' lan 1 = ',so*1: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(' 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;

Trang 3

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

Trang 4

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

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 <Enter> 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(' -');

Trang 5

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 <Enter> 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 <Enter> 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);

Readln

End

Bài 15

Program Tinh_Z;

Var

x,z:Real;

Begin

Writeln('TINH GIA TRI Z QUA SO THUC X'); Writeln(' -');

Trang 6

Write('-Nhap tri x = ');

Readln(x);

z:=ln(x + abs(sin(2 * x)));

Writeln('*Gia tri cua Z = ',z:10:2);

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 <Enter> 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);

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 <Enter> 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);

Trang 7

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 <Enter> 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;

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;

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;

Trang 8

Write(' ', n DIV 10);

n :=n MOD 10;

Write(' ',n);

Writeln;

Writeln(' Bam phim <Enter> 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 <Enter> 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: ');

Trang 9

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;

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

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

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

Trang 10

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

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

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

Readln

End

Bài 14

Program Tinh_tien;

Var

v:Integer;

l,n:Real;

Begin

Writeln('TINH TIEN GUI NGAN HANG'); Writeln(' -');

Trang 11

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

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

Trang 12

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

Định dạng
Số trang	15
Dung lượng	132,5 KB