[es] - Paskalov trouga

Ivan Tanasic
BGD-SRBIJA

Član broj: 220
Poruke: 965
*.yubc.net

Jabber: Autoexes@jabber.sk
ICQ: 129145438

Profil

^{30.04.2002. u 00:14 - pre 272 meseci}

To nije problem izvesti. Naime ne znam koji te deo zanima, da li sve ili samo deo sa centriranjem. Ako je odgovor pod dva, onda malo razmisli o koriscenju opisa pri stampanju, recimo write (a:5:2) i tome slicno. Ako je odgovor pod 1 onda gledaj pazljivo ;))

resenje 1

Code:

program pascal;
var {strpaj ovde sta treba}
begin
         readln(n);
         for i:= 1 to n do begin
                                        write (' ':(n-i)*5 div 2);
                                        for j:=0 to i do begin
                                                                       m:=1;
                                                                       for k:=1 to j do m:=m*(i-k+1) div k;
                                                                        write(m:5);
                                                                        end;
                                         writeln;
end.

resenje 2:

Code:

program pascal;
var {ovde stavi sta treba};
function komb(n,m:integer):integer;
  var {i ovde ako treba nesto}
  begin
          b:=n;d:=1;r:=1;
          for i:= 1 to m do begin
                                          r:=r*b div d;
                                          b:=b*(n-1);
                                          d:=d*(i+1);
                                          komb:=d; {e za ovaj deo nisam siguran ;)) }
                                     end;
  begin
          readln (n);
          for i:=0 to n do begin
                                        write(komb(i,0):40-i);
                                        for j:= 1 to i write (komb(i,j):2);
                                          writeln
                                 end;
end.

Izvinjavam se ako sam negde pogresio ;)) inace moj predlog ti je drugi nacin, mnogo je lepsi

Ivan Tanasic - Autoexes

>cd pub
>more beer

Odgovor na temu