является ли последовательность возрастающей, нужно помочь Опции

[-александр-]

Дана последовательность действительных чисел a1,a2,...an.Выяснить будет ли она возрастающей.

Надо эту задачу решить через оператор FUNCTION (функция)
Если не трудно можете сделать сразу алгоритм с блок-схемой.

Заранее огромное спасибо!

Сообщение отредактировано: мисс_граффити - 14.06.2007 22:14

[Артемий]

А где даны эти числа? Массив или где-то еще?

[Гость]

В массиве наверно

[klem4]

наверно

В таком случае ставь первой строчкой программы {$TELEPATHY ON}

У нас штатный телепат в отпуске ... Мало того что даже не хочешь попытать решить простейшую задачу, так еще и хочешь чтобы мы тут гадали что тебе нужно.

[мисс_граффити]

Еще и нарушение правил:

!

Заголовок темы должен быть информативным. В противном случае тема удаляется ...

[Артемий]

Мистер Александр, может вы нам сначала объяснити, пользователь РУКАМИ вводит количество действительных чисел?

[-Александр-]

Эти числа ненадо вводить, надо указать рандомом, и он сам выведет на экран что нужно(вроде так)

[Archon]

Если что не так, не обессудь... Задание надо точнее формулировать.

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