Для того чтобы написать программу на языке Pascal, которая вычисляет значение ( y = \sqrt{x} ), где ( x ) вводится пользователем, и выводит сообщение об ошибке при отрицательных значениях ( x ), можно использовать следующий скрипт:
program SquareRootCalculator;
uses crt, math;
var
x, y: Real;
begin
clrscr; // Очистка экрана
writeln('Введите значение x:');
readln(x); // Ввод значения x
if x < 0 then
writeln('Значение y не существует, так как x отрицательное.')
else
begin
y := sqrt(x); // Вычисление квадратного корня
writeln('Значение y = ', y:0:2); // Вывод значения y с двумя знаками после запятой
end;
readln; // Ожидание ввода, чтобы окно консоли не закрывалось сразу после выполнения
end.
В этой программе:
- Используется модуль
crt
для работы с терминалом и math
для математических функций.
- Объявляются переменные
x
и y
типа Real
.
- С помощью функции
writeln
выводится приглашение ко вводу.
- Производится чтение значения
x
с клавиатуры через readln
.
- Проверяется условие: если
x
меньше нуля, то выводится сообщение об ошибке.
- Если
x
неотрицательный, то с помощью функции sqrt
вычисляется корень и результат выводится на экран.
- В конце программы
readln
используется для задержки закрытия окна программы, позволяя пользователю увидеть результат.