Pascal ABC. Числовые данные. Вещественные числа

ПАСКАЛЬ
Pascal ABC
Работа с числовыми данными.
Урок 7-8
Вещественные числа

Тип данных REAL
Если число имеет запятую и является дробным, то оно называется ВЕЩЕСТВЕННЫМ . Для хранения вещественных чисел в Pascal используется специальный тип данных – REAL. Для их ввода в программу используется оператор VAR (variable – переменная)
ПРИМЕР :
program p15 ;
VAR a, b, c : REAL ;
Begin и прочее……….

ВЕЩЕСТВЕННЫЕ
переменные:
program summa ;
VAR A, B, C : REAL ;
Begin
A := 3.5; B := 7.6;
С:=А + В;
writeln ('cумма = ', c) ;
End.
______________________________________
Все вещественные числа записываются не с запятой, а с точкой!!!

Форматы записи вещественных переменных:
Обычная форма:
0,7 может быть записано как 0.7 или .7
-2,1 может быть записано как -2.1
Запись с экспонентой:
Число представляется в виде мантиссы (дробной части числа), умноженной на 10 в некоторой степени
2700 = 2,7*10
Число 10 записывается в виде буквы Е, а за ней идёт величина степени: 2.7Е3
0,002 = 2*10
Число 10 записывается в виде буквы Е, а за ней идёт величина степени: 2Е-3
3
- 3

ВЕЩЕСТВЕННЫЕ
переменные:
program z16 ;
var a, b, c: real;
begin
a:= 17.3; b:= 3.4;
c:=a+b; writeln ('сложение А+В = ', c);
c:=a-b;
writeln ('вычитание А-В = ', c);
c:=a*b;
writeln ('умножение А*В = ', c);
c:=a/b;
writeln ('деление А/В = ', c);
End.

Функции типа REAL:
PROGRAM Z18 ;
VAR A , B : REAL ;
BEGIN
A := 2.0 ;
{вычисление квадратного корня}
B:= SQRT (A);
WRITELN (Квадратный корень (Sqrt (А)) = ', В) ;
{вычисление синуса}
B:= SIN (A);
WRITELN (‘синус числа (SIN (A) = ', B) ;
{вычисление косинуса}
B:= COS (A);
WRITELN (‘косинус числа (COS (A) = ', B) ;

{вычисление арктангенса}
B:= ARCTAN (A);
WRITELN (арктангенс числа (Arctan (А)) = ', В) ;
{вычисление логарифма}
B:= LN (A);
WRITELN (‘логарифм числа (LN (A) = ', B) ;
{возведение числа Е в степень А}
B:= EXP (A);
WRITELN (‘экспонента в степени А (EXP (A) = ', B) ;
{вычисление числа Пи}
B:= PI ;
WRITELN (‘число Пи (Pi) = ', B) ;
End.

{вычисление арктангенса}
B:= ARCTAN (A);
WRITELN (‘арктангенс числа (Arctan (А)) = ', В) ;
_______________________________
Вывод вещественного числа можно задать.
Под значение переменной «В» задаём 6 цифр, из них 4 после запятой:
{вычисление арктангенса}
B:= ARCTAN (A);
WRITELN (‘арктангенс числа (Arctan (А)) = ', В:6:4) ;
_______________________________

Основные операторы системы:

ЗАДАНИЕ:

Z21) Дан диаметр окружности d. Найти его длину ( )
Z22) Дана длинна ребра куба, a, b, c прямоугольного параллелепипеда. Найти его объём и площадь поверхности
Z23) Найти длину окружности L и площадь круга S заданного радиуса R: L=2πR, S = πR
Z24) Даны 2 числа a и b. Найти их среднее арифметическое
Z25) Даны 2 неотрицательных числа a и b. Найти их среднее геометрическое (квадратный корень из их произведения)
Z26) Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 - x1|.
2