Предмет: Информатика,
автор: Саша0416
Помогите по информатике. Составить программу вычисления (в программе Паскаль) Задачи: 1) Запросить два числа,вычислить сумму квадратов этих чисел,результат вывести на экран. 2) Составить программу нахождения массы х литров молока,если плотность молока равна 1030 кг/м^3.
Ответы
Автор ответа:
0
:::::::::::::::::::::::::::::::::::::::::::;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
program abc2;
var x,y:real;
begin
x:=0.1;
repeat
if (sqr(x)-1.8*x+1.2)=0 then
writeln('x=',x,'нельзя вычислить функцию')
else
y:=(364*sqr(x)*exp(-7.5*x))/(sqr(x)-1.8*x+1.2);
if y>1 then
writeln('y=',y:8:3);
Интересные вопросы
Предмет: Математика,
автор: semenukmaranka7
Предмет: Математика,
автор: nikitosshowdonetsk
Предмет: Геометрия,
автор: andrejizvekov8
Предмет: Математика,
автор: оксик48
Предмет: Алгебра,
автор: katuwka44katuwka