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

0 bình luận về “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); …”

1. 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.

   Bình luận

2. 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

   Bình luận