Программы Pascal

3 алгоритма и текста программы в Pascal ...

1 задание.
Задано вещественное значение аргумента х. Вычислить значение функции y=x2 + Sin x.
2 задание.
Задано вещественное значение аргумента х. Вычислить значение функции y={█(x^2+sin⁡x,x<[email protected]⁡〖x^2,x≥3〗 )┤.
3 задание.
Вычислить количество положительных значений cos(φ) на интервале [a,b] с заданным шагом.

1 задание.
Задано вещественное значение аргумента х. Вычислить значение функции y=x2 + Sin x.
2 задание.
Задано вещественное значение аргумента х. Вычислить значение функции y={█(x^2+sin⁡x,x<[email protected]⁡〖x^2,x≥3〗 )┤.
3 задание.
Вычислить количество положительных значений cos(φ) на интервале [a,b] с заданным шагом.

Writeln('Введите значение x'); Readln(x); {Вводим значение х}
If x<3 then {Проверяем условие}
y:=x*x+sin(x) {если выполняется, товычисляем значение у поформуле}
else {иначе}
y:=Ln(x*x); {если не выполняется, товычисляемподругой формуле}
Writeln('y=',y:10:10); {выводимзначение у}
Readln;
End.
3 задание.
Вычислить количество положительных значений cos(φ) на интервале [a,b] с заданным шагом.
Алгоритм решения задачи:
Программа в Turbo Pascal:
uses crt;
var a,b,h,x:real; {Описываем переменные}
k:integer;
begin
clrscr;
repeat {Проверяем правильно ли введены границы интервала}
writeln('Введитеграницы интервала, при условии что a<b');
readln(a,b);
until a<b;
repeat {Проверяем правильно ли введен шаг}
write('Введите шаг h<',b-a:0:1,' h=');
readln(h);
until h<b-a;
k:=0; {Счетчик}
x:=a;