Портал освітньо-інформаційних послуг «Студентська консультація»

  
Телефон +3 8(066) 185-39-18
Телефон +3 8(093) 202-63-01
 (093) 202-63-01
 studscon@gmail.com
 facebook.com/studcons

<script>

  (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){

  (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),

  m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)

  })(window,document,'script','//www.google-analytics.com/analytics.js','ga');

 

  ga('create', 'UA-53007750-1', 'auto');

  ga('send', 'pageview');

 

</script>

Інженерний калькулятор

Предмет: 
Програмування
Тип роботи: 
Курсова робота
К-сть сторінок: 
69
Мова: 
Українська
Оцінка: 

justify;">t:=t+1;

a[t]:=memo1.Text;                                             
memo1.Text:=rezul2(t);
end; }
if (strtofloat(memo1.Text)>0) then
begin
zn1:=strtozr(memo1.Text);
zn1:=Log10ZR(zn1);
memo1.Text:=floattostr(zrtoreal(zn1));
end
else
memo1.Text:='Недопустимоезначение';
glob_check:=true;
end;
procedure TForm1.SpeedButton48Click(Sender: TObject);
begin
memo1.Text:=floattostr(pi);
glob_check:=true;
end;
procedure TForm1.SpeedButton47Click(Sender: TObject);
begin
{if ((skob=true ) or (b[t]=')') ) then
Begin
trig:=true;
t:=t+1;
a[t]:=memo1.Text;                                             
memo1.Text:=rezul2(t);
end;  }
if memo1.Text='0' then memo1.Text:='Делениенанульзапрешено'
else
begin
zn1:=strtozr(memo1.Text);
zn1:=divzr(inttozr(1),zn1);
memo1.Text:=zr_e(zrtostr(zn1));
end;
glob_check:=true;
end;
procedure TForm1.SpeedButton57Click(Sender: TObject);
begin
memo1.Text:='0';
glob_check:=true;
end;
procedure TForm1.RadioButton11Click(Sender: TObject);
var
f:string;
begin
f:='';
f:=memo1.Text;
if (length(f)>8) then
begin
memo1.Text:='';
for j:=1 to 8 do
memo1.Text:=memo1.Text+f[j];
memo1.MaxLength:=8;
end;
end;
procedure TForm1.RadioButton10Click(Sender: TObject);
var
f:string;
begin
f:='';
f:=memo1.Text;
if (length(f)>16) then
begin
memo1.Text:='';
for j:=1 to 16 do
memo1.Text:=memo1.Text+f[j];
end;
end;
procedure TForm1.RadioButton9Click(Sender: TObject);
var
f:string;
begin
f:='';
f:=memo1.Text;
if (length(f)>32) then
begin
memo1.Text:='';
for j:=1 to 32 do
memo1.Text:=memo1.Text+f[j];
end;
end;
procedure TForm1.RadioButton8Click(Sender: TObject);
var
f:string;
begin
f:='';
f:=memo1.Text;
if (length(f)>64) then
begin
memo1.Text:='';
for j:=1 to 64 do
memo1.Text:=memo1.Text+f[j];
end;
end;
procedure TForm1.SpeedButton50Click(Sender: TObject);
var
sm:string;
begin
{if ((skob=true ) or (b[t]=')') ) then
begin
trig:=true;
t:=t+1;
a[t]:=memo1.Text;                                             memo1.Text:=rezul2(t);
end;  }
zn1:=strtozr(memo1.Text);
if inv.Checked = true then
begin
if (ComparisonZR(zn1,inttozr(0))=-1) then
begin
memo1.Text:='Недопустимое значение';
nev:=true;
exit;
end;
zn1:=powerzr(zn1,realtozr(0.5));
zn1:=RefreshZR(zn1);
end
else
begin
zn1:=sqrzr(zn1);
zn1:=RefreshZR(zn1);
end;
memo1.Text:=zr_e(zrtostr(zn1));
glob_check:=true;
{sm:=zrtostr(zn1);
for j:=1 to length(sm) do
begin
if sm[j]='Z' then sm[j]:='E';
if sm[j]='+' then delete(sm,j,1);
end;
memo1.Text:=sm;}
end;
procedure TForm1.SpeedButton46Click(Sender: TObject);
begin
{if ((skob=true ) or (b[t]=')') ) then
begin
trig:=true;
t:=t+1;
a[t]:=memo1.Text;                                             memo1.Text:=rezul2(t);
end; }
zn1:=strtozr(memo1.Text);
zn1:=powerzr(zn1,inttozr(3));
obrazec1:=zrtoreal(zn1);
memo1.Text:=zr_e(zrtostr(zn1));
glob_check:=true;
end;
procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
case meraisch of
2: memo1.Text:=DrtoDes(memo1.Text,2);
8: memo1.Text:=DrtoDes(memo1.Text,8);
16: memo1.Text:=DrtoDes(memo1.Text,16);
End;
t:=t+1;
a[t]:=memo1.Text;
b[t]:='m';
if (((b[2]<>'0') and ((b[1]<>'+') and (b[1]<>'-')) and ((b[t-1]<>'+') and(b[t-1]<>'-') )) and (skob=false)) then
memo1.Text:=rezul(t-1);
glob_check:=true;
case meraisch of
2: memo1.Text:=DesToDr(memo1.Text,2);
8: memo1.Text:=DesToDr(memo1.Text,8);
16: memo1.Text:=DesToDr(memo1.Text,16);
end;
end;
procedure TForm1.SpeedButton28Click(Sender: TObject);
begin
if (glob_check=true) then memo1.Text:='';
memo1.Text:=memo1.Text+'F';
glob_check:=false;
end;
procedure TForm1.SpeedButton21Click(Sender: TObject);
begin
{if ((skob=true ) or (b[t]=')') ) then
begin
trig:=true;
t:=t+1;
a[t]:=memo1.Text;                                             
memo1.Text:=rezul2(t);
end; }
zn1:=strtozr(memo1.Text);
zn1:=sumzr(zn1,inttozr(1));
zn1:=multzr(inttozr(-1),zn1);
memo1.Text:=zr_e(zrtostr(zn1));
glob_check:=true;
end;
procedure TForm1.SpeedButton24Click(Sender: TObject);
begin
zn1:=strtozr(memo1.Text);
zn1:=multzr(inttozr(-1),zn1);
memo1.Text:=floattostr(zrtoreal(zn1));
glob_check:=true;
end;
procedure TForm1.SpeedButton58Click(Sender: TObject);
var
st:string;
begin
st:=memo1.Text;
delete(st,length(st),1);
memo1.Text:=st;
if memo1.Text='' then
begin
memo1.Text:='0';
glob_check:=true;
end;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
showmessage ('Ну и что здесь не понятного');
end;
procedure TForm1.N5Click(Sender: TObject);
begin
ShowMessage(' Что инженерного Мало ');
end;
procedure TForm1.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(memo1.Text));   //copy
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Memo1.Text := Clipboard.AsText;   //paste
glob_check:=true;
end;
procedure TForm1.SpeedButton22Click(Sender: TObject);
begin
case meraisch of
2: memo1.Text:=DrtoDes(memo1.Text,2);
8: memo1.Text:=DrtoDes(memo1.Text,8);
16: memo1.Text:=DrtoDes(memo1.Text,16);
end;
t:=t+1;
a[t]:=memo1.Text;
if inv.Checked=false then
b[t]:='l'
else
b[t]:='h';
if (((b[2]<>'0') and ((b[1]<>'+') and (b[1]<>'-')) and ((b[t-1]<>'+') and(b[t-1]<>'-') )) and (skob=false)) then
memo1.Text:=rezul(t-1);
glob_check:=true;
case meraisch of
2: memo1.Text:=DesToDr(memo1.Text,2);
8: memo1.Text:=DesToDr(memo1.Text,8);
16: memo1.Text:=DesToDr(memo1.Text,16);
end;
end;
end.
 
//допоміжна форма
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants,
Фото Капча