Uloha v pascale

Cajka112

Zdravim vás, som na škole kde mi pascal na dve veci a máme ho tu chvílu je to určite pre vás triviálny problém ale pre mna je to španielska dedina, ak by sa niekto našiel kto by mi tento program urobil bola by som velmi rada...

Zrealizujte rekurzívne aj nerekurzívne riešenie programu, ktorý zabezpečí pomocou rekurzívnej procedúry (funkcie) výpočet ľubovoľného člena Pascalovho trojuholníka, po zadaní nezáporných celých čísel n a k , ak platí:
B(n, 0) = B(n, n) = 1
B(n, k) = B(n-1, k-1) + B(n-1, k) pre 1 <= k <= n

čo sa tento rok začalo učiť na stredných až v oktobri? Akoby sa s vami vrece dnes roztrhlo, dnes regnutý, 1 príspevok a to typu spravte mi úlohu

Kód: Vybrať všetko

function pascalov_troj(n,k:integer):integer;
begin
   if((k=n) or (k=0)) then pascalov_troj:=1
      else pascalov_troj:=pascalov_troj(n-1,k-1)+pascalov_troj(n-1,k);
end;

je to iba z hlavy, tak ak tam je chyba tak to ber ako návod a nie riešenie. Nerekurzívne by si mala zvládnuť aj sama

Cajka112

diky za snahu... ale ja to potrebujem komplet že iba to tam dám a bude to ako je to napísané...

mááááj gooood, ctrl+c a ctrl+v už hádam na klávesnici nájdeš aj sama

Kód: Vybrať všetko

program Domaca_uloha;
  var n,k:integer;

  function pascalov_troj(n,k:integer):integer;
  begin
   if((k=n) or (k=0)) then pascalov_troj:=1
      else pascalov_troj:=pascalov_troj(n-1,k-1)+pascalov_troj(n-1,k);
  end;

begin
  write('Zadaj n: ');
  readln(n);
  write('Zadaj k: ');
  readln(k);
  write('vysledok: ',pascalov_troj(n,k));
end.

BX · Príspevok od používateľa BX » 24 okt 2009, 17:24

audiotrack napísal:čo sa tento rok začalo učiť na stredných až v oktobri?

My sme sa este nezacali. Mozno az v Novembri zacneme konecne so zakladmi pascala, takze cakaj otazky

Odpoved na tuto otazku je asi taka, ze ten mesiac sa asi ucili teoriu, nejake zaklady PC sieti, HW a podobnych kravin co sa trz ucime aj my. Neskor sa prejde na programovanie

(Ten dnesny system vyucovania informatiky na strednych skolach je maximalne debilny)

Cajka112

možete mi ešte niekto prosím spraviť nerekurzívne

dostala si to takmer celé, aj to som spravil výnimku (viď tretí odstavec)
http://www.hojko.com/citajte-pred-zaloz ... 23064.html