Násobenie rekurzívne – Delphi – Fórum – Programujte.com

Vedel by mi niekto pomôcť s týmto zadaním?

Vynásobte dve čísla pomocou jedinej premennej. Čísla sú zapísané v textovom súbore podsebou. Nepoužívajte žiadne komponenty, výsledok vypíšte pomocou showmessage

tak se prosím pochlub, zajímalo by mě to:)

Ja sice nejsem audiotrack, ale problem me zaujal, takze prikladam sve reseni. Kazdopadne by sem mohl audiotrack to sve.

function Nasobeni(var f: TextFile):Integer;

var line: String;

begin

   if(Eof(f)) then Result := 1

   else begin

     readln(f, line);

     Result := StrToInt(line) *Nasobeni(f);

   end;

end;



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var f: TextFile;

begin

   if(OpenDialog1.Execute) then begin

      AssignFile(f, OpenDialog1.FileName);

      Reset(f);

      ShowMessage(IntToStr(Nasobeni(f)));

      CloseFile(f);

   end;

end;

neviem síce či je to dobre, ale tak takto nejak som to urobil:

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;

  a:integer;

  vstup:textfile;

implementation



{$R *.dfm}



function sucin:integer;

begin

 if a>1 then begin

              a:=a-1;

              sucin:=sucin + a;

        end else begin

             read(vstup,a);

             sucin:=a;

             end;

end;





procedure TForm1.Button1Click(Sender: TObject);

begin

 Assignfile(vstup,'cisla.txt');

 Reset(vstup);

 Readln(vstup,a);

 showmessage(IntToStr(sucin));

 Closefile(vstup);

end;



end.