Версия для печати темы

Автор: -александр- 4.02.2007 22:25

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

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

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

Автор: Артемий2 5.02.2007 0:06

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

Автор: Гость 5.02.2007 2:29

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

Автор: klem4 5.02.2007 2:37

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

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

Автор: мисс_граффити 5.02.2007 20:38

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

!

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

Автор: Артемий2 6.02.2007 0:47

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

Автор: -Александр- 7.02.2007 4:26

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

Автор: Archon 7.02.2007 9:44

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

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