Viết thủ tục để tối giảm phân số a / b, a,b là hai số nguyên. ... Procedure toigian (a,b: integer); ...
2 câu trả lời
uses crt;
var a,b:integer;
procedure toigian(a1,b1:integer);
begin
while a1<>b1 do
if a1>b1 then a1:=a1-b1 else b1:=b1-a1;
writeln(a div a1,'/',b div b1);
end;
begin
clrscr;
write('Nhap tu so: ');readln(a);
write('Nhap mau so: ');readln(b);
toigian(a,b);
readln;
end.
uses crt;
var a,b:integer;
procedure toigian(a1,b1:integer);
begin
while a1<>b1 do
if a1>b1 then a1:=a1-b1 else b1:=b1-a1;
writeln(a div a1,'/',b div b1);
end;
begin
clrscr;
write('Nhap tu so: ');readln(a);
write('Nhap mau so: ');readln(b);
toigian(a,b);
readln;
end.
CHÚC CHỦ TUS THI TỐT NHA
#hu_nam
#mlem_mlem
