Question

Даны действительные числа A и B. Если числа не равны, то большее увеличить в 5 раз, а меньшее уменьшить на 5. В противном случаи, если они положительны, то оставить их без изменения, если отрицательные, то возвести в квадрат. Нужно написать блок-схему и программу в Pascal, оператор if.

Answer 1

//Блок-схема в вложении
//Pascal ABC.NET 3.1 сборка 1219

Var
 a,b:real;
begin
read(a,b);
if a<>b then
 if a>b then
   begin
    a:=a*5;
    b:=b-5;
   end
   else
   begin
    b:=b*5;
    a:=a-5;
   end
 else
if a<0 then
 begin
  a:=a*a;
  b:=b*b;
 end;
writeln(a);
writeln(b);
end.

Пример ввода:
3
4
Пример вывода:
-2
20

Answer 2

Блок-схема

Ниже представлена блок-схема для данной задачи:

   +-------------------+
   |                   |
   |   Ввод A и B      |
   |                   |
   +--------+----------+
            |
            |
            v
   +--------+----------+
   |                   |
   |   A = A * 5        |
   |   B = B - 5        |
   |                   |
   +--------+----------+
            |
            |
            v
   +--------+----------+
   |                   |
   |   A = A^2          |
   |   B = B^2          |
   |                   |
   +--------+----------+
            |
            |
            v
   +--------+----------+
   |                   |
   |   Вывод A и B      |
   |                   |
   +-------------------+

Программа на Pascal

program IfExample;

var
  A, B: real;

begin
  writeln('Введите число A:');
  readln(A);
  
  writeln('Введите число B:');
  readln(B);
  
  if A <> B then
  begin
    if A > B then
    begin
      A := A * 5;
      B := B - 5;
    end
    else
    begin
      A := A - 5;
      B := B * 5;
    end;
  end
  else
  begin
    if A > 0 then
    begin
      // Оставляем числа без изменения
    end
    else if A < 0 then
    begin
      A := A * A;
      B := B * B;
    end;
  end;
  
  writeln('A = ', A);
  writeln('B = ', B);
  
  readln;
end.

Объяснение программы

1. Программа запрашивает у пользователя два действительных числа A и B. 2. Затем она проверяет, равны ли числа A и B. Если они не равны, то программа выполняет следующие действия: - Если A больше B, то A увеличивается в 5 раз, а B уменьшается на 5. - Если B больше A, то A уменьшается на 5, а B увеличивается в 5 раз. 3. Если числа A и B равны, то программа проверяет их знак: - Если оба числа положительные, то они остаются без изменений. - Если оба числа отрицательные, то они возводятся в квадрат. 4. В конце программа выводит значения A и B.

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