Найти первый отрицательный член последовательности

@TopSecret96 · Регистрация: 28.04.2015

Author24 — интернет-сервис помощи студентам

Найти первый отрицательный член последовательности cos(ctg(n)) , n=1, 2, 3. Применить оператор цикла с постусловием.

@ZX Spectrum-128 · 29.04.2015, 20:03

Pascal

{Найти первый отрицательный член последовательности cos(ctg(n)) , n=1, 2, 3.
Применить оператор цикла с постусловием.}
var
  n:integer;
  otr,y:real;
begin
  n:=1;
  repeat
    y:=cos(cos(n)/sin(n));
    write(y:8:2);
    if y<0 then
      break;
    inc(n);
  until n>3;
  writeln;
  if y>=0 then
    writeln('Нет отрицательных членов.')
  else
    writeln(y:8:2);
  readln;
end.

@TopSecret96 · 12.05.2015, 21:05 **[ТС]**

я в паскале совсем не разбираюсь, где тут написано, что n=1,2,3 ?

@SuperKir · 13.05.2015, 00:30

TopSecret96,

Pascal

n:=1;
repeat
...
inc(n); //n:=n+1
until n>3;

@TopSecret96 0 / 0 / 0 Регистрация: 28.04.2015 Сообщений: 32
		1
	Найти первый отрицательный член последовательности 28.04.2015, 14:06. Показов 2877. Ответов 3 Метки нет (Все метки) Найти первый отрицательный член последовательности cos(ctg(n)) , n=1, 2, 3. Применить оператор цикла с постусловием. 0

@TopSecret96 0 / 0 / 0 Регистрация: 28.04.2015 Сообщений: 32
	12.05.2015, 21:05 [ТС]	3
	я в паскале совсем не разбираюсь, где тут написано, что n=1,2,3 ? 0

	13.05.2015, 00:30

Найти первый отрицательный член последовательности

Решение