|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.02.2009, 18:44 | #1 |
Форумчанин
Регистрация: 04.02.2009
Сообщений: 141
|
массив целых чисел
каким способом возможно найти в одномерном массиве число,наиболее приближённое по своему значению к среднему? т.е. например создан массив из 5и чисел(3|5|8|1|7) и из массива средним числом являеться по идеи число 5.Задачу решил,но с ошибкой!подскажите,как можно её исправить?? ЗАДАЧА:Создать массив целых чисел.Найти элемент,наиболее приближённый по своему значению к среднему.Вывести его на экран и вычислить a1+a2^2+a3^3+...an^n. вот моё решение: const
N=5; var M:array[1..N] of integer; a,s,min,max,st:integer; chs,ss:real; begin for a:=1 to N do begin M[a]:=Random(10); {write(M[a], '|');} end; s:=0; st:=0; ss:=0; max:= M[1]; min:= M[1]; for a:=1 to N do begin s:=s+M[a]; if M[a] < min then min:= M[a] else if M[a] > max then max:= M[a]; st:=st+1; chs:=Exp(st * Ln(M[a])); ss:=ss+chs end; for a:=1 to N do write(M[a], '|'); writeln; writeln('среднее число массива = ',trunc(s/N)); writeln('сумма степенного многочлена =',ss); end. |
28.02.2009, 18:51 | #2 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
Среднее у вас 4.8,а не 5 а trunc(4.8) вернет 4! а для определения наиболее близкого к среднему ищете abs(m[a]-sred) чем оно меньше тем ближе!
вступлю в команду разработчиков ПО на Delphi
|
28.02.2009, 18:54 | #3 |
Форумчанин
Регистрация: 04.02.2009
Сообщений: 141
|
да надобно найти среднее число из представленных массивом.вот в чём вопрос-то!
|
28.02.2009, 19:07 | #4 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
Код:
вступлю в команду разработчиков ПО на Delphi
|
28.02.2009, 19:18 | #5 |
Форумчанин
Регистрация: 04.02.2009
Сообщений: 141
|
РЕСПЕКТЪ!ТО ЧТО НУЖНО!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
массив целых чисел | ^SPARTAK^ | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 27.12.2008 10:59 |
Умножение длинных целых чисел | Rifler | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 04.06.2008 21:12 |
Перемещение из массива целых чисел... Си | Sota | Помощь студентам | 1 | 01.06.2008 19:51 |
Вывод целых и десятичных чисел | Maycal | Общие вопросы C/C++ | 2 | 24.10.2007 12:34 |
Задача: перевод целых чисел в римские | n0x | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 12.12.2006 19:52 |