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.
poz.
Paskalov trouga
Zaključano
Zakačeno
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
resenje 2:
Izvinjavam se ako sam negde pogresio ;)) inace moj predlog ti je drugi nacin, mnogo je lepsi
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.
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.
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
Potpis
Ivan Tanasic - Autoexes
>cd pub
>more beer
>cd pub
>more beer
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
pa na prvu godinu
pa na Pascal
i tu imash GOOMILU reshenih zadataka iz Pascala, medju kojima je i onaj koji ti trazish
Pozdrav
Potpis
:-))