Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.11.2012, 14:01   #1
Сергей11111
Новичок
Джуниор
 
Регистрация: 10.11.2012
Сообщений: 7
По умолчанию Обработка одномерного массива Паскаль

Задать массив
Z={1,2; 1.5; 0;-1.3;-1.15; 0.2}
а)для всех элементов массива Z вычислить элементы массива х за формулою:
{sinzi /lnzi,если zi<0
xi=f(zi)= {lnzi, tckb zi >=0
б)определить среднее арифметическое положительные элементов массива х
Сергей11111 вне форума Ответить с цитированием
Старый 10.11.2012, 20:49   #2
bumer7721
Пользователь
 
Регистрация: 05.06.2011
Сообщений: 58
По умолчанию

Тебе что самому лень писать, или халявы захотелось
bumer7721 вне форума Ответить с цитированием
Старый 10.11.2012, 23:00   #3
Сергей11111
Новичок
Джуниор
 
Регистрация: 10.11.2012
Сообщений: 7
По умолчанию

я не знаю как это сделать вот и прошу помочь по человечески
Сергей11111 вне форума Ответить с цитированием
Старый 11.11.2012, 00:13   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
const Z:array[1..7] of double=(1,2, 1.5, 0,-1.3,-1.15, 0.2);
var i,cnt:integer;sa:double;
begin
 for i:=1 to 7 do begin
  if z[i]<0 then write(sin(z[i])/ln(z[i]):7:2) else write(f(z[i]):7:2);
  if z[i]>0 then begin inc(cnt); sa:=sa+z[i];end;
 end;
 write(sa/cnt:7:2);
end.
Ето если я понял задание.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 11.11.2012, 00:24   #5
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

вот так вроде надо)
Код:
const Z:array[1..7] of double=(1,2, 1.5, 0,-1.3,-1.15, 0.2);
var i,cnt:integer;sa:double;
x:array[1..7] of double;
begin
 for i:=1 to 7 do begin
if z[i]<0 then x[i]:=sin(z[i])/ln(z[i]) // Натурального Логарифма от числа <=0 не существует так то
else x[i]:=ln(z[i]);
write(x[i]:8:3);
if x[i]>0 then begin sa:=sa+x[i];inc(cnt);end;
end;
writeln;
write(sa/cnt);
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 85 тыс рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
обработка одномерного массива Валюша Общие вопросы C/C++ 8 29.05.2011 12:16
Обработка одномерного массива tomriddle Паскаль, Turbo Pascal, PascalABC.NET 1 03.02.2011 18:14
обработка одномерного массива avengelus Помощь студентам 5 23.10.2010 08:38
Обработка одномерного массива. Gangstervic Помощь студентам 0 16.12.2009 19:21