Задачи в Pascal

[timuroup]

Здравствуйте. Помогите, пожалуйста, решить эти задачи с помощью языка Паскаль. Мне кажется, для знатоков, они будут очень простые, а я ничего не смыслю в данном Языке. Большое спасибо заранее.

[timuroup]

3 задание нужно решить несколькими видами:
1)операторов условного (IF) и безусловного переходов (GOTO);
2)цикла с предусловием (WHILE);
3)цикла с постусловием (REPEAT);
4)цикла с параметром (FOR);

[p51x]

И? Как пробовали? Какие ошибки выдал компилятор?

[newerow1989]

function f(x,b:real):real;
begin
   Result:=Sqrt(Cos(x)+b+x*x)/Ln(Abs(x+1));
end;

const dx=2;
      x0=1;
      x1=11;
      b=4.2;
var x:real;
begin
   x:=x0-dx;
   Repeat
      x:=x+dx;
      Writeln('x = ',x:4:1,'  y = ',f(x,b):5:2);
   Until x>=x1;
   Readln;
end.

function z(a,x:real):real;

   function y:real;
   begin
      If x<3 then
         Result:=a*x else
      If x>3 then
         Result:=x/a else
         Result:=x+a;
   end;

begin
   Result:=5*y+7.2*y*y;
end;

const dx=0.5;
      x0=1;
      x1=8;
      a=1.5;
var x:real;
begin
   x:=x0-dx;
   While x<x1 do
   begin
      x:=x+dx;
      Writeln('x = ',x:4:1,'  y = ',z(x,a):5:2);
   end;
   Writeln;
   x:=x0-dx;
   Repeat
      x:=x+dx;
      Writeln('x = ',x:4:1,'  y = ',z(x,a):5:2);
   Until x>=x1;
   Readln;
end.

label l,lex;
var i:integer;
    s:real;
begin
   s:=0;
   i:=2;
   l:
   s:=s+i/(i*i-1);
   i:=i+1;
   If i>20 then
      goto lex else
      goto l;
   lex:
   Writeln(s:5:2);

   s:=0;
   i:=2;
   While i<=20 do
   begin
      s:=s+i/(i*i-1);
      i:=i+1;
   end;
   Writeln(s:5:2);

   s:=0;
   i:=2;
   Repeat
      s:=s+i/(i*i-1);
      i:=i+1;
   Until i>20;
   Writeln(s:5:2);

   s:=0;
   For i:=2 to 20 do
      s:=s+i/(i*i-1);
   Writeln(s:5:2);
   Readln;
end.