что то не так с выводом кода. помогите плиз

[mishammm]

у меня не работает в коде строка v:=v+0.1 у меня бесконечный цикл: вот сам код:

Program laboratorna;
var
     v,x,deltav:real;
     begin
     Writeln('VVedi v');
     Readln(v);
  If (v<1) then
  begin
  while(v<1) do
  writeln('v=',v,'x=',x);
   x:=exp(v * ln(1.26)) + v;
   v:=v+0,1;
   end
   else
   If (v<4) then
   begin
   while  (v<4) do
   writeln('v=',v,'x=',x);
   x:= pi/2-arctan(v+0.4);
   v:= v+0.1;
   end;
   Writeln('x=',x);
   Readln
   End.

[Poma][a]

Program laboratorna;
var
     v,x,deltav:real;
     begin
     Writeln('VVedi v');
     Readln(v);
  If (v<1) then
  begin
  while(v<1) do begin
  writeln('v=',v,'x=',x);
   x:=exp(v * ln(1.26)) + v;
   v:=v+0,1;
   end
end
   else
   If (v<4) then
   begin
   while  (v<4) do
   writeln('v=',v,'x=',x);
   x:= pi/2-arctan(v+0.4);
   v:= v+0.1;
   end;
   Writeln('x=',x);
   Readln
   End.

[BDA]

var
  start1, end1, deltav: real;

function f(x: real): real;
begin
  if x < 0 then
    f := -666 // error
  else if x < 0 then
    f := exp(x * ln(1.26)) + x
  else if x < 4 then
    f := pi / 2 - arctan(x + 0.4)
  else
    f := -666; // error
end;

begin
  Writeln('Vvedi start, end, delta');
  Readln(start1, end1, deltav);
  while start1 < end1 do
  begin
    Writeln('v=', start1:0:4, ' x=', f(start1):0:4);
    start1 := start1 + deltav;
  end;
  Readln
End.

[mishammm]

да извиняюсь это был паскаль

ромаха а какое отличие у вас от моего кода? )))

[Poma][a]

ромаха а какое отличие у вас от моего кода? )))

В 1-ом while у меня есть begin-end, у Вас - нет..

[mishammm]

понял извините, не заметил

ромаха спасибо вам действ. пропустил бегин и енд работает вроде )))