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

grekkk · 15.01.2012, 22:31

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

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

grekkk · 15.01.2012, 23:01

Я тут начал,а закончить не могу(((((((помогите
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[i];
end;
s:=0
for i:=1 to N do
A9:= A9 + abs(x[i]);
A9:= ln(A9);

AlexZir · 16.01.2012, 08:43

Цитата:

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

for i:=1 to n do readln;

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

Код:

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

Цитата:

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

end;

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

Цитата:

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

s:=0

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

AlexZir · 16.01.2012, 08:50

Цитата:

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

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

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

Код:

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

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

Vladimir_S · 16.01.2012, 09:59

Вообще-то стоило бы подвигнуть Вас на самостоятельное доведение программы до ума, да уж ладно. Вот отлаженный вариант, правда у меня нормальный 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.

15.01.2012, 22:31	#1 (permalink)
grekkk Новичок Регистрация: 15.01.2012 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal ABC. Массивы. Нахождение значения переменной Y Народ помогите пожалуйста.Буду признателен за помощь.Составить программу для нахождения значение переменной y.Условия в файле A9 – натуральный логарифм из суммы абсолютных значений элементов массива Х Миниатюры

16.01.2012, 09:59	#5 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Вообще-то стоило бы подвигнуть Вас на самостоятельное доведение программы до ума, да уж ладно. Вот отлаженный вариант, правда у меня нормальный 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:=A9A9A9+2.5*Sqrt(1+A9); writeln('y = ',y:0:5); readln; end.

15.01.2012, 23:01	#2 (permalink)
grekkk Новичок Регистрация: 15.01.2012 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Я тут начал,а закончить не могу(((((((помогите 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[i]; end; s:=0 for i:=1 to N do A9:= A9 + abs(x[i]); A9:= ln(A9);

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070