PoLiN0M [PascaL]

ALpMontana

КЯaL´da TaNıMaM КuяaL´da
Katılım
28 May 2006
Mesajlar
6,644
Reaction score
0
Puanları
0
Yaş
38
Konum
Eski Açık [ALiSamiYEN]
program polinom(input,output);
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); 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+P
end;
write(' polinomin sonucu ', P );
readln;
end.
 
Dai bu nedir :D:D
 
kardeş açtıgın konudan hiçbişi anlamadım desem:S:D
 
Lisede pc bölümünde okuyanların gördüğü konular
 
Geri
Üst