Вернуться   Компьютерный форум > Компьютеры > Программы > Программирование
 
 
Опции темы
Старый 20.06.2009, 14:56   #1 (ссылка)
Новичок
 
Регистрация: 20.06.2009
Сообщений: 1
Репутация: 0
По умолчанию плизз помогите решить задачу в turbo packal

Помогите решить задачу :
<<В ЗАДАННОМ МАССИВЕ ОПРЕДЕЛИТЬ СРЕДНЕЕ ЗНАЧЕНИЕ ЕГО ЭЛЕМЕНТОВ ,НЕ УЧИТЫВАЯ МАКСИМАЛЬНЫЙ И МИНИМАЛЬНЫЙ ЭЛЕМЕНТЫ>>.
напишите пожалуиста саму программу
Зарание спасибо!

Последний раз редактировалось humor92; 20.06.2009 в 15:04.
humor92 вне форума  
Старый 20.06.2009, 21:26   #2 (ссылка)
Новичок
 
Аватар для CozaNostra
 
Регистрация: 30.05.2009
Сообщений: 296
Репутация: 13
Профиль ВКонтакте
По умолчанию

извени ничем не могу помочь... я по Visual Basic специализируюсь...
CozaNostra вне форума  
Старый 25.06.2009, 16:06   #3 (ссылка)
Новичок
 
Аватар для Актек
 
Регистрация: 24.06.2009
Сообщений: 58
Репутация: 2
Профиль ВКонтакте
По умолчанию

могу помочь, ты паскаль хорошо знаешь?

---------- Добавлено в 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.

И еще: Актек, зачем же так усложнять себе жизнь еще сортировкой масива? ето можно сделать намного проще.
Konder вне форума  
Старый 07.08.2009, 03:18   #5 (ссылка)
Новичок
 
Регистрация: 07.08.2009
Сообщений: 10
Репутация: 0
По умолчанию

Во многих алгоритмах сортировка массива дает ощутимый прирост производительности. Если я не ошибаюсь, быстрые методы поиска мин/макс используют сортировку.
FlyMan вне форума  
Старый 07.08.2009, 10:38   #6 (ссылка)
Новичок
 
Аватар для Актек
 
Регистрация: 24.06.2009
Сообщений: 58
Репутация: 2
Профиль ВКонтакте
По умолчанию

Вот именно! FlyMan прав. С помощью сортировки программы можно существенно упростить задачу, ну а данной задачи это просто необходимо, во-первых на самом деле сортировка массива это не такая уж и сложная штука. Ну а во-вторых сама прога будет легче по размеру и быстрее выполняться, будет меньше переменных.
Актек вне форума  
Старый 08.08.2009, 21:24   #7 (ссылка)
Новичок
 
Регистрация: 04.08.2009
Сообщений: 17
Репутация: 0
По умолчанию

Ну не знаю. Пожалуй я с вами соглашусь. Так как вы наверное более опытные люди в программировании чем я.
Konder вне форума  
Старый 11.08.2009, 23:51   #8 (ссылка)
Новичок
 
Регистрация: 07.08.2009
Сообщений: 10
Репутация: 0
По умолчанию

Цитата:
Сообщение от Konder Посмотреть сообщение
Ну не знаю. Пожалуй я с вами соглашусь. Так как вы наверное более опытные люди в программировании чем я.
Нам это буквально на третьей лекции по программированию сказали, так что опыт тут практически не причем
FlyMan вне форума  
Ads
Старый 12.08.2009, 11:54   #9 (ссылка)
Новичок
 
Аватар для Актек
 
Регистрация: 24.06.2009
Сообщений: 58
Репутация: 2
Профиль ВКонтакте
Smile

Цитата:
Сообщение от Konder Посмотреть сообщение
Ну не знаю. Пожалуй я с вами соглашусь. Так как вы наверное более опытные люди в программировании чем я.
соглашаюсь с FlyManom! остается сделать вывод нам еще учиться и учиться этому самому программированию
Актек вне форума  
Ads
 


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите плизз! проблема с перегревом ноута:( 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


Текущее время: 14:12. Часовой пояс GMT +4. Powered by vBulletin® Version 5.8.9
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.