VPF::Задача на многочлены - Форум программистов

RomIT

Дата 30.12.2008, 07:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.12.2008

Репутация: нет
Всего: нет

Доброго вам время суток!
Дан многочлен P(x) степени n. Получить его производную P'(x), а также вычислить P'(1),P'(2),P'(3).
Последняя задача!
С наступающим вас!!!
примерная задача переделайте пожалуйста!
Это как бы не та задача помогите переделайте!!!

Код



program pr660;
uses crt;
const
max = 1024;

type Massiv = array[1..max] of integer;

var
s, t, n : integer;
i : integer;
a, P : Massiv;
Len_P : integer;

begin
clrscr;
Write('Vvedite n: ');
ReadLn(n);

Randomize;
for i:=1 to n
do begin
a[i]:=Random(100);
if Random(2) = 0 then a[i]:=a[i] * -1;
end;

Write('Massiv a:');
for i:=1 to n do Write(a[i]:4);
WriteLn;

Len_P:= 0;
for i:=1 to n
do begin
if a[i] < 0 then begin Len_P:= Len_P + 1; P[Len_P]:= a[i]; end
end;
WriteLn; Write('Massiv P:');
for i:=1 to Len_P do Write(P[i]:4);

WriteLn; WriteLn;

{WriteLn;} Write('Vvedite s: '); Read(s);
{WriteLn;} Write('Vvedite t: '); Read(t);

WriteLn; Write('Poluchennii rezultat: ');
Write(P[s] + p[1]+p[2]+p[3]);
readln;
readln;
end.

__________________
1 shot, 1 kick ,.., no chance - just kill!!!

1 выстрел, 1 удар, .., нет шансов - только убить!!!

Это сообщение отредактировал(а) RomIT - 30.12.2008, 10:18

Присоединённый файл ( Кол-во скачиваний: 5 )

660.JPG 13,89 Kb

volvo877

Дата 30.12.2008, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

1) присоедини изображение к посту или напечатай задание словами, твоя ссылка - битая...
2) оформи код тегами

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »