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

Paskalov trouga

[es] :: Pascal / Delphi / Kylix :: Paskalov trouga

[ Pregleda: 2951 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

kajla
Milorad Janković
Beograd

Član broj: 445
Poruke: 909
*.78.EUnet.yu



+2 Profil

icon Paskalov trouga29.04.2002. u 19:12 - pre 266 meseci
Da li neko zna kako bih mogao da napravim program za štampanje paskalovog trougla sa n vrsta. Problem leži u tome što trougao treba da bude formatiran (centralno).

poz.
 
Odgovor na temu

Ivan Tanasic
BGD-SRBIJA

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

Jabber: Autoexes@jabber.sk
ICQ: 129145438


Profil

icon Re: Paskalov trouga30.04.2002. u 00:14 - pre 266 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

vlada13
Student
Dobanovci

Član broj: 877
Poruke: 356
*.ptt.yu

ICQ: 101388726
Sajt: www.dobanovci.com


Profil

icon Re: Paskalov trouga07.06.2002. u 22:29 - pre 265 meseci
idi na www.puskice.co.yu (sajt FON-a)
pa na prvu godinu
pa na Pascal
i tu imash GOOMILU reshenih zadataka iz Pascala, medju kojima je i onaj koji ti trazish
Pozdrav
:-))
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Paskalov trouga

[ Pregleda: 2951 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

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