Question

Помогите по информатике. Составить программу вычисления (в программе Паскаль) Задачи: 1) Запросить два числа,вычислить сумму квадратов этих чисел,результат вывести на экран. 2) Составить программу нахождения массы х литров молока,если плотность молока равна 1030 кг/м^3.

Answer 1

:::::::::::::::::::::::::::::::::::::::::::;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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);

Answer 2

Конечно, вот программы на языке Pascal для решения ваших задач:

1. Программа для вычисления суммы квадратов двух чисел:

pascalCopy code
program SumOfSquares;
var
  num1, num2, sumOfSquares: real;
begin
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);
  
  sumOfSquares := num1 * num1 + num2 * num2;
  
  writeln('Сумма квадратов чисел: ', sumOfSquares);
end.

2. Программа для вычисления массы молока:

pascalCopy code
program MilkMass;
var
  volume, density, mass: real;
begin
  writeln('Введите объем молока (в литрах): ');
  readln(volume);
  
  density := 1030; // Плотность молока в кг/м^3
  
  mass := volume * density;
  
  writeln('Масса молока: ', mass:0:2, ' кг');
end.

Эти программы сначала запрашивают необходимые входные данные, затем выполняют вычисления и выводят результат на экран.