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

Материал из Информационная безопасностя
Перейти к навигации Перейти к поиску
Строка 33: Строка 33:
  
 
Площадь кольца вычисляется по известной формуле
 
Площадь кольца вычисляется по известной формуле
S = pi * (R<sup>2</sup> - r<sup>2</sup>), где R – внешний радиус, r – внутренний радиус.
+
S = Pi * (R<sup>2</sup> - r<sup>2</sup>), где R – внешний радиус, r – внутренний радиус.
  
 
<syntaxhighlight lang="pascal" line>
 
<syntaxhighlight lang="pascal" line>

Версия 15:05, 2 мая 2023

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

Вычислить значение функции 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
Составить программу вычисления значений функций при любых значениях х и у.

Func1.png

Важно лишь правильно расставить скобки. Типы переменных – 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

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

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

RingSurf.png

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

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