правильное составление услвовия

[P®o©omp@s]

Доброй ночи уважаемые форумчане, у меня есть задание:
Пусть Аi=0.01 , Ak=sin(k+Ak-1), k=2,..,1000. Определить, какие из членов последовательности Ai, i=1,2,3,8,16… (степени 2) имею значение, меньшее, чем 0,25. Если таковых нет, выдать сообщение.
вот написал код программы на паскале:

Program xx;
var A:real;k:integer;
begin
A := 0.01;
for k:=2 to 1000 do
 begin
   A := sin(k+A-1);
   if (A<0.25) then
     begin
      if ((k=2) or (k=4) or (k=8) or (k=16) or (k=32) or(k=64) or (k=4) or (k=128) or (k=256) or (k=512)) then  Writeln('k=',K,'  ;A=',A);
      end;
   end;
readln;
end.

не получается никак прилепить последнее, чтоб если вообще никакие члены последовательности не удовлетворяют условию чтоб выводило сообщение, помогите пожалуйста!

[Вавел из ГМТУ]

Ak=sin(k+Ak-1)

Это как? (десять букав)

[P®o©omp@s]

ну типа блин не могу нижнюю степень сделать, ну типа А(катое)=sin(k+A(катое)-1);
ну что- то типа
А(2)=sin(2+A(1)-1);
A(3)=sin(3+A(2)-1);

[Вавел из ГМТУ]

Мда.. ладно, не буду пыжить мозг.

Задай переменую типа Boolean и проверь после своих вычислений.

PS: ну и код конечно....

[P®o©omp@s]

Нее, я проще сделал:

Program ex_1;
var A:real;k:integer;s:string;
begin
A := 0.01;
s:='...';
for k:=2 to 1000 do
  begin
   A := sin(k+A-1);
   if (A<0.25) AND ((k=2) or (k=4) or (k=8) or (k=16) or (k=32) or
       (k=64) or (k=4) or (k=128) or (k=256) or (k=512)) then  
         writeln('K=',k,'  ;A=',A)
      else s:='Takovyh net!';
    end;
readln;
end.

[Вавел из ГМТУ]

Ну можно и так..


А мне вот интересно: это ты комуто за деньги эту задачу делаешь?

[P®o©omp@s]

Все, спасиб всем взял листок и карандаш, нарисовал на листке блок схему и сам во всем разобрался:

Program ex_000;
var A:real;k:integer;s:boolean;
begin
s:=False;
A := 0.01;
for k:=2 to 1000 do
  begin
   A := sin(k+A-1);
   if (A<0.25) and ((k=2) or (k=4) or (k=8) or (k=16) or (k=32) or
       (k=64) or (k=4) or (k=128) or (k=256) or (k=512)) then begin             
          Writeln('K=',k,'  ;A=',A); S:=True; end;
   end;
if s=False then Writeln('Takovyh net!');
readln;
end.

[Вавел из ГМТУ]

У тебя в условии два раза повторяется k=4...

[Stilet]

Вавел из ГМТУ, uriktus

Заканчиваем тему засорять личной перепиской, иначе в баньку отправлю.