Question

Написать программу на ветвление на языке программирования Паскаль​

Answer 1

Программа перевода положительного числа в отрицательное, и на оборот

Var

a:integer;

Begin

Readln(a) ;

Begin

If a<0 then

Write(a*-1) end;

Begin

If a>0 then

Write(a*-1) end;

End.

Answer 2

Конечно! Вот пример программы на языке программирования Паскаль, демонстрирующий использование ветвления (условных операторов):

pascalCopy code
program BranchingExample;

var
  number: integer;

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

  if number > 0 then
  begin
    writeln('Число положительное');
  end
  else if number < 0 then
  begin
    writeln('Число отрицательное');
  end
  else
  begin
    writeln('Число равно нулю');
  end;

  writeln('Программа завершена');
  readln;
end.

В этой программе пользователю предлагается ввести число. Затем с помощью условных операторов if-else проверяется, какое число было введено, и выводится соответствующее сообщение на экран. Если число больше нуля, выводится сообщение "Число положительное". Если число меньше нуля, выводится сообщение "Число отрицательное". Если число равно нулю, выводится сообщение "Число равно нулю".

В конце программы выводится сообщение "Программа завершена", и программа ожидает, пока пользователь нажмет клавишу, чтобы закрыть окно программы.

Обратите внимание, что синтаксис Паскаля может варьироваться в различных компиляторах, поэтому убедитесь, что ваш компилятор поддерживает этот синтаксис.