Курсовая работа: Программа Калькулятор

{$R *.dfm}

procedure operat(x,y:real;c:string;var z:real);

begin

if c='+' then z:=x+y;

if c='-' then z:=x-y;

if c='*' then z:=x*y;

if c='x^y' then z:=exp(y*ln(x));

if (c='/') then

if (y<>0) then z:=x/y else

messagedlg('На 0 делить нельзя',mterror,[mbok],0);

if c='' then z:=y;

end;

procedure okr(var c:string);

var i,j:integer;x:real;

begin

i:=length(c); j:=i;

while copy(c,j,1)='0' do

begin

delete(c,j,1);

j:=j-1;

end;

val(c,x,i);

if (x>1E+16) or (x<-1E+16) then

begin

s:=' 0';

messagedlg('Слишком большое чиссло',mtcustom,[mbok],0);

end;

end;

procedure o(p:string; var c,c1:string);