Задачи на ветвление, 8 класс, паскаль абс 1) Введите чиcло x. Если число больше 100, то прибавить 50,...

1) program BranchingTasks;

var x: integer;

begin write('Введите число x: '); readln(x);

if x > 100 then

x := x + 50

else

x := x * 2;

writeln('Результат: ', x); end.

2) program BranchingTasks;

var x, y: integer;

begin write('Введите число x: '); readln(x); write('Введите число y: '); readln(y);

if x > y then

x := x + 2

else

x := x + y;

writeln('Результат: ', x); end.

3) program BranchingTasks;

var x, y: integer;

begin write('Введите число x: '); readln(x); write('Введите число y: '); readln(y);

if x > y then

writeln('Максимальное число: ', x)

else

writeln('Больше число y');

end.

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

Задача 1

Условие: Введите число ( x ). Если число больше 100, то прибавить 50, если меньше — умножить на 2.

Решение: Здесь нужно использовать оператор ветвления if.then.else, чтобы проверить, больше ли число 100, и выполнить соответствующее действие.

program ModifyNumber;
var
  x: Integer;
begin
  writeln('Введите число x:');
  readln(x);
  
  if x > 100 then
    x := x + 50
  else
    x := x * 2;
  
  writeln('Результат: ', x);
end.

Задача 2

Условие: Введите два числа ( x ) и ( y ). Если число ( x ) больше числа ( y ), то число ( x ) увеличить на 2, если меньше числа ( y ) — то к числу ( x ) прибавить число ( y ).

Решение: Опять же используем if.then.else для проверки условий и выполнения соответствующих операций.

program CompareAndModify;
var
  x, y: Integer;
begin
  writeln('Введите два числа x и y:');
  readln(x, y);
  
  if x > y then
    x := x + 2
  else
    x := x + y;
  
  writeln('Результат: ', x);
end.

Задача 3

Условие: Введите два числа ( x ) и ( y ). Если число ( x ) больше числа ( y ), то на экран выдать сообщение, что максимальное число ( x ), иначе, что больше число ( y ).

Решение: Здесь также используем оператор ветвления для сравнения чисел и вывода соответствующего сообщения.

program FindMax;
var
  x, y: Integer;
begin
  writeln('Введите два числа x и y:');
  readln(x, y);
  
  if x > y then
    writeln('Максимальное число: ', x)
  else
    writeln('Максимальное число: ', y);
end.

Общие рекомендации

1. Чтение данных: Используйте readln для ввода данных, чтобы пользователь мог вводить значения сразу после запуска программы.

2. Оператор ветвления: if.then.else позволяет выполнять определенные действия в зависимости от выполнения условия. Это основной инструмент для реализации логики ветвления.

3. Вывод данных: Используйте writeln для вывода результатов, чтобы пользователю было удобно видеть окончательный результат после выполнения программы.

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