Registracija

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

Odgovori Nova tema

1 odgovor
5.849 pregleda

paskalov trougao pomocu for naredbe u Paskalu. Hitno!!!! 22.10.2004. u 08:47 · pre 268 meseci #1

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!!!

Potpis

fiki

Re: paskalov trougao pomocu for naredbe u Paskalu. Hitno!!!! 22.10.2004. u 09:46 · pre 268 meseci #2

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.

Potpis

When something is hard to do, then it's not worth doing.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme