Стандартные функции типа Real. (Урок 9-10)

Стандартные функции c вещественными переменными
Замечание:
Паскаль содержит мало функций.
Аргументы функций всегда пишутся в скобках
*
Program Allfunct;
var
A, B: Real;
Begin
A:=2.0;
B:=Sqr(A); Writeln (‘Sqr(2.0)=‘ ,B);
B:=Abs(-A); Writeln (‘Abs(-2.0)=‘ ,B);
B:=Sqrt(A); {Вычисление квадратного корня}
Writeln (‘Sqrt(2)=‘ ,B);
B:=Sin(A); {Вычисление синуса}
{Зададим вывод вещественного числа в обычной форме. Закажем 6 позиций. Из них 3 позиции выделим для цифр справа от десятичной точки}
Writeln (‘Sin(2)=‘ ,B:6:3);
B:=Cos(A); {Вычисление косинуса}
Writeln (‘Cos(2)=‘ ,B:6:3);
B:=Arctan(A); {Вычисление арктангенса}
Writeln (‘Arctan(2)=‘ ,B);
B:=Ln(A); {Вычисление логарифма}
Writeln (‘Ln(2)=‘ ,B);
B:=Exp(A); {Возведение числа е в степень А}
Writeln (‘Exp(2)=‘ ,B);
B:=Pi; {Вычисление числа Пи}
Writeln (‘Pi=‘ ,B);
End.

При запуске программы вывод на экран:
*

Задания:
Дана площадь круга. Найти его диаметр D и длину окружности L, ограничивающей этот круг, учитывая, что
L= π2R; S= πR2
Использовать π=3.14
Напишите программу для вычисления дискриминанта квадратного уравнения. Коэффициенты задайте в программе через оператор присваивания:
D=B2-4*A*C
Вычислите выражение:
*
Ответ: 7.34236637704112