Program sap_xep;
Var
so1,so2,tam:Integer;
Begin
Writeln('SAP XEP 2 SO NGUYEN');
Writeln('-------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
If so1 > so2 Then
Begin
tam:=so1;
so1:=so2;
so2:=tam;
End;
Writeln;
Writeln('Ban vua nhap cac so sau');
Writeln(so1:10);
Writeln(so2:10);
Readln
End.
Viết chương trình Pascal tìm số lớn nhất trong 2 số nguyên (dùng If thiếu)
Program So_lon;
Var
so1,so2:Integer;
Begin
Writeln('TIM SO LON NHAT TRONG 2 SO NGUYEN');
Writeln('---------------------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
If so1 > so2 Then
Writeln('+So thu nhat la so lon nhat');
If so2 > so1 Then
Writeln('+So thu hai la so lon nhat');
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tìm số lớn nhất trong 2 số nguyên (dùng If đủ)
Program So_lon;
Var
so1,so2:Integer;
Begin
Writeln('TIM SO LON NHAT TRONG 2 SO NGUYEN');
Writeln('---------------------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
If so1 > so2 Then
Writeln('+So thu nhat la so lon nhat')
Else
Writeln('+So thu hai la so lon nhat');
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tìm số lớn nhất trong 3 số nguyên (dùng If thiếu)
Program So_lon;
Var
so1,so2,so3,solon:Integer;
Begin
Writeln('TIM SO LON NHAT TRONG 3 SO NGUYEN');
Writeln(' Cau truc If thieu');
Writeln('---------------------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Write('-Nhap so thu ba : ');
Readln(so3);
If so1 < so2 Then
solon:=so2;
If so2 < so3 Then
solon:=so3;
If so3 < so1 Then
solon:=so1;
Writeln;
Writeln('+So lon nhat trong 3 so la: ',solon);
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tìm số lớn nhất trong 3 số nguyên (dùng If đủ)
Program So_lon;
Var
so1,so2,so3,solon:Integer;
Begin
Writeln('TIM SO LON NHAT TRONG 3 SO NGUYEN');
Writeln(' Cau truc If du');
Writeln('---------------------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Write('-Nhap so thu ba : ');
Readln(so3);
If so1 < so2 Then
solon:=so2
Else
solon:=so1;
If solon < so3 Then
solon:=so3;
Writeln;
Writeln('+So lon nhat trong 3 so la: ',solon);
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tìm số lớn nhất trong 4 số nguyên
Program So_lon;
Var
so1,so2,so3,so4,solon1,solon2,solon:Integer;
Begin
Writeln('TIM SO LON NHAT TRONG 4 SO NGUYEN');
Writeln('Cau truc If...Then...Else');
Writeln('-------------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Write('-Nhap so thu ba : ');
Readln(so3);
Write('-Nhap so thu tu : ');
Readln(so4);
If so1 > so2 Then
solon1:= so1
Else
Solon1:=so2;
If so3 > so4 Then
solon2:=so3
Else
solon2:=so4;
If solon1 > solon2 Then
solon:=solon1
Else
solon:=solon2;
Writeln;
Writeln('+So lon nhat trong 4 so la: ',solon);
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal cộng thêm giây vào giờ hiện hàng
Program Cong_giay;
Var
gio,phut,giay,them:Integer;
Begin
Writeln('CONG THEM GIAY VAO GIO HIEN HANH');
Writeln('--------------------------------');
Writeln('Nhap vao gio:phut:giay hien hanh');
Write('-Gio : ');
Readln(gio);
Write('-Phut: ');
Readln(phut);
Write('-Giay: ');
Readln(giay);
Write('-Cho biet so giay muon cong them: ');
Readln(them);
If (giay+them) < 60 Then
giay:=giay+them
Else
Begin
giay:=((giay+them)-60);
phut:=phut+1;
If phut >=60 Then
Begin
phut:=phut-60;
gio:=gio+1;
End;
End;
Writeln;
Writeln('+Sau khi cong them so giay vao, gio moi la:');
Writeln(' ',gio,' : ',phut,' : ',giay);
Writeln;
Writeln('Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal giải phương trình bậc 2
Program PTB2;
Var
a,b,c:Integer;
Delta,x,x1,x2:Real;
Begin
Writeln('GIAI PHUONG TRINH BAC 2');
Writeln('-----------------------');
Write('-Nhap he so a= ');
Readln(a);
Write('-Nhap he so b= ');
Readln(b);
Write('-Nhap he so c= ');
Readln(c);
Delta:=sqr(b)-4*a*c;
If Delta < 0 Then
Writeln('+Phuong trinh vo nghiem')
Else
If Delta=0 Then
Begin
X:=-b/2*a;
Writeln('+Phuong trinh co 2 nghiem bang nhau X1=X2= ',X:6:2);
End
Else
Begin
X1:=-b-Sqrt(Delta)/2*a;
X2:=-b+Sqrt(Delta)/2*a;
Writeln('+Nghiem thu nhat = ',X1:6:2);
Writeln('+Nghiem thu hai = ',X2:6:2);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tính điểm trung bình và xếp hạng
Program Diem_Trung_binh;
Var
Ten:String[24];
Van,Toan,Ly,tb:Real;
Begin
Writeln('TINH DIEM TRUNG BINH VA XEP HANG');
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);
Tb:=((Van*2)+(Toan*2)+ly)/5;
If tb < 5 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc kem');
End
Else if Tb < 7 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc trung binh');
End
Else if Tb < 9 Then
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc Kha');
End
Else
Begin
Writeln('+Hoc sinh: ',Ten);
Writeln('+Diem trung binh = ',Tb:4:1);
Writeln('+Xep hang: Hoc luc Gioi');
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tính điểm trung bình và nhận xét
Program Diem_Trung_binh;
Const
MucDiem = 5;
DiemDat =20;
DiemLoai =2;
Var
Ten:String[24];
Van,Toan,Hoa,Ngoaingu,Tongdiem:Real;
Dat,Loai,Hocdeu:Boolean;
Begin
Writeln('TINH DIEM TRUNG BINH VA NHAN XET');
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 Hoa: ');
Readln(Hoa);
Write('-Cho biet diem mon Ngoai ngu: ');
Readln(Ngoaingu);
Tongdiem:=Van+Toan+Hoa+Ngoaingu;
Dat:=(Tongdiem >=DiemDat);
Loai:=(Van < DiemLoai) Or (Toan < DiemLoai)Or (Hoa < DiemLoai) Or (Ngoaingu < DiemLoai);
Hocdeu:=(Van >MucDiem) And (Toan > Mucdiem)And (Hoa > Mucdiem) And (Toan > Mucdiem);
Writeln('+Hoc sinh: ',ten);
Write('+Tong so diem: ',Tongdiem:5:2);
If Dat And (Not Loai) Then
Begin
Write(' Duoc len lop');
If hocdeu Then
Write(' Hoc deu cac mon')
Else
Write(' Hoc chua deu cac mon');
End
Else
Write(' Khong duoc len lop');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal kiểm tra tính chẵn lẻ của 1 số nguyên
Program So_chan_le;
Var
so,du:Integer;
Begin
Writeln('SO CHAN HAY SO LE');
Writeln('-----------------');
Write('-Nhap mot so nguyen bat ky: ');
Readln(so);
du:=so Mod 2;
Case du Of
0:Begin
Writeln('-So : ',so);
Writeln('-La so chan');
End;
1:Begin
Writeln('-So : ',so);
Writeln('-La so le');
End;
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal cho biết ngày của tháng
Program Ngay_cua_thang;
Var
thang,nam,luu,songay:Integer;
Begin
Writeln('THANG. X . CO BAO NHIEU NGAY');
Writeln('---------------------------');
Write('-Ban muon hoi thang nao co bao nhieu ngay: ');
Readln(thang);
Write('-Cho biet nam : ');
Readln(nam);
luu:=nam;
Case thang Of
1,3,5,7,8,10,12: songay:=31;
4,6,9,11 : songay:=30;
2 :Case nam Mod 4 Of
1,2,3 :songay:=28;
0 :songay:=29;
End;
End;
If songay >=30 Then
Writeln('+Thang:',thang:3,', nam: ',luu:4,', co: ',songay:3,' ngay')
Else
Writeln('+Thang:',thang:3,', nam: ',luu:5,', co: ',songay:3,' ngay');
Writeln;
Writeln(' Bam phin <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal xếp loại học tập
Program Phan_loai;
Var
ten:String;
diem:Integer;
Begin
Writeln('XEP LOAI HOC TAP');
Writeln('----------------');
Write('-Cho biet ten: ');
Readln(ten);
Write('-Cho biet diem: ');
Readln(diem);
Case diem Of
0,1,2,3,4: Begin
Writeln('+Hoc sinh: ',ten);
Writeln('+So diem : ',diem);
Writeln('+Xep loai KEM');
End;
5,6 : Begin
Writeln('+Hoc sinh: ',ten);
Writeln('+So diem : ',diem);
Writeln('+Xep loai TRUNG BINH');
End;
7,8: Begin
Writeln('+Hoc sinh: ',ten);
Writeln('+So diem : ',diem);
Writeln('+Xep loai KHA');
End;
9: Begin
Writeln('+Hoc sinh: ',ten);
Writeln('+So diem : ',diem);
Writeln('+Xep loai GIOI');
End;
10: Begin
Writeln('+Hoc sinh: ',ten);
Writeln('+So diem : ',diem);
Writeln('+Xep loai XUAT SAC');
End;
Else Writeln('Khong co loai diem nay hoac ban go sai');
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal nhập ngày, tháng, năm và cho biết là thứ mấy trong tuần
Program Thu_trong_tuan;
Var
thu,ngay,thang:Byte;
Nam,luu:Integer;
Begin
Writeln('NGAY THU MAY TRONG TUAN');
Writeln('-----------------------');
Write('-Ngay: ');
Readln(ngay);
Write('-Thang: ');
Readln(thang);
Write('-Nam: ');
Readln(nam);
luu:=nam;
nam:=1900 + (nam Mod 1900);
If thang < 3 Then
Begin
thang:=thang + 12;
nam:=nam - 1;
End;
thu:=ABS(ngay+2*thang+3*(thang+1) Div 5+nam+nam Div 4) Mod 7;
Case thu Of
0 : Begin
Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);
Writeln(' +La ngay Chu Nhat');
End;
1 : Begin
Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);
Writeln('+La ngay Thu Hai');
End;
2 : Begin
Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);
Writeln(' +La ngay Thu Ba');
End;
3 : Begin
Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);
Writeln(' +La ngay Thu Tu');
End;
4 : Begin
Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);
Writeln(' +La ngay Thu Nam');
End;
5 : Begin
Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);
Writeln(' +La ngay Thu Sau');
End;
6 : Begin
Writeln('+Ngay:',ngay:3,',thang:',thang:3,',nam:',luu:5);
Writeln(' +La ngay Thu Bay');
End;
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal trò chơi One, two, three
Program One_Two_Three;
Var
a,b:Char;
Begin
Writeln('TRO CHOI ONE TWO THREE');
Writeln(' Keo (k), Bua (b), Giay (g)');
Writeln('---------------------------');
Write('-Ban A chon: ');
Readln(a);
Write('-Ban B chon: ');
Readln(b);
Case Upcase(a) Of
'K': Case Upcase(b) Of
'K' : Begin
Writeln('+Ban A chon Keo');
Writeln('+Ban B cung chon Keo');
Writeln('+Keo gap Kep, hoa nhau');
End;
'B' : Begin
Writeln('+Ban A chon Keo');
Writeln('+Ban B chon Bua');
Writeln('+Bua dap Keo, B thang');
End;
'G' : Begin
Writeln('+Ban A chon Keo');
Writeln('+Ban B chon Giay');
Writeln('+Keo cat Giay, A thang');
End;
End;
'B': Case Upcase(b) Of
'K' : Begin
Writeln('+Ban A chon Bua');
Writeln('+Ban B chon Keo');
Writeln('+Bua dap Keo, A thang');
End;
'B' : Begin
Writeln('+Ban A chon Bua');
Writeln('+Ban B cung chon Bua');
Writeln('+Bua gap Bua, hoa nhau');
End;
'G' : Begin
Writeln('+Ban A chon Bua');
Writeln('+Ban B chon Giay');
Writeln('+Giay boc Bua, B thang');
End;
End;
'G': Case Upcase(b) Of
'K' : Begin
Writeln('+Ban A chon Giay');
Writeln('+Ban B chon Keo');
Writeln('+Keo cat Giay, B thang');
End;
'B' : Begin
Writeln('+Ban A chon Giay');
Writeln('+Ban B chon Bua');
Writeln('+Giay boc Bua, A thang');
End;
'G' : Begin
Writeln('+Ban A chon Giay');
Writeln('+Ban B cung chon Giay');
Writeln('+Giay gap Giay, hoa nhau');
End;
End;
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal chọn loại giải trí thích hợp
Program Giai_Tri;
Var
t:Byte;
Begin
Writeln('CHON LOAI GIAI TRI THICH HOP');
Writeln('----------------------------');
Write('-Cho biet nhiet do ngay hom nay: ');
Readln(t);
If t < 20 Then
Writeln('Troi lanh, ban nen o nha coi TV');
If ((t > 20) And (t < 25)) Then
Writeln('Troi mat me, ban nen di cam trai');
If ((t > 25) And (t < 30)) Then
Writeln('Troi hoi nong, ban nen di tam bien Vung Tau');
If t > 30 Then
Writeln('Troi nong, ban nen di nghi mat o Da Lat');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal giải phương trình bậc nhất
Program PT_bac_nhat;
Var
a,b:Integer;
x:Real;
Begin
Writeln('GIAI PHUONG TRINH BAC NHAT');
Writeln(' aX + b = 0');
Write('-Nhap he so a= ');
Readln(a);
Write('-Nhap he so b= ');
Readln(b);
If a=0 Then
If b=0 Then
Writeln('+Phuong trinh vo dinh')
Else
Writeln('+Phuong trinh vo nghiem')
Else
Begin
x:=-b/a;
Writeln('+Nghiem cua phuong trinh X= ',x:0:6);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal kiểm tra ước số của 2 số nguyên
Program Uoc_so;
Var
so1,so2,tam:Integer;
Begin
Writeln('KIEM TRA UOC SO CUA 2 SO NGUYEN');
Writeln('-------------------------------');
Write('-So thu nhat= ');
Readln(so1);
Write('-So thu hai = ');
Readln(so2);
If so1 < so2 Then
Begin
tam:=so1;
so1:=so2;
so2:=tam;
End;
If (so1 Mod so2) = 0 Then
Writeln('+So: ',so2:4,' la uoc so cua so: ',so1:4)
Else
Begin
Writeln('+Hai so: ',so1:4,' va so ',so2:4);
Writeln(' Khong phai la uoc so cua nhau');
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal sắp xếp thứ tự 3 số nguyên dương
Program Sap_xep;
Var
so1,so2,so3,tam:Integer;
Begin
Writeln('SAP XEP THU TU 3 SO NGUYEN DUONG');
Writeln('-------------------------------');
Write('-Nhap so thu nhat= ');
Readln(so1);
Write('-Nhap so thu hai = ');
Readln(so2);
Write('-Nhap so thu ba = ');
Readln(so3);
If so1 > so2 Then
Begin
tam:=so1;
so1:=so2;
so2:=tam;
End;
If so2 > so3 Then
Begin
tam:=so2;
so2:=so3;
so3:=tam;
End;
If so1 > so2 Then
Begin
tam:=so1;
so1:=so2;
so2:=tam;
End;
Writeln;
Writeln('KET QUA SAP XEP');
Writeln;
Writeln(' ',so1:5);
Writeln(' ',so2:5);
Writeln(' ',so3:5);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tìm số lớn nhất và số nhỏ nhất
Program So_lon_so_nho;
Var
so1,so2,so3,so4,max,min:Integer;
Begin
Writeln('TIM SO LON NHAT VA SO NHO NHAT');
Writeln('-----------------------------');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Write('-Nhap so thu ba : ');
Readln(so3);
Write('-Nhap so thu tu : ');
Readln(so4);
max:=so1;
min:=so1;
If max < so2 Then
max:=so2
Else
min:=so2;
If max < so3 Then
max:=so3
Else
min:=so3;
If max < so4 Then
max:=so4;
Writeln;
Writeln('+So lon nhat trong 4 so: ',so1,',',so2,',',so3,',',so4,' la: ',max);
Writeln('+Va so nho nhat trong 4 so do la : ',min);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal kiểm tra đây là tam giác gì
Program Tam_giac;
Var
a,b,c:Integer;
tamgiac,deu,can:Boolean;
Begin
Writeln('BA CANH CUA TAM GIAC ?');
Writeln('----------------------');
Write('-Nhap so thu nhat= ');
Readln(a);
Write('-Nhap so thu hai = ');
Readln(b);
Write('-Nhap so thu ba = ');
Readln(c);
tamgiac:=False;
deu:=False;
can:=False;
If (a+b>c) And (b+c>a) And (c+a>b) Then
Begin
tamgiac:=True;
If (a=b) And (b=c) Then
deu:=True;
If (a=b) Or (b=c) Or (c=a) Then
can:=True;
End;
Writeln;
Writeln(' 3 so vua nhap la:');
Writeln('+Tam giac: ',tamgiac);
Writeln('+Tam giac deu: ',deu);
Writeln('+Tam giac can: ',can);
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tính diện tích tam giác
Program Dien_tich_tam_giac;
Var
a,b,c:Integer;
p,s:Real;
Begin
Writeln('DIEN TICH TAM GIAC');
Writeln('------------------');
Write('-Nhap so thu nhat: ');
Readln(a);
Write('-Nhap so thu hai : ');
Readln(b);
Write('-Nhap so thu ba : ');
Readln(c);
If (a+b>c) And (b+c>a) And (c+a>b) Then
Begin
Writeln('+Dung la Tam giac');
p:=0.5*(a+b+c);
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('+Dien tich= ',s:10:2);
End
Else
Writeln('+Khong phai la Tam giac');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tính Khối lập phương chui qua khung chữ nhật
Program Khoi_lap_phuong;
Var
a,b,c,m,n,tam:Integer;
Begin
Writeln('KHOI LAP PHUONG CHUI QUA KHUNG CHU NHAT');
Writeln('---------------------------------------');
Writeln(' *Nhap so lieu cho khoi lap phuong');
Write('-Canh thu nhat: ');
Readln(a);
Write('-Canh thu hai : ');
Readln(b);
Write('-Canh thu ba : ');
Readln(c);
Writeln(' *Nap so lieu cho khung chu nhat');
Write('-Canh thu nhat: ');
Readln(m);
Write('-Canh thu hai : ');
Readln(n);
If (a>b) Then
Begin
tam:=a;
a:=b;
b:=tam;
End;
If (b>c) Then
Begin
tam:=b;
b:=c;
c:=tam;
End;
If (a>b) Then
Begin
tam:=a;
a:=b;
b:=tam;
End;
If (m>n) Then
Begin
tam:=m;
m:=n;
n:=tam;
End;
If (a<m) And (b<n) Then
Writeln('+Khoi lap phuong chui qua duoc khung chu nhat')
Else
Writeln('+Khoi lap phuong khong chui qua duoc khung chu nhat');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal giải hệ phương trình bậc nhất
Program He_phuong_trinh_bac_nhat;
Var
a,b,c,d,p,q,r:Real;
Begin
Writeln('GIAI HE PHUONG TRINH BAC NHAT');
Writeln(' aX + bY = c');
Writeln(' pX + qY = r');
Writeln('-----------------------------');
Write('Nhap a= ');
Readln(a);
Write('Nhap b= ');
Readln(b);
Write('Nhap c= ');
Readln(c);
Write('Nhap p= ');
Readln(p);
Write('Nhap q= ');
Readln(q);
Write('Nhap r= ');
Readln(r);
d:=a*a + b*b + p*p + q*q;
If d=0 Then
If (c*c + r*r = 0) Then
Writeln('+He thoa man voi moi X, Y')
Else
Writeln('+He vo nghiem');
If d <> 0 Then
Begin
d:=a*q - b*q;
If d=0 Then
If sqr(c*q-b*r)+sqr(a*r-p*c) = 0 then
Writeln('+He thoa man voi moi X, Y')
Else
Writeln('+ He vo nghiem');
If d <> 0 Then
Begin
Writeln('X = ',(c*q-b*r)/d:5:3);
Writeln('Y = ',(a*r-p*c)/d:5:3);
End;
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal kiểm tra năm nhận
Program Nam_nhuan;
Var
nam:Word;
nhuan:boolean;
Begin
Writeln('NAM NHUAN HAY NAM THUONG');
Writeln('------------------------');
Write('-Nhap vao nam can kiem tra: ');
Readln(nam);
If nam Mod 100 = 0 Then
Nhuan:=(nam Mod 400)=0
Else
Nhuan:=(nam Mod 4)=0;
Write('Nam: ',nam, ' la: ');
If nhuan Then
Writeln('nam nhuan')
Else
Writeln('nam thuong ( khong nhuan)');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal kiểm tra bàn phím
Program KT_phim;
Var
phim:Char;
Begin
Writeln('KIEM TRA BAN PHIM');
Writeln('-----------------');
Write('-Bam mot phim: ');
Readln(phim);
Case phim Of
'A'..'Z','a'..'z' :Writeln('+Ban vua bam mot phim ky tu');
'0'..'9' :Writeln('+Ban vua bam mot phim ky so');
'+','-','*','/' :Writeln('+Ban vua bam mot phim toan tu so hoc');
Else Writeln('+Ban vua bam mot phim dac biet');
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tính diện tích các hình học sơ cấp
Program Hinh_hoc_so_cap;
Var
a,b,c,h,r:Integer;
s:Real;
chon:Byte;
Begin
Writeln('TINH DIEN TICH HINH HOC SO CAP');
Writeln('------------------------------');
Writeln(' 1-Hinh vuong');
Writeln(' 2-Hinh chu nhat');
Writeln(' 3-Hinh tam gia1c');
Writeln(' 4-Hinh thang');
Writeln(' 5-Hinh tron');
Writeln;
Write('-Ban chon cac so tu 1 den 5 de tinh dien tich hinh tuong ung');
Readln(chon);
Case chon Of
1 :Begin
Write('-Nhap canh hinh vuong: ');
Readln(a);
s:=a*a;
Writeln('+Dien tich hinh vuong = ',s:10:2,' met vuong');
End;
2 :Begin
Write('-Nhap chieu rong : ');
Readln(a);
Write('-Nhap chieu dai : ');
Readln(b);
s:=a*b;
Writeln('+Dien tich hinh chu nhat = ',s:10:2,' met vuong');
End;
3 :Begin
Write('-Nhap canh day : ');
Readln(a);
Write('-Nhap chieu cao : ');
Readln(h);
s:=a*h/2;
Writeln('+Dien tich hinh tam giac = ',s:10:2,' met vuong');
End;
4 :Begin
Write('-Nhap day duoi : ');
Readln(a);
Write('-Nhap day tren : ');
Readln(b);
Write('-Nhap chieu cao: ');
Readln(h);
s:=0.5*(a+b)*h;
Writeln('+Dien tich hinh thang = ',s:10:2,' met vuong');
End;
5 :Begin
Write('-Nhap ban kinh : ');
Readln(r);
s:=r*r*pi;
Writeln('+Dien tich hinh tron = ',s:10:2,' met vuong');
End;
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal hướng dẫn mua vé máy bay
Program Huong_dan;
Var
chon:Byte;
Begin
Writeln('HUONG DAN MUA VE MAY BAY');
Writeln('------------------------');
Writeln(' 1-Tp Ho Chi Minh di Ha Noi');
Writeln(' 2-Tp Ho Chi Minh di Da Nang');
Writeln(' 3-Tp Ho Chi Minh di Nha Trang');
Writeln(' 4-Tp Ho Chi Minh di Phu Quoc');
Writeln(' 5-Tp Ho Chi Minh di Con Dao');
Writeln(' 6-Tp Ho Chi Minh di Paris');
Writeln(' 7-Tp Ho Chi Minh di London');
Writeln(' 8-Tp Ho Chi Minh di Moscow');
Writeln(' 9-Tp Ho Chi Minh di Bac Kinh');
Writeln(' 10-Tp Ho Chi Minh di Tokyo');
Write('-Chon tuyen nao, go vao so tuong ung (1 - 10): ');
Readln(chon);
Case chon of
1 :Writeln(' Xin moi den quay ve so 1');
2 :Writeln(' Xin moi den quay ve so 2');
3 :Writeln(' Xin moi den quay ve so 3');
4 :Writeln(' Xin moi den quay ve so 4');
5 :Writeln(' Xin moi den quay ve so 5');
6 :Writeln(' Xin moi den quay ve so 6');
7 :Writeln(' Xin moi den quay ve so 7');
8 :Writeln(' Xin moi den quay ve so 8');
9 :Writeln(' Xin moi den quay ve so 9');
10 :Writeln(' Xin moi den quay ve so 10');
Else Writeln('-Khong co tuyen bay nay');
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal cho biết thứ trong tuần
Program Thu_trong_tuan;
Var
d:1..31; {Kieu mien con}
m:1..12;
y:1900..2001;
a:Word;
Begin
Writeln('NGAY DO LA THU MAY TRONG TUAN');
Writeln('-----------------------------');
Write('-Ngay: ');
Readln(d);
Write('-Thang: ');
Readln(m);
Write('-Nam: ');
Readln(y);
Write('+Ngay: ',d:2,' / ',m:2,' / ',y:4,' la ngay ');
If m<3 Then
Begin
inc(m,12);
Dec(y);
End;
a:=d+2*m+(3*(m+1) Div 5)+y+(y Div 4)+1;
a:=a Mod 7;
Case a Of
0 :Writeln('Thu 7');
1 :Writeln('Chu Nhat');
2,3,4,5,6 :Writeln('Thu ',a);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Viết chương trình Pascal tính số ngày của tháng
Program So_ngay;
Var
m,y,songay:Integer;
nhuan:Boolean;
Begin
Writeln('TINH SO NGAY CUA THANG');
Writeln('----------------------');
Write('-Nhap thang: ');
Readln(m);
Write('-Nhap nam : ');
Readln(y);
Nhuan:=False;
If (y Mod 4) = 0 Then
Begin
Nhuan:=True;
If (y Mod 100 =0) And (y Mod 400 <> 0) Then
Nhuan:=False;
End;
Case m Of
1,3,5,7,8,10,12 :songay:=31;
4,6,9,11 :songay:=30;
2 :If nhuan Then
songay:=29
Else
songay:=28;
End;
Writeln;
Writeln('Thang ',m:2,' / ',y:4,' co : ',songay,' ngay');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
Post a Comment Blogger Facebook
Post a Comment