Прерывание цикла Опции

[Raznorg]

Мне нужно чтобы цикл прерывался тогда, когда ответ меньше 0 и выводил первое число которое привело к этому вот программа :

Код

program _141_3;
uses crt;
var
x,z,a:integer;
y:real;
begin
clrscr;
z:=0;
write('col chisel I= ');
read(x);
for a:=1 to x do
z:=z+1;
y:=sin(z/100);
if y<0 then
writeln('first otr chisl pri I=',z)
else
writeln('malo chisel =)');
end.

Сообщение отредактировано: Raznorg - 12.11.2010 23:38

[Krjuger]

напишите программу, которая находит первое отрицательное число последовательности y:=sin(z/100) где у=1,2,3,4...

Может быть не y,а z??
И почему ты вместо цикла for не возмеш цикл repeat until, например, и как раз сразу, как только выполнитсья условие, он из цикла выйдет.
А вообще можно использовать оператор прерывания цикла break.

Сообщение отредактировано: Krjuger - 12.11.2010 23:40