Question

Mam do napisania program:(W turbo pascalu)

Dodawanie i odejmowanie ułamków zwykłych:

a). sprowadzanie do wspólnego mianownika ułamków

(program sprowadzi ułamki do wspólnego mianownika i je doda)

b). dodawnie lub odejmowanie liczników

(program doda lub odejmie liczniki)

mysłałem o sprowadzeniu mianownika do wspólnej liczby za pomocą

nww(program nww poniżej)

Proszę o dokładną odpowiedź .

Tekst programu proszę zamieścić w notatniku.

program liczbanww;

var a,b,t,ab : int64;

begin
writeln('Podaj a');
readln(a);
writeln('Podaj b');
readln(b);
ab := a * b;
while b <> 0 do
begin
t := b;
b := a mod b;
a := t;
end;
ab := ab div a;
writeln(ab);
readln;
end.

Answer 1

Serio uczą was tego dinozaura (Turbo Pascal; i bynajmniej nie chodzi tutaj o jego "możliwości", tylko fakt, iż w TP programuje się jak na kartach perforowanych...)?

 

Link do kodu: http://pastebin.com/8bkp1bsz

 

Program testowany pod FPC 2.6.0, ponieważ nie mam ani DOS'a ani komputera z 128 MhZ procesorem, aby uruchomić TP (:|) aczkolwiek powinien działać.

Jakby co, pisz na PW. 

 

PS: nie zostało określone w zadaniu, iż ma być ui, więc program interfejsu NIE posiada.

 

fragment kodu:

Type TPositiveNumber = 0..$FFFFFF; //Int64, QWord, etc.

Type TFraction = Packed Record //Wygodniej byłoby operować na klasach, no ale...
Numerator, Denominator: TPositiveNumber;
End;  

 

Answer 2

W pliku ulamek.pas http://pastebin.com/Nf73gR8x masz zdefiniowany unit Ulamek a w nim obiekt TUlamek.

Ma on prywatne pola licznik i mianownik oraz publiczne metody do tworzenia z liczniki i mianownika, lub poprzez kopiowanie z innego obiektu TUlamek.

 

W pliku ulamekTest.pas http://pastebin.com/kanKnzw5 masz zdefiniowany program ulamekTest, w nim są zadeklarowane trzy ułamki oraz przeprowadzone dodawanie i odejmowanie. W razie pytań priv.