Вывести на печать положительные значения функции

@Trance · Регистрация: 13.06.2012

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

Помогите решить, заранее спасибо))
2. Вывести на печать положительные значения функции
z = sin(х) – 5cos(х – 2) для х, изменяющегося на отрезке [2, 12] с шагом 1,2.

@Das Gespenst · 13.06.2012, 18:17

Таких значений Z нет. Можешь поменять диапазон на [-100..100]

Pascal

program z;
var x,z:real; f:byte;
begin
     x:=2;
     f:=0;
     writeln('Положительные значения Z:');
     repeat
           z:=sin(x*arctan(1)*4/180)-5*cos((x-2)*arctan(1)*4/180);
           if z>0
              then
                  begin
                       f:=1;
                       writeln(z);
                  end;
           x:=x+1.2;
     until x>12;
     if f=0
        then
            writeln('Таких значений нет!')
end.

@Trance 0 / 0 / 1 Регистрация: 13.06.2012 Сообщений: 76
		1
	Вывести на печать положительные значения функции 13.06.2012, 17:48. Показов 1793. Ответов 1 Метки нет (Все метки) Помогите решить, заранее спасибо)) 2. Вывести на печать положительные значения функции z = sin(х) – 5cos(х – 2) для х, изменяющегося на отрезке [2, 12] с шагом 1,2. 0

	13.06.2012, 18:17

Опции темы

Вывести на печать положительные значения функции

Решение