Первая производная, Задача Опции

[Гость_Манна]

Задача:

В массиве a:array [0..k] of integer хранятся коэффициенты многочлена степени k. Поместить в массив c: array [0..m] of integer коэффициенты первой производной этого многочлена.

Решение:

Код

program Pervaja_proizvodnaja;                                                
uses crt;                                                                    
const k=5;                                                                    
var
 i:integer;                      

 { Коэффициенты многочлена степени k }                                          
 a: array[1..k] of integer;

 { Коэффициенты первой производной этого массива }
 c: array[0..{m}k-1] of integer;

begin                                                                        
 clrscr;
 writeln (' Введите ',k,' элементов массива ');
 for i:=1 to k do readln (a[i]);
 for i:=1 to k do begin
   c[i]:=a[i]*(k-i);
   writeln(c[i]);
 end;
 readkey;
end.

Все исходники должны помещаться в теги CODE /CODE Т.е. ваша программа, должна быть между CODE и /CODE

Проблема:
Программа не работает.

Подскажите что-нибудь :yes:

[volvo]

Вычисление по правилу: (x^n)' = n*(x^(n-1))

Код

program Pervaja_proizvodnaja;
uses crt;
const k=5;
var
 i:integer;
 a: array[1..k] of integer;    {koefficienty mnogochlena stepeni k}
 c: array[0..k-1] of integer; {koeficienty pervoj proizvodnoj etogo massiva}
begin
clrscr;
writeln (' Vvedite ',k,' elementov massiva ');
for i:=1 to k do readln(a[i]);
for i:=1 to k do
begin
 c[i-1]:=i*a[i];
 writeln(c[i]);
end;
readkey;
end.

[Atos]

А не работала прога, потому что на последнем проходе цикла

Код

for i:=1 to k do begin  c[i]:=a[i]*(k-i);

производилась попытка записи в несуществующий k-й элемент массива c, ведь он определялся на 0..k-1 ;)

Сообщение отредактировано: Atos - 18.11.2004 18:10