Question

25 баллов.Вводится последовательность вещественных чисел. Признак конца ввода – 0. Определить является ли последовательность упорядоченной по убыванию.Паскаль

Answer 1

Я не буду писать полный код , ок? 
real n,m;
integer t;
t=0;
m:=-100000000000000;{крч. какое-нибудь дофига маленькое число}
while(n<>0)
begin
readln(n);
if m>=n then
begin 
t:=5; break;
end;
m:=n;
end;

if t=5 then writeln(yes); else writeln(no);

Answer 2

Для определения того, является ли последовательность вещественных чисел упорядоченной по убыванию, мы можем использовать следующий алгоритм:

1. Прочитайте первое число из последовательности и сохраните его в переменную prev. 2. Прочитайте следующее число из последовательности и сохраните его в переменную current. 3. Проверьте, является ли текущее число равным 0. Если да, то это признак конца ввода, и последовательность завершена. 4. Если текущее число меньше или равно предыдущему числу (prev), перейдите к шагу 6. 5. Если текущее число больше предыдущего числа (prev), это означает, что последовательность не является упорядоченной по убыванию. Выведите сообщение "Последовательность не упорядочена по убыванию" и завершите алгоритм. 6. Присвойте переменной prev значение текущего числа (current). 7. Повторите шаги 2-6 до тех пор, пока не будет достигнут конец ввода.

Вот пример кода на языке Pascal, реализующий описанный алгоритм:

program CheckDescendingSequence;
var
  current, prev: real;
begin
  readln(prev);
  readln(current);
  
  while current <> 0 do
  begin
    if current > prev then
    begin
      writeln('Последовательность не упорядочена по убыванию');
      exit;
    end;
    
    prev := current;
    readln(current);
  end;
  
  writeln('Последовательность упорядочена по убыванию');
end.

Этот код считывает последовательность чисел, пока не будет введен 0. Затем он проверяет, является ли каждое последующее число меньше или равным предыдущему числу. Если какое-либо число больше предыдущего числа, выводится сообщение о том, что последовательность не упорядочена по убыванию. В противном случае выводится сообщение о том, что последовательность упорядочена по убыванию.