Viết chương trình tối giản phân số A/B biết A , B nguyên dương ( 1 < A , B < 10000 )

0 bình luận về “Viết chương trình tối giản phân số A/B biết A , B nguyên dương ( 1 < A , B < 10000 )”

1. program rut_gon_phan_so;
   uses crt;
   var a, b, t, m: integer;
   begin
   clrscr;
   write (‘nhap tu so: ‘); readln (a);
   write (‘nhap mau so: ‘); readln (b);
   t:=a;
   m:=b;
   IF a=b then
    begin
    writeln (‘yeu cau a <> b’);
    readln;
    exit;
    end;
   repeat
   if a > b then
   a:=a-b
   else
   b:=b-a;
   until a=b;
   writeln (‘UCLN cua 2 so nay la: ‘,a);
   writeln (‘tu so sau khi rut gon: ‘,t/a:5:2);
   writeln (‘mau so sau khi rut gon: ‘,m/a:4:2);
   writeln (‘==================== HET ====================’);
   readln;
   end.

   Bình luận

2. uses crt;
   var i,a,b:longint;
   begin
   clrscr;
      write(‘A,B= ‘);readln(a,b);
      i:=a;
      while (a mod i<>0)or(b mod i<>0) do dec(i);
      writeln(a div i,’ / ‘,b div i);
   readln
   end.

   Bình luận