istek<<>>Pascal Üçgeni...

[-Я乇ddӨЩӨ刀-]

Arkadaşlar bu pazartesiye en az 25 lik bi pascal üçgeni bulmam lazım bi yardımcı olurmusunuz.....

yanlış yere açtım galiba

 

[mchasso]

en az 25 lik bi pascal üçgeni

ne bu? pascal programı anlarımda

 

[-Я乇ddӨЩӨ刀-]

abi sen bilmiyosan ben ne deyim

bilen gelsin....

 

[mchasso]

abi sen bilmiyosan ben ne deyim

bilen gelsin....

oke prdn Cahilliğime verin yok pascal programlarıyla univdeyken cok hanır neşirdimde ...ondan dedim

 

[-Я乇ddӨЩӨ刀-]

tamam sorun yok yola devam

 

[ALpMontana]

Pascal Üçgeni
PascaL dan anlıyan herkesin bildiği pascal üçgenini istanilen satıra kadar yazmaktadır. Pascal üçgeni bir iki boyutlu matris olarak almakta ve gerekli işlemleri yapmaktadır.


Uses crt;
VAR
Dizi : Array[1..100,1..100] of integer;
toplam , n : integer;
i , j , a ,b: byte;
BEGIN
clrscr;
write('Pascal �cgeninin kac satirini yazdirmak istersiniz?:');
readln;
writeln;
FOR i:=1 TO n DO
FOR j:=1 TO n DO
BEGIN
IF i=j THEN dizi[i,j]:=1;
Dizi[i,1]:=1;
END;
FOR i:=1 TO n DO
FOR j:=1 TO n DO
IF i>=3 THEN
IF (j>1) AND (i>j) THEN
Dizi[i,j]:=Dizi[i-1,j]+Dizi[i-1,j-1];
a:=25;
b:=4;
FOR i:=1 TO n DO
BEGIN
gotoxy(a,b);
FOR j:=1 TO n DO
BEGIN
IF dizi[i,j]=0 THEN continue;
write(Dizi[i,j]:2);
END;
b:=b+1;
a:=a-1;
writeln;
END;

END.​