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

Материал из Информационная безопасностя
Перейти к навигации Перейти к поиску
 
(не показаны 3 промежуточные версии этого же участника)
Строка 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>
 
##
 
##
var (R1, r2) := ReadReal2('Введите внешний и внутренний радиусы:');
+
var (r1, r2) := ReadReal2('Введите внешний и внутренний радиусы:');
Print('S =', Pi * (Sqr(R1) - Sqr(r2)))
+
Print('S =', Pi * (Sqr(r1) - Sqr(r2)))
 
</syntaxhighlight>
 
</syntaxhighlight>
 
  Введите внешний и внутренний радиусы: 120 105.3
 
  Введите внешний и внутренний радиусы: 120 105.3
 
  S = 10404.6721253506
 
  S = 10404.6721253506
 +
 +
Заданы координаты двух точек на плоскости. Найти расстояние между точками с точностью до трех знаков после запятой.
 +
<syntaxhighlight lang="pascal" line>
 +
##
 +
var (xA, yA) := ReadReal2('Введите координаты первой точки:');
 +
var (xB, yB) := ReadReal2('Введите координаты второй точки:');
 +
var L := Sqrt(Sqr(xB - xA) + Sqr(yB - yA));
 +
Write('Расстояние между точками составляет ', L:0:3);
 +
</syntaxhighlight>
 +
Введите координаты первой точки: -12 3.6
 +
Введите координаты второй точки: 7 -9.14
 +
Расстояние между точками составляет 22.876
 +
 +
== Прочие вычисления ==
 +
Известна стоимость 1 кг конфет, печенья и яблок. Найти стоимость покупки, если было куплено x кг конфет, y кг печения и z кг яблок.
 +
Обозначим стоимость 1 кг конфет через К, печенья – через P и яблок через B. Тогда стоимость покупки S составит K ∙ x + P ∙ y + B ∙ z.
 +
<syntaxhighlight lang="pascal" line>
 +
##
 +
var (K, P, B) := ReadReal3('Стоимость 1 кг конфет, печенья и яблок:');
 +
var (x, y, z) := ReadReal3('Куплено конфет, печенья и яблок (кг):');
 +
Print('Сумма покупки составит', K * x + P * y + B * z);
 +
</syntaxhighlight>
 +
 +
Стоимость 1 кг конфет, печенья и яблок: 264 117 80
 +
Куплено конфет, печенья и яблок (кг): 0.83 1.59 2.25
 +
Сумма покупки составит 585.15

Текущая версия на 15:08, 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
Заданы координаты двух точек на плоскости. Найти расстояние между точками с точностью до трех знаков после запятой.
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