Pro programatory hracka – Delphi – Fórum – Programujte.com

Potřeboval bych návrh nebo alespoň radu na vytvoření algoritmu. Pro zkušenější programátory by to měla být hračka, a tak si myslím, že snad tu chviličku zabijí, aby mi snad alespoň poradili. Ten program potom musí krátit zlomky. Abych to vysvětlil lépe, tak vy zadáte dva zlomky a program by je měl vykrátit.

Trochu to upresni. Totiz kracecni se provadi na jednom zlomku, pokud jsou dva, tak predpokladam, ze je chces nasobit(resp. delit). Ale alespon neco(Netestoval jsem to):

type

   TFraction = record

     num, den: longint;

    end;



impl.

// nasobeni

function Mult(const a,b: TFraction):TFraction;

var temp:Tfraction;

     nsd1, nsd2: Integer;

begin

     //krizove pravidlo

    nsd1 := GetNSD(a.num, b.den);

    nsd2 := GetNSD(a.den, b.num);

    temp.num := (a.num div nsd1)*(b.num div nsd1);

    temp.num := (a.den div nsd2)*(b.den div nsd2);

    Result := temp;   

end;

//nejvetsi spol. delitel

function GetNSD(a,b: longint):longint;

var r:longint;

begin

   while(b <>0)do begin

     r := a mod b;

     a := b;

     b:= r;

   end;

  Result := a;

end;

M?m za úkol napsat program kter? na?te text ze souboru,nejl?pe z pozn?mkov?ho bloku,vytiskne ho a najde nejdel?? slovo a taky vyp??e.
Nev?m na jak dlouho to je,ale pros?m o radu. V Delphi se skoro vůbec nevyzn?m tak snad mi tu pom??ete..D?ky