Question

Помогите пожалуйста Словарь Паскаль:функция Назначениеabs(x) Модуль хsqr(x) Квадрат хsqrt(x) Квадратный корень из хround(x) Округление до ближайшего целогоint(x) Целая часть хfrac(x) Дробная часть хdiv Получение целого частного при делении двух чисел Х на уmod Получение целого остатка при делении двух чисел «Исследование работы функций».Составьте программу для решения задачи: введите с клавиатуры число. Если оно отрицательное, то выведите на экран его модуль. Если дробное – выведите на экран его целую часть, дробную часть, а также округлите до ближайшего целого. Если число не подходит по условию – оставьте его без изменения.​

Answer 1

Ответ:

var

a:real;

begin

readln(a);

if a<0

   then

       writeln(abs(a))

   else

       if frac(a)<>0

           then

               begin

                   writeln(int(a));

                   writeln(frac(a));

                   writeln(round(a));

               end

           else

               writeln(a);

end.

Объяснение:

Answer 2

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

```pascal
program Solution;
var
x: real;
intPart, fracPart, roundNum: Integer;
begin
// Ввод числа с клавиатуры
writeln('Введите число:');
readln(x);

// Проверка условий и вывод результатов
if x < 0 then
begin
// Вывод модуля числа
writeln('Модуль числа:', abs(x));
end
else if frac(x) > 0 then
begin
// Вычисление целой и дробной частей числа
intPart := trunc(x);
fracPart := frac(x) * 100; // Умножение на 100 для вывода в процентах
roundNum := round(x);

// Вывод результатов
writeln('Целая часть числа:', intPart);
writeln('Дробная часть числа:', fracPart, '%');
writeln('Округленное значение:', roundNum);
end
else
begin
// Вывод числа без изменений
writeln('Число не подходит по условию:', x);
end;
end.
```

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