|
Вопрос # 1 021/ вопрос открыт / |
|
35. Написать функцию, которая возвращает максимальное число из последовательности N случайных чисел.
36. Написать функцию, которая возвращает сумму N случайных чисел.
 |
Вопрос задала: natasha (статус: Посетитель)
Вопрос отправлен: 27 октября 2007, 12:07
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Николай Рубан
Здравствуйте, natasha!
Функция, которая возвращает максимальное число из последовательности N случайных чисел.
function RandomMax(n:integer):integer;
var i,t:integer;
begin
randomize;
Result:=random(100);
for i:=2 to n do
begin
t:=random(100);
if t > Result then Result:=t;
end;
end;
Функция, которая возвращает сумму N случайных чисел.
function RandomSum(n:integer):longint;
var i:integer;
begin
randomize;
Result:=0;
for i:=1 to n do Result:=Result+random(100);
end;
Применение выше описанных функций:
ShowMessage(format('Случайная сумма из N чисел=%d',[RandomSum(10)]));
ShowMessage(format('Максимальное число из последовательности N чисел=%d',[RandomMax(10)]));
Good Luck!!!
 |
Ответ отправил: Николай Рубан (статус: 10-ый класс)
Время отправки: 27 октября 2007, 15:34
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
