Вопрос по информатике:
Составьте программу , которая с четырьмя произвольными числами а,x,z и w , введенными с клавиатуры, производит вычисления по следующим формулам:
Во вложении.
Пожаловаться
- 03.12.2017 20:52
- Информатика
- remove_red_eye 19370
- thumb_up 24
Ответы и объяснения 2
Паскаль
var a,b,c,d,e,f,w,x,z:real;
begin
read(a,x,z,w);
b:=((sqr(z)-sqr(a))*7.5*z-3*z*sqr(power(z,3)+w)+3*x*z)/(25*x*a*w+33.7*sqr(z));
c:=b+(a/power((5-x/3),3))+120.5*b*x;
e:=(a*b*c-175*a*(b-3))/(a*sqr(b)*c+17*a*z);
f:=2*b+3*e-c*b;
write(b:0:5,' ',c:0:3,' ',e:0:4,' ',f:0:3);
end.
var a,b,c,d,e,f,w,x,z:real;
begin
read(a,x,z,w);
b:=((sqr(z)-sqr(a))*7.5*z-3*z*sqr(power(z,3)+w)+3*x*z)/(25*x*a*w+33.7*sqr(z));
c:=b+(a/power((5-x/3),3))+120.5*b*x;
e:=(a*b*c-175*a*(b-3))/(a*sqr(b)*c+17*a*z);
f:=2*b+3*e-c*b;
write(b:0:5,' ',c:0:3,' ',e:0:4,' ',f:0:3);
end.
Пожаловаться
- 04.12.2017 14:56
- thumb_up 45
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a,x,z,w:real; Read(a,x,z,w);
var b:=((z*z-a*a)*7.5-3*(z**3+w)**2+3*x)/(25*x*a*w+33.7*z*z)*z;
var c:=b+a/(5-x/3)**3+120.5*b*x;
var e:=(a*b*c-175*a*(b-3))/(a*b*b*c+17*a*z);
var f:=2*b+3*e-c*b;
Writeln(b:0:5,' ',c:0:3,' ',e:0:4,' ',f:0:3)
end.
Внимание! Если программа не работает, обновите версию!
begin
var a,x,z,w:real; Read(a,x,z,w);
var b:=((z*z-a*a)*7.5-3*(z**3+w)**2+3*x)/(25*x*a*w+33.7*z*z)*z;
var c:=b+a/(5-x/3)**3+120.5*b*x;
var e:=(a*b*c-175*a*(b-3))/(a*b*b*c+17*a*z);
var f:=2*b+3*e-c*b;
Writeln(b:0:5,' ',c:0:3,' ',e:0:4,' ',f:0:3)
end.
Пожаловаться
- 05.12.2017 19:27
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы