Question

Написать программу, при которой с клавиатуры вводится 2 числа и если первое из них положительное, то находится сумма этих чисел, если отрицательное - разность. Программу записать в двух формах: на языке блок-схем и на языке Паскаль.​

Answer 1

Ответ:

Объяснение:

program a1;

var a, b, s:integer;

begin

readln(a, b);

if a>0

 then s:=a+b

 else s:=a-b;

writeln(s);

end.

Answer 2

Конечно! Для начала, давайте представим блок-схему для данной программы:

Блок-схема:

luaCopy code
  +-------------------+
  | Ввод чисел A и B  |
  +-------------------+
           |
           V
  +-------------------+
  | A > 0 ?          |
  | Да               |
  +-------------------+
           |
           V
  +-------------------+
  | Сумма A и B       |
  +-------------------+
           |
           V
       Вывод результата
           |
           V
  +-------------------+
  | A <= 0 ?         |
  | Да               |
  +-------------------+
           |
           V
  +-------------------+
  | Разность A и B    |
  +-------------------+
           |
           V
       Вывод результата

Теперь давайте реализуем программу на языке Паскаль:

pascalCopy code
program PositiveOrNegative;
var
  A, B, result: integer;
begin
  // Ввод чисел A и B
  write('Введите первое число (A): ');
  readln(A);
  write('Введите второе число (B): ');
  readln(B);
  
  // Проверка условия и вычисление результата
  if A > 0 then
    result := A + B
  else
    result := A - B;
  
  // Вывод результата
  writeln('Результат: ', result);
end.

Это простая программа на Паскале, которая считывает два числа с клавиатуры, проверяет значение первого числа и затем находит сумму или разность в зависимости от знака первого числа. Результат выводится на экран.