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

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

Sunday, August 18, 2013

Bài tập 1: Viết chương trình Pascal cho biết qui tắc đặt tên biên

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 tập 2: Viết chương trình Pascal lương của công nhân

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

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

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 tập 3: Viết chương trình Pascal tính chu vi, diện tích vòng tròn

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

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 tập 4: Viết chương trình Pascal đổi số Fahrenheit sang Celcius

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;

Writeln('    Bam phim <Enter> de ket thuc');

Readln

End.

Bài tập 5: Viết chương trình Pascal đổi từ đơn vị Mile sang Km

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;

Writeln('    Bam phim <Enter> de ket thuc');

Readln

End.

Bài tập 6: Viết chương trình Pascal in các chữ số của số nguyên dương N

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;

Write(' ', n DIV 10);

n :=n MOD 10;

Write(' ',n);

Writeln;

Writeln('    Bam phim <Enter> de ket thuc');

Readln

End.

Bài tập 7: Viết chương trình Pascal in các phép toán

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 tập 8: Viết chương trình Pascal tính điểm trung bình

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

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;

Writeln('    Bam phim <Enter> de ket thuc');

Readln

End.

Bài tập 9: Viết chương trình Pascal tính giá trị hàng hoá

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

Writeln('    Bam phim <Enter> de ket thuc');

Readln

End.

Bài tập 10: Viết chương trình Pascal tính độ dài vectơ

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

Writeln('    Bam phim <Enter> de ket thuc');

Readln

End.

Bài tập 11: Viết chương trình Pascal tính trung bình cộng, trung bình nhân

Program Trung_binh;

Var

a,b,c:Integer;

P,S:Real;

Begin

Writeln('TINH TRUNG BINH CONG,TRUNG BINH NHAN');

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

Writeln('  Bam phim <Enter> de ket thuc');

Readln

End.

Bài tập 12: Viết chương trình Pascal tính a mũ b (a^b)

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

Writeln('  Bam phim <Enter> de ket thuc');

Readln

End.

Bài tập 13: Viết chương trình Pascal tính tổng của N số nguyên

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

Writeln('  Bam phim <Enter> de ket thuc');

Readln

End.

Bài tập 14: Viết chương trình Pascal tính tiền gửi ngân hàng

Program Tinh_tien;

Var

v:Integer;

l,n:Real;

Begin

Writeln('TINH TIEN GUI NGAN HANG');

Writeln('-------------------');

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 tập 15: Viết chương trình Pascal tính giá hàng hoá

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

Writeln('  Bam phim <Enter> de ket thuc');

Readln

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

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

Lưu ý!

Comments[ 0 ]

Post a Comment

Liên hệ

Ghost Windows 7 Luxury [x86 + x64]

Một Số mẫu Thiết kế logo Cafe

TÔNG MÀU CỦA NĂM 2016: ROSE QUARTZ VÀ SERENITY

Mã màu trong photoshop (p2)

[Ps] - Biến đổi màu bằng lệnh Replace Color

[Tips] - 1001 mẹo tìm kiếm với Google giúp cuộc sống mạng "dễ thở" hơn

[Blog] - Yêu một người trưởng thành là như thế...

Lớp 10 - BÀI 14: MỘT SỐ KHÁI NIỆM CƠ BẢN

[Typo] Chúc Em Ngủ Ngon

[Tản Mạn] - Bao nhiêu năm rồi làm gì và được gì?

Bình luận

Fanpage

Nhãn