Bài tập Pascal_Phần 2

End; If Not TimThay Then Writeln'Khong tim thay';... TrungDiem := Filesizef Div 2;... If Not TimThay Then Writeln'Khong tim thay';... Xcenter := GetMaxX Div 2; YCenter := GetMaxY Div 2;

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

101/Nhập số liệu cho 1 tập tin số nguyên:

End;

If Not TimThay Then

Writeln('Khong tim thay');

0 : Writeln('Da hoan thanh tot dep');

2 : Writeln('Khong tim thay tap tin nay');

3 : Writeln('Khong tim thay duong dan')

Writeln(' -'); Writeln;

Write('-Cho biet ten tap tin: ');

Writeln(' CHUONG TRINH NHAC EM DIU');

Writeln('Truong do cham 10 lan so voi BT15_10');

Writeln(' Bam <Esc> de ket thuc');

Writeln('-Diem Hoa : ',Hoa:5:2);

Writeln('-Diem trung binh := ',Tb:5:2); End

End;

If Not Timthay Then

Writeln('Trong danh sach khong co hoc sinh: ',St);

Write('-Nam sinh: '); Readln(NamSinh);

Write('-Chuc vu: '); Readln(Chucvu);

Write('-Bac luong: '); Readln(BacLuong);

If ok2 Then {chi con tap tin so2.dat} Begin

TenLop : Array[1 100] Of String[4];

alop : Array[1 200] Of HocSinh;

Sohs12,Solop12,Sohslop : Integer;

Stt : Integer;

i,j,k : Integer;

Coroi : Boolean;

For j := sohslop DownTo k + 1 Do

If alop[j].Dtb > alop[j-1].Dtb Then

Filedb = file Of Doi;

Mang = Array[1 40] Of Doi;

TrungDiem := (Filesize(f) Div 2);

If Not TimThay Then

Writeln('Khong tim thay');

Writeln(' 4-Cap nhat');

Writeln(' 5-Ket thuc');

Writeln('-Dong dai nhat : ',Max);

Writeln('-Dong ngan nhat : ',Min);

Writeln('-Trung binh : ',Tong / Sodong : 6:1);

TongA1 := 0;TongA2 := 0;SoA := 0;

TongB1 := 0;TongB2 := 0;SoB := 0;

TongC1 := 0;TongC2 := 0;SoC := 0;

While Not EOF(f) Do

Begin

For i := 1 To 6 Do {So vong lap bang vi tri cua nhom } Read(f,Nhom);

CenterX := GetMaxX Div 2;

CenterY := GetMaxY Div 2;

Radius := CenterY - 10;

SetFillStyle(2,2);

Pieslice(CenterX,CenterY,0,120,Radius); SetFillStyle(3,1);

Pieslice(CenterX,CenterY,120,245,Radius); SetFillStyle(4,3);

Pieslice(CenterX,CenterY,245,360,Radius); Readln;

CenterX := GetMaxX Div 2;

CenterY := GetMaxY Div 2;

OutTextXY(48,12,'He truc toa do');

Xcenter := GetMaxX Div 2;

YCenter := GetMaxY Div 2;

{ve mat ca}

Circle(Xcenter+Radius Div 2,YCenter - Radius Div 2,4);

{ve duoi ca}

Line(Xcenter-Radius,Ycenter,Xcenter-2*Radius,Ycenter-Radius); Line(Xcenter-Radius,Ycenter,Xcenter-2*Radius,Ycenter+Radius); End;

For i:=1 To Ord(Kyam) Do

Writeln(' 3 so vua nhap la:');

Writeln('+Tam giac: ',tamgiac);

Writeln('+Tam giac deu: ',deu);

Writeln('+Tam giac can: ',can);

Writeln('BAI TOAN CO DIEN');

Writeln('Tram trau tram co');

Writeln('Trau dung an 5');

Writeln('Trau nam an 3');

Writeln('Ba trau gia an 1');

Writeln(' -');

Writeln(' Bai toan nay co cac loi giai sau');

For dung:=0 To 20 Do

For nam:=0 To 33-dung Do

For gia:=0 To (100-(dung+nam)) Do

Begin

co:=5*dung+3*nam+(gia Div 3);

trau:=dung+nam+gia;

If (gia Mod 3 =0) And (trau=100) And ( co=100) Then

Writeln('-Trau dung ',dung,' con, -Trau nam ',nam,' con, -Trau gia ',gia,' con');

Ten=' CAC HAM LUONG GIAC';

Tde='|DO | RADIAN | SIN | COSIN | TANG | COTANG |';

Writeln(' * Loi giai thu : ',n:3);

Write('- Ga = ',x:2,' con = ',(x*2):2,' chan ');

Write('- Cho = ',y:2,' con = ',(y*4):2,' chan ');

Writeln('CAC PHEP TOAN TRONG TAP HOP'); Writeln(' -'); a:=[];

Writeln(a:3,' MOD ',b:2,' = ',a MOD b);

Write('-Cho biet ngay ( so 0 de ngung): ');