Bài tập Pascal_Phần 3

Writeln'DOI DO FAHRENHEIT SANG CELCIUS'; Write'-Cho biet do Fahrenheit : '; Writeln'DOI MILE SANG Km'; Write'-Cho biet so Mile can doi: ';... Writeln'DOI NGAY RA THU TRONG TUAN'; Write

Thư Viện Các Dạng Bài Tập Pascal của Tin Học 11 - Phần 3151/Chạy chử 2:

c='Chuyen phat hanh cac giao trinh tin hoc phuc vu hoc sinh, sinh vien';

d='Chan thanh cam on quy doc gia';

Function Lap(Kt:Char; N:Integer): String;

Write(#205); Write(#188);

For k:=y1+1 To y2-1 Do Begin

Writeln(' CHUONG TRINH THUC HIEN PHEP TRU SO HOC'); Writeln(' co toi da 4 ky so');

Write('-Nhap so thu nhat = ');

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

Write('-Cho biet chieu cao : ');

Write('+Ong (Ba) : ',ten:24);

Writeln(' , ',tuoi,' tuoi');

Writeln('+Co so do Pignet = ',pig:6:2);

End;

End;

Writeln;

Writeln('+Sau khi cong them so giay vao, gio moi la:');

Writeln(' ',gio,' : ',phut,' : ',giay);

Writeln('SAU KHI CHUYEN CHO');

Writeln('+So thu nhat bay gio la: ',so1);

Writeln('+So thu hai bay gio la : ',so2);

Readln

End

163/Đổi chổ 2 số:

Writeln('DOI CHO 2 SO');

Writeln('Dung thu tuc');

Writeln(' Truoc khi doi cho');

Writeln('+So thu nhat = ',so1);

Writeln('+So thu hai = ',so2);

Writeln(' Sau khi doi cho');

Doi(so1,so2);

Writeln('*So thu nhat : ',so1);

Writeln('*So thu hai : ',so2);

Writeln('DOI DO FAHRENHEIT SANG CELCIUS');

Write('-Cho biet do Fahrenheit : ');

Writeln('DOI MILE SANG Km');

Write('-Cho biet so Mile can doi: ');

Writeln('DOI NGAY RA THU TRONG TUAN');

Writeln(' Lich the ky 20');

KS:Array[ChuSo] Of String=(' ','mot ',' hai',' ba',

' bon',' nam',' sau',' bay',' tam',' chin'); DV:Array[DonVi] Of String[6]=(' muoi ',' tram');

If (sn[3]='5') And (sn[2] <>'0') then s:=s+'lam'

Else

s:=s+KS[sn[3]];

End;

End;

Writeln('+Doi sang he 8 la: ',He8);

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

thang:=' Thang '+Ten_thang[x];

End;

(* -*)

BEGIN

Writeln('DOI TEN THANG TU SO RA CHU');

Writeln(' Su dung ham');

Chuoitk:='MOT HAI BA BON NAM SAU BAY TAM CHIN';

Write('-Nhap so can doi: ');

If (Donvi > 0) And (Donvi <> 5) Then

Chuoikq :=Chuoikq + Copy(Chuoitk,4* Donvi -3,4);

If (Donvi = 5) And (Chuc = 0) Then

Chuoikq :=Chuoikq + ' NAM';

If (Donvi = 5) And (Chuc > 0) Then

Chuoikq := Copy(Chuoitk,4 * Chuc-3,4)+' LAM';

If (Donvi = 5) And (Chuc = 1) Then

Chuoikq := ' LAM';

If Chuc = 1 Then

Chuoikq:='MUOI'+chuoikq;

If (Chuc > 1) And (Donvi = 0) Then

Chuoikq:=Copy(Chuoitk,4 * Chuc-3,4)+' MUOI ';

If (Chuc > 1) And (Donvi = 1) Then

Chuoikq:=Copy(Chuoitk,4 * Chuc-3,4)+' MUOI '+Chuoikq;

If (Chuc > 1) And (Donvi > 1) And (Donvi <>5) Then

Chuoikq:=Copy(Chuoitk,4 * Chuc-3,4)+' MUOI '+Chuoikq;

If (Tram > 0) And (Chuc=0) And (Donvi=0) Then

Chuoikq:=Copy(Chuoitk,4*Tram-3,4)+' TRAM ';

If (Tram > 0) And (Chuc = 0) And (Donvi > 0) Then

Chuoikq := Copy(Chuoitk,4*Tram-3,4)+' TRAM LINH '+ Copy(Chuoitk,4*Donvi-3,4);

If (Tram > 0) And (Chuc = 1) And (Donvi = 0) Then

Chuoikq := Copy(Chuoitk,4*Tram-3,4)+ 'TRAM MUOI';

If (Tram > 0) And (Chuc >= 2) And (Donvi = 0) Then

Chuoikq := Copy(Chuoitk,4*Tram-3,4)+' TRAM '+ Copy(Chuoitk,4*Chuc -3,4) +' MUOI';

If (Tram > 0) And (Chuc <> 0) And (Donvi > 0) Then

Chuoikq := Copy(Chuoitk,4*Tram-3,4)+' TRAM '+ Copy(Chuoitk,4*Chuc -3,4) +' MUOI '+ Copy(Chuoitk,4*Donvi-3,4);

If (Tram > 0) And (Chuc <> 0) And (Donvi = 5) Then

Chuoikq := Copy(Chuoitk,4*Tram-3,4)+' TRAM '+ Copy(Chuoitk,4*Chuc -3,4) +' MUOI LAM'; Write('-Viet bang chu la: ',Chuoikq);

Writeln(' 1-Da Lat');

Writeln(' 2-Vung Tau'); Writeln(' 3-Nha Trang');

Writeln(' 4-Hue');

Writeln(' 5-Ha Noi');

Writeln('Chon noi nao, go cac so tu 1 den 5'); Writeln('1-Nguoi thu nhat chon 3 noi:'); Write(' -Noi thu nhat: ');

Writeln('3-Nguoi thu ba chon 3 noi:');

Write(' -Noi thu nhat: ');

Readln(ch3);

ng3:=[ch1,ch2,ch3];

Ba:=ng1 * ng2 * ng3;

Hai:=(ng1*ng2-ng3) + (ng2*ng3-ng1) + (ng3*ng1-ng2); Mot:=ng1 + ng2 +ng3;

Chuoi1^ := 'Giao trinh Turbo Pascal 7.0';

Chuoi2^ := 'Giao trinh FoxPro 2.6';

Writeln;

Writeln('NOI DUNG BAN DAU CUA 2 CHUOI');

Writeln(' -');

Writeln;

Writeln('-Chuoi thu nhat: ',Chuoi1^);

Writeln('-Chuoi thu hai : ',Chuoi2^);

Writeln('-Chuoi thu nhat: ',Chuoi1^);

Writeln('-Chuoi thu hai : ',Chuoi2^);

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

For j:=1 To dai Div 2 Do

Write(' *') {dau trang va dau sao} Else

For j:=1 To dai Div 2 +dai Mod 2 Do

Write('* '); {dau sao va dau trang} Writeln;

Writeln('*Duong tron thu nhat');

Write(' +Ban kinh: ');

Writeln('*Duong tron thu hai');

Write(' +Ban kinh: ');

Hieu := ABS(Dt1.R - Dt2.R);

If (Kc = 0) AND (Hieu = 0) Then

Writeln('-Hai duong tron trung nhau')

Else

If (Hieu > Kc) Then

Writeln('-Hai duong tron long nhau')

Else

If (Tong = Kc) OR (Hieu = Kc) Then

Writeln('-Hai duong tron tiep xuc nhau') Else

If (Tong > Kc) AND (Hieu < Kc) Then

Writeln('-Hai duong tron cat nhau') Else

Writeln(' *Nhap so lieu cho khoi lap phuong');

Write('-Canh thu nhat: ');

Writeln(' *Nap so lieu cho khung chu nhat');

Write('-Canh thu nhat: ');

If (a<m) And (b<n) Then

Writeln('+Khoi lap phuong chui qua duoc khung chu nhat')

Writeln(' KET QUA KIEM PHIEU');

Writeln('-So phieu hop le: ',n1,' phieu');

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

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

BaoLoi : Array[1 3] Of String[30] =('-Ban nhap sai ngay, thang',

'-Thang nay khong co ngay 31','-thang 2 khong co ngay nay');

Loi[1] := (NOT(Ng In Ngay)) OR (NOT (Th In Thang));

Loi[2] := (Ng = 31) AND (NOT (Th In Th31Ngay));

Nhuan := ((Nam Mod 4) = 0) AND ((Nam Mod 100) <> 0)