Вычисления по известным формулам (PascalABC.NET)

Вычисление значений функций

Вычислить значение функции y = 4.5x2 – 5x + 6 при любом значении х, заданном вводом с клавиатуры.

Поскольку сказано, что х может принимать любые значения, а в функции есть коэффициент вещественного типа, логично объявить тип х также вещественным. Возведение в квадрат заменим умножением х на х для получения более короткой записи.

1 ##
2 var x := ReadReal('x =');
3 var y := 4.5 * x * x - 5 * x + 6;
4 Print('y =', y);

x = -3.178
y = 67.338578

Составить программу вычисления значений функций при любых значениях х и у.

Важно лишь правильно расставить скобки. Типы переменных – real.

1 ##
2 var (x, y) := ReadReal2('Введите значения x и y:');
3 var z := (x + 2 * y / x ** 2) / (y + 1 / Sqrt(x * x + 10));
4 var q := 2.8 * Sin(x) + Abs(y);
5 Write('z = ', z, ', q = ', q);

Введите значения x и y: 2.63 -5
z = -0.248959039622826, q = 6.37078649911448

Вычисление по формулам из геометрии

Найти площадь кольца по заданным внешнему и внутреннему радиусам.

Площадь кольца вычисляется по известной формуле S = Pi * (R² - r²), где R – внешний радиус, r – внутренний радиус.

1 ##
2 var (r1, r2) := ReadReal2('Введите внешний и внутренний радиусы:');
3 Print('S =', Pi * (Sqr(r1) - Sqr(r2)))

Введите внешний и внутренний радиусы: 120 105.3
S = 10404.6721253506

Заданы координаты двух точек на плоскости. Найти расстояние между точками с точностью до трех знаков после запятой.

1 ##
2 var (xA, yA) := ReadReal2('Введите координаты первой точки:');
3 var (xB, yB) := ReadReal2('Введите координаты второй точки:');
4 var L := Sqrt(Sqr(xB - xA) + Sqr(yB - yA));
5 Write('Расстояние между точками составляет ', L:0:3);

Введите координаты первой точки: -12 3.6
Введите координаты второй точки: 7 -9.14
Расстояние между точками составляет 22.876

Прочие вычисления

Известна стоимость 1 кг конфет, печенья и яблок. Найти стоимость покупки, если было куплено x кг конфет, y кг печения и z кг яблок. Обозначим стоимость 1 кг конфет через К, печенья – через P и яблок через B. Тогда стоимость покупки S составит K ∙ x + P ∙ y + B ∙ z.

1 ##
2 var (K, P, B) := ReadReal3('Стоимость 1 кг конфет, печенья и яблок:');
3 var (x, y, z) := ReadReal3('Куплено конфет, печенья и яблок (кг):');
4 Print('Сумма покупки составит', K * x + P * y + B * z);

Стоимость 1 кг конфет, печенья и яблок: 264 117 80
Куплено конфет, печенья и яблок (кг): 0.83 1.59 2.25
Сумма покупки составит 585.15