Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.08.2016 16:14
- Информатика
- remove_red_eye 3230
- thumb_up 15
Ответы и объяснения 1
Var g,s:real;
function sn(g:real):real;
const e=0.001;
var x,a,s:real; n:integer;
begin
x:=g*Pi/180;
a:=x;s:=a;n:=0;
while abs(a)>e do
begin
a:=-a*x*x/(2*n+2)/(2*n+3);
s:=s+a;
n:=n+1
end;
sn:=s;
end;
begin
write('Введите угол (в градусах): ');
readln(g);
s:=sn(g);
writeln('sin(',g,')=',s:7:5);
end.
- 09.08.2016 19:03
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.