Как сравнить 3 числа в паскале

Найти максимальное число из трех

Определить какое из трех введенных пользователем чисел максимальное и вывести его на экран.

Пример выполнения программы

Введите три числа: 23 54 14 Максимальное из них: 54

Решение задачи на языке Паскаль

var n1, n2, n3, max: integer; begin write('Введите три числа: '); readln(n1, n2, n3); if n1 > n2 then max := n1 else max := n2; if n3 > max then max := n3; writeln('Максимальное из них: ', max); end.

Пусть числа, которые вводит пользователь, присваиваются переменным n1 , n2 , n3 . Введем четвертую переменную max , в которую по ходу выполнения кода будет помещено найденное максимальное значение. Тогда алгоритм решения задачи можно свести к следующему:

1. Сравнить первое и второе число ( n1 и n2 ). Переменной max присвоить значение переменной, содержащей большее значение.
2. Сравнить значение переменной max с третьим числом ( n3 ). Если значение n3 окажется больше, чем max , то присвоить max значение третьего числа. Если же значение max окажется больше, то ничего не делать.

Другой способ решения задачи — сразу предположить, что первая переменная содержит максимальное число, и присвоить его переменной max . Далее, сравнивая значение max со значениями двух других переменных, будем менять max только в том случае, если второе или третье числа больше того значения, которое содержится в max .

var n1, n2, n3, max: integer; begin write('Введите три числа: '); readln(n1, n2, n3); max := n1; if n2 > max then max := n2; if n3 > max then max := n3; writeln('Максимальное из них: ', max); end.

Pascal, вводить число n кол-во раз и сравнить полученные цифр и исходными

Составить программу, которая запрашивает у пользователя любое трехзначное число и меняет его порядок цифр на обратный. Сравнить исходное число с полученным. Про- грамма позволяет выполнить действия n раз. Вот написал программу и хотелось бы узнать как сделать чтобы можно было вводить число n количество раз и в конце он бы сравнил полученные числа с исходными

 var i,n:integer; begin repeat write('N = '); readln(n); until (n>=100) and (n<=999); writeln('Было введено число - ',n); writeln('_________________________'); writeln('Перевёрнутое число - ',n mod 10,n div 10 mod 10,n div 100); end. 

Отслеживать
задан 25 мая 2020 в 12:09
user385915 user385915
не надо сравнивать потом. написать цикл от 1 до N, ввести числои сравнить надо внутри цикла
25 мая 2020 в 12:13
Сравнить и что сделать?
25 мая 2020 в 17:34

1 ответ 1

Сортировка: Сброс на вариант по умолчанию

1. Число n необходимо ввести только один раз.
2. Сделать цикл с количеством итераций n .
3. Основные действия внутри цикла.
4. Для вводимого числа использовать отдельную переменную (пусть m ).
5. Если не знаете как сразу сравнить к перевернутым числом, запишите его тоже в переменную (пусть r )

Отрицательное число тоже может быть трехзначным.

Отслеживать
ответ дан 25 мая 2020 в 17:34
3,261 3 3 золотых знака 10 10 серебряных знаков 22 22 бронзовых знака

Важное на Мете

Похожие

Подписаться на ленту

Лента вопроса

Для подписки на ленту скопируйте и вставьте эту ссылку в вашу программу для чтения RSS.

lang-pascal

Дизайн сайта / логотип © 2023 Stack Exchange Inc; пользовательские материалы лицензированы в соответствии с CC BY-SA . rev 2023.10.27.43697

Нажимая «Принять все файлы cookie» вы соглашаетесь, что Stack Exchange может хранить файлы cookie на вашем устройстве и раскрывать информацию в соответствии с нашей Политикой в отношении файлов cookie.

Сравнить 3 числа и вывести в порядке возрастания

Вывести введённые 3 числа в порядке возрастания
помогите составить программу!

Вывести числа в порядке возрастания их значений.
Длинная последовательность двузначных чисел вводится клавиатуры. Признаком конца ввода является.

Вывести все числа размещены между данными числами (включая сами эти числа), в порядке их возрастания
Даны два числа А и В (А<В). Вывести все числа размещены между данными числами (включая сами эти.

Вывести числа в порядке возрастания в одномерном массиве.
Помогите пожалуйста с задачей 🙂 Длинная последовательность двузначных чисел вводится с.

20 / 20 / 12
Регистрация: 16.01.2010
Сообщений: 66

Сообщение было отмечено REALIST07 как решение

Решение

прога виводить в порядку спадання. перероби і буде ок)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

program lab_1; uses crt; var a,b,c:integer; begin clrscr; writeln('Vvedit` a,b,c'); read(a,b,c); if athen begin a:=a+b; b:=a-b; a:=a-b; end; if bthen begin b:=b+c; c:=b-c; b:=b-c; end; if athen begin a:=a+b; b:=a-b; a:=a-b; end; writeln; writeln(a,' ',b,' ',c); readkey; end.

87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Помогаю со студенческими работами здесь

Вывести на экран числа в порядке возрастания их числовых значений
Состав те пожалуйста программу по задачам: 1) Даны три действительных числа x, y, z. Вывести на.

Вывести в порядке возрастания те элементы массива, которые больше заданного числа А
Дан одномерный массив, состоящий из n действительных чисел. Написать программу, которая выводит в.

Вывести в порядке возрастания цифры, входящие в десятичную запись натурального числа
Вывести в порядке возрастания цифры, входящие в десятичную запись натурального числа N.

Цикл: вывести в порядке возрастания все числа в диапазоне от 0 до 100, найти сумму всех чисел, кратных 5
Решить задачу с использованием цикла. Вывести в порядке возрастания все числа в диапазоне от 0 до.

Сравнение чисел

С клавы вводится два целых числа a и b(оба от -1 000 000 да 1 000 000).Составить программу,сравнивающую эти числа и в зависимости от результата сравнения выводящую на экран нужный знак.например 3=3 или 3>2.
Оператор WRITE для вывода результат можно использовать только 1 раз.

Вот не совсем я до конца понял,как 1 раз write использовать..да и делал даже ,Что его не сколько раз
можно было делать,не получается иногда)делал через if)

94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:

Сравнение натуральных чисел
ПОмогите вспомнить процедуру.. Надо сравнить два ряда натуральных чисел. помогите пожалуйста.

Квадрат, сравнение вещественных чисел.
Помогите, не могу врубиться в задание (перевожу с Латышского дословно) поэтому может получиться.

Сравнение чисел
Сделайте программу, которая сравнивает введенные числа и результат выдает в виде знаков >, < или =.

Сравнение чисел
Нужно сравнить числа в одномерном массиве, если они одинаковы, то числа одинаковы, если нет, то.

Регистрация: 18.10.2009
Сообщений: 69
SemaPerm, так он один раз и нужен там, для вывода результата, например:
3>1
Регистрация: 24.10.2009
Сообщений: 15

дак смотри мы пишем if a>b the write('. ');
if a=b then write('. ');
if a уже3 раза использую

Добавлено через 2 минуты
ааа я тупарь,перепутал с writeln дурак))сорри

247 / 205 / 26
Регистрация: 03.02.2009
Сообщений: 785

1 2 3 4 5 6 7

str(a,astr); str(b,bstr); if a=b then s:=astr+'='+bstr; if a>b then s:=astr+'>'+bstr; if athen s:=astr+'+bstr; write(s);

Регистрация: 24.10.2009
Сообщений: 15

o-user, а полегче нет ничего?для человека,который прошел три цилка(переменной,постусловием и предусловием)

1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
а что тут сложного тот же if и строки!

4189 / 1290 / 237
Регистрация: 27.07.2009
Сообщений: 3,962

1 2 3 4

if a=b then S:='=' else if a>b then S:='>' else S:='; write(a,S,b);

247 / 205 / 26
Регистрация: 03.02.2009
Сообщений: 785

Сообщение от SemaPerm

o-user, а полегче нет ничего?для человека,который прошел три цилка(переменной,постусловием и предусловием)

На самом деле, все очень просто:
1. сначала из чисел получаем строки;
2. затем взависимости от значений чисел формируем строку результата;
3. с помошью одной команды WRITE выводим текстовую строку результата!

Регистрация: 24.10.2009
Сообщений: 15
o-user, дак дело то в том,что строки я еще не проходил. )
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Помогаю со студенческими работами здесь

Сравнение чисел не выполняется
В чём проблема? Что за прикол? При таком простом коде: const start = 0; finish = 20; h = 0.4; var.

Сравнение двух чисел
Задача: Программа вводит 2 рациональных числа (числитель,знаменатель) и с помощью функции.

Сравнение модулей чисел
И снова здравствуйте. Столкнулся с непонятной для меня проблемой: необходимо сравнить модули.

Сложение чисел и сравнение
Напишите пж программу которая складывает сначала 5 чисел и другие 5 чисел и потом показывает.

Не работает сравнение чисел
var a,b:integer; begin readln(a,b); if a>b then a:=b; if a<b then b:=a; if.

Сравнение вещественных чисел
А как правильно сравнивать (<>, =) вещественные числа?