(á¨ááĽáĽá áŤááśá˝)
(áá áá á áá á¨áá
áłá á¨áŹááŤáá ááĽá¨ áááŽá˝ á°áá á¨áĽ á¨á°á°á )
(á¨á
áἠááááš á°á¨ááŞáá˝ á á¤ááŞá 8ᣠ2019 á°á°ááááᢠá¨á°á¨ááŞááš áááá áá˛áŤáá á¨á
áŁáą á áłá˝ áá)
(
áłááŹáá áĽááłááá á áľáłááłáá. áĽááá á á ááľ áá áŚáľáľ áľáá ááśá˝ áá áŠ-ááŚááŤá, á¨á°ááĽáŽ áłáááľ áĽá áŠá˛áŤá. á áłáááľ áľáá ááľ, áłáᏠáĽáá° áłááŹ, áá áááá˝ áĽááłááľ, áá áĽááŽá˝ áĽááłááľ, áĽáá´áľ áĽáá°ááá, ááá°. á ááŚááŤá áľáá ááľ ááľáĽ, á°ááłáłá áłáᏠáĽáá° á¨á áá áá᪠á°á ááˇá-á áááá áľ áĽá á ááááá áľ áŤááł áá ááłá¨áľ á áľááá áá á. á áŠá˛áŤá, á´áŤáá ááľáŽáá "u-t-k-a" áĽááľáá˝á á áľá°ááŽáá áĽá áľá áłáᏠá¨áĽáŹá á ááľ ááá áááá áĽ. á ááá á áááá áłáᏠáĽáá°áá áĽá á áá¨ááłáá áĽáá°áá áĽáá°áá ááá¨á˝áᢠáŤá âááľáĽáľáĽ áá´â á°áĽá áá ፠áá á áĽáŹ á áľáŁááᢠá á á ááá ááá ááá âá áááâ ááŁá˘
Veniamin Kaverin, áááľ ááś á áá
á¨áá á á°á áá°á áĽá
áľ ááľáĽ áŹáá áá áŤáŹáŞá ááľáĽáľáĽ á¨ááľá°áá áá´á ááľááśá˝ á ááᣠá áłááˇá, ááá áá á á ááłááľ (ááááŁáľá á áŁá á áá á áá) ááłáŽá˝, á¨áá
áá´ á áŤááľ áľáááá áá¸á. á¨áĽáá°áá
á áááľ ááłá á ááą á áľ / á¤áľ á¨áŽááá°á áłáááľ áľáá
ááśá˝ ááľáĽ á¨á˛á á ááá´áá áá
áłá á°áá á¨áĽ áá ᢠá¨á°áááą áľáááśá˝á á¨áśááľáá á ááśáá˛áá á á¨áá
áą á°áá á¨áĽ á¨áááááľ á°ááŁá á¨áŹááľáľáŞ áĽááľ áááአááľ / á¤áľ ááá˝ ááá˝ áá, áĽá á áĽá á¨á°áááą áŹááŤáá á˝ááŽá˝ á¨á°á¨ááá áá. á á°ááłáłá áá, á áŽáááŠá°á áłáááľ áááá ááľáĽ, áá
á°ááŁá á¨ááĽáĽá áŤááśá˝á áá´ á ááá ááአáááłá¨áľ áŤáľá˝ááá, áá
á á ááŤáá ááŽááŤááá áááá˝ áá˝áá, á áá á°á áľááá ááľáĽ ááŤáá áááá˝á á áá áá áĽáá° ááŽááŤááá áá¨áą.
(á¤ááŞá 8ᣠ2019 á°á¨ááŞáá˝ á°á°áááááĄ-
á áá á¨áłá áĽáŤ áĽáááá. á áŁá ááá á áá áááł, á¨áá áą á°áá á¨áĽ á ááľáŽáą áá á áľááŞá áá ááłá¨áľ á áá áľ, á áĽáŤááłááą á´á ááľáĽ á¨ááĽá áŹááŤáá áľáŤá áááŤá H - áááľáŽáá, á - ááá¨á, ááá°. á¨ááłááľ á ááá áá° áááľ á¨á áá á¨ááĽá áľáŤá áĽá ááĽáŠ á áĽá á á áá á áአááľá áá ááłáŤáᢠá°á ááá LMB á á¨á°áŤá á¨áá á¨á°áá¨á á á áŤá áľáŤá áĽá ááĽá á áá á¨á áš ááľá áá ááááťáá˘
á˝ááŠá áááááá ááá á áá ááá á áá áá áááłáľ ááťáá. ááá á¨áááá á¨áľáŽ á´áá-7á áĽáááľáłááᣠáá
á áááá áááľ ááťáá ááá¨áłáľ ááᢠááá áá á PL ááľáĽ ááŽááŤá á¨áááááľ á ááľ, áááľ áľááá˝á áĽááłá, áááłá, á Photoshop ááľáĽ. á ááááŞáŤ, á ááŽááŤá ááľáĽ ááá¨áľ á ááááá á
á˝ áá áá
áłááá á°áá á¨áĽ áĽááłá. áá¤áąá á ááŤáá ááá ááľáĽ áĽááľááἠá á¨á´á01.bmp.
áááá°áá áľáá á¨ááááŞáŤáá áĽáá áááá. á á
á°á á°á¨á°á á¨ááá ááŤáááľ á¨á°á¸áłáá á¨á á¨á´á á´áá˝á á RGB ááá áá´á ááľáĽ áአáááá˝á áĽááááá. R áĽá G ááááá 0, áĽá B=1 ááááľáŽáá, 2 áááá¨á, ááá°. áá
áľáá á¨áááŁá áŞáŤ áŤááłá˝á áááá, á ááá ááľáĽ áĽááľááá ááá. á á¨á´á2.bmp.
á Photoshop ááľáĽ á¨ááŤáá ááŽááŤááá á¨ááááŞáŤ á°á¨á á°á áá
ááᢠá Delpi-7 IDE ááľáĽ áá° ááŤáá GUI ááŽááŤá áĽáááľá˘ áá
áá áááľá¨á á ááá á
á˝ áá á¨áááá áááá á¨áááľáááĽá áľ á á˛áľ ááŽáááľ ááááą (tableDlg) á¨á á¨á´áá áá á á¨áľáá áĽáŤ áá¨áááá. á ááá á á¨á
áš áá áĽáá°áŤáá tableDlg.
á á áš áá á¨ááá áááá˝á áŤáľááᥠááľá. áĽááááá Image1. á á á ááá ᣠááľááá ááŽáááśá˝ ᣠá¨á áš áľáá˝ á áŤáľ-á°á áĽáá°ááá አáἠáá á ImageNá¨áľ N áĽá á°ááá ááá á¨á፠á áá áá°ááľ áá˝áá - áá á áŁá áĽáŠá á¨ááŽááŤá á ááŁáĽ ááᤠá áá°áá ᣠáĽá á¨á áá áľááá áŤáá¸á áľáá˝ áá°á áľ á ááŁá¸áᢠááá áá á áĽá áľáá˝ ááŽáááľ, á¨áľ N ᨠ2 á áá ááĽá, áĽáá°á°áá ᨠáá°á áá˝áá.
áá° ááĽá¨áľ ááľá1.áĽáá áááá ááľáá á á¨á´á01.bmp. áĽá áĽáááĽáŤáá Image2 áĽá á¨ááĽáĽá áŤááłá˝áá áĽá፠ááŤá á á¨á´á2.bmp. á áá áááł, á á áš áłá˝áá á፠áĽá áá áĽáá°ááłá¨á áááá áľáá˝ áĽá áá°á ááá á¨áááłá áĽáá˛áá áĽáá°áááá. á°á¨á᪠á¨áááŁá áŞáŤ á áŤááľá áĽáá¨ááŤáá, áááá ááá˝ áá. ááá°áá á¨ááŤáá GUI ááŽááŤá á á´áá-7 á áá˛á˘ ááľáĽ á°á áá ááá˘
áá° áŚáľá°áá á°á¨á áĽáá¸ááá - áŽáľá á Delpi-7 IDE ááľáĽ áááᢠááá á ááľáľ á¨ááľá°áľ á°ááŁáŁáŞáá˝á áĽáť áŤáŤáľáłáᥠá
á˝ ááá á (áá á), á¨á áá áĽáá
áľáá´ Image1 (Image1MouseMoveá á´á áá LMB á á á
ááľá¨á (ááľá1 á á
áŤáľáá) áĽá áĽáş áááá˝á á áá áá á¨áááአááᥠ(áĽáşá˘á˛á á á
áŤáľáá) ááá á°áá (BtnClick á°áá). á¨áĽááá
á°ááŁáŁáŞáá˝ áŤáľááá˝ IDE á á áá áá áá°á á á áá ááááľ ááá áŤáá˘
á¨ááąá ááá áŽáľáĄ-
unit tableUnit;
// ĐĐľŃиОдиŃĐľŃĐşĐ°Ń ŃайНиŃĐ° Ń
иПиŃĐľŃкиŃ
ŃНоПонŃОв Đ.Đ.ĐондоНоова
//
// third112
// https://habr.com/ru/users/third112/
//
// ĐгНавНонио
// 1) ŃОСданио ŃĐžŃĐźŃ
// 2) ŃайОŃĐ° Ń ŃайНиŃоК: ŃкаСанио и вŃйОŃ
// 3) вŃŃ
Од иС диаНОга
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
const
size = 104; // ŃиŃНО ŃНоПонŃОв
type
TtableDlg = class(TForm)
OKBtn: TButton;
CancelBtn: TButton;
Bevel1: TBevel;
Image1: TImage; //ŃайНиŃĐ° Ń
иПиŃĐľŃкиŃ
ŃНоПонŃОв
Label1: TLabel;
Image2: TImage; //ŃĐżŃавНŃŃŃĐ°Ń ĐşĐ°ŃŃĐ°
Label2: TLabel;
Edit1: TEdit;
procedure FormCreate(Sender: TObject); // ŃОСданио ŃĐžŃĐźŃ
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); // ŃкаСанио кНоŃки
procedure Image1Click(Sender: TObject); // вŃĐąĐžŃ ĐşĐťĐľŃки
procedure OKBtnClick(Sender: TObject); // OK
procedure CancelBtnClick(Sender: TObject); // Cancel
private
{ Private declarations }
TableSymbols : array [1..size] of string [2]; // ПаŃŃив ОйОСнаŃониК ŃНоПонŃОв
public
{ Public declarations }
selectedElement : string; // вŃĐąŃаннŃĐš ŃНоПонŃ
currNo : integer; // ŃокŃŃиК Đ˝ĐžĐźĐľŃ ŃНоПонŃĐ°
end;
var
tableDlg: TtableDlg;
implementation
{$R *.dfm}
const
PeriodicTableStr1=
'HHeLiBeBCNOFNeNaMgAlSiPSClArKCaScTiVCrMnFeCoNiCuZnGaGeAsSeBrKrRbSrYZrNbMoTcRuRhPdAgCdInSnSbTeIXeCsBaLa';
PeriodicTableStr2='CePrNdPmSmEuGdTbDyHoErTmYbLu';
PeriodicTableStr3='HfTaWReOsIrPtAuHgTlPbBiPoAtRnFrRaAc';
PeriodicTableStr4='ThPaUNpPuAmCmBkCfEsFmMdNoLrKu ';
// ŃОСданио ŃĐžŃĐźŃ ==================================================
procedure TtableDlg.FormCreate(Sender: TObject);
// ŃОСданио ŃĐžŃĐźŃ
var
s : string;
i,j : integer;
begin
currNo := 0;
// иниŃиаНиСаŃĐ¸Ń ĐźĐ°ŃŃива ОйОСнаŃониК ŃНоПонŃОв:
s := PeriodicTableStr1+ PeriodicTableStr2+PeriodicTableStr3+PeriodicTableStr4;
j := 1;
for i :=1 to size do
begin
TableSymbols [i] := s[j];
inc (j);
if s [j] in ['a'..'z'] then
begin
TableSymbols [i] := TableSymbols [i]+ s [j];
inc (j);
end; // if s [j] in
end; // for i :=1
end; // FormCreate ____________________________________________________
// ŃайОŃĐ° Ń ŃайНиŃоК: ŃкаСанио и вŃĐąĐžŃ =========================================
procedure TtableDlg.Image1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
// ŃкаСанио кНоŃки
var
sl : integer;
begin
sl := GetBValue(Image2.Canvas.Pixels [x,y]);
if sl in [1..size] then
begin
Label1.Caption := intToStr (sl)+ ' '+TableSymbols [sl];
currNo := sl;
end
else
Label1.Caption := 'Select element:';
end; // Image1MouseMove ____________________________________________________
procedure TtableDlg.Image1Click(Sender: TObject);
begin
if currNo <> 0 then
begin
selectedElement := TableSymbols [currNo];
Label2.Caption := intToStr (currNo)+ ' '+selectedElement+ ' selected';
Edit1.Text := selectedElement;
end;
end; // Image1Click ____________________________________________________
// вŃŃ
Од иС диаНОга ==================================================
procedure TtableDlg.OKBtnClick(Sender: TObject);
begin
selectedElement := Edit1.Text;
hide;
end; // OKBtnClick ____________________________________________________
procedure TtableDlg.CancelBtnClick(Sender: TObject);
begin
hide;
end; // CancelBtnClick ____________________________________________________
end.
á áĽá áľáŞáľ ááľáĽ ᨠ104 ááĽá¨ áááŽá˝á á°áá á¨áĽ ááľá°áá (áá áá). á ááá˝ ááá¨áľ áĽáá°ááťáá áá áá á áá¨áá áá˝áá. á¨ááĽá áľáŤááá˝ (á¨áŹááŤáá ááááśá˝) áá° áľááľá á°á˝ááá á¨á á¨á´á ááááśá˝. ááá ááᣠá ááá áŽáľ áá áááľ ááááŤáľ á¨áĽááá á ááľáłááťáá˝ á á°á á°á¨á°á á áááľ áááá˝ ááá ááá áĽáŠ áááľááᢠáá áłá á á¨á´á áľáłááľ1áŁâŚ áá áłá á á¨á´á áľáłááľ4á áš á ááá áá áľ áá áááááĽáŠ áŤáą áĽááá á áľáŤááá˝ á áľááľáŠ á áŤááľ ááŤá¨á áá áľáááᢠáĽáŤááłááą á áŤá áľáŤá á ááľ ááá áááľ á¨áá˛á áá°ááľá áŤáá áá, á¨ááááŞáŤá áá°á á á˘á áááŤáľ áĽá ááá°áá (áŤá) áľáá˝ áá áá. áľááľá á˛áŤá áá ááá á á áá°áá áŤá. áľááá , á¨ááłáá˝ á á°á á°á¨á°á ááá°áśá˝ áłáááŠá áľ á á áá á áłáá ááťá áá˝áá. á á°á á°á¨á°áá˝á á á áŤáľ áááá˝ áá¨ááá (áá áá áłá á á¨á´á áľáłááľ1áŁâŚ áá áłá á á¨á´á áľáłááľ4) á¨ááá áŽáąá áááá ἠááá áááľ ááľáĽ á ááľááŁáľ áá, ááááŤáąá á áŁá á¨á á á¨áá ááľáá á áľááŞá áá áá á áá áááľáá áá˝ááá˘
á¨ááłááľ á ááá á áá á˛áááłááľ Image1 á°ááŁáŁáŞ Image1MouseMove áá ááľá°áľ á¨áááŁá áŞáŤ áŤááľ ááá´á á°ááŤá ááá á áŤá ááá áááľáá Image2 áá áá á¨á áá ááá ááŤáá˝. á áááŁáł Image2 á ááá á á´á ááľáĽ á¨áá áá áá á¨á¤ááááą ááĽá áá áĽáŠá áá. áľáá á áá á¨áá ááŽ, áĽá 255 á ááá˝ áááłáá˝. á ááŽááŤá á¨á°á¨ááá á᪠áľáááśá˝ ááá áĽá ááĽáŤáŞáŤ á áŤáľáááá¸áá.
á¨áá á¨á°á ááąáľ á¨áľáłá˛áľá˛ááľ á¨ááŽááŤá á´áááŽá˝ á á°á¨á᪠á¨á áľá°áŤá¨áľ ááá¤á áἠááŁá á¨áááŁá áá. á áľááá áááááᣠá¨á°áĽáŤáŤá áŽáľ á áŁá áľáá˝ áĽá ááá áľááá á áľá°áŤá¨áśá˝ á á°áá á áľááá á áááľááᢠááá ᣠáĽááą áĽáá˛á á°á¨áá¨áá ááĽá-áá´ ááááŤáśá˝ - á áá áŽáľ á ááłááľ á á ááá áľááłááá˝á á¨á áá ááá áááľá¨á áŤáľá˝áááᢠá áá¨á á áŽáľ ááľáĽ á ááľ ááá áłááá (TtableDlg). á¨áá ááá áá´áá˝ ááááᥠáá˝áá áĽá áá á ááá ááአá¨ááŽááŤáá á á áŤá á áááłáá, ááá áá á°ááŁá˘ááąá áááł áá˝áá. áááłá, á á°á á°á¨á°á á áľáĽ:
OKBtnClick, Image1MouseMove, FormCreate, Image1Click, CancelBtnClick.
á áŁá á¨ááłá áááá áá˝ááᣠáá áááá ἠáĽá ááá¨áłáľ áľáá˝ á áľá¸á᪠ááááᢠá ááľáľ á¨áá, áá á ááá ááľáĽ á á áľá áĽáĽá á°á¨á᪠áá´áá˝ áľáá ፠á¨ááá ááááŤáá˝ áá˝á á¨á°áᨠá á°á á°á¨á°á á áá¸á, á¨ááŤá áľáááľ áĽáť áá¨ááŤá. áľááá , ááá áĽááłá á áĽáĽá áá¨ááἠá áľá¸á᪠áĽá áĽáá˛áŤáá á¨áááťá ááá á˘á˝áá, á ááľ á°á á°á¨á᪠á á°á á°á¨á°áá˝á ááľá°ááá á¨áŽáąá á°ááŁá˘ááľ áĽáá°ááŤáťá˝á á°áľá áŤá°ááá. áá á°á¨á᪠á á°á á°á¨á°á á°ááá á°ááŁáŤáľá á ááŤá¨ááá á ááŤáł áá´áá˝ á ááááŽá á áĄáľá á ááťá˝áˇá. áĽáŤááłááą áĄáľá áááľ áá°á á áááŁá áááłááĄ-
// ŃайОŃĐ° Ń ŃайНиŃоК: ŃкаСанио и вŃйОŃ
áĽááá áááśá˝ áá° ááá ááááŞáŤ áá áłáľ áĽá áĽáá° á¨áááľ á áá á¨áĽ áá á¨á˝ á ááŁá¸áᢠá áŁá á¨á á á áá áááá˝ ááľáĽ ᣠáĽáá°áá áŤá á¨áááľ á°áá á¨áŚá˝ á°á¨á᪠á¨á á°áł á ááŤáŽá˝á áá°áŁáᢠá á°ááłáłá ᣠá á ááľ áᴠᣠá á°áŤá ááá á°ááŁá á¨á á á áŤá ááľáĽ ᣠá ááááŞáŤ ᣠá¨áá á á áŤá áá¨á¨áť ááááľ ááľá¨á á áá áá-
end; // FormCreate
áĽá á ááá°á á°á¨á ᣠá ááŽááŤá á ááá˝ á á áááŤá ááááŤáá˝ ááááŤá - áá¨á¨áť ᣠá¨ááá፠á áá á¨ááŤáááá°áá ááá፠ááááľ áŤáľááá áľ á˘
end; // if s [j] in
end; // for i :=1
end; // FormCreate
á¨áĄáľá áŤáľááá˝á áĽá á¨áľááľ á áŤááľá áŤáá˝ áááááľ á¨áĽá ááááŤáá˝ á áá á¨áá áŤá ááľááŽá˝á áá¨á áĽá áááłá "=" áĽá "_" ááááá˝á á á
á°á á°á¨á°á ááŤá°áľ áá˝áá.
á áľááᣠáŚáł ááľáŤá á ááĽáᥠááłááŤá˝á á áŁá ááá ááᢠáĽá á¨á ááľ áá´ áŽáľ á á ááľ áľááŞá áá á¨áááᣠá¨áá, á¨áŽáľ áááŚá˝á áááľá¨á áľáľáľáľ á°á¨áłáłá áá¨á¨áťáá˝á ááá¨áłáľ á áľá¸á᪠ááá áá˝áá. á á ááłááľ á¨áľáŽ á áááŁáŞáá˝ áááłá ááľáŤá 8000 á OS IBM 360/370 áĽáá°áá
áŤá á¨á áááááľ á ááľ á áááአááľáĽ á á፠á áŠá áłáľááá˘
B5
âŚ
E5
áá áááľ á ááľáá E5 áá áŤáá á¨ááá፠á áá á ááľáá B5 áá áŤáá á¨ááááť á áá áá ááááłáá˘
á áĽááἠá¨ááŽááŤá á ááŁáĽ ááᤠá áŁá á á¨áŤáŤáŞ ááłá áá, áľááá áĽáá áá á¨á°ááášáľ ááłáŚá˝ áááłáĽ ááἠá¨ááá áŤáá ááá°áą áááŁá. ááĽá áááłáľ áĽáŤ á¨á°ááŤáŠ ááá¤áá˝á áŤáłá አáĽá á¨áááą ááľáá áááľ áŤáá¸á áááľ ááŽááŤááŽá˝ áľááááľ áá ááľá¨áľ á áŁá á¨áŁáľ ááá áá˝ááᢠá¨áŤáąá áľáłáá áááááľ áá áá ááááá á ááŽááŤá á¨ááá á°á᪠á¨á°áᨠááłá ááᢠáĽá áĽáá°ááľá á á áá áááł ááá አá˘áŤááľ áá°ááŞááš áĽáá˛á ááááąá ááá ááá áá ááá˝ áŤááá ááłáĽ ááĽáááą á¨ááŽááŤá áľáŹáľ á á áĽááá á¨á°ááŤá á ááá áŽáľ á á°áťáá áľ ááᤠáá áá ᢠá°ááŞá á¨á°áá¨á¨áá áľááľ á áá¨á°áá, ááá áá á˘áŤááľ á˘áŤááľ áľá "á°á¨ááŞ" áľáááśá˝ á áľááá á¨áááá á¨áááť áŽáľ á˛ááá áááťáťá áŤáľáĽ.
áá° áá°á¨áłá á˝ááŤá˝á áľááááľ á á¨áá á áá á¨áĽáĄ á°á¨á᪠áĽáľááľ á á°ááŤáŠ á á áŁáŤáá˝ áááľ áá˝ááᢠá¨áááŞáŤááš ááľáĽ á ááą áááŁááť ááᥠá¨ááłááľ á áááá á á á¨á´á áááľ áá á˛áŤááŁáĽáĄáŁ á á°á áá°á á áŤá áá á°á¨á᪠áá¨á á¨áŤá á¨áá¨á ááľáŽáľ ááłáŤáᢠá°á¨á᪠áĽáľááľ ááŁáŞáŤáá˝ áá¸á. áááłá, á ááľá¨á áá á áááľá¨áľ, á¨áá¨á ááľáŽáą áĽáť áááá: á áŁá á áľáááá á áŤáá áĽá áŹááŤáá áá¨á, á áááľ áłáŞá áá áá¨á, á á°ááĽáŽ ááľáĽ áľáááľ áá áŤá áá¨á, á áŁá á áľááá á¨áá áá áśá˝ áááá (áá á á áŤá áŤáŤáľáłá) áááŽáááŤá áŁá áŞáŤáľ, á áá ááá áľá, ááá°. á áá á˝áá á¨áááá¨áá ᨠKaverin "áłááŹ" á ááľáłááľ, á áá á¨ááŽááŤá áĽáľááľ á á°ááĽáŽ áłáááľ ááľáĽ á¨á°áá á¨áľáá á ááľáĽáľáĽ áĽááááá áááľ áĽáá˝ááá-á¨áŽáááŠá°á á á°á¨ááŞ. áłáááľ, ááááľ áĽá áŹááľáľáŞ - áŁáŽáá, á˘áŽáááŤá ááŚááŤá, á¨áłáááľ áłáŞá áĽá ááá áááś á¨áá ááááá˝.
ááá áá á¨á áŤáŁá˘ á¨ááἠááł áá°áĽ á áá°áá. ááŽááŤá á á°ááĽáŽ á¨á áááá¨áĄ áá áááááᢠá ááľ á¤ááááľ á˛ááᥠá ááá ááááłááłáᣠáĽá áľááá á áŤá á¨ááŞáá˛áŤ ááŁáĽá á áľá á áłá˝ ááľáŽáľ ááľáĽ áá¨ááłáᢠáĽáá°ááŤáááľ ááŞáá˛áŤ áľááŁá áŤáá ááá á áá°ááᢠáá° áľááŁá áááŽá˝ á áááá˝á áááá á áá˝áá, áááłá, á¨áŹááŤá á˘ááłááááá˛áŤ, á˛á¤áľá˘, á¨á áĽáľáľáŤááľ áá˝ááśá˝, ááá á áŤá á ááá áá°áŽá˝ ááľáĽ áĽáŤááá˝á ááá, ááá°. áŤá˘ á°ááŞáá˝ á á˛á˘á¤áá¤áľ áĽá á áááá¨áĽ ááĽáśá˝ áá ááá áá áľááá áŤáá¸á áľáŤáá˝á áá ááá áá˝ááá˘
á ááá°áĽ á¤ááááľ áá áŤá áĽáŤááá˝ á á°á¨ááŞ, áááłá, á á áá á¨áĄ ááľáĽ áŤá á´áá˝á á á°ááŤá¨ ááá á¨ááŤáá á¨á°áá°á áááááá˝á á¨ááŤáá á°ááŁáŤáľá ááá á áá˝áá. áááłá, áĽá¨áśá˝ áĽá áĽá¨áśá˝ áŤááá. ááá á á áŤáŁá˘á á ááá á¨áŹááŤá á°áá áá° áá á áŤááľ á¨ááŁá á´áá˝á˘
áĽáá˛áá á¨ááľáłááť á°áĽá°á á á°áŤá á°ááŁáŤáľá áá°áá á áá˝áá. áááłá á áá°á ááľáĽ á¨á°áŤá°áąáľá ááĽá¨ áááŽá˝ á á°áá á¨áĄ ááľáĽ áŤáłáŠá˘ á¨ááŤá á°ááŞá ááá°á á˛ááá áŤá ááá/á¨á°á°ááááá ááĽá¨ ááá ááá˝á˘
áĽá áĽáá ᣠáááłá ᣠá¨á°áááąáľ á¨áľ / á¤áľ áŹááľáľáŞ á˝ááŽá˝ á ááą áá-
10 ááŤá á áá á°á°áĽáˇá. áá á áá á áá áááááľ áá áŤá á áááľáŽáááŞá á á˛áľ ááá°áľ á áá áľ?
áá
áá á˝áá ááááłáľ áŹááŤáá ááťá á áľááá áá. á á¸áá ááá˝ áĽá áá
á°áśášá á áĽáą ááľáĽ á ááľááἠá¨áŤáá˛á¨á áŤááŚááľ áĽá á¨áááľáŽáá áááŤááľ áááŞááá ááĽá°áśá˝á áŤá°á áĽá á¨á፠áŤááá áĽá áá áá áááąá˘ á áá°á¨áłá ááŽááŤáá˝á áá á¨á°áá°á¨á° áŤááŠáá°á ááľááľ áĽá áááłáľ áá˝ááᢠáĽáááľ ááᣠá á˛áą á á°ááŁáŁá áá á áĽá á á°ááŁáŁá áá á ááá°áľ áĽááłáá áľ á ááá áááľ ááľáĽ ááľááŁáľ á ááĽá
ᣠáá
áá áŹááľáľáŞ áĽáá á¨áŽáááá°á áłáááľ á áá°ááá˘
CaCO3 + 2HCl = CaCl2 + H2O
á¨áá á áááłáľ á¨áá¨á°ááľá ááĽá¨ áááŽá˝ á¨á áśáá ááĽá°áľ áĽáá°ááŤáľáááá áĽááŤáááĄ- áŤáá˛á¨á (áŤ)ᣠáŤááŚá (á˛)ᣠáŚáá˛á á (áŚ)ᣠáááľáŽáá (H) áĽá áááŞá (Cl)ᢠá ááá áááłáŁ áĽááá á ááĽá°áśá˝ áĽáá° áá°á°ááá¸á áŁá á ááľ-ááŹáľ áľááľá ááá áĽáá˝ááá
AtomicMass : array [1..size] of real;
á¨áľááľá á˘áá´ááľ á¨á¤ááááľ ááĽá áá á¨ááááľá áľá˘ á á áš áá áŚáł áá á°á¨á᪠tableDlg áááľ ááľáŽá˝á á áľáááĄ. á ááááŞáŤá ááľá ááááŞáŤ áá âá¨ááááŞáŤá áŹáááľ á°á°áĽáˇáâ ᣠá ááá°áá - âááá°áá áŹáááľ x áááá ááâ á°áĽá á°á˝ááᢠááľáŽá˝á áĽáá áá áŹáááľ1, áŹáááľ2 á á á°á á°á¨á°á. ááá˝ á¨ááŽááŤá á°á¨ááŞáá˝ á¨áá¨á°áá á¨ááłáĽ áá˝á ááłá ááá˝ ááááá˘
á áŽááá°á ááá á°ááł áá áĽáá˝ááá: 10 g á ááľá áá á¨á°áá¨á¸ á˝áá áŹáááľ1 áááŚá˝: "á¨ááááŞáŤá áŹáááľ 10 ááŤá á°á°áĽáˇá." á áá á¨áá á áŹáááľ ááá áĽááľááŁááá, áĽá áŤááŠáá°áŠ á ááŤáľááĄá áľ áá áááŞááá ááĽá°áąá áŤá°áá áĽá áŤáłáŤá.
á á á¨á´áá áááľ áá ᨠCa ááááľ áŤáá LMB á á á áŤáľááᢠá ááľá áá á¨á°áá¨á¸ á˝áá áŹáááľ1 áááŚá˝: "á¨ááááŞáŤá áŹáááľ Ca 40.078 á 10 ááŤá á°á°áĽáˇá."
á á á¨á´áá áááľ áá LMB á á á áŤáľáá ááááľ C. á ááľá áá áŹáááľ1 áááŚá˝áĄ "á¨ááááŞáŤá áŹáááľ CaC 52.089 á¨á°á°á á 10 ááŤáá˘" áĽáááŤá˘ áŤááŠáá°áŠ á¨áŤáá˛á¨á áĽá á¨áŤááŚá á áśáá ááĽá°áśá˝á á¨ááŻáá˘
á á á¨á´áá áááľ áá LMB á á á áŤáľáá áĽá á ááľá áá ááááľ O áŹáááľ1 áááŚá˝áĄ "á¨ááááŞáŤá áŹáááľ CaCO 68.088 10 ááŤá á°á°áĽáśáłáá˘" áŤááŠáá°áŠ á¨áŚááľááá á áśáá ááĽá°áľ áá° áľáá á¨áá¨á˘
á á á¨á´áá áááľ áá LMB á á á áŤáľáá áĽá á ááľá áá ááááľ O áŹáááľ1 áááŚá˝áĄ "á¨ááááŞáŤá áŹáááľ CaCO2 84.087 10 ááŤá á°á°áĽáśáłáá˘" áŤááŠáá°áŠ áĽáá°áá á¨áŚááľááá á¨á áśáá ááĽá°áľ áá° áľáá á¨áá¨á˘
á á á¨á´áá áááľ áá LMB á á á áŤáľáá áĽá á ááľá áá ááááľ O áŹáááľ1 áááŚá˝: "á¨ááááŞáŤá reagent CaCO3 100.086 á¨á°á°á á 10 ááŤá." áŤááŠáá°áŠ áĽáá°áá á¨áŚááľááá á¨á áśáá ááĽá°áľ áá° áľáá á¨áá¨á˘
á áŽááá°áá ááá á°ááł áá á áľááŁá ááŤáᢠá¨áááááŤá áŹáááľ ááá˘áŤ á°á áá áá áĽá áá° ááľá ááá¨áŤáᢠáŹáááľ2. á áá ááłá ááľáĽ á ááľá°ááá áľáŞáľ áĽáŤáá¨áĽá áááá áἠáá áᢠá¨á°ááá á ááá á°ááłáłá á áááľ á á°áá˝á ááŁáŁáá˝á áá°áŤááľ áá˝áá, áľááá á áááłá áá° ááŽáá¨á ááá (K2Cr2O7) á áááĄá áľ áá á áŚáá˛á á áááľ áá á á°á¨áłáłá á°áŁáľ áá á á ááľá¨á á áŤáľáááááľá.
á á á¨á´áá áááľ áá LMB á á á áŤáľáá áĽá á ááľá áá ááááľ H. Inscription áŹáááľ2 áááŚá˝áĄ "ááá°áá áŹáááľ H 1.008 á áá x"
á¨Cl ááááľ áŁáá á¨á á¨á´á áááľ áá LMB á á á áŤáľááᢠá ááľá áá á¨á°áá¨á¸ á˝áá áŹáááľ2 áááŚá˝áĄ "ááá°áá áŹáááľ HCl 36.458 á áá x" áŤááŠáá°áŠ á¨áááľáŽá á áĽá áááŞá á áśáá ááĽá°áśá˝á á¨ááŻáᢠá¨áá áŁáá á¨ááá˝ ááá áááľáŽáá áááŤááľ á 2 áŽáá¸á áááľáá. áľááá á ááľá áá LMB á á á áŤáľáá áŹáááľ2. áááŞááá ááĽá°áą á áĽáĽá áá¨ááŤá (áááľ áá á˛áŤá áśáľáľ áĽáĽá, ááá°). á ááľá áá á¨á°áá¨á¸ á˝áá áŹáááľ2 áááŚá˝: "ááá°á reagent 2HCl 72.916 á áá x."
á áŽááá°áá ááá á°ááł áá á áľááŁá ááŤá. á¨ááá°áá áŹáááľ áá¤áľ á°á áá ááᣠáĽá áŤááŠáá°á áá á xá áŤááá
áááááľ á¨ááŤáľáááá áá áá ááá˘
ááľáłááť 1 á¨áá¤áą áá á áľááá: áááááľ 100.086
ááľáłááť 2 á°ááłáłá á˝ááŽá˝ áľáĽáľáŚá˝;
Khomchenko I.G., á áŹááľáľáŞ 2009 (á¨8-11á ááá) á¨á˝ááŽá˝ áľáĽáľáĽ áĽá áááááá˝.
Khomchenko G.P., Khomchenko I.G., ááŠáá¨áá˛á˛áá˝ á áááŤážá˝ á¨áŹááľáľáŞ á˝ááŽá˝ áľáĽáľáĽ, 2019.
ááľáłááť 3 áľáŤáá ááááá á¨ááááá ááá˘áŤ á áááť áľáŞáľ ááľáĽ áááá áĽá á ááá á¨ááĽá ááááąá áá° á¨ááá ááľáá áá¨á¨áť áá¨á áá˝ááᢠá¨á፠á¨áŤáá˛á¨á áŤááŚááľ ááá áĽáá°áá¨á°áá áááá-
áŤáŽáŚ
ááá áá á¨áŹááľáľáŞ ááá
á áĽáá˛á
ááááąá áá¨áť á áááľá. áľáááááá áá¤áľ ááľá¨á á áľá¸á᪠á áá°áá - áá
áá áááľá¨á áľááľá áá¨á áŤáľáááááłá:
formula : array [1..size] of integer;
á˘áá´ááľ á¨áŹááŤá ááĽá¨ ááá ááĽá á˛áá á áá á˘áá´ááľ áá áŤáá áá á¨á á°áá˝ ááĽá áá (á ááááŞáŤ ááá á¨áľááľá á áŤááľ áá° áᎠááá¨áŤá)ᢠá áŹááľáľáŞ ááľáĽ áĽáá°á°áá°á°á á áśáá˝ á ááá ááľáĽ á¨á°ááá áľ á á°á á°á¨á°á áááľ ááľáĽ áááŁáľ á áá áľ. áááłáᣠáĽááľ á°áá˝á O3CaCá áááłáᢠáááááąá áá° á°á ááá áĽáá¸áááᢠáľááľá áĽááá ááĄ-
formulaOrder : array [1..size] of integer; // ПОМнО вСŃŃŃ ĐżĐžĐşĐžŃĐžŃĐľ
á ááá ááľáĽ áŁáá áá˝áł á áá áá á¨áľ á¨áŹááŤá ááĽá¨ áááŽá˝á ááĽá á¨ááá˝áá áľá˘ á áśá áá¨áá currNo áá° ááá:
if formula [currNo]=0 then //ŃŃĐžŃ Đ°ŃОП вŃŃŃĐľŃиНŃŃ ĐżĐľŃвŃĐš ŃаС
begin
orderIndex := orderIndex+1;//в наŃаНо ввОда ŃĐžŃĐźŃĐťŃ orderIndex=0
formulaOrder [orderIndex] := currNo;
end;
formula [currNo]:=formula [currNo]+1;
áááŠá áá° ááľáá ááťááĄ-
s := ''; // ĐżŃŃŃĐ°Ń ŃŃŃОка Đ´ĐťŃ ŃĐžŃĐźŃĐťŃ
for i:=1 to orderIndex do // Đ´ĐťŃ Đ˛ŃĐľŃ
Ń
иП.ŃиПвОНОв в ŃĐžŃĐźŃНо
begin
s:=s+TableSymbols [ formulaOrder[i]];// дОйавНŃоП Ń
иП.ŃиПвОН
if formula [formulaOrder[i]]<>1 then //дОйавНŃоП кОН-вО Đ°ŃОПОв
s:=s+ intToStr(formula [formulaOrder[i]]);
end;
ááľáłááť 4 á¨ááá á°ááłá áá á¨áŞá áááľ áááŠá á á ááŤá á¨ááľááŁáľ á˝ááł ááľá áą ááááŤáłá ááᢠá áá áááł, ááá áŤá áľááłáá áá°áá á áŤáľáááááłá.
á¨áááá áἠááŁá á¨áááŁááĄ-
ááŹ, á ááŤáł ááś á¨á á¨á´ááá˝ áľáŞáśá˝ á á, áĽá áłááá˛áľáśá˝ á á¨ááá á áłá˛áľ á ááŤáŽá˝á áá°áŁá. (
ááŞáá˛áŤ )
á°ááŞáá˝ á áá á á áŁáŤ á¨áłááąáľ á ááŤáŽá˝ ááľáĽ á ááąá á áá°áá á áĽáááłá¸áá ááłá¨áľ áá˝áá ááá á¨áŤáłá¸áá áŚáá áá áááľá¨á ááááŠá˘ ááŽáááŠá°á áłáááľ áľáá ááśá˝ á áŁá áľááš á áá áááŞáŤ áá áááľááᢠááá ááᣠá áá á˝áá ááľáĽ á á°á°áá á¨á á¨áá á°áá á¨áĽ áááᣠá ááłááľ á°ááŞáá˝ á¨áá°á á á ááŤáŽá˝á á áá áá á¨á ááŤá áááľá ááá á¨ááĽáĽá áŤááśá˝á áአáĽá áá˝ ááŤáŠ áá˝ááᢠá˛á˘á°á. á¨á á¨á´áá á áááá á áá˝ (á´áá˝ á¨á°ááŤáŠ á áážá˝ áŤáá áľ) áĽáá áá á¨áá¨á áá á¨áááľá áĽá áá˝ á ááá áŤáłáŤá.
(
áĽáá˛áá á áá áŤá á ááŤáł á¨áŽáááŠá°á ááŽááŤáá˝ ááááŤá á áá á¨áĽ á á
áᥠá HabrĂŠ áá á á°ááá¸á áá á°ááá¸áá
1) á ááŤá¨ááá ááá á¨ááłáááľá áááá ááĽá¨ áááŽá˝ á á°áá á¨áĄ ááľáĽ ááá¨áĄ.
2) áá áłá á á á á°ááá áľ áá á¨ááłáááľá áááá ááĽá¨ áááŽá˝ ááá¨áľ.
3) á ááŹááľáśá˝ áĽáá° áĽá¨áľ á¨áááĽáŻá¸áá á°áŁáľ ááĽá¨ áááŽá˝á ááá¨áľá˘
4) á á°ááá°á áááł (n.s.) ááľáĽ á áá áááł ááľáĽ áŤááľá áááá ááĽá¨ áááŽá˝ ááá¨áĄ.
5) á ááłá˝ áááł ááľáĽ áŤááľá áááá ááĽá¨ áááŽá˝ á á.
6) á á ááŤáŤ áááł ááľáĽ áŤááľá áááá ááĽá¨ áááŽá˝ á á.
7) á á°ááá°á áááł áá á¨ááłáŠ áááŚá˝ áłááłáŠ áá¨á á áá á á á¨á ááľáĽ áááᥠá¨áá˝ááľá áááá ááĽá¨ áááŽá˝ ááá¨áĄ.
8) á áááľáŽáááŞá á á˛áľ ááľáĽ á¨ááááľá áááá áĽá¨áśá˝ ááá¨áĄ.
9) á á˛áŞá á á˛áľ ááľáĽ á¨ááááľá áĽá¨áśá˝ á áá á á.
10) á˛áá á á°áááŞá á á˛áľ ááľáĽ á¨ááá áĽá¨áśá˝ á áá ááá¨áĄá˘
11) á áááľáŞá á á˛áľ ááľáĽ á¨ááá áááá áĽá¨áśá˝ ááá¨áĄá˘
12) á¨áá áá á ááá ááá˝ á¨áá°áĄáľá áĽá¨áśá˝ á á áŤáŁá˘áŤá áááłáá˝ ááá°á áŤááĄá˘
13) áááá áĽá¨áśá˝ ááá¨áĄ.
14) á á°ááĽáŽ ááľáĽ á¨á°áľáááá ááĽá¨ ááá ááá¨áľ.
15) á ááť áááľ ááľáĽ á á°ááĽáŽ ááľáĽ á¨ááááľá ááĽá¨ áááŽá˝ ááá¨áľ.
16) á á°á áĽá á áĽááľáłáľ á áŤá ááľáĽ á áŁá á áľááá áá á¨ááŤááąáľá ááĽá¨ áááŽá˝ ááá¨áľá˘
17) á áááľ á°áááľ ááááľ ááľáĽ á á°áá áĽá á áá á¨ááá ááĽá¨ áááŽá˝á (á ááť á á ááá á áĽáá¨áľ) ááá¨áĄá˘
18) áááľáŤáľ á áŁá á á°áá á¨áááľá áĽá áአáĽááááá˝á áĽá á¨áá¨áá¨áŤ ááłáŞáŤáá˝á á¨áá áááľá ááĽá¨ áááŽá˝ ááá¨áľ.
19) á ááť ááá ááá á áľáĽáľáĽ ááá áá áŤáŁá˘á á¨áá°á áľááľ á¨áááĽáŠáľá ááĽá¨ áááŽá˝ ááá¨áľá˘
20) ááľ áĽá¨áśá˝ ááá¨áĄ.
21) á¨á¨á አáĽá¨áśá˝ á¨á áá ááľ á¨áá ááĽá¨ áááŽá˝á ááá¨áľ.
ááľáłááťáá˝
1) áĽá ááŁáŞáŤáá˝á áá á¨áĽ ááááŤáłá áá. áááłá á˝ááá ááááłáľ ááŁáŞáŤá áŤá áŠáľ 1 (á ááŤá¨ááá ááá á¨ááłáááľ ááá ááĽá¨ áááŽá˝) áĽá 20 (á¨á¨á አáĽá¨áśá˝) á¨ááŤá á ááŤá¨ááá ááá á¨áłáá ááľ áĽá¨áśá˝ áŤáá¸á á´áá˝ áá°ááá (áááłá á ááá) ( áááłá, ááá˛á¨á á áá°áá á, á 1803 á°á¨ááˇá).
2) áĽá ááŁáŞáŤáá˝ á áĽáá°áá ááááľ áááł ááľáĽ áĽáá˛á አááľá¨á ááááŤáłá áá ᣠáĽáŤááłááą ááŁáŞáŤ á¨áŤáą ááá áŤáá¸áá á´áá˝ áĽáá˛ááἠᣠáá á¨áá ááŁáŞáŤ áááŤá áá á áá á áŤáľáááľá (á¨á´á ááá á á ááľ ááá ᣠá áááá ááá)ᢠá¨ááŤá á ááľáá ááłá ááľáĽ á ááŤá¨ááá ááá á¨á°áá áľáĽáľáŚá˝ áááá áĽá á¨á¨á አáááľááľ, áĽáá˛áá áááááŞáŤááš áĽá áááá°áá áľáĽáľáŚá˝ áĽáť á¨áá ááĽá¨ áááŽá˝ ááłáŤá. áĽáááŤá˘ á ááŤá¨ááá ááá á¨áááłáá ááľ áĽá¨áśá˝áŁ áĽá á ááŤá¨ááá ááá á¨áłáá ááá áá ááľ áááľááľ áŤááá ááĽá¨ áááŽá˝á˘
3) á¨á°ááá áá¤áľ áá áá áĽáŤ á¨ááĽáŤáľ áĽáľá ááá¨ááἠááŁáŞáŤáá á¨á°á áá á áá ááááŤáłá áá. áááłáᣠá ááŤá¨ááá ááá á¨áłáá á áŤááľá áááŚáŁ á°á ááá á á°áá¨á á á¤ááááľ áá LMB á á á á ááľá¨á áľááá á¤ááááľ áá° ááŞáá˛áŤ ááŁáĽá ááá°áłáá˘
4) á á°áá¨á á á¨á á¨á´á áááľ áá LMB á á á á ááľá¨á áá°á ááá áŤáááá¨áĽ á˝ááł ááľá áľ ááááŤáłá áá. áááłáᥠááľá á¨áłáŠ ááĽáá˝á áááľáááľá˘
5) á¨á°áá¨áĄáľ á ááśá˝ áááá á ááá ááľáĽ ááááĄá áĽá áĽáá°áá á áááľ ááá á áŤáľ á°á á¨á´áá˝ áá፠ááŤáá áá¨ááἠááááŤáłá ááᢠáá á á°á ááá á¨áľáŤ áĽá¨ááľ áĽáá˛áŤáá áĽáľá áá°áŁáá˘
á¨áááááłáᾠᣠá áľááľá á¨á°áá°á á¨ááĽáĽá áŤááł á°á ááá ᣠáá ááŽááŤá á áááľá áľ áá á¨ááááᥠá°áááá ááĽáĽá áŤááłáá˝ áĽá á áá ááá á¨áá˝ááŁá¸á áĽá á áľááá á°ááŁáŤáľ á áᢠáááłá á¨ááŤá á ááłá áá, á°á ááá á ááľáŽáľ ááľáĽ áŤááľá á¨áááá˝ á áááἠááá áá áĽá á ááŤá¨áá¸á á ááá˝á áááłá á áá¤áá áá ááá. á ááľá áŤá ááá á áá ááá°á¨á á°á ááá áá° áĽáą áá áá á áá áľá˘ ááá áá á áá ἠáá°ááá á á¨ááŤáŞ áá áá á áŁá ááá á¨áá á ááá ááľáá áá°á°áłáá á áá áááá¨áľ á áŁá á¨áŁáľ ááááᢠá¨ááĽáĽá áŤááł áĽáá áá¨áłá, áŤáá˝ áĽá á ááá˝ á¨ááłá¨á ááľá ááá á°á áŤá á°ááŽá˝á áááá.
á¨áá
ááľáĽáľáĽ á¨áĽáá á áá´ áá á¨á°áŤáŤá á ááľ á áľá°áłá˝ á¨áá áĽáŤá áá
áá´ AIá á áá°áá á á áá ááá áá˝áá?
ááá: hab.com