сервис вопросов и ответовПомогите пожалуйста, завтра экзамен!
10-11 класс|
|
С клавиатуры вводятся вещественные числа. Признак конца ввода - 0. Определить, является ли вводимая последовательность упорядоченной по невозрастанию или по неубыванию (PascalABC).
Slavaovchinnik
12 сент. 2015 г., 9:45:49 (8 лет назад)
Ракота
12 сент. 2015 г., 11:57:15 (8 лет назад)
var
a, c: boolean;
b, b1: integer;
begin
readln(b);
readln(b1);
if (b > b1) then
a := true
else
if (b1 > b) then
a := false;
while (true) do
begin
readln(b1);
if (0 in [b, b1]) then
break;
if a then
begin
if (b < b1) then
c := true;
end
else
if (b > b1) then
c := true;
b := b1;
end;
if c then
writeln('Случайная')
else
if (a) then
writeln('Невозрастающая')
else
writeln('Неубывающая');
end.
Само собой, должно быть минимум 2 числа в последовательности:)
аняалинаяна
12 сент. 2015 г., 14:12:16 (8 лет назад)
var
x, x1: integer;
BreakLoop, NonDescending: Boolean;
begin
writeln('Вводите числовую последовательность');
read(x);
read(x1);
NonDescending := (x1 >= x);
repeat
read(x);
if x <> 0 then
if NonDescending then BreakLoop := (x < x1)
else BreakLoop := (x > x1);
x1 := x
until BreakLoop or (x = 0);
if BreakLoop then writeln(#13#10, 'Последовательность неупорядочена')
else
if NonDescending then writeln(#13#10, 'Последовательность неубывающая')
else writeln(#13#10, 'Последовательность невозрастающая')
end.
Тестовое решение
Вводите числовую последовательность
7
12
12
18
34
0
Последовательность неубывающая
Denfint
12 сент. 2015 г., 16:55:37 (8 лет назад)
есть пример выполнения программы для проверки равенства всех членов последовательности, не совсем понятно как заставить программу сравнивать новый член последовательности с предыдущим
Нина1Пеннер2
12 сент. 2015 г., 19:41:42 (8 лет назад)
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('Все элементы последовательности НЕ равны между собой');
readln
END.
Gunai13
12 сент. 2015 г., 21:32:49 (8 лет назад)
Помогите пожалуйста
Ответить
Другие вопросы из категории
Задача на языке паскаль абс
Дан одномерный массив, который содержит не более 60 символов, которые образуют слова, разделённые одним пробелом. Ответить на вопрос, есть ли среди этих слов данное слово.
1.вычислить факториал N. (4!=1*2*3*4=24)
2.найти среднее геометрическое N чисел
3. вычислить сумму чисел кратных 6 из интервала от 5 до 100 включительно
в программе паскаль
Читайте также
Задания за 9 класс. Ребят, помогите, пожалуйста. С Exel работать надо, на компьютере его нет (на windows 8 перешла), к тому же, честно говоря, не умею им
пользоваться. Добрые люди, пожалуйста, помогите :с Завтра сдавать :с
Помогите пожалуйста.
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
ПОМОГИТЕ, ПОЖАЛУЙСТА, ПРОСТО РАЗЪЯСНИВ ЗАДАНИЕ. ПЖЛ)))
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
Помогите, пожалуйста, составить алгоритм для следующей задачи: Вводятся четыре числа. Известно, что 3 из них равны, а 4-ое отличается от 3-ех других.
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
Помогите, пожалуйста, разобраться и составить верный алгоритм. В задаче требовалось написать программу на Паскале и сравнить её с приведенной в учебнике.
"Подсчитайте кол-во операций в приведенном алгоритме (Ответ приведите в виде функции от параметра n)." Подсчитать кол-во операций самому - это возможно, а как привести ответ в виде функции от параметра n - я не знаю. Помогите, пожалуйста, понять это задание. Заранее благодарен!
Вы находитесь на странице вопроса "Помогите пожалуйста, завтра экзамен!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.