понедельник, 8 июня 2009 г.

найти минимальное из N

Найти минимальное из пяти чисел. В подпрограмме реализовать минимальное из дух чисел.
Задачка по теме процедуры и функции на pascal. ((((((


Сначала разберёмся чем отличаются функции от процедур.

В отличие от других языков программирования Pascal имеет функции, которые не возрващают значений - и они называются процедурами.

Например в твоей задаче я создал процедуру инициализации данных - заполнения массива случайными числами





procedure init(var x: our_array_type);
var
i: integer;
begin
for i:=0 to N-1 do x[i] := random(100);
end;


ну а фунция - вычисления минимального значения из двух элементов выглядит так:


function minimum(x: integer; y: integer) : integer;
begin
if x < y then minimum := x else minimum := y;
end;


ну и рабочая программа может быть скачана отсюда

Комментариев нет:

Отправить комментарий