задача на цикл с предусловием. помогите. грозит недопуск Опции

[Алиса]

люди, спасите. эта задача - либо мой допуск до экзамена либо нет...
условие следующее: "для заданного натурального числа n и вещественного числа x вычислите sinx+sinxsinx+sinxsinxsinx+...+sinxsinx...sinx используйте цикл с предусловием"

текст программы которую составила я:

program;
var
a,b,c,x:real;
n:integer;
begin
x:=Pi/2;
a:=sin(x);
b:=sqr(a);
c:=a+b;
n:=2
while n<=3 do begin
b:=b*a;
c:=c+b;
writeln ('c=',c,'');
n:=n+1;
end;
end.

Как Х я взяла Пи на 2 чтобы проверить идет ли программа... по идее при N=3 у меня С тоже должна быть=3... но программа упорно пишет с=2... что за бред не понимаю... вроде логически все правильно. пожалуйста попробуйте разобраться в чем дело... у меня мозги кипят уже по всякому вертела и подставляла, считала сама на бумажке, лажа какая-то...не выходит и все. В общем мне нужно чтобы она хотя бы при заданном иксе считала верно. жду помощи.

М

правда, с тегами лучше? мисс_граффити

Сообщение отредактировано: мисс_граффити - 23.01.2007 13:41

[Lapp]

Здесь цикл реализован для всех n, а не только больше 2:

var
  a,b,c,x:real;
  i,n:integer;
begin
  Write( 'x=');ReadLn(x);
  Write('n=');ReadLn(n);
  a:=sin(x);
  b:=1;
  c:=0;
  i:=0;
  while i<n do begin
    b:=b*a;
    c:=c+b;
    i:=i+1;
  end;
  WriteLn('c=',c:8:5);
  ReadLn
end.

Надеюсь, ты разберешься с кодом..