NBPrg40. (*inc). (**CalcWS). cln.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). cln.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.cln(s:String);
Label derr,norm,ex;
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('ln',s); delete(s,i,3); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If r<=0 Then Goto derr;

NBPrg40. (*inc). (**CalcWS). cexp.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). cexp.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.cexp(s:String);
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('exp',s); delete(s,i,4); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If (ch='a') Or (ch='A') Then a:=exp(r);

2018. News. Wold. Europe. USA. EU. Ukraine. Львів та область. Протидія хворобам, небезпекам кліматичного та екологічного характеру.

2018. News. Wold. Europe. USA. EU. Ukraine. Львів та область. Протидія хворобам, небезпекам кліматичного та екологічного характеру. https://tsn.ua/ukrayina/na-lvivschini-vpershe-za-desyatirichchya-na-prav... Джерело:TSN.UA.

NBPrg40. (*inc). (**CalcWS). cdiv.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). cdiv.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.cdiv(s:String);
Label divzero,norm,ex;
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('div',s); delete(s,i,4); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If r=0 Then Goto divzero;

2018. News. World. Europe. USA. EU. Ukraine. Space2018. Info2018. Web2018. Science2018. Technologies2018. Емірати2018.

2018. News. World. Europe. USA. EU. Ukraine. Space2018. Info2018. Web2018. Science2018. Technologies2018. Емірати2018. https://www.unian.ua/science/10280352-stala-vidoma-data-vidpravki-na-mks... Джерело:УНІАН.

NBPrg40. (*inc). (**CalcWS). ccos.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). ccos.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.ccos(s:String);
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('cos',s); delete(s,i,4); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If (ch='a') Or (ch='A') Then a:=cos(r);

2018. News. World. Europe. USA. EU. Ukraine. Протидія хворобам, небезпекам кліматичного та екологічного характеру.

2018. News. World. Europe. USA. EU. Ukraine. Протидія хворобам, небезпекам кліматичного та екологічного характеру. https://www.rbc.ua/rus/news/sinoptiki-preduprezhdayut-zamorozkah-silnom-... Джерело:РБК-УКРАЇНА.

NBPrg40. (*inc). (**CalcWS). catan.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). catan.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.carctan(s:String);
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('arctan',s); delete(s,i,7); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If (ch='a') Or (ch='A') Then a:=arctan(r);

2018. News. World. Europe. USA. EU. Ukraine. Одеса та область. Протидія хворобам, небезпекам кліматичного та екологічного характеру. Health2018. Science2018. Info2018. Web2018. Technologies2018.

2018. News. World. Europe. USA. EU. Ukraine. Одеса та область. Протидія хворобам, небезпекам кліматичного та екологічного характеру. Health2018. Science2018. Info2018. Web2018. Technologies2018. https://www.rbc.ua/rus/news/siloviki-vystavili-posty-menyaylovki-sibirsk... Джерело:РБК-УКРАЇНА.

NBPrg40. (*inc). (**CalcWS). cadd.inc. MiniOS. OpenSource.

NBPrg40. (*inc). (**CalcWS). cadd.inc. MiniOS. OpenSource.
**************************************

Procedure calc_register.cadd(s:String);
Var i,l,j:byte;
    ch,ch1:char; s1:String;
    r:real; o:integer;
Begin
  i:=pos('add',s); delete(s,i,4); ch:=s[1];
  l:=length(s); s1:='';
  For i:=1 To l Do
      If ((48<=ord(s[i])) And (ord(s[i])<=57))
          Or (s[i]='+') Or(s[i]='.')
          Or (s[i]='-') Or (s[i]='E') Then s1:=s1+s[i];
  ch1:=s[3];
  If s1<>'' Then Begin
     val(s1,r,o);
     If (ch='a') Or (ch='A') Then a:=a+r;
Синдикация материалов