Входная строка содержит три целых числа, разделённых пробелами.
Выходные данные
В первой строке нужно вывести минимальное из введённых чисел, во второй строке — максимальное.
Обычная задача на проверку знаний условного оператора.
Решение задачи на Pascal
Var a, b, c, max, min: integer; Begin readln(a, b, c); max := a; min := a; If b > max Then max := b; If c > max Then max := c; If b < min Then min := b; If c < min Then min := c; writeln(‘Max: ‘, max, ‘. Min: ‘, min); End.
Немного другой вариант задачи. Если необходимо отсортировать по возрастанию введенные числа:
Var a, b, c, t: Integer; Begin Write(‘a b c: ‘); ReadLn(a,b,c); If b < a Then Begin t := a; a := b; b := t; End; If c < b Then Begin t := b; b := c; c := t; End; If b < a Then Begin t := a; a := b; b := t; End; WriteLn(a); WriteLn(c); End.
Источник: bigspawn.blogspot.com
Паскаль: Поиск максимума из трех через максимум из двух чисел
Найти максимальное число из трех
Определить какое из трех, введенных пользователем, чисел максимальное и вывести его на экран.
В программе будет три переменные для чисел, вводимых пользователем: n1, n2, n3. Также для упрощения алгоритма введем четвертую переменную, в которую по ходу выполнения кода будет помещено максимальное значение: max.
Алгоритм решения задачи:
- Сравнить первое и второе число (n1 и n2). Переменной max присвоить значение переменной, содержащей большее значение.
- Сравнить значение переменной max с третьим числом, введенным пользователем (n3). Если значение n3 окажется больше, чем max, то присвоить max значение третьего числа. Если же значение max окажется больше, то ничего не делать.
Вычисление площадей геометрических фигур
Задача: Пример программы, позволяющей вычислять площади трех геометрических фигур: прямоугольника, треугольника и круга. Алгоритм решения задачи: Площадь прямоугольника: area = a * b Площадь треугольника: area = sqrt(s * (s – a) * (s – b) * (s – c)), где s = (a + b + c) / 2 Площадь круга: area = pi * sqr(d) / 4 Пользователь осуществляет выбор фигуры, площадь которой он хочет получить, путем ввода цифр 1, 2 или 3. Для выбора ветви вычисления используется конструкция if-else, которая включает вторую конструкцию if-else, а та, в свою очередь, — третью: if 1 then вычисление площади прямоугольника else if 2 then вычисление площади треугольника else if 3 then вычисление площади круга else ошибка Программа на языке Паскаль: const pi = 3.14; var figure: byte; area, s, a, b, c, d: real; ok: boolean; begin ok := true; write(‘Фигура (1 — прямоугольник, 2 — треугольник’, ‘, 3 — круг): ‘); readln(figure); if figure = 1 then begin write(‘Длины сторон: ‘); readln(a, b); area := a * b end else if figure = 2 then begin write(‘Длины сторон: ‘); readln(a, b, c); s := 0.5 * (a + b + c); area := sqrt(s * (s — a) * (s — b) * (s — c)) end else if figure = 3 then begin write(‘Диаметр: ‘); readln(d); area := pi * sqr(d) / 4 end else ok := false; if ok then writeln(‘Площадь: ‘, area:8:2) else writeln(‘Ошибка ввода’); readln end. Примечания: При вводе сторон треугольника должно быть соблюдено правило: сумма любых двух сторон должна быть больше третьей. Иначе возникает ошибка.
Видео уроки паскаль: поиск максимального и минимального значения
Вычисление значения функции
Задача: Требуется написать программу, вычисляющую значение какой-нибудь функции (у = f(x)). Допустим, такой: у = x – 2, если x > 0, y = 0, если x = 0, y = |x|, если x < 0. Алгоритм решения задачи: Задача решается очень просто. Программа на языке Паскаль: var x, y: integer; begin write (‘x = ‘); readln (x); if x > 0 then y := x — 2 else if x = 0 then y := 0 else y := abs (x); writeln (‘y = ‘, y); readln end. Примечания: В языке программирования Паскаль желательно вложенные конструкции if-else помещать в ветку else, а не if. Так проще не запутаться.
Источник: studfile.net
Задачи по Pascal. Максимальное число из трех
Задачи по Pascal
Автор cyber На чтение 2 мин.
Условие задачи : Определить какое из трех, введенных пользователем чисел максимальное и вывести его на экран.
Сложность : легкая .
Для того чтобы решить эту задачу, мы будем делать следующее :