Question

Перевести на язык программирования PascalABC данные математические выражения.

Answer 1

Задание 1

1. var
2.  firstNumber, secondNumber: integer;
3. begin
4.  Write('Введите два числа: ');
5.  Read(firstNumber);
6.  Read(secondNumber);
7.  
8.  Writeln('Среднее значение чисел ', firstNumber, ' и ', secondNumber, ' = ', (firstNumber + secondNumber) / 2);
9. end.

Задание 2

1. var
2.  x, a, b, y: real;  { значение переменных }
3. begin
4.  Writeln('a) y = 2 * x^2 - 5 * x + 7');
5.  Write('Введите x: ');
6.  Read(x);
7.  Writeln('y = ', 2 * Power(x, 2.0) - 5 * x + 7);
8.  
9.  Writeln('б) c = (a + b)^2 - 2 * a^2 * b');
10.  Write('Введите a, b: ');
11.  Read(a, b);
12.  Writeln('c = ', Power(a + b, 2.0) - 2 * Power(a, 2.0) * b);
13.  
14.  Writeln('в) z = | x - y^2 | + x * sqrt(x)');
15.  Write('Введите x, y: ');
16.  Read(x, y);
17.  Writeln('z = ', Abs(x - Power(y, 2.0)) + x * Sqrt(x));
18. end.