Вложенные циклы

[yulia.a]

Попыталась написать программу по прикрепленному заданию. На мой взгляд, получилась какая-то ерунда... Помогите, пожалуйста, сделать правильно.

Program Lab;
  Var 
    x0,hx,xn,x,S,xm,z,a,y:real;
    m:byte;
  Begin
    x0:=0.1;
    hx:=0.1;
    xn:=0.9;
    x:=x0;
      repeat
        S:=0;
        xm:=1;
        for m:=0 to 20 do
          begin
            z:=a*exp(ln(x)*m);
            S:=S+z;
          if z<=0.5
            then
              a:=2*m
            else
              a:=m/2;
          end;
        y:=(sin(x)+2)*S/(cos(x)+3);
        writeln(‘x=’,x,’y=’,y);
        x:=x+hx;
      until x>xm
  End.

[BDA]

x0 := 0.1;
hx := 0.1;
xn := 0.9;
x := x0;
while x <= xn do
begin
  y := 0;
  for m := 0 to 20 do
  begin
    if x <= 0.5 then
      a := 2 * m
    else
      a := m / 2;
    y := y + a * exp(ln(x) * m);
  end;
  y := y * (sin(x) + 2) / (cos(x) + 3);
  writeln(‘x = ’, x:0:4 , ’ y = ’, y:0:4);
  x := x + hx;
end;

[Stilet]

А почему ты решила что это не верное решение?

[yulia.a]

Спасибо, все получилось как надо))

И еще вопрос, правильно ли я нарисовала блок-схему к этой программе, а то уже совсем запуталась с этими циклами?

Program Lab;
  Var 
    x0,hx,xn,x,a,y:real;
    m:byte;
  Begin
    x0 := 0.1;
    hx := 0.1;
    xn := 0.9;
    x := x0;
    while x <= xn do
    begin
      y := 0;
      for m := 0 to 20 do
        begin
          if x <= 0.5 
            then
              a := 2 * m
            else
              a := m / 2;
         y := y + a * exp(ln(x) * m);
        end;
      y := y * (sin(x) + 2) / (cos(x) + 3);
      writeln(‘x = ’, x, ’ y = ’, y);
      x := x + hx;
    end;
  End.

[BDA]

Есть ошибки в блок-схеме:
Неверное значение xn
Не тот знак в неравенстве (x <= xn)
Цикл по m неверен (не те значения начала и конца цикла, не тот шаг)
Цикл по m не там закрыт (лишние операции внутри этого цикла)

Для самопроверки можно воспользоваться FCEditor, который построит блок-схему по коду.

UPD
Пожалуйста.

[yulia.a]

Спасибо за помощь!
Очень удобная программка