Пожаловаться
- 19.08.2015 01:24
- Информатика
- remove_red_eye 7524
- thumb_up 12
Ответы и объяснения 1
Var
e,f,g,a,b,c,D:real;
Begin
Write('e = ');ReadLn(e);
Write('f = ');ReadLn(f);
Write('g = ');ReadLn(g);
a:=power(abs(e-f),3)*Cos(g);
b:=(17*e-f/g)/3;
c:=sqrt(e*e+g*g);
WriteLn('a = ',a);
WriteLn('b = ',b);
WriteLn('c = ',c);
D:=b*b-4*a*c;
WriteLn('d = ',D);
if D<0 then Write('Действительных корней нет')
else
Begin
WriteLn('x1 = ',(-b+sqrt(D))/(2*a));
WriteLn('x2 = ',(-b-sqrt(D))/(2*a));
End
End.
e = -10
f = 9
g = 9
a = -6249.442466267
b = -57
c = 13.4536240470737
d = 339559.597779893
x1 = -0.0511819597332229
x2 = 0.0420611461074199
e,f,g,a,b,c,D:real;
Begin
Write('e = ');ReadLn(e);
Write('f = ');ReadLn(f);
Write('g = ');ReadLn(g);
a:=power(abs(e-f),3)*Cos(g);
b:=(17*e-f/g)/3;
c:=sqrt(e*e+g*g);
WriteLn('a = ',a);
WriteLn('b = ',b);
WriteLn('c = ',c);
D:=b*b-4*a*c;
WriteLn('d = ',D);
if D<0 then Write('Действительных корней нет')
else
Begin
WriteLn('x1 = ',(-b+sqrt(D))/(2*a));
WriteLn('x2 = ',(-b-sqrt(D))/(2*a));
End
End.
e = -10
f = 9
g = 9
a = -6249.442466267
b = -57
c = 13.4536240470737
d = 339559.597779893
x1 = -0.0511819597332229
x2 = 0.0420611461074199
Пожаловаться
- 20.08.2015 13:52
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы