Задача на Pascal - Форум
Вторник, 06.12.2016, 08:46
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задача на Pascal
Задача на Pascal
alpha_noobДата: Вторник, 02.10.2012, 18:46 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Пусть многочлен a с целыми коэффициентами представляется
следующим образом:
const maxNofPln=20;
type TIPln = array [-1..maxNofPln] of integer;
var a: TIPln;
Здесь a[-1] -содержит фактическую степень многочлена.
Реализовать функцию или процедуру нахождения
корней многочлена типа TIPln на заданном промежутке
методом половинного деления и, естественно, программу
ее тестирования.

Я прошу помощи в нахождении ошибки(ошибок) в написанной мною программе,которая должна выполнять действия,описанные выше:
program domzadanie05h;
uses math;
const
eps1=0.001;
eps2=0.001;
maxNoofPln=20;
type
TIpln=array[-1..maxnoofpln] of integer;
var
a:TIpln;
k,j,x,h,g:double;
i,w,n,z:integer;

procedure input(var a:tipln);
var n:integer;
begin
n:=0;
writeln('введите степень многочлена ');
read(a[-1]);
for i:=0 to a[-1] do
begin
writeln('введите значение ',n,' степени многочлена');
read(a[i]);
n:=n+1;
end;
end {in} ;

function valpln(x:double):double;
var n:double;
begin
n:=a[0];
for w:=1 to a[-1] do
begin
if x>0 then
n:=n+(a[w]*exp(w*ln(x)))
else
n:=n+a[w]*exp(w*ln(x));
end;
valpln:=n;
end {f} ;

function radix(g:double):double;
begin
if abs(k-j)>eps1 then
begin
repeat
k:=k+g;
j:=j-g;
until g<eps2
end;
radix:=k;
end {rx} ;

BEGIN
h:=0.1;
k:=-5;
j:=5;
g:=(j-k)/2;
input(a);
repeat
k:=k+h;
j:=j-h;
if valpln(k)*valpln(j)<0
then
writeln('корень= ',radix(g));
until k=j;
END.

При выполнении программы возникает exitcode=217
Буду премного благодарен за помощь)
 
PASCAL26Дата: Вторник, 02.10.2012, 23:20 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
alpha_noob,
Quote
на заданном промежутке
методом половинного деления

бинарный поиск что ли?


пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задача на Pascal
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016