Цикл While

[gennadii]

Здравствуйте, подскажите пожалуйста, почему у меня цикл не работает, что не так? Спасибо.

Uses crt;
Var
  t:integer;
  a,s:real;
Begin
  clrscr;
  a:=10;
  s:=a;
  t:=1;
    While s<40  do begin
    a:=a*0.1;
    s:=s+a;
    t:=t+1;
    end;
  Writeln('t=',t);
  Readkey;
End.

[Smitt&Wesson]

Он у Вас не то, что-бы не работает, он зациклен. Проверяем первое вхождение: s=10. Второе s=1, третье s=0.1....

    While s<40  do begin
    a:=a*0.1;// a * 0.1 = 1, 0.1, 0.01...
    s:=s+a;
    t:=t+1;// зачем здесь t?
    end;

Может нужно так?

    While t<40  do begin
    a:=a*0.1;
    s:=s+a;
    t:=t+1;
    end;

[gennadii]

Вот само задание:

переменные t целого типа; а, s вещественного типа
начало
а присвоить 10
s присвоить а
t присвоить 1
пока s<40 повторять
нц
а увеличить в 0,1 раз
s увеличить на а
t увеличить на 1
кц
вывод t
конец

Может я что-то не понял?

[Serge_Bliznykov]

Геннадий, если Вам дали такое условие, совсем не значит, что оно имеет математическое решение.

попробуйте такой код для начала:

  While (s<40) and (a>0)  do begin
      a:=a*0.1;
      s:=s+a;
      t:=t+1;
  end;
  Writeln('t=',t, ' s =', s:0:17,' a=', a:0:17 );

и Вы легко убедитесь, что через 326 циклом a окончательно становится нулевым. и дальше прибавление его к s ничего не даёт. s не станет увеличиваться, хоть сто миллиардов раз прокрутите цикл. Вот поэтому программа и зацикливается...

Что с этим делать? Уточнять задание. Если в нём нет ошибок/опечаток, то задача решения не имеет.

[gennadii]

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

Что с этим делать? Уточнять задание. Если в нём нет ошибок/опечаток, то задача решения не имеет.

Скорее всего вы правы, тем более в задаче точно опечаток нету! Спасибо!