Giáo án cả năm

BÀI TẬP PASCAL ÔN THI HỌC SINH GIỎI

4.1 Viết chương trình nhập vào 2 số nguyên, kiểm tra xem chúng có phải là ước của nhau không
Program bt4_1;
Var a,b:integer;
Begin
write(`nhap a,b:`);
readln(a,b);
if (a mod b) = 0 then writeln(b,` la uoc cua `,a)
else writeln(b,` khong la uoc cua `,a);
if (b mod a) = 0 then writeln(a,` la uoc cua `,b)
else writeln(a,` khong la uoc cua `,b);
readln;
End.
4.2 Viết chương trình giải hệ phương trình:


Program bt4_2;
Var a,b,c,d,e,f,dt,dx,dy,x,y:real;
Begin
write(`nhap a,b,c,d,e,f:`);
readln(a,b,c,d,e,f);
dt:=a*d-b*c;
dx:=b*f-e*d;
dy:=a*f-c*e;
if dt<>0 then
begin
x:=dx/dt;
y:=dy/dt;
writeln(`ptr co nghiem x,y`,x:10:2,y:10:2);
end;
if dt=0 then
if (dx=0) and (dy=0) then writeln(`ptr vo so nghiem`);
if (dx=0) and (dy<>0) then writeln(`ptr vo nghiem`);
readln;
End.
4.3 Viết chương trình nhập vào 3 số nguyên a, b, c. Kiểm tra xem 3 số đó có thỏa mãn:
- Là 3 cạnh của 1 tam giác thường
- Là 3 cạnh của 1 tam giác cân
- Là 3 cạnh của 1 tam giác đều
- Không là 3 cạnh của 1 tam giác
Program bt4_3;
Var a,b,c:integer;
Begin
write(`nhap a,b,c:`);
readln(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (b+c>a) and (a+b>c) then
if (a=b) and (b=c) then writeln(`la tam giac deu`)
else
if (a=b) or (b=c) or (a=c) then writeln(`la tam giac can`)
else writeln(`la tam giac thuong`)
else writeln(`khong la 3 canh cua tam giac`);
readln;
End.
4.4 Viết chương trình nhập vào họ tên, điểm văn, điểm tóan, điểm anh văn của 1 học sinh. Sau đó in ra màn hình: họ tên, điểm trung bình, xếp lọai của học sinh đó (trên 1 dòng). Cho biết:
- Điểm trung bình: (điểm văn + điểm tóan + điểm anh văn) / 3
- Xếp loại: Giỏi, nếu điểm trung bình >= 9.0
Khá, nếu 7.0 <= điểm trung bình < 9.0
Trung bình, nếu 5.0 <= điểm trung bình < 7.0
Yếu, nếu điểm trung bình < 5.0
Program bt4_4;
Var hoten:string[37];
dv,dt,dnn:byte;
dtb:real;
xl:string[15];
Begin
write(`nhap ho ten:`);
readln(hoten);
write(`nhap diem toan, diem van, diem ngoai ngu:`);
readln(dt,dv,dnn);
dtb:=(dt+dv+dnn)/3;
if dtb>=9.0 then xl:=`Gioi`;
if (dtb>=7.0) and (dtb<9.0) then xl:=`Kha`;
if (dtb>=5.0) and (dtb<7.0) then xl:=`Trung binh`;
if dtb<5.0 then xl:=`Yeu`;
writeln(`Ho ten:`,hoten:25,`Diem TB:`,dtb:10:2,`Xep loai:`,xl:20);
readln;
End.
4.5 Viết chương trình nhập vào tháng, năm rồi tính số ngày của tháng. Biết năm nhuần là năm chia hết cho 4 và nếu nó