Pascal ABC. Массивы. Нахождение значения переменной Y

[grekkk]

Pascal ABC. Массивы. Нахождение значения переменной Y

Народ помогите пожалуйста.Буду признателен за помощь.Составить программу для нахождения значение переменной y.Условия в файле

A9 – натуральный логарифм из суммы абсолютных значений элементов массива Х

 

[grekkk]

Я тут начал,а закончить не могу(((((((помогите
program qq;
const n=4;
var x: array [1..N]of integer;
s,i: integer;
A9,y: real;
begin
for i:=1 to n do readln;

s:=0;

for i:=1 to n do s:=s+x;
end;
s:=0
for i:=1 to N do
A9:= A9 + abs(x);
A9:= ln(A9);

 

[AlexZir]

for i:=1 to n do readln;

А зачем вам столько раз вводить абсолютно в никуда какие-либо значения? Возможно, вы хотели реализовать заполнение массива с клавиатуры? Тогда вам нужно исправить строку на следующее:

for i:=1 to n do readln(x[i]);

end;

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

s:=0

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

 

[AlexZir]

for i:=1 to n do s:=s+x;

Насколько я понял задание, вам нужно подсчитать сумму абсолютных значений элементов массива, а не обычную сумму элементов. Поэтому код следующий более правильный:

for i:=1 to n do s:=s+ABS(x[i]);

Остальной рассчет вообще неверный, потому что вам нужно предварительно подсчитать A9, а не суммировать его значение с модулем N+1 элемента массива, который, к тому же, будет отсутствовать. Далее вам нужно применить команду ветвления, где условием будет значение A9.

 

[Vladimir_S]

Вообще-то стоило бы подвигнуть Вас на самостоятельное доведение программы до ума, да уж ладно. Вот отлаженный вариант, правда у меня нормальный Free Pascal, а не это... ну, в общем, АВС.

const
 n=4;
var
 x:array [1..N] of real;
 i:integer;
 A9,y,s: real;

begin
 s:=0;
 for i:=1 to n do
  begin
   write('x[',i:2,']= ');
   readln(x[i]);
   s:=s+abs(x[i]);
  end;
 A9:=ln(s);
 if A9>3.8 then
  y:=A9+Cos(A9)/1000
 else
  y:=A9*A9*A9+2.5*Sqrt(1+A9);
 writeln('y = ',y:0:5);
 readln;
end.