Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 3 616

Раздел: Delphi » Общие вопросы по программированию
/ вопрос открыт /

Здравствуйте,уважаемые эксперты!мне нужна консультация по нижеследующей программе

Приложение:
  1.  


Виноградов Алексей/Prog_man Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Виноградов Алексей/Prog_man (статус: Посетитель)
Вопрос отправлен: 5 января 2010, 01:04
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Паровоз

Здравствуйте, Виноградов Алексей/Prog_man!

var
  a:array[1..20] of Extended;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  Min,Max,Average:Extended;
begin
  Min:=a[1];
  Max:=a[1];
  Average:=a[1]/20;
  for i:=2 to 20 do
  begin
    if a[i]<Min then Min:=a[i];
    if a[i]>Max then Max:=a[i];
    Average:=Average+a[i]/20;
  end;
end;

Ответ отправил: Паровоз (статус: 10-ый класс)
Время отправки: 5 января 2010, 10:35

Ответ #2. Отвечает эксперт: Жикльор

Здравствуйте, Виноградов Алексей/Prog_man!

Вот другой пример! Код в приложении:

Приложение:
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7. var
  8. mas: array [1..20] of integer;
  9. Middle,Suma: real;
  10. i,Max,Min: integer;
  11. begin
  12. Randomize;
  13. for i:=1 to 20 do
  14. mas[i]:=Random(5);
  15. Max:=mas[1];
  16. Min:=mas[1];
  17. Middle:=0;
  18. Suma:=0;
  19. for i:=1 to 20 do
  20. begin
  21. if mas[i] > Max then Max:=mas[i];
  22. if mas[i] < Min then Min:=mas[i];
  23. Suma:=Suma + mas[i];
  24. end;
  25. Middle:=Suma/20;
  26. writeln('Min = ',Min,' Max = ',Max,' Middle = ',Middle:0:2);
  27. readln;
  28. end.


Ответ отправил: Жикльор (статус: 5-ый класс)
Время отправки: 5 января 2010, 15:24


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 5 января 2010, 15:41; участников в обсуждении: 1.
T$imokhin

T$imokhin (статус: 1-ый класс), 5 января 2010, 15:41 [#1]:

Делить на 20 лучше в конце, а не каждый раз.
При нахождении минимума(максимума) лучше делать "допустим первое число минимум(максимум)"
При подсчёте суммы - сумма это первый элемент плюс от 2-го до 20-го.
Немного экономит время.
Для 20 - незаметно. Для большого массива уже заметно.
-------
"Вечна жыві і квітней Беларусь"

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 31 октября 2025, 07:20
Выполнено за 0.03 сек.