Bài tập pascal nâng cao thcs có lời giải năm 2024

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

Trường THCS Phú Lâm