Способы представления вещественных чисел

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

3.1415, -0.5, +52.0, 1.0

Второй способ представления вещественных чисел — экспоненциальная форма, которая представляет собой вариант записи чисел, принятый в научных статьях. Например, число 900.1 может быть записано в виде 9.001E + 2

В экспоненциальной форме Е означает «десять в степени». Число справа от Е представляет показатель степени. (Необходимо заметить, что заглавная буква Е не имеет ничего общего с математическим символом е.)

Примеры:

5.00000Е - 01 = 5 * 10^-1 = 0.5

5.00000Е + 00 = 5 * 10 ⁰ = 5.0

5.00000Е + 01 = 5 * 10 ¹ = 50.0

-6.37104Е + 03 = -6.37104 * 10³

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

ATOMS : = MOLES * 6.02Е + 23

Пример. Вычисление синуса и косинуса

program trigonometr;

var

Angle : Real;

Rezult1, Rezult2 : Real;

BEGIN

Writeln('Задайте значение угла в радианах');

Read(Angle);

Result1: = sin(Angle);

Rezult2: = cos(Angle);

Writeln('Синус равен', Rezult1:6:3);

Wrileln('Косинус равен', Rezult2:6:3)

END.

В программе описывается три переменных: Angle, Rezult1 и Rezult2. В завершающих программу операторах Writeln показано, каким образом можно определить размеры поля для представления вещественных чисел при печати. Спецификация размеров поля для представления вещественных чисел записывается в виде :w:d, где w показывает общий размер поля, а d — число позиций для цифр справа от десятичной точки. Если в примере задачи значение угла в радианах 1.047, т. е. π/3, в результате будет напечатано:

Синус равен 0.866

Косинус равен 0.500

Если не указано численное значение d или не определены размеры поля, результаты будут напечатаны в экспоненциальной форме:

Синус равен 8.65927Е-01

Косинус равен 5.00000Е-01

Теперь можно усовершенствовать программу Srednee так, что она будет принимать новые значения переменных при каждом выполнении. Текст программы Srednee после внесения изменений показан в примере. Значения переменных в новом варианте программы вводятся с клавиатуры пользователем, не используя для этой цели операторы присваивания.