Lập trình pascal: Nhập số a và số b tương đương với tử số và mẫu số của một phân số. Hãy xuất ra phân số tối giản Ví dụ: PSTG.INP 2 8 PSTG.OUT 1

0 bình luận về “Lập trình pascal: Nhập số a và số b tương đương với tử số và mẫu số của một phân số. Hãy xuất ra phân số tối giản Ví dụ: PSTG.INP 2 8 PSTG.OUT 1”

1. Const Fi=’PSTG.INP’;
         Fo=’PSTG.OUT’;
   Var f,g: text;
       a,b,i,u: longint;

   Begin
           Assign(f,Fi); Reset(f);
           Assign(g,Fo); Rewrite(g);
           Read(f,a);
           Read(f,b);

           U:=1;
           For i:=1 to a do
                   If ((a mod i)=0) and ((b mod i)=0) and (i>u) then u:=i;
           a:=a div u;
           b:= b div u;
           Write(g,a,’     ‘,b);
           Close(f);
           Close(g);
   End.

   Bình luận