ropr2tst.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 33 行

program pr2;
type fractie=record
     numarator:byte;
     numitor:byte;
     end;
var p:fractie;
    q:fractie;
    s,t,a,b,r:integer;
    begin
with p do
       begin
       write('numaratorul');readln(numarator);
       write('numitorul');readln(numitor);
       end;
with q do
       begin
       write('numaratorul');readln(numarator);
       write('numitorul');readln(numitor);
       end;
t:=p.numitor*q.numitor;
s:=p.numarator*q.numitor+q.numarator*p.numitor;
a:=s;
b:=t;
repeat
r:=a mod b;
a:=b;
b:=r;
until r=0;
s:=s div a;
t:=t div a;
write(s,'/',t);
end.