Помогите пожалуйста, завтра экзамен!  С клавиатуры вводятся вещественные числа. Признак конца

Помогите пожалуйста, завтра экзамен!
С клавиатуры вводятся вещественные числа. Признак конца ввода - 0. Найти, является ли вводимая последовательность упорядоченной по невозрастанию или по неубыванию (PascalABC).

Задать свой вопрос
Васекич Дмитрий
есть пример исполненья программки для проверки равенства всех членов последовательности, не совсем понятно как заставить программку сопоставлять новый член последовательности с предшествующим
Елизаветова Любовь
Program Lab_1_2;Var x1 : integer; x : integer; flag : boolean;BEGIN Writeln('Введите числовую последовательность. '); write('>');Readln(x1); flag:=true; x:=x1; While x<>0 do begin If x <> x1 then flag:= false; write('>');readln(x); end; if flag then Write('Все элементы последовательности одинаковы меж собой') else Write('Все элементы последовательности НЕ одинаковы между собой'); readlnEND.
Igor Homylkov
Помогите пожалуйста
Злата Манзенко
есть пример исполненья программки для проверки равенства всех членов последовательности, не совершенно понятно как вынудить программку сопоставлять новый член последовательности с предшествующим
Борис Хандрбков
Program Lab_1_2;Var x1 : integer; x : integer; flag : boolean;BEGIN Writeln('Введите числовую последовательность. '); write('>');Readln(x1); flag:=true; x:=x1; While x<>0 do begin If x <> x1 then flag:= false; write('>');readln(x); end; if flag then Write('Все элементы последовательности равны между собой') else Write('Все элементы последовательности НЕ одинаковы между собой'); readlnEND.
Элина Скробанская
Помогите пожалуйста
2 ответа
Var
  x, x1: integer;
  BreakLoop, NonDescending: Boolean;

begin
  writeln('Вводите числовую последовательность');
  read(x);
  read(x1);
  NonDescending := (x1 gt;= x);
  repeat
    read(x);
    if x lt;gt; 0 then
      if NonDescending then BreakLoop := (x lt; x1)
      else BreakLoop := (x gt; x1);
    x1 := x
  until BreakLoop or (x = 0);
  if BreakLoop then writeln(1310, 'Последовательность неупорядочена')
  else
  if NonDescending then writeln(1310, 'Последовательность неубывающая')
  else writeln(1310, 'Последовательность невозрастающая')
end.

Тестовое решение
Вводите числовую последовательность
7
12
12
18
34
0

Последовательность неубывающая


Юрик Табашков
Ооо, спасибо огромное
Ильямов Даниил
Ооо, спасибо громадное
var
  a, c: boolean;
  b, b1: integer;
begin
  readln(b);
  readln(b1);
  if (b gt; b1) then
    a := true
  else
    if (b1 gt; b) then
      a := false;
  while (true) do
  begin
    readln(b1);
    if (0 in [b, b1]) then
      break;
    if a then
    begin
      if (b lt; b1) then
        c := true;
    end
    else
      if (b gt; b1) then
        c := true;
    b := b1;
  end;
  if c then
    writeln('Случайная')
  else
    if (a) then
      writeln('Невозрастающая')
    else
      writeln('Неубывающая');
end.

Само собой, обязано быть минимум 2 числа в последовательности:)



Юрий Атаськов
Спасибо громадное!!!
Степка
Спасибо громадное!!!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт