Дана последовательность действительных чисел a1,a2,...an.Выяснить будет ли она возрастающей.
Надо эту задачу решить через оператор FUNCTION (функция)
Если не трудно можете сделать сразу алгоритм с блок-схемой.
Заранее огромное спасибо!
А где даны эти числа? Массив или где-то еще?
В массиве наверно
Еще и нарушение правил:
! | Заголовок темы должен быть информативным. В противном случае тема удаляется ... |
Мистер Александр, может вы нам сначала объяснити, пользователь РУКАМИ вводит количество действительных чисел?
Эти числа ненадо вводить, надо указать рандомом, и он сам выведет на экран что нужно(вроде так)
Если что не так, не обессудь... Задание надо точнее формулировать.
const n = 3;
function cmp (num : integer; a : array of real) : boolean;
var i : integer;
begin
cmp := true;
for i := 1 to num - 1 do {при передаче в функцию массив индексируется с 0}
if a[i] < a[i - 1] then cmp := false;
end;
var a : array [1..n] of real;
i : integer;
begin
randomize;
for i := 1 to n do begin
a[i] := random(100) + random(100) / 100; {случайные числа от 0 до 100 и 2 знака после запятой}
write (a[i]:5:2, ' ');
end;
writeln;
if cmp(n, a) then writeln('Возрастающая') else writeln('Невозрастающая');
readln;
end.
! | На предупреждение модератора автор реагировать отказался, закрыто. klem4 |