Тип данных Real

Действия с действительными числами

Для представления вещественных чисел имеется следующий набор типов:

Тип	Название	Диапазон значений	Размер
Real	Вещественный	2.9E-39, 1.7E+38	6 байт
Single	Одинарный	1.5E-35, 3.4E+38	4 байта
Double	Двойной	5.0E-324, 1.7E+308	8 байт
Extended	Расширенный	3.4E-4932, 1.1E+4932	10 байт
Comp	Комплексный	-9.2E+18, 9.2E+18	8 байт

Стандартные функции и операции

Abs (x) соответствует |x|;

ArcTan (x) соответствует arctg(x);

Cos (x) соответствует cos(x);

Sin (x) соответствует sin(x);

Exp (x) соответствует e^x;

Ln (x) соответствует ln(x);

Sqr (x) соответствует x²;

Sqrt (x) соответствует ;

Frac (x) - дробная часть: X – INT(X);

Int (x) возвращает целую часть числа;

Round (x) возвращает число равное целой части (округление по правилам арифметики);

Trunc(x) возвращает округленное число, отбрасывая дробную часть числа x.

Программы с линейной структурой

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

Примеры решений задач

1. Составить программу, вычисляющую значение переменной m при данных i, j, k: m = .

Program example_1;

Var i, j, k: Integer;

m: Real;

Begin

Write('Введите значения для i, j и k =>:');

Readln(i, j, k);

m:=(i+j)/(k+1);

Writeln ('Значение для m=',m);

End.

Задачи для самостоятельной работы

1. Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.

2. Даны стороны прямоугольника a и b. Найти его площадь S = a-b и периметр P = 2(a + b).

3. Дан диаметр окружности d. Найти ее длину L = П*d. В качестве значения П использовать 3.14.

4. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = a-b-c и площадь поверхности S = 2-(a-b + b-c + a-c).

5. Найти длину окружности L и площадь круга S заданного радиуса R:

L = 2* П *R, S = П*R². В качестве значения П использовать 3.14.

6. Даны катеты прямоугольного треугольника a и b. Найти его гипо­тенузу c и периметр P: c = √a² + b², P = a + b + c.

7. Найти среднее арифметическое и среднее геометрическое трёх заданных чисел.

8. Даны два круга с общим центром и радиусами R1 и R₂ (R1 > R₂). Найти площади этих кругов S1 и S₂, а также площадь S3 кольца, внешний радиус которого равен R1, а внутренний радиус равен R₂: S₁=П(R₁ )², S₂ = П(R₂)², S₃ = S ₁ - S₂. В качестве значения П использовать 3.14.

9. Найти расстояние между двумя точками с заданными координатами (x ₁ y1) и (x₂, y₂) на плоскости. Расстояние вычисляется по формуле √(x₂-x₁)² + (y₂-y₁)².

10. Найти значение функции y = Зх⁶ - 6х² - 7 при данном значении х.

11. Дано значение температуры Т в градусах Фаренгейта. Определить значение этой же температуры в градусах Цельсия. Температура по Цельсию Тс и температура по Фаренгейту Т_f связаны следующим соотношением: Т_с = (Тf – 32)*5/9.

12. Даны два действительных числа a и b. Получить их сумму, разность и произведение.

13. Дано значение температуры Т в градусах Цельсия. Определить зна­чение этой же температуры в градусах Фаренгейта. Температура по Цель­сию Тс и температура по Фаренгейту Т_f связаны следующим соотноше­нием:

Т_с = (Т_f – 32)*5/9.

14. Даны два действительных положительных числа. Найти среднеарифметическое и среднегеометрическое этих чисел (или их модулей).

15. Известно, что X кг конфет стоит А рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет.

16. Смешано V₁ литров воды температуры t₁ и V₂ литров воды температуры t₂. Найти объём и температуру образовавшейся смеси.

17. Известно, что X кг шоколадных конфет стоит А рублей, а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.

18. Найти корни квадратного уравнения A*x² + B-x + C = 0, задан­ного своими коэффициентами A, B, C (коэффициент A не равен 0), ес­ли известно, что дискриминант уравнения положителен. Вывести внача­ле меньший, а затем больший из найденных корней. Корни квадратного уравнения находятся по формуле Х_1,2 = (-B ± √D)/(2*A), где D - дискриминант, равный B² - 4AC.

19. Найти решение системы линейных уравнений вида

A₁ *x + B_1* y = C₁

A_{2 *} x + B _{2 *} y = C₂,

заданной своими коэффициентами A₁ B₁ C₁ A₂, B₂, C₂, если известно, что данная система имеет единственное решение. Воспользоваться фор­мулами

x = (C₁B₂ - C₂B₁)/D, y = (A₁C₂ - A₂C₁)/D, где D = A₁B₂ -A₂*B₁.

20. Найти сумму членов арифметической прогрессии по данным значениям: a, d, n.

21. Дано трехзначное число. Вывести число, полученное при переста­новке цифр сотен и десятков исходного числа (например, 123 перейдет в 213).

22. Даны целые числа k, m, действительные числа x, y, z. При k<m2 или заменить модулем соответственно значения x, y или z, а два других уменьшить на 0.5.

23. Дано трехзначное число. Вывести число, полученное при переста­новке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).

24. Дано действительное число х. Получить целую часть х; затем число х, округлённое до ближайшего целого; затем число без дробных цифр.

25. Дано целое четырехзначное число. Используя операции div и mod, найти произведение его цифр.