Подпрограмма: Напишите процедуру для вычисления значения y по заданной формуле - Turbo Pascal

Формулировка задачи:

Напишите процедуру для вычисления значения y. у = 2x^2, если x ≤ 1, y = x+1/3, если 1 ≤ x≤8, y = √sin^2 x, если x ≥ 8.

Решение задачи: «Подпрограмма: Напишите процедуру для вычисления значения y по заданной формуле»

Листинг программы

uses crt;
procedure vych(x:real);
var y:real;
begin
if x<=1 then y:=2*x*x
else if x>=8 then y:=sqrt(sqr(sin(x)))
else y:=x+1/3; {1<x<8 <= это опечатки}
write('y=',y:0:3);
end;
var x:real;
begin
clrscr;
write('x=');
readln(x);
vych(x);
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая является стандартной библиотекой Turbo Pascal и используется для работы с числовыми значениями.
Создается процедура vych, которая принимает один параметр типа real - x.
Внутри процедуры объявляются две переменные: y типа real и x типа real.
Затем выполняется проверка условия x<=1. Если это условие истинно, то значение переменной y устанавливается равным 2xx.
Если условие x>=8 истинно, то значение переменной y устанавливается равным sqrt(sqr(sin(x))). Здесь sqr - функция возведения в квадрат, sin - функция синуса, а sqrt - функция извлечения квадратного корня.
Если условие x<8 истинно, то значение переменной y устанавливается равным x+1/3.
Значение переменной y записывается в файл с помощью функции write, используя формат 'y=', за которым следует значение переменной y в формате 0:3.
Далее объявляется переменная x типа real.
Выводится сообщение 'x=' с помощью функции write.
Считывается значение переменной x с помощью функции readln.
Вызывается процедура vych с переменной x в качестве аргумента.
Выводится сообщение 'y=' с помощью функции write.
Конец программы.