Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

paskalov trougao pomocu for naredbe u Paskalu. Hitno!!!!

[es] :: Pascal / Delphi / Kylix :: paskalov trougao pomocu for naredbe u Paskalu. Hitno!!!!

[ Pregleda: 2632 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

fikiprvivelicanstveni
sd

Član broj: 37534
Poruke: 1
*.ptt.yu.



Profil

icon paskalov trougao pomocu for naredbe u Paskalu. Hitno!!!!22.10.2004. u 07:47 - pre 3134 dana i 7h

Potrebno mi je rešenje Paskalovog trougla u Paskalu, ali pomoću for naredbe.
Paskalov trougao glasi
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
........
Ako je moguće, odgovor što pre!!!
fiki
 
Odgovor na temu

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 617
*.zaslon-telecom.si.



Profil

icon Re: paskalov trougao pomocu for naredbe u Paskalu. Hitno!!!!22.10.2004. u 08:46 - pre 3134 dana i 6h
Evo jedno resenje, ali probaj ubuduce da sam resis problem, pa ako ti ne ide da postavis konkretno pitanje.

lp, ss.

Code:

program MojDomaciZadatak;

const
  MAX = 20;
var
  i, j: integer;
  a1: array[0..MAX] of integer;
  a2: array[0..MAX] of integer;

begin
  a1[1] := 1;
  for i := 0 to MAX do
  begin
    for j := 1 to i do
    begin
      a2[j] := a1[j-1] + a1[j];
      write(a2[j], ' ');
    end;
    for j := 1 to i do a1[j] := a2[j];
    writeln;
  end;
  readln;
end.
When something is hard to do, then it's not worth doing.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: paskalov trougao pomocu for naredbe u Paskalu. Hitno!!!!

[ Pregleda: 2632 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.