Question

Решить в Паскале (без массива) №1 Составьте не менее трёх вариантов программы определения наименьшего их трех данных чисел. №2 Составить программу сортировки по возрастанию значений трёх переменных : А,В,С . №3 Заданы Размеры а,в прямоугольного отверстия x,y,z кирпича. Определить пройдет ли кирпич через отверстие .

Answer 1

Конечно, вот примеры программ на языке Pascal для решения указанных задач:

№1: Определение наименьшего из трех чисел

program MinOfThreeNumbers;
var
  a, b, c, min: integer;
begin
  writeln('Введите три числа:');
  readln(a, b, c);

min := a; // Предположим, что минимальное число - a

if b < min then
    min := b; // Если b меньше, чем текущее минимальное, присваиваем его
  if c < min then
    min := c; // Если c меньше, чем текущее минимальное, присваиваем его

writeln('Наименьшее число: ', min);
end.

№2: Сортировка трех переменных по возрастанию

program SortThreeVariables;
var
  a, b, c, temp: integer;
begin
  writeln('Введите три числа:');
  readln(a, b, c);

if a > b then
  begin
    temp := a;
    a := b;
    b := temp;
  end;

if a > c then
  begin
    temp := a;
    a := c;
    c := temp;
  end;

if b > c then
  begin
    temp := b;
    b := c;
    c := temp;
  end;

writeln('Отсортированные числа по возрастанию: ', a, ' ', b, ' ', c);
end.

№3: Определение прохождения кирпича через отверстие

program BrickThroughHole;
var
  a, b, x, y, z: integer;
begin
  writeln('Введите размеры отверстия (x, y):');
  readln(x, y);
  writeln('Введите размеры кирпича (a, b, z):');
  readln(a, b, z);

if ((a <= x) and (b <= y)) or ((a <= y) and (b <= x)) or
     ((a <= x) and (z <= y)) or ((a <= y) and (z <= x)) or
     ((b <= x) and (z <= y)) or ((b <= y) and (z <= x)) then
    writeln('Кирпич пройдет через отверстие.')
  else
    writeln('Кирпич не пройдет через отверстие.');
end.

Эти программы предполагают ввод значений с клавиатуры и используют конструкции условий (`if-else`), чтобы выполнить соответствующие действия в зависимости от условий, заданных в задачах.