Меню

Паскаль как вывести наименьшее число

ОГЭ по информатике. Задачи на паскаль. Нахождение МАКСИМАЛЬНОГО И МИНИМАЛЬНОГО элемента.

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число.

Считаем сначала максимальным числом самое маленькое из возможных, т.е. ноль. Потом, перебираем все числа – если встретилось число большее, чем максимальное в данный момент, то оно и становится максимальным.

Напишите программу, которая в последовательности натуральных чисел определяет минимальное число. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное число.

Считаем сначала минимальным числом самое большое из возможных, т.е. 30000. Потом, перебираем все числа – если встретилось число меньшее, чем минимальное в данный момент, то оно и становится минимальным.

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 7. В последовательности всегда имеется число, кратное 7. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000.

Программа должна вывести одно число – максимальное число, кратное 7.

Считаем сначала максимальным числом самое маленькое из возможных, т.е. ноль. Потом, перебираем все числа – если встретилось число кратное 7 (остаток от деления на 7 равен нулю), И большее, чем максимальное в данный момент, то оно и становится максимальным.

Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 6. В последовательности всегда имеется число, оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000.

Программа должна вывести одно число – максимальное число, оканчивающееся на 6.

В начале, максимальное число считается самым маленьким из всех возможных. Т.е. нулю. Затем перебираем числа в массиве. Если нам встретилось число, ОКАНЧИВАЮЩЕЕСЯ на 6 (Т.е. остаток от деления на 10 равен 6), И это число больше, чем наше максимальное в данный момент, то у нас становится новое максимальное – это число.

Источник

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

нужно написать 2 программки в паскалеАВС:

1задача : даны три числа. найти наименьшее из них.

Читайте также:  Как моя жена чистит селедку без костей

2задача: дано трёхзначное число. в нём зачеркнули первую справа цифру и приписали её слева. вывести полученное число.

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Найти наименьшее общее кратное трех чисел
Найти наименьшее общее кратное трех заданных с клавиатуры натуральных чисел K, L, M. Если таковых.

Условие: Найти максимальное из трех заданных чисел
Помогите решить с 2 по 5 задачу)) Задачи прикреплены)))

Найти натуральное наименьшее число n, факториал которого превышает число 4000
Написать программу для решения следующей задачи,используя,по крайней мере, два вида циклов. Найти.

Решение

Решение

Найти в первом стеке максимальное число, а во втором — наименьшее число
даны два стека, в каждом из которых находится по 10 различных чисел. Найти в первом стеке.

Найти наименьшее число в строке
не как не могу сделать задачу суть такая дана строка симболов и надо найти наименьшее число .

Найти наименьшее число по условию
Ребят помогите кто чем может, засада с задачами: 1. Составьте программу отыскания наименьшего h.

Источник

Программа, для нахождения наименьшего из введенных пользователем чисел

Надо написать программу на Pascal’е. Это школьное Д/З. Недавно начали изучать Pascal.

Задача: программа должна найти наименьшее число из тех чисел, которые ввел пользователь (пользователь может ввести сколько угодно чисел P. S. Или чтобы программа спрашивала, сколько пользователь введет чисел.), и вывести это наименьшее число на экран, а если пользователь ввел не число (а например букву), то программа должна сообщить об этом пользователю.

Жду ваших ответов!

P. S. Или чтобы программа спрашивала, сколько пользователь введет чисел.

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Программа для сортировки введенных пользователем чисел по убыванию
Всем большой привет! Надо написать еще одну программу на Pascal’е. Это школьное Д/З. Недавно.

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

Напишите Паскаль-программу для нахождения суммы 10 произвольных чисел введенных с клавиатуры
Напишите Паскаль-программу для нахождения суммы 10 произвольных чисел введенных с клавиатуры,чтобы.

Составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел
составить программу для нахождения наибольшего общего и наименьшего общего кратного двух.

Источник

Pascal: Занятие № 4. Логический тип данных Boolean, поиск максимума и минимума в Паскале

Логический тип данных Boolean в Паскале

Мы уже научились писать программы, основанные на линейных алгоритмах, в Паскале. И даже уже составляем нелинейные алгоритмы — с ветвлением — в которых используются логические выражения, которые принимают значения true или false .

Читайте также:  С чего начинать чистить лицо

В примере ниже, на экран выводится результат логического выражения:

var A: integer; begin A := 5; write(A > 0); <Будет выведено True>end.

Для записи результата логического выражения используется специальная логическая переменная, которая имеет в Паскале тип boolean и может также принимать одно из двух значений — true или false .

Посмотрим, как работает та же самая задача с логической переменной:

var A: integer; b: boolean; begin A := 5; b:=A > 0; write(b); <Будет выведено True>end.

var a:boolean; begin a:=true; if a=true then writeln (‘истина’) else writeln(‘ложь’); end.

Для создания сложных условий используются специальные логические операции: and , or , not и xor .

[Название файла: task_bool1.pas ]

Рассмотрим пример с использованием логической операции XOR :

program Boolean; var x,y: integer; c :boolean; begin write(‘Введите X, Y: ‘); read(x,y); c := (Odd(x)) xor (Odd(y)); writeln(‘Только одна из переменных X и Y имеет нечетное значение — ‘, c); end.

Рассмотрим еще одно решение задачи в Паскале с использованием логической переменной:

[Название файла: task_bool2.pas ]

Рассмотрим решение более сложной задачи с переменной логического типа:

const a=348; var d_n, s_n, e_n: integer; flag:boolean; begin flag:=false; s_n:=a div 100; d_n:=((a mod 100)div 10); e_n:=a mod 10; if (s_n<>d_n) and (d_n<>e_n) and (e_n<>s_n) then flag:=true; writeln(flag); end.

Здесь каждый разряд получается путем использования операций деления нацело и взятия остатка от деления: s_n — это цифра сотого разряда, d_n — цифра десятого разряда, e_n — единицы.

[Название файла: task_bool3.pas ]

Минимальное и максимальное число в Паскале.

[Название файла: task_bool4.pas ]

При организации поиска минимального или максимального числа среди ряда чисел всегда на помощь приходит старенький «бабушкин» алгоритм:

  • Представим ситуацию, что мы жарим пирожки, и уже нажарили целую большую горку; теперь надо выбрать из них самый большой, т.е. в нашем случае максимальный.
  • Берем верхний пирожок, т.е. первый, и говорим, что он пока самый большой и откладываем его в сторону.
  • Затем берем второй и сравниваем с самым большим, если этот второй пирожок оказывается больше — откладываем его на место «бывшего самого большого» и говорим, что теперь он самый большой.
  • Берем следующий и повторяем действия. Так осуществляем данную процедуру со всеми пирожками.

Иногда в качестве первоначального максимума назначается самое малое возможное число (в зависимости от контекста задачи). А в качестве минимума — напротив, самое большое возможное число. Например, если сказано, что необходимо найти максимальное / минимальное среди положительных чисел, меньших 1000, то:

max:=integer.MinValue;; // минимальное среди типа Integer min:=integer.MaxValue;; // максимальное среди типа Integer

Читайте также:  Как чистить сосуды от кальция

print(max(2,8)); // 8 print(min(2,8)); // 2

Рассмотрим теперь решение задачи на Паскале нахождения максимального числа:

var i, chislo, max:integer; begin // первое введенное число //сразу определяем как максимальное: readln(max); for i:=2 to 10 do begin readln (chislo); if chislo > max then max:= chislo end; writeln(max) end.

begin // первое введенное число //сразу определяем как максимальное: var maximum:=readInteger(); for var i:=2 to 10 do begin var chislo:=readInteger(); // используем стандартную функцию max(): maximum := max(chislo,maximum); end; writeln(maximum) end.

Аналогично осуществляется поиск минимального из чисел.

Для лучшего понимания темы поиска максимального или минимального значения предлагаем посмотреть видео урок:

[Название файла: task_max1.pas ]

[Название файла: task_max2.pas ]

[Название файла: task_max3.pas ]

Потренируйтесь в решении задач по теме, щелкнув по пиктограмме:

Источник

Найти наименьшую цифру в числе

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Наити последьную цифру числа n.
дано натуральное число n(n =100 наити последьную цифру числа n.

Наити предпоследную цифру числа
В предположении,4то n>=10 наити предпоследную цифру числа n!! pomogite sro4no nado.

Найти наименьшую цифру в числовой записи числа
Проверьте всё ли правильно в решении пожалуйста)) УСЛОВИЕ: Дано натуральное четырехзначное число.

Поменять местами наибольшую и наименьшую цифры в числе
В заданном целом положительном числе N поменять местами наибольшую и наименьшую цифры.

Введите число
46532
Наименьшая цифра
2

что не работает?
у меня во всех случаях правильный ответ получается

это что то смущает

Определить количество цифр и наименьшую цифру для каждого числа последовательности
Поступает последовательность целых положительных чисел, 0 – конец последовательности. Определить.

Если строка является правильным записью целого числа, то найдите его наименьшую цифру
Дана строка. Если она является правильным записью целого числа, то найдите его наименьшую цифру.

Переставить цифру в числе.
Трицифровое число заканчивается цифрой 3. Если эту цифру переместить через два знака влево, то.

Найти старшую цифру в числе
1. Задано два натуральні числа. Знайти найстаршу цифру в першому числі і підрахувати кількість.

Источник