20.06.2009, 14:56 | #1 (ссылка) |
Новичок
Регистрация: 20.06.2009
Сообщений: 1
Репутация: 0
|
плизз помогите решить задачу в turbo packal
Помогите решить задачу :
<<В ЗАДАННОМ МАССИВЕ ОПРЕДЕЛИТЬ СРЕДНЕЕ ЗНАЧЕНИЕ ЕГО ЭЛЕМЕНТОВ ,НЕ УЧИТЫВАЯ МАКСИМАЛЬНЫЙ И МИНИМАЛЬНЫЙ ЭЛЕМЕНТЫ>>. напишите пожалуиста саму программу Зарание спасибо! Последний раз редактировалось humor92; 20.06.2009 в 15:04. |
25.06.2009, 16:06 | #3 (ссылка) |
Новичок
|
могу помочь, ты паскаль хорошо знаешь?
---------- Добавлено в 15:08 ---------- Предыдущее сообщение было написано в 15:06 ---------- тебе готовая задача нужна? или просто помощь в том как это сделать? ---------- Добавлено в 15:18 ---------- Предыдущее сообщение было написано в 15:06 ---------- 1. сортируешь массив по возрастанию 2. суммируешь значения от 2 члена этой последовательности до N-1 3. делишь полученную сумму на N-2 (ЭТО И ЕСТЬ РЕЗУЛЬТАТ) 4. выводишь результат |
06.08.2009, 23:05 | #4 (ссылка) |
Новичок
Регистрация: 04.08.2009
Сообщений: 17
Репутация: 0
|
Давно уже не был на етом форуме. Даже свой предыдущий ник и пароль успел забыть. С етого времени он совсем не изменился. Хороший форум. Ближе к делу: программы на паскале не писал уже наверное год. Надеюсь еще ничего не забыл. Программа должна работать как часы, потому что она простая как входная дверь. надеюсь еще актуально. Вот текст:
program abc; const N = ... ; var mas : array[1..N] of real; a, b, c, d, f : real; i : integer; begin // ничинаем заполнять масив for i := 1 to N do begin readln(a); mas[i] := a; end; // конец заполнения масива // ищем мин и мах елементы(a - max, c - min), сумму всех елементов масива(d) a := mas[1]; c := mas[i]; d := 0; for i := 1 to N do begin b := mas[i]; if a<b then a := b; if c>b then c := b; d := d + b; end; // конец поиска // считаем d := (d-c-a)/N; // среднее значение елементов writeln(d); end. И еще: Актек, зачем же так усложнять себе жизнь еще сортировкой масива? ето можно сделать намного проще. |
07.08.2009, 10:38 | #6 (ссылка) |
Новичок
|
Вот именно! FlyMan прав. С помощью сортировки программы можно существенно упростить задачу, ну а данной задачи это просто необходимо, во-первых на самом деле сортировка массива это не такая уж и сложная штука. Ну а во-вторых сама прога будет легче по размеру и быстрее выполняться, будет меньше переменных.
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите плизз! проблема с перегревом ноута:( | IvanOFF | Железо | 0 | 21.09.2010 21:03 |
Помогите собрать компьютер плизз | Snowman | Выбор комплектующих | 1 | 06.06.2010 20:31 |
Помогите решить задачу на "Поиск решения", Excel | Annitka | Офис | 3 | 10.05.2010 23:28 |
Помогите решать задачу | sanyacech | Программирование | 5 | 05.02.2010 15:14 |
Нужно решить задачу массивы на с | Digkill | Программирование | 0 | 22.01.2010 17:54 |
Помогите решить задачу | Redfoxter | Программирование | 3 | 19.12.2009 17:12 |
помогите убрать баннер,плизз | mikusheff | Безопасность | 4 | 19.12.2009 10:19 |
Помогите решить задачу | Battle | Программирование | 1 | 14.12.2009 01:07 |
Помогите решить задачу | Mihal | Программирование | 6 | 08.12.2009 19:08 |
Помогите решить задачу | Пират | Общение по интересам | 5 | 15.09.2009 14:42 |
Помогите люди плизз) | BlaZzZeR | Железо | 1 | 27.11.2008 16:44 |
RDP в VPN... Помогите решить! | sersaz | Интернет и сети | 0 | 29.08.2008 09:27 |