pascalabcnet/InstallerSamples/!Tutorial/01_First/StandFun.pas

14 lines
527 B
ObjectPascal
Raw Normal View History

2018-10-26 20:12:42 +03:00
// Стандартные функции
2015-05-14 22:35:07 +03:00
begin
var x := ReadReal('Введите x:');
Println('Квадрат', x, 'равен', Sqr(x));
Println(x, 'в степени 5 равно', Power(x, 5));
Println('Квадратный корень из', x, 'равен', Sqrt(x));
Println('Модуль', x, 'равен', Abs(x));
Println('Натуральный логарифм', x, 'равен', Ln(x));
Println('Синус', x, 'равен', Sin(x));
Println('Косинус', x, 'равен', Cos(x));
end.