WwW.FoRumSTylE.TuRKpr0foRuM.NET
Would you like to react to this message? Create an account in a few clicks or log in to continue.
WwW.FoRumSTylE.TuRKpr0foRuM.NET


 
AnasayfaPorTaLGaleriAramaLatest imagesKayıt OlGiriş yap
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» kurtlar Vadisi Pusu Bölüm 13
Polinom Programı Icon_minitimeSalı Haz. 30 2009, 12:06 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 12
Polinom Programı Icon_minitimeSalı Haz. 30 2009, 12:03 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 11
Polinom Programı Icon_minitimeSalı Haz. 30 2009, 11:49 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 10
Polinom Programı Icon_minitimeSalı Haz. 30 2009, 11:47 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 09
Polinom Programı Icon_minitimeSalı Haz. 30 2009, 11:36 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 08
Polinom Programı Icon_minitimeSalı Haz. 30 2009, 11:29 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 07
Polinom Programı Icon_minitimeSalı Haz. 30 2009, 11:28 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 06
Polinom Programı Icon_minitimeSalı Haz. 30 2009, 11:27 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 05
Polinom Programı Icon_minitimeC.tesi Haz. 27 2009, 20:18 tarafından yasakmc

» kurtlar Vadisi Pusu Bölüm 04
Polinom Programı Icon_minitimeC.tesi Haz. 27 2009, 20:15 tarafından yasakmc

Dost siteler
Kral Forumtr

WwW.FoRumSTylE.TuRKpr0foRuM.NET :: Teknoloji üzerine herşey :: PROGRAMLAMA DİLLERİ :: PASCAL
 

 Polinom Programı

Aşağa gitmek 
YazarMesaj
GÖZDE
Admin
Admin
GÖZDE


Kadın
Mesaj Sayısı : 1274
Yaş : 31
Nerden : sakarya
Kayıt tarihi : 05/05/08

Polinom Programı Empty
MesajKonu: Polinom Programı   Polinom Programı Icon_minitimeCuma Haz. 06 2008, 12:13
program polinom;
uses wincrt;
var
i,j,n,x,F,P:integer;
a:array[1..1000] of integer;
b:array[1..1000] of integer;
begin
Write('dizinin boyutunu giriniz => '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]); end;
write(' bir sayi giriniz=>');readln(x);
F:=1;
P:=a[1];
for i:=2 to n do
begin
F:=F*x;
P:=F*a[i]+P
end;
write(' polinomin sonucu ', P );
readln;
end.
Sayfa başına dön Aşağa gitmek
 
Polinom Programı
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
WwW.FoRumSTylE.TuRKpr0foRuM.NET :: Teknoloji üzerine herşey :: PROGRAMLAMA DİLLERİ :: PASCAL-
Buraya geçin: