Помогите пожалуйста, завтра экзамен! С клавиатуры вводятся вещественные числа. Признак конца
Помогите пожалуйста, завтра экзамен!
С клавиатуры вводятся вещественные числа. Признак конца ввода - 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
Последовательность неубывающая
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 числа в последовательности:)
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 числа в последовательности:)
Юрий Атаськов
Спасибо громадное!!!
Степка
Спасибо громадное!!!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов