Задача на Repeat! все написано, проверьте...

[Andrux]

Пожалуйста посмотрите где я допустил ошибку...
А то ввожу любое число и мне выдает 2....
Заранее благодарен!

program anz97;
uses crt;
var x1,y1,n,i:integer;x,y,sum:real;
begin
     clrscr;
     textcolor(2);
     writeln('Vvedite chemy ravno n');
     readln(n);
     i:=2;
     x1:=1;
     y1:=1;
     repeat
     x:=0.3*x1;
     y:=x1+y1;
     i:=i+1;
     sum:=x1/1+abs(y1);
     until i<n;
     writeln('Otvet= ' , sum:6:2);
     readln;
end.

[Sm1Le]

Сообщение от Andrux

program anz97;
uses crt;
var x1,y1,n,i:integer;x,y,sum:real;
begin
     clrscr;
     textcolor(2);
     writeln('Vvedite chemy ravno n');
     readln(n);
     i:=2;
     x1:=1;
     y1:=1;
     repeat
     x:=0.3*x1;
     y:=x1+y1;
     i:=i+1;
     sum:=x1/1+abs(y1);
     until i<n;
     writeln('Otvet= ' , sum:6:2);
     readln;
end.

и что ? все тоже самое ... У меня Возник такой вопрос зачем вам x,y если вы из не юзаете вообще ... Конечно =2 !!!
Ошибки :
1) Для ответа ты выводишь не Yi a Y1 не странно ли ? - более чем ...
2)Самые простые правила выполнения ариф. действий. сначала *,\, а потом +,-. Для дробей как утебя придумали " (....) " У тебя сначала идет деление Y1 на 1, а потом уже сумма + abs() ... отсюда x1/(1+abs(y1) ....

program anz97;
uses crt;
var x1,y1,n,i:integer;x,y,sum:real;
begin
     clrscr;
     textcolor(2);
     writeln('Vvedite chemy ravno n');
     readln(n);
     i:=2;
     x1:=1;
     y1:=1;
     repeat
     x:=0.3*x1;
     y:=x1+y1;
     i:=i+1;
     sum:=x/(1+abs(y));
     until i<n;
     writeln('Otvet= ' , sum:6:2);
     readln;
end.

-это ваша программа после исправлений но это не как не правильный ответ ! Задача решена не правильно ... Здесь уже вступает в силу простая внимательность и Алгебра а ее уже не люблю ...

program anz97;
uses crt;
var x1,y1,n,i,xi,yi:integer;x,y,sum:real;
begin
     clrscr;
     textcolor(2);
     writeln('Vvedite chemy ravno n');
     readln(n);
     i:=2;
     xi:=1;
     yi:=1;
     repeat
     x:=0.3*xi;
     y:=xi+yi;
     xi:=x;
     yi:=y;
     i:=i+1;
     sum:=x/(1+abs(y));
     until i<n;
     writeln('Otvet= ' , sum:6:2);
     readln;
end.

Вот так должно быть нормально ... =)) Простите паскаля нету ... =)) Что б проверить .. =)))