PascalABC.NET Проблема с массивом и вычислениями.

[ser18]

program four;
const N = 10;

var
  i, x: integer;
  a: array [1..N] of integer;
  b: array [1..N] of real;
  y: real;

begin
  for i := 1 to N do
  begin
    a[i] := x;
    a[1] := 2;
    a[2] := 3;
    a[3] := -5;
    a[4] := 6;
    a[5] := -11;
    a[6] := 2;
    a[7] := 4;
    a[8] := 15;
    a[9] := -3;
    a[10] := 8;
    begin
      if (x > 2) or (x < 0) then y := 400 * sin(x)
      else
        y := 0.2 * exp(ln(10) * (-2)) * exp(x) / (4 + cos(x));
      writeln('y=', y);
    end;
  end;
  
end.

Программа считает Y по формулам, условия там есть. Нужно сделать так, чтобы x принимал значения, которые я забил в массив. Вот с ним проблема, не знаю как правильно сделать. Ещё, подскажите, как сделать так, чтобы программа посчитала кол-во обращений к первой формуле.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Dvoishnik]

если я правильно понял то я ничего не понял

program four;// имя программы
const // объявляем константы 
N=10; // константа размерности массива 
var   // объявляем переменные 
i,x:integer;  //i- индекс массива x- используем при вычислении
a:array [1..N] of integer; //массив с данными 
b:array [1..N] of real; // массив просто так 
y:real; //переменная для вычислений 
begin // начало тела программы 
for i:=1 to N do // цикл от первого до последнего элемента массива 
begin // тело цикла 
a[i]:=x; //присваиваем в 1,2,3..10 элементы массива "пустой" присваивание ////происходит последовательно (с каждой итерацией следующий элемент) 
a[1]:=2; // затираем что присвоили другими данными 
a[2]:=3;
a[3]:=-5;
a[4]:=6;
a[5]:=-11;
a[6]:=2;
a[7]:=4;
a[8]:=15;
a[9]:=-3;
a[10]:=8;
begin //?
// сравниваем пустой x 
If (x>2)or(x<0) then 
 y:=400*sin(x)  //посчет с пустым x
  else
    y:=0.2*exp(ln(10)*(-2))*exp(x)/(4+cos(x)); //посчет с пустым x
writeln('y=',y); // выводим y 
end;//закрывает бегин с вопросиком 
end; // конец цикла 
end. // конец программы

могу предположить что вы хотели так?

program four;
const
N=10;
var
i,x:integer;
a:array [1..N] of integer;
.....................
y:real;
begin
a[1]:=2;
a[2]:=3;
a[3]:=-5;
a[4]:=6;
a[5]:=-11;
a[6]:=2;
a[7]:=4;
a[8]:=15;
a[9]:=-3;
a[10]:=8;
for i:=1 to N do
   begin
     x:=a[i];
     If (x>2)or(x<0) then 
       y:=400*sin(x) else
        y:=0.2*exp(ln(10)*(-2))*exp(x)/(4+cos(x));
          writeln('y=',y);
end;

end.

[type_Oleg]

Лучше вот так:

program four;

const
 N=10;
 a:array [1..N] of integer=(2,3,-5,6,-11,2,4,15,-3,8);

var i,x:integer;
  y,t:real;
begin
 t:=0.2*exp(ln(10)*(-2));  // чтобы не вычислять 10 раз одно и то же
 for i:=1 to N do
   begin
     x:=a[i];
     if (x>2)or(x<0) 
      then y:=400*sin(x) 
      else y:=t*exp(x)/(4+cos(x));
     WriteLn('y=',y);
   end;
end.

Кстати, можно вообще без переменной x . Просто вместо нее - a[i]

[ser18]

Спасибо, не понял про формулу степени только. Подскажите, как сделать так, чтобы программа считала обращения к 1-й формуле?

Еще, можно ли сделат так, чтобы Y в ответе был пронумерован?

[type_Oleg]

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

...
Еще, можно ли сделат так, чтобы Y в ответе был пронумерован?

Изменить вывод WriteLn:

WriteLn('y[',i,']= ',y);

[ProBeginner]

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

    a[i] := x;
    a[1] := 2;

-явно что-то неадекватное. Лучше покажите (или напишите точно) задание как дано преподавателем.

[ser18]

Вот постановка задачи:
Вычислить зн. функции Y=0,4*10^3*sinx при 0<x<2, Y=(0,2*(10^-2)*e^x)/(4+cosx) - в остальных случаях для элементов массива (x1,x2,..xn). Из отрицательных значений Y сформировать массив, а для положительных(нули исключить) определить среднее геометрическое. Определить кол-во обращений к 1-й формуле.

Кстати то, что предложили выше(спасибо) - верно, все работает. Осталось только посчитать обращения к 1-й формуле.

[min@y™]

Осталось только посчитать обращения к 1-й формуле.

напиши функцию с этой формулой внутри и передавай в неё, кроме аргумента, по ссылке переменную-счётчик вызовов. не используй глобальную переменную.