высчитывание мматематических формул в Pascal

[sasha55]

Сообщение от netpolice

http://www.programmersforum.ru/showthread.php?t=232675

Вот похожая задача, если что непонятно спрашивайте

Посмотрите,пожалуйста,где ошибка.
Program B;
Const
x:array[-5..5] of integer=(-5,-4.5,-4,-3.5,-3,-2.5,-2,-1.5,-1,-0.5,0,0.5,1,1.5,2,2.5,3,3.5,4,4.5,5 );
var y:real
Begin
writeln ('x');
readln(x)
if x<0 then y:=1/x^2 else y:=x^2
writeln(y);
readln(y);
end.

[Mad_Cat]

это чем не устроило то?

Посмотрите,пожалуйста,где ошибка.
Program B;
Const
x:array[-5..5] of integer=(-5,-4.5,-4,-3.5,-3,-2.5,-2,-1.5,-1,-0.5,0,0.5,1,1.5,2,2.5,3,3.5,4,4.5,5 );
var y:real
Begin
writeln ('x');
readln(x)
if x<0 then y:=1/x^2 else y:=x^2
writeln(y);
readln(y);
end.

- она полностью ошибка

[sasha55]

[QUOTE=Mad_Cat;1211964]это чем не устроило то?
она не запускается. выдает ошибку.

[Serge_Bliznykov]

Сообщение от sasha55

она не запускается. выдает ошибку.

Во-первых, как это не запускается? Куда не запускается? Какое сообщение выдаёт?...

во-вторых, попробуйте в коде программы от Mad_Cat перед последним end. дописать Readln(); -
это заставит программу ожидать нажатия клавиши Enter (может программа запускается, отрабатывает, а Вы результат увидеть не успеваете, как окно закрывается...

[sasha55]

Сообщение от Serge_Bliznykov

Во-первых, как это не запускается? Куда не запускается? Какое сообщение выдаёт?...

во-вторых, попробуйте в коде программы от Mad_Cat перед последним end. дописать Readln(); -
это заставит программу ожидать нажатия клавиши Enter (может программа запускается, отрабатывает, а Вы результат увидеть не успеваете, как окно закрывается...

Спасибо большое ВАМ за помощь!

[sasha55]

Mad_Cat,Спасибо большое,ВАМ,за помощь.Вы очень помогли!

[sasha55]

Сообщение от Serge_Bliznykov

Во-первых, как это не запускается? Куда не запускается? Какое сообщение выдаёт?...

во-вторых, попробуйте в коде программы от Mad_Cat перед последним end. дописать Readln(); -
это заставит программу ожидать нажатия клавиши Enter (может программа запускается, отрабатывает, а Вы результат увидеть не успеваете, как окно закрывается...

Подскажите еще,пожалуйста, как исправить данную ошибку!?))Снимок.JPG

[Jaiden]

sasha55, у вас массив [-5..5] (т.е 11 значений), а указанных вами значений массива куда больше (я 20 насчитал). Либо увеличьте размерность массива, либо убавьте количество указанных вами элементов.
Кроме того, не думаю что у вас целочисленный массив потянет, ибо указанные элементы массива содержат дробные числа.

Как сказал Mad_Cat:

- она полностью ошибка

[Serge_Bliznykov]

sasha55, а Вы зря игнорируете то, что Вам пишут!

Вам же чётко и понятно написали про Вашу "программу":

Сообщение от Mad_Cat

она полностью ошибка

я полностью согласен с данным утверждением.

[Mad_Cat]

var x,y:real;
begin
x:=-5;
while x<=(5+0.25) do
begin
if x<0 then y:=1/x
else y:=x*x;
writeln(x:6:3,' ',y:6:3);
x:=x+0.5;
end;
end.