задача в Turbo Pascal SOS

[мирЗвонка]

Разработать алгоритм и составить программу вычисления и вывода на печать значений заданной функции при изменении аргумента в интервале [a,b] с шагом h.

Вычислить: P=a*cos(2*v)/sqr(v)+3,

.....................1)a*ln(x), при x>1
где a=0.85, v= 2)sqr(sin(x)), при 0<x<1; -1<=x<=2; h=0.5
.....................3)Pi*a, при x<=0

[Chudo4258]

readln(a,b);
while a<=b do
 begin
  P=a*cos(2*v)/sqr(v)+3; {только не понятно откуда v ,берется}
  writeln(a,'   ',P);
  a:=a+h;
 end;

[ОДИНОЧЕСТВО В СЕТИ]

{только не понятно откуда v ,берется}

на нижние 3 строчки у ТС глянь

[ОДИНОЧЕСТВО В СЕТИ]

var x:real;
function p(c,x:real):real;
var v:real;
begin
if x>1 then v:=c*ln(x)
else if (x>0) and (x<1) then v:=sqr(sin(x))
else if x<=0 then v:=3.14*c;
p:=c*cos(2*v)/sqr(v)+3;
end;
begin;
x:=-1;
while x<=2 do
 begin
writeln(x:6:3;p(0.85,x):6:3); 
 x:=x+0.5;
 end;
readln;
end.

[мирЗвонка]

Большое человеческое спасибо)