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

{{TOCRight}}
== Вычисление значений функций ==
 Вычислить значение функции y = 4.5x2 – 5x + 6 при любом значении х, заданном вводом с клавиатуры.
Поскольку сказано, что х может принимать любые значения, а в функции есть коэффициент вещественного типа, логично объявить тип х также вещественным. Возведение в квадрат заменим умножением х на х для получения более короткой записи.
<syntaxhighlight lang="pascal" line>
##
var x := ReadReal('x =');
var y := 4.5 * x * x - 5 * x + 6;
Print('y =', y);
</syntaxhighlight>
 x = -3.178
 y = 67.338578

 Составить программу вычисления значений функций при любых значениях х и у.
[[Файл:Func1.png|300px]]

Важно лишь правильно расставить скобки. Типы переменных – real. 
<syntaxhighlight lang="pascal" line>
##
var (x, y) := ReadReal2('Введите значения x и y:');
var z := (x + 2 * y / x ** 2) / (y + 1 / Sqrt(x * x + 10));
var q := 2.8 * Sin(x) + Abs(y);
Write('z = ', z, ', q = ', q);
</syntaxhighlight>

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

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

[[Файл:RingSurf.png|300px]]

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

<syntaxhighlight lang="pascal" line>
##
var (r1, r2) := ReadReal2('Введите внешний и внутренний радиусы:');
Print('S =', Pi * (Sqr(r1) - Sqr(r2)))
</syntaxhighlight>
 Введите внешний и внутренний радиусы: 120 105.3
 S = 10404.6721253506