Pascal - som mimo :-(

petuska192

Ahojte, dostala som jedno zadanie v skole (skoro jak za trest) a neviem to vytvorit, som z toho mimo uplne

poradte mi prosim vas ako ma vyzerat zdrojovy kod toho programu, tu je zadanie:

Zrealizujte rekurzívne aj nerekurzívne riešenie (ak sa dá) programu, ktorý zabezpečí vykreslenie čiary požadovanej dĺžky (užívateľom zvolené prirodzené číslo) pomocou požadovaného znaku (užívateľom zadaného) pomocou rekurzívnej procedúry (funkcie)

dakujem pekne za pomoc.

Petra Kollarova

BX · Príspevok od používateľa BX » 25 okt 2009, 12:21

Ta rekurzia je v mode

rekurzivne:

Kód: Vybrať všetko

procedure ciara(n:integer);
begin
     if(n>0) then begin
                       write(znak);
                       ciara(n-1);
                  end;
end;

nerekurzivne:

Kód: Vybrať všetko

for i:=1 to n do write(znak);

dufam ze o mam dobre

riešenie si dostal, pre ostatných čo túto tému nájdu:
http://www.hojko.com/citajte-pred-zaloz ... 23064.html