Question

Pascal составить программу с полным ветвлением y=x*x если x<2 y=x*x*x если x>2 y=2+x если x=2

Answer 1

Program dfgd;

var
  x: integer;
  y: real;

begin
  write('Введите х: ');
  readln(x);
  if x < 2
    then y := sqr(x)
  else
  if x > 2
    then y := power(x, 3)
  else y := 2 + x;
  writeln('y=', y);
end.

Answer 2

Для составления программы с полным ветвлением на языке программирования Pascal для функции y(x) с условиями:

1. y = x*x, если x < 2,
2. y = xxx, если x > 2,
3. y = 2 + x, если x = 2.

Можно использовать следующий код:

pascalCopy code
program FullBranching;

var
  x, y: real;

begin
  writeln('Введите значение x: ');
  readln(x);

  if x < 2 then
    y := x * x
  else if x > 2 then
    y := x * x * x
  else
    y := 2 + x;

  writeln('Значение y: ', y);
end.

Обратите внимание, что в этом коде используется конструкция if-else, а также операторы сравнения (<, >, =) для проверки условий. В зависимости от значения x, программа выбирает соответствующее вычисление для y и выводит результат.