#include "stdafx.h"
#include <iostream>
#include <cmath>
#include <conio.h>
using namespace std;

double s(double);

int _tmain(int argc, _TCHAR* argv[])
{
	double a;
	cout<<"Enter a:";
	cin>>a;

	cout<<"Result: "<<s(a);
	getch();
	return 0;
}

double s(double a)
{
	double e = 2.7182;
	//S(a) = 1.2e¯°·¹ª sin (2Π*1000a) при a = 0.0, 0.1 и 0.4. 
	if(a==0.0||a==0.1||a==0.4)
	{
		return (1.2*pow(e,-0.12)*sin(3.1415*1000*a));
	}
}

var

//шифрование
procedure TForm1.Button2Click(Sender: TObject);
var s1,s:string;
    k,c,m,nn,i,j:integer;
begin
  memo1.Clear;
  s:=Edit5.Text;
  c:=1 ;
  s1:='';
  nn:=length(s);
    for i:=1 to nn do
      begin
        m:=(ord(s[i])-ord('A')) mod 26;           
        c:=1 ;
          for j:=1 to e do                        
            c:=(c*m) mod n ;
            memo1.lines.add(inttostr(c)) ;   
            c:=c mod 26;
            s1:=s1 + chr(c+ord('A')) ;       
      end;
  Edit6.Text:=s1;
end;
//дешифровка
procedure TForm1.Button3Click(Sender: TObject);
var s1,s:string;
k,c,m,nn,i,j:integer;
begin
  s:= Edit6.Text;
//c:=1 ;
s1:='';
nn:=length(s);
for i:=1 to nn do
begin
     m:=(ord(s[i])-ord('A')) mod 26;
     c:=1 ;
      for j:=1 to d do
       c:=(c*m) mod n ;
       memo1.lines.add(inttostr(c)) ;
       c:=c mod 26;
     s1:=s1 + chr(c+ord('A')) ;
end;
Edit7.Text:=s1;
end;
end.