Пожаловаться
- 02.05.2018 17:41
- Информатика
- remove_red_eye 14879
- thumb_up 48
Ответы и объяснения 1
Var
x,x0,xn,m,h:integer;
a,y,P,R:real;
Begin
Write('Введите начало диапазона: ');ReadLn(x0);
Write('Введите конец диапазона: ');ReadLn(xn);
Write('m = ');ReadLn(m);
Write('a = ');ReadLn(a);
Write('h = ');ReadLn(h);
P:=1;
x:=x0;
Repeat
R:=x*Pi/180;
y:=(Cos(R)+Sqr(Sin(R)))/(a+Cos(R*R));
if x mod m = 0 then P:=P*y;
WriteLn('y(',x,') = ',y);
x:=x+h;
Until x > xn;
WriteLn('P = ',P);
ReadLn
End.
x,x0,xn,m,h:integer;
a,y,P,R:real;
Begin
Write('Введите начало диапазона: ');ReadLn(x0);
Write('Введите конец диапазона: ');ReadLn(xn);
Write('m = ');ReadLn(m);
Write('a = ');ReadLn(a);
Write('h = ');ReadLn(h);
P:=1;
x:=x0;
Repeat
R:=x*Pi/180;
y:=(Cos(R)+Sqr(Sin(R)))/(a+Cos(R*R));
if x mod m = 0 then P:=P*y;
WriteLn('y(',x,') = ',y);
x:=x+h;
Until x > xn;
WriteLn('P = ',P);
ReadLn
End.
Пожаловаться
- 03.05.2018 06:43
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы