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

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

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

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

#   

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


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

Подробнее »



Вопрос # 1 044

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Написать процедуру, которая возвращает максимальное и минимальное значения в последовательности N случайных чисел.

natasha Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: natasha (статус: Посетитель)
Вопрос отправлен: 28 октября 2007, 19:34
Состояние вопроса: открыт, ответов: 4.

Ответ #1. Отвечает эксперт: ANBsoft

Здравствуйте, natasha!
Вы уже прикумарили всех! Есть волшебная клавиша F1, она расказывает что делает каждая функция и дает примеры использования.
Здесь помогают людям решать проблемы, а не делают задания в школу за ламеров, которые ни книг не хотят читать, ни даже помощь вызвать лень.

Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 28 октября 2007, 19:33

Ответ #2. Отвечает эксперт: Иусов Сергей Ник.

Здравствуйте, natasha!
var
i,N,z:integr;
max:integer;
begin
max:=-30000;
WriteLn('Введите N?');
ReadLn(N);
for i:=1 to N do
begin
WriteLn('Введите число №',i);
ReadLn(z);
if z>max then max:=z;
end;
WriteLn('Максимальное число: ', max);
end;

Ответ отправил: Иусов Сергей Ник. (статус: 3-ий класс)
Время отправки: 28 октября 2007, 19:36

Ответ #3. Отвечает эксперт: Aleksey P. Kharitonov

Здравствуйте, natasha!

Как бы это могло быть на Паскале:

Приложение:
  1. program Ex1;
  2. const
  3. N = 10;
  4. var
  5. a: array[0..N-1] of integer;
  6. i, min, max: byte;
  7. begin
  8. Randomize;
  9. min:= 100; max:= 0;
  10. for i:= 0 to N-1 do
  11. begin
  12. a[i]:= Random(100);
  13. Writeln('a[',i,']= ', a[i]);
  14. if a[i] > max then max:= a[i];
  15. if a[i] < min then min:= a[i];
  16. end;
  17.  
  18.  
  19. end.


Ответ отправил: Aleksey P. Kharitonov (статус: 3-ий класс)
Время отправки: 28 октября 2007, 23:12

Ответ #4. Отвечает эксперт: Feniks

Здравствуйте, natasha!
Функции поиска минимального и максимального значения в масиве чисел есть в стандартном модуле Math.pas и кажется они описаны в Хелпе :

MaxIntValue
Returns the largest signed value in an integer array

MaxValue
Returns the largest signed value in an array

Mean
Returns the average of all values in an array

MinIntValue
Returns the smallest signed value in an integer array

MinValue
Returns smallest signed value in an array

В этом же модуле можно и исходники посматреть.

Ответ отправил: Feniks (статус: Бакалавр)
Время отправки: 30 октября 2007, 15:21
Оценка за ответ: 5


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

Всего сообщений: 1; последнее сообщение — 28 октября 2007, 19:42; участников в обсуждении: 1.
Aleksey P. Kharitonov

Aleksey P. Kharitonov (статус: 3-ий класс), 28 октября 2007, 19:42 [#1]:

To: Бубырь Александр Николаевич

Вам большой респект!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 19 октября 2017, 14:08
Выполнено за 0.05 сек.
Рейтинг@Mail.ru