Question

Дано действительное число x<10. Получить целую и пробную часть числа x. Написать программу в языке Паскаль. Помогите, очень нужно

Answer 1

Дробная Frac(x)

Целая Int(x)

Answer 2

Конечно, вот программа на языке Pascal, которая позволит вам получить целую и дробную части числа x, предполагая, что x < 10:

pascalCopy code
program SplitNumber;
var
  x: real;
  integerPart, fractionalPart: integer;
begin
  // Вводим число x
  writeln('Введите действительное число x (x < 10): ');
  readln(x);

  // Проверяем, что x < 10
  if (x < 0) or (x >= 10) then
  begin
    writeln('Число x должно быть больше или равно 0 и меньше 10.');
    exit;
  end;

  // Вычисляем целую и дробную части числа x
  integerPart := trunc(x);
  fractionalPart := round(100 * (x - integerPart));

  // Выводим результат
  writeln('Целая часть числа x: ', integerPart);
  writeln('Дробная часть числа x: ', fractionalPart);
end.

Эта программа сначала запрашивает у пользователя действительное число x, затем проверяет, что оно находится в допустимом диапазоне (0 <= x < 10). После этого программа вычисляет целую и дробную части числа x и выводит их на экран.