Question

Ребята, помогите, очень важно. Пользователь вводит целое число x. Если число положительное – выполняется расчёт x4, если отрицательное x3. Используется только одна подпрограмма-функция паскаль.

Answer 1

program p;

var x: integer;

begin

writeln("Введите число: ");

readln(x);

if x>0 then x:=x*4 else x:=x*3;

writeln("Ответ: ",x); readln; end.

Answer 2

Для решения данной задачи вам потребуется написать функцию в соответствии с вашими условиями. Вот пример решения на языке Pascal:

pascalCopy code
program CalculateX;
var
  x: integer;

function CalculatePower(x: integer): integer;
begin
  if x > 0 then
    CalculatePower := x * x * x * x
  else
    CalculatePower := x * x * x;
end;

begin
  writeln('Введите целое число x:');
  readln(x);
  
  writeln('Результат: ', CalculatePower(x));
end.

В этом примере программа сначала запрашивает у пользователя ввод целого числа x. Затем она вызывает функцию CalculatePower, передавая ей значение x. Внутри функции происходит проверка на знак числа и вычисляется результат в соответствии с условиями задачи.

Например, если пользователь вводит положительное число, программа вычислит x^4. Если пользователь вводит отрицательное число, программа вычислит x^3.