n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/StandFun.pas

14 строк407 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ����������� �������
var x: real;

begin 
  write('������� x: ');
  readln(x);
  writeln('������� ',x,' ����� ',sqr(x));
  writeln(x,' � ������� 5 ����� ',power(x,5));
  writeln('���������� ������ �� ',x,' ����� ',sqrt(x));
  writeln('������ ',x,' ����� ',abs(x));
  writeln('����������� �������� ',x,' ����� ',ln(x));
  writeln('����� ',x,' ����� ',sin(x));
  writeln('������� ',x,' ����� ',cos(x));
end.