Bài tập pascal về Phân số

type fraction = array[1..2] of integer;
var a, b, c : fraction;

function add(a, b : fraction) : fraction;
var c : fraction;
begin
    simplify(a); simplify(b);
    if (b[1] = 0) then exit(a);
    if (a[1] = 0) then exit(b);
    c[1] := a[1] * b[2] + a[2] * b[1];
    c[2] := a[2] * b[2];
    simplify(c);
    exit(c);
end;

function mult(a, b : fraction) : fraction;
var c : fraction;
begin
    simplify(a); simplify(b);
    c[1] := 0; c[2] := 1;
    if (a[1] = 0) or (b[1] = 0) then exit(c);
    c[1] := a[1] * b[1];
    c[2] := a[2] * b[2];
    simplify(c);
    exit(c);
end;

readln(f, n);
k := 0;
s := chuỗi rỗng
while (not eof(f)) do
    begin
        read(f, ch);
        if (ch là chữ số từ '0' tới '9' hoặc ch là dấu '-') then
            s := s + ch
        else if (ch = '/' and s <> chuỗi rỗng) then   // đây là tử số
            begin
                inc(k);
                val(s, a[k, 1], code);
                Gán s là chuỗi rỗng.
            end
        else if (ch = ' ' and s <> chuỗi rỗng) then   // đây là mẫu số
            begin
                val(s, a[k, 2], code);   // chỗ này cũng có thể kiểm tra phân số có valid hay không nữa.
                simplify(a[k]);
                Gán s là chuỗi rỗng.
             end;
    end;
val(s, a[k, 2], code);
simplify(a[k]);

procedure simplify(var a : fraction);
var t : integer;
     sign : shortint;
begin
    if (a[1] = 0) then
        begin
            a[2] := 1;
            exit;
        end;
    if ((a[1] < 0) and (a[2] < 0)) or ((a[1] > 0) and (a[2] > 0)) then
        sign := 1
    else
        sign := -1;
    t := gcd(abs(a[1]), abs(a[2]));   // UCLN của tử số và mẫu số
    a[1] := sign * abs(a[1]) div t;
    a[2] := abs(a[2]) div t;
end;

i    1      2       3        4       5
    1/4    3/5    -2/7      9/2     0/1
a    1      3      -2        9       0
b    4      5       7        2       1

var a, b : array[1..1000] of integer;

readln(f, n);
k := 0;
s := chuỗi rỗng
while (not eof(f)) do
    begin
        read(f, ch);
        if (ch là chữ số từ '0' tới '9' hoặc ch là dấu '-') then
            s := s + ch
        else if (ch = '/' and s <> chuỗi rỗng) then   // đây là tử số
            begin
                inc(k);
                val(s, a[k], code);
                Gán s là chuỗi rỗng.
            end
        else if (ch = ' ' and s <> chuỗi rỗng) then   // đây là mẫu số
            begin
                val(s, b[k], code);   // chỗ này cũng có thể kiểm tra phân số có valid hay không nữa.
                Gán s là chuỗi rỗng.
             end;
    end;
val(s, b[k], code);

// Đơn giản phân số   'numerator' = tử số  và   'denominator' = mẫu số
procedure simplify(var numerator, denominator : integer);
var sign, t : integer;
begin
    if (numerator = 0) then
        begin
            denominator := 1;
            exit;
        end;
    if ((numerator < 0) and (denominator < 0)) or ((numerator > 0) and (denominator > 0)) then
        sign := 1
    else
        sign := -1;
    t := gcd(abs(numerator), abs(denominator));   // UCLN của tử số và mẫu số
    numerator := sign * abs(numerator) div t;
    denominator := abs(denominator) div t;
end;

procedure sum(c, d, e, f : integer; var x, y : integer);   // c/d + e/f = x/y
begin
    x := c * f + e * d;
    y := d * f;
    simplify(x, y);
end;

procedure addF();
var i : integer;
begin
    x := 0; y := 1;
    for i := 1 to n do sum(x, y, a[i], b[i], x, y);   // chỗ này tương tự như s := s + a[i].
end;