Составить программу используя оператор цикла с предусловием

@AnnaKim · Регистрация: 09.12.2015

Вычислить количество положительных значений Cos(φ) на интервале [a, b] с заданным шагом.

@APALoff · 10.12.2015, 10:57

Pascal

h:=0.25;
fi:=a;
n:=0;
While fi<=b do
Begin
  If Cos(fi)>0 then Inc(n);
  fi:=fi+h;
end;
Writeln(n);

@AnnaKim 0 / 0 / 0 Регистрация: 09.12.2015 Сообщений: 4
		1
	Составить программу используя оператор цикла с предусловием 10.12.2015, 10:51. Показов 2591. Ответов 1 Метки нет (Все метки) Вычислить количество положительных значений Cos(φ) на интервале [a, b] с заданным шагом. 0

	10.12.2015, 10:57

Опции темы

Решение