Násobenie rekurziou

Vedel by niekto vytvoriť program, ktorý pomocou rekurzie vynásobí dve čísla načítané zo súboru, ale môže sa použiť iba jedna premenná? Už sa s tým trápim a došli nápady.
Budem vďačný za každú radu ktorá ma posunie vpred

Kód: Vybrať všetko

#include	<stdio.h>

int nasob(int a, int b)
{
	if (b == 0)
		return 0;
	return a + nasob(a, b-1);
}

int main(void)
{
	printf("%i\n", nasob(11, 13));
}

ale to s jednou premennou som nepochopil, kedže tá funkcia potrebuje minimálne dve.

nie nepotrebuje.. už som na to prišiel (btw: ty ešte nevieš že ja som delphi user a ty mi sem hodíš céčko? hehe.. )

Kód: Vybrať všetko

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.

ale dík za ochotu

Ale aj ty tam máš premenné dve (a a result/sucin).

// chrono: a v tom mojom sú v podstate premenné tri

to je o inom..

dudulka22

Nejake nove riesenie by sa nenaslo ?

Pochybujem, že nejaké iné riešenie existuje (ak je zadanie rovnaké, ako mal audiotrack).

gwixt · Príspevok od používateľa **gwixt** » 08 apr 2008, 9:56

ake dve cisla tam nasobis? toto je len druha mocnina ...

inak mi chvilu trvalo kym som prisiel na to preco to vobec funguje ... globalna premenna

zaggi

neviem sice aky zmysel ma toto smrtelne riesenie ale ide to aj bez premennej (je to java, mozete to brat ako pseudokod)

Kód: Vybrať všetko

public class HaluzNasobenie
{
	static int vynasob(Scanner subor)
	{
		if (subor.hasNextInt())
			return subor.nextInt() * vynasob(subor);
		else
			return 1;
	}
	public static void main(String[] args) throws FileNotFoundException
	{
		Scanner scan = new Scanner(new File("in.txt"));
		System.out.println(vynasob(scan));
	}
}

makaveli

neviem, ako spravit to nacitanie premennych zo suboru, ale vynasobenie dvoch cisel rekurziou bez pouzitia akejkolvek premennej, sa da spravit takto, pomocou funkcionalneho programovacieho jazyka haskell:

Kód: Vybrať všetko

vynasob x 0 = 0
vynasob 0 y = 0
vynasob x 1 = x
vynasob x y = x + (vynasob x (y-1))

gwixt napísal:ake dve cisla tam nasobis? toto je len druha mocnina ...

inak mi chvilu trvalo kym som prisiel na to preco to vobec funguje ... globalna premenna

ak narážaš na to moje, tak nie, nie je to druhá mocnina

gwixt

audiotrack napísal:ak narážaš na to moje, tak nie, nie je to druhá mocnina

aha ok ... ty to nacitas zase zo suboru