Помогите, пожалуйста, с элементарным вопросом

[Dimafania]

Помогите, пожалуйста, с элементарным вопросом

Программа не работает. Объясните пожалуйста почему. Как задать y, чтобы все заработало? Необходимо решение именно в таком алгоритме.

var
i:Integer;
x:Real;
y:array [1..1000] of Real;


begin
for i:=1 to 720 do
x:=i*3.14/180;
y:=sin(x);
if y[i-1]<0 and y>0 then
x:=(x[i-1]+x)/2;
writeln(x);
end.

 

[Dimafania]

Иными словами у меня есть цикл по i. x - функция от i, y - функция от х. Как прописать условия, чтобы я потом мог указывать y, y[i-1] и т.д.

 

[black88]

Я вижу у Вас объявление массива Y, но обращение к элементам массива Х. Разберитесь в своих переменных )))

 

[Dimafania]

Я вижу у Вас объявление массива Y, но обращение к элементам массива Х. Разберитесь в своих переменных )))

Уважаемый black, я и реал писал, но Реалу же я не могу присвоить , тоже не работает.

 

[black88]

Вы не о том говорите.
У вас описан массив Y, а в выражении с индексом стоит X.
Второе: Элемент с индексом стоит вне оператора цикла, соответственно индекс у него не изменяется.
Поскольку не использованы операторные скобки, то в цикл входит единственная строка.

 

[black88]

Упс... Тяпница, извините...

 

[Dimafania]

Вопрос решил. Подсказали ввести Function название(i:Integer):Real
К счастью помогло)

 

[black88]

Неисчислимы диалекты языков...

 

[Dimafania]

Владимир, если у вас будет свободное время, будьте любезны дать знать. Есть нетривиальная задачка, но чувствуется мне ваш опыт поможет решить ее очень элегантным простым способом)

 

[black88]

Я не Владимир
У нас специалистом по программированию действительно является Владимир Игоревич aka Vladimir_S, а я так, немножко балуюсь. Но если что, пишите.

 

[Dimafania]

Уважаемый black, я в курсе) К нему и обращался. Он мне однажды уже сильно помог)

 

[Dimafania]

Все равно не работает=((( Помогите найти ошибку SchoolPak

 

[black88]

Я Вам уже называл причины: неправильное объявление переменных и неправильное использование элемента массива вне цикла, в котором изменяется индекс.
Дальше - назовите, на каком именно диалекте Вы пишете.

 

[Dimafania]

Пишу на Turbo Pascal

 

[black88]

Их тоже много. Версия?

 

[Dimafania]

DOSBox 0.72, Cpu Cycles: max, Frameskip 0, Program: BP
Borland Pascal 7

 

[black88]

Качаю, поставлю, погоняю, отпишусь...

 

[Dimafania]

Вроде сам справился. Все работает)

 

[black88]

Покажите итог.

 

[Dimafania]

Покажите итог.

var
i:Integer;
x,y,b,c,x1,x2:Real;

Function a(i:Integer):Real;
begin
x:=i*3.14/180;
y:=cos(x);
a:=y;
end;


begin
Writeln;
for i:=1 to 720 do
begin
if (a(i-1)<=0) and (a(i)>0) then
begin
x1:=i*3.14/180;
x2:=(i-1)*3.14/180;
c:=(x1+x2)/2;
Writeln(a(i-1),a(i),c );
end;
end;
end.