Question

1. Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать программу для A=3, A=0, A=-12. 2. Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. Программа должна иметь дружественный интерфейс. Программы На Паскале, прошу, помогите.

Answer 1

1. Решение задачи с целым числом A

Для решения задачи с целым числом A, где необходимо увеличить его на 1, если A > 0, и уменьшить на 1 в противном случае, можно написать следующую программу на языке Паскаль:

program IncreaseOrDecrease;
var
  A: integer;
begin
  writeln('Введите значение A:');
  readln(A);
  
  if A > 0 then
    A := A + 1
  else
    A := A - 1;
  
  writeln('Результат:', A);
end.

Программа запрашивает значение A у пользователя, затем проверяет, больше ли A нуля. Если да, то к A прибавляется 1, иначе от A вычитается 1. Затем программа выводит результат.

Протестируем программу для A=3, A=0 и A=-12:

1. При вводе A=3, программа должна увеличить его на 1, и результат будет равен 4. 2. При вводе A=0, программа должна уменьшить его на 1, и результат будет равен -1. 3. При вводе A=-12, программа должна уменьшить его на 1, и результат будет равен -13.

2. Решение задачи с двумя действительными числами X и Y

Для решения задачи с двумя действительными числами X и Y, где необходимо заменить меньшее из этих чисел половиной их суммы, а большее - их удвоенным произведением, можно написать следующую программу на языке Паскаль:

program ReplaceNumbers;
var
  X, Y, smaller, larger: real;
begin
  writeln('Введите значение X:');
  readln(X);
  writeln('Введите значение Y:');
  readln(Y);
  
  if X < Y then
  begin
    smaller := X;
    larger := Y;
  end
  else
  begin
    smaller := Y;
    larger := X;
  end;
  
  smaller := (smaller + larger) / 2;
  larger := 2 * smaller * larger;
  
  writeln('Результат:');
  writeln('Меньшее число:', smaller);
  writeln('Большее число:', larger);
end.

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

Протестируем программу для X=3 и Y=5:

1. Меньшее число из X и Y равно 3, поэтому оно будет заменено половиной их суммы, то есть (3 + 5) / 2 = 4. 2. Большее число из X и Y равно 5, поэтому оно будет заменено их удвоенным произведением, то есть 2 * 3 * 5 = 30.

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