Question

Напишите код на Паскаль. Необходимо вычислить:- модуль x;- целую часть вещественного числа x;- получить случайное число в диапазоне от 0 до р, р – целое.​​

Answer 1

Ответ:

1)

var x:integer;

begin

 write('Введите x: ');

 read(x);

 if x < 0 then write(-x)

 else write(x)

end.

2)

var x:real;

begin

 write('Введите x: ');

 read(x);

 write(Int(x))

end.

(Вещественные числа в паскале записываются с использованием точки, а не запятой)

3)

var p:integer;

begin

 write('Введите p: ');

 read(p);

 p := random(p);

 write(p);

end.

Answer 2

Вот пример кода на Паскале, который выполняет требуемые задачи:

pascalCopy code
program MathOperations;

uses
  SysUtils, Math, CRT;

var
  x, r: Real;

begin
  // Чтение вещественного числа x с клавиатуры
  Write('Введите вещественное число x: ');
  Readln(x);

  // Вычисление модуля x
  x := Abs(x);
  Writeln('Модуль x: ', x);

  // Целая часть вещественного числа x
  Writeln('Целая часть x: ', Trunc(x));

  // Генерация случайного целого числа в диапазоне от 0 до r
  Randomize;  // Инициализация генератора случайных чисел
  Write('Введите целое число r: ');
  Readln(r);
  Writeln('Случайное число в диапазоне от 0 до r: ', Random(r + 1));

  Readkey;
end.

Этот код сначала читает вещественное число x с клавиатуры, затем вычисляет его модуль и целую часть. Затем программа запрашивает целое число r с клавиатуры и генерирует случайное целое число в диапазоне от 0 до r с использованием встроенной функции Random.