(แกแแแแแขแ แแแ แแแ แแแแแ)
(แแซแฆแแแแแ แฅแแแแฃแ แ แแแแแแแขแแแแก แแแ แแแแฃแแ แชแฎแ แแแแก แกแแแ แแแจแแ แแกแ แฌแแแก)
(แฃแแฎแแแกแ แแแแแขแแแแแ แแแแแแแ 8 แฌแแแก 2019 แแแ แแแก. แแแแแขแแแแแแก แกแแ แแแ แแแแแ แญแ แแแแก แฅแแแแแแแ)
(
แแแฎแกแแแก, แแฎแแก แฉแแแฃแแ แแ. แแก แแงแ แแ แแแ แแฃแแแ แกแแแ แแแแแแแแแ: แแแแแ แแคแแ, แแฃแแแแแกแแแขแงแแแแแแ แแ แ แฃแกแฃแแ. แกแแแฃแแแแแกแแแขแงแแแแ แแแแแแแแแแ แแฎแแ แจแแแกแฌแแแแแก แ แแแแ แช แแฎแแ, แ แ แคแ แแแแ แแฅแแก, แ แ แคแแฎแแแ แแฅแแก, แ แแแแ แชแฃแ แแแก แแ แ.แจ. แแแแแ แแคแแแก แแแแแแแแแแ แแแแแ แแฎแแ แจแแแกแฌแแแแแก, แ แแแแ แช แแแแแแแฌแแก แแแแแแแ แ: แกแแญแแ แ แแงแ แ แฃแแแแ แแฉแแแแแแแแ แกแแ แชแฎแแแ แแแก แแ แกแแ แแ แ. แ แฃแกแฃแแแ, แกแแ แแคแแแ แแแขแ แแแแแ แแแแกแฌแแแแ โแฃ-แข-แ-แโ-แก แแแฌแแ แ แแ แ แแฆแแชแแก แฌแแแแแฎแแ แแ แแแแกแแแ แแฎแแแแแก แจแแกแแฎแแ. แฌแแ แกแฃแแจแ แแแ แแแแชแแแแ, แ แแ แแแ แแแแฃแแแ แแฎแแ แแกแแ, แคแ แแแแฃแแแ แแ แแกแ. แแคแแฅแ แแ, แแแจแแ แแแก แแ แฅแแ "แแแแแแแฅแกแฃแ แ แแแแแแ". แแแแแแแ, แงแแแแแคแแ แ "แฌแแ แแแแแ" แแแแแแแแ.
แแแแแแแแ แแแแแ แแแ, แแ แ แแแแแขแแแ
แแแแแฎแกแแแแแฃแ แชแแขแแขแแจแ แแแแแแแแ แแแแแ แแแแ แแกแขแแขแฃแ แแ แแฉแแแแ แกแฌแแแแแแแก แ แแฃแแ แแแแแแแก แแแแแแแแแแแแแ, แแฃแแชแ แแแแแแ แ (แแแแแ แกแแแแแแ แแจแแแแ แจแแแแฎแแแแแแจแ) แแ แแแแแแแก แแแแแแแขแแแ แแแแแ แแแแแฃแแแ. แแ แ-แแ แแ แแกแแแ แจแแแแฎแแแแแ แ.แ.แแแแแแแแแแแก แแแ แแแแฃแแ แชแฎแ แแแ แกแแแแแก แแแแแแฃแขแแ แฃแแ แแแชแแแแ แแแแก แแแแแแแแแแแแ. แแแ แแแแฃแแ แชแฎแ แแแแ แขแแแแฃแ แ แแแฅแแแแแแแแแก แแ แแแ แแแฃแแ แแแขแแแแขแแแแชแแแก แแแแชแแแ แแแแแแแ แกแแแแแก แแแกแฌแแแแแแแแกแแแแก, แ แแแแแแแแช แแแแฌแงแแก แฅแแแแแก แจแแกแฌแแแแ แแ แแงแแคแ แแแแ แขแแแฃแ แฅแแแแฃแ แแ แแแแแแแ. แแแแแแ แแฃแแแ, แแแแแแฃแขแแ แฃแแ แแแชแแแแ แแแแก แคแแ แแแแแจแ, แแก แแแแชแแแ แกแแจแฃแแแแแแก แแแแซแแแแก แแแ แขแแแ แคแแ แแแ แแแฉแแแแแ แกแแแแแขแ แแแ แแแ แแแแแแก แแแแแแ, แ แแแแแแช แจแแแซแแแแ แแแแแฌแแ แแ แแ แแคแแแฃแ แแ แแแ แแแแ แแแแก, แกแแขแงแแแก แคแแ แแ แแแแแแแ, แ แแแแ แช แแ แแแ แแแแ แแแ แแ แแคแแแฃแแ แแแแแแแขแแแแก แแแแแงแแแแแแ.
(8 แฌแแแก 2019 แแแ แแแ แแแแฎแแ แชแแแแแ แแแแแขแแแแแ:
แแแแแฌแงแแ แซแแ แแแแแ แแแแแแแแ. แฃแแแ แขแแแแก แจแแแแฎแแแแแจแ, แแแ แแแแฃแแ แชแฎแ แแแ แแแ แแแแ แฃแแแ แแงแแก แแแฉแแแแแแ แคแแแฏแ แแก แกแแฎแแ, แกแแแแช แแแแแแฃแ แฃแฏแ แแแจแ แแฅแแแแ แแแแแแแขแแก แฅแแแแฃแ แ แแฆแแแจแแแ: H - แฌแงแแแแแแ, He - แฐแแแแฃแแ แแ แ.แจ. แแฃ แแแฃแกแแก แแฃแ แกแแ แ แแแฃแแแแแแก แฃแฏแ แแแแ, แแแจแแ แแแแแแแขแแก แแฆแแแจแแแ แแ แแแกแ แแแแแ แ แแแฉแแแแแแแ แกแแแชแแแแฃแ แแแแจแ แฉแแแแก แคแแ แแแแ. แแฃ แแแแฎแแแ แแแแแ แแแแญแแ แก LMB-แก, แแแจแแ แแ แจแแ แฉแแฃแแ แแแแแแแขแแก แแฆแแแจแแแ แแ แแแแแ แ แแแแแแแแฃแแ แแฅแแแแ แคแแ แแแก แกแฎแแ แแแแจแ.
แแ แแแแแแแก แแแแแแ แแแ แจแแกแแซแแแแแแแ แแแแแกแแแแ แ แฃแแแแแ แกแแแฃแ แ แแแแก แแแแแงแแแแแแ. แฉแแแ แแแแฆแแแ แฃแแ แแแ แซแแแ Delpi-7-แก, แ แแแแแแช แแแแฅแแแก แงแแแแแกแแแแก แแแกแแแแแแ. แแแแ แแ PL-แจแ แแแแ แแแ แแแแแแแแ แแแแแ แแแแฎแแขแแ แแ แ แกแฃแ แแแ, แแแแแแแแแ, Photoshop-แจแ. แแแ แแแ แ แแแจแ, แแแแแ แแแแฎแแขแแ แแแ แแแแฃแแ แชแฎแ แแแ แแ แคแแ แแแ, แ แแแแแก แแแฎแแแช แแแแแแ แแ แแแ แแแแจแ. แจแแแแแฎแแ แจแแแแแ แแ แแคแแแฃแ แคแแแแจแ table01.bmp.
แแแแ แ แแแฎแแขแแกแแแแก แแแงแแแแแ แแแ แแแแก. แฉแแแ แแแแแแแแแแ แฃแแแ แจแแแแกแแแ แชแฎแ แแแแก แฃแฏแ แแแแแก, แแแกแฃแคแแแแแแฃแแก แงแแแแ แแ แแคแแแแกแแแ, แฃแแแแแแฃแ แ แคแแ แแแแ RGB แคแแ แแก แแแแแแจแ. R แแ G แงแแแแแแแแก แแฅแแแแ 0 แแ B=1 แฌแงแแแแแแแกแแแแก, 2 แฐแแแแฃแแแกแแแแก แแ แ.แจ. แแก แแแฎแแแ แแฅแแแแ แฉแแแแ แกแแแแแขแ แแแ แแแ แแแ, แ แแแแแกแแช แจแแแแแแฎแแแ แคแแแแจแ แ.แฌ. table2.bmp.
แแแกแ แฃแแแแฃแแแ Photoshop-แจแ แแ แแคแแแฃแแ แแ แแแ แแแแ แแแแก แแแ แแแแ แแขแแแ. แแแแแ แแแแแแแแแ แแ แแคแแแฃแ GUI แแ แแแ แแแแ แแแแแ Delpi-7 IDE-แจแ. แแแแกแแแแแก แแแฎแกแแแแ แแฎแแแ แแ แแแฅแขแ, แกแแแแช แแแแแแ แคแแ แแแแ แแแแแ แแแแแแแฃแ แฆแแแแแก (แแแแแแแแแ), แ แแแแแจแแช แฉแแขแแ แแแแ แแแแแแแกแแแ แแฃแจแแแแ. แจแแแแแ แแแฃแจแแแแ แคแแ แแแแ แแแแแแแแแ.
แแแแแแแแกแแ แแแแกแแก แแแแแแแแแขแ แคแแ แแแแ TImage. แแแฆแแแ Image1. แแแแแแแแแกแฌแแแแ, แ แแ แแแแแแแ, แแแแ แแ แแแฅแขแแแแกแแแแก, แแแขแแแแขแฃแ แแ แแแแแ แแ แแแแ แคแแ แแแก แกแแฎแแแแแ แแแแแกแแฎแฃแแแแ Nแกแแ N แจแแแซแแแแ แแแแฆแฌแแแก แ แแแแแแแแ แแแแฃแแก แแ แแแขแก - แแก แแ แแ แแก แกแแฃแแแแแกแ แแ แแแ แแแแ แแแแก แกแขแแแ แแ แฃแคแ แ แแแแจแแแแแแแแแ แกแแฎแแแแแ แฃแแแ แแงแแก แแแแแแแแฃแแ. แแแแ แแ แฉแแแแก แแแขแแ แ แแ แแแฅแขแจแ, แกแแแแช N แแ แแฆแแแแขแแแ 2-แก, แจแแแแซแแแแ แแแขแแแแ แ แแแแ แช แแแแแ แแ แแแฃแแ.
แกแแแฃแแ แแแแแแ แกแฃแ แแแ 1.แกแฃแ แแแ แแขแแแ แแแ แคแแแแ table01.bmp. แฉแแแ แแฅแแแแ Image2 แแ แฉแแขแแแ แแแ แฉแแแแ แกแแแแแขแ แแแ แแแ แแแ แแฅ table2.bmp. แแ แจแแแแฎแแแแแจแ แฉแแแ แคแแแแก แแแฅแชแแแ แแแขแแ แแก แแ แแแแฎแแแ แแแแแกแแแแก แฃแฎแแแแแก, แ แแแแ แช แแก แแแฉแแแแแแแ แคแแ แแแก แฅแแแแ แแแ แชแฎแแแ แแฃแแฎแแจแ. แฉแแแ แแแแแขแแแ แแแแแขแแแแ แกแแแแแขแ แแแ แแแแแแแขแแแก, แ แแแแแแ แแแแแจแแฃแแแแ แแจแแแ แแ. Delpi-7 IDE-แจแ แแ แแคแแแฃแแ GUI แแ แแแ แแแแ แแแแก แแแแ แ แแขแแแ แแแกแ แฃแแแ.
แแแแแแแแแ แแแกแแแ แแขแแแแ - แแแแแก แฉแแฌแแ แ Delpi-7 IDE-แจแ. แแแแฃแแ แจแแแแแแ แแฎแแแแ แฎแฃแแ แแแแแแแแก แแแแแฃแจแแแแแแแกแแแ: แคแแ แแแก แจแแฅแแแ (FormCreate), แแฃแ แกแแ แแก แแแซแ แแแแ Image1 (Image1MouseMove), แแแฌแแแแฃแแแแแ LMB แฃแฏแ แแแแ (แกแฃแ แแแ 1 แแแแฌแแแแฃแแแ) แแ แแแแแแแ แแแแแแแแแแ OK แฆแแแแแแแแก แแแแแงแแแแแแ (OKBtnแแแแฌแแแแฃแแแ) แแ แแแฃแฅแแแแ (แแแฃแฅแแแแBtnแแแแฌแแแแฃแแแ). แแ แแแแแฃแจแแแแแแแแแก แกแแแแฃแ แแแ แแแแแ แแ แแแฃแแแ แกแขแแแแแ แขแฃแแ แแแแ 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
แฏแแฃแคแแก แกแแแแฃแ แแแแกแ แแ แแแแแแแก แกแฎแแฃแแแแแก แแแแแแแแก แฎแแแแแกแแกแแแแแ, แจแแแแซแแแแ แแแแแแขแแ แฎแแแแแ, แ แแแแแแแช แฃแแแขแแก แแแแชแฎแแแแแแแแ แฃแคแ แ แแ แซแแแแ แแ แจแแแแแแแแ, แแแแแแแแแ, แกแแแแแแแแแแกแแแ โ=โ แแ โ_โ, แจแแกแแแแแแกแแ.
แแแแแ แแ แแฎแแ, แฉแแแ แฃแแแ แแแแแแแแแ แแแฏแแแจแแ: แฉแแแแ แแแแแแแแ แซแแแแแ แแแ แขแแแแ. แแ แ แแแแกแแช แแแแแแแก แแแแ แแ แฏแแแแ แแ แ แแแ แแแแ, แจแแแซแแแแ แ แแฃแแ แแงแแก แแฅแแกแ แแแแแแแ แแแกแแกแ แฃแแแก แแแแแแ แแแแแก แชแแแแแแแแแแก แจแแกแแขแแแแ. แแแแแแ แ แซแแแ แจแแแแแแแแแจแ, แแแแแแแแแ, Pascal 8000 OS IBM 360/370-แแกแแแแก, แแกแแแแกแ แกแแ แแแกแแก แกแแแขแ แแแแญแแแแแแ แกแแแจแ แแแ แชแฎแแแ.
B5
โฆ
E5
แแก แแแจแแแแแ, แ แแ E5 แกแขแ แแฅแแแแ แแแฎแฃแ แฃแแ แคแ แฉแฎแแแแแ แจแแแกแแแแแแแแแ แแแฎแกแแแก แคแ แฉแฎแแแแแก B5 แกแขแ แแฅแแแแ.
แ แ แแฅแแ แฃแแแ, แแ แแแ แแแแ แแแแก แกแขแแแ แซแแแแ แกแแแแแแแ แกแแแแแฎแแ, แแแแขแแ แแฅ แแแแแแฅแแฃแแ แแแแแแ แฃแแแ แแฅแแแก แแแฆแแแฃแแ, แ แแแแ แช แกแฎแแ แแ แแคแแ แ, แแฃ แแ แ แกแแคแแฅแ แแแ. แจแแแซแแแแ แซแแแแแ แ แแฃแแ แแงแแก แแ แ แกแแแแแแ แแแแแชแแแแ แแ แแแ แแแแกแขแแกแแแแก, แ แแแแแแแช แแแแแแแแ แแแแ แแ แแแแฉแแแแแแ แกแฎแแแแแกแฎแแ แกแขแแแก แแ แแแแแ แฌแแแก แแฃแจแแแแแก แแแแแแแแแแแจแ, แจแแแแแฎแแแแ. แกแฎแแ แกแแแแแฎแแ แกแขแฃแแแแขแแกแแแแก, แ แแแแแแช แกแฌแแแแแแก แแ แแแ แแแแ แแแแก, แ แแแแแกแแช แฏแแ แแ แฐแฅแแแแ แแ แ แกแแแฃแแแ แ แกแขแแแแก แแแแแแกแแแแก. แแ แแคแแฅแ แแ, แ แแ แแ แจแแแแฎแแแแแจแ แแแกแฌแแแแแแแแแ แแแแแช แฃแแแ แแแแแกแชแแก แแแแแก แแแกแฌแแแแแแแก แแกแแแ แแแ แขแแแ, แแแแ แแ แแ แ แแจแแแ แ แแแ แ แแแแแแแก, แ แแ แแ แแแ แแแแก แฌแแ แแแขแแแ แแแแฌแแแแ แแแแแแแแแแฃแแแ แแแแแ, แแฃ แ แ แกแขแแแจแแ แแแฌแแ แแแ แแแกแ แกแแฌแงแแกแ แแแแ. แกแขแฃแแแแขแ แจแแแซแแแแ แแ แแแฐแงแแแก แ แแแแแแแแแแฃแ แกแขแแแก, แแแแ แแ แแแแ แแแแชแแ แแแแแช แแคแแฅแ แแก โแแแแแขแแแแแโ แฅแแแแแแแแแก แกแแญแแ แแแแแแ, แ แแแ แแแแฃแแฏแแแแกแแก แแแแแก แแแแแแแ.
แแแแฃแแ แฃแแแแ แฉแแแแก แซแแ แแแแ แแ แแแแแแแก แแแ แแแแฃแ แชแฎแ แแแแ: แจแแแแแแแ แแแแแแแแ แแแ แจแแแซแแแแ แกแฎแแแแแกแฎแแ แแแแแ แแฃแแแแแ แฌแแแแแแก. แแ แ-แแ แแ แแแแแ แแฃแแแแ แแ แแก แแแแแแแแแกแแแแก: แ แแแแกแแช แแแฃแกแแก แแฃแ แกแแ แก แชแฎแ แแแแก แฃแฏแ แแแ แแขแแ แแแ, แแแแแฉแแแแแ แกแแแแคแแ แแแชแแ แคแแแฏแแ แ, แ แแแแแแช แจแแแชแแแก แแแแแขแแแแ แแแคแแ แแแชแแแก แแแแแแแแฃแ แแแแแแแขแแ. แจแแแแแแแ แแแแแแแแ แแแ แแ แแก แคแแแขแ แแแ. แแแแแแแแแ, แแแกแขแแแแชแแแก แแแฎแแแแแ, แแแคแแ แแแชแแแก แคแแแฏแแ แ แจแแแชแแแก แแฎแแแแ: แงแแแแแแ แแแแจแแแแแแแแ แคแแแแแฃแ แแ แฅแแแแฃแ แแแคแแ แแแชแแแก, แแแคแแ แแแชแแแก แแฆแแแฉแแแแก แแกแขแแ แแแก แจแแกแแฎแแ, แแแคแแ แแแชแแแก แแฃแแแแแจแ แแแแ แชแแแแแแก แจแแกแแฎแแ, แงแแแแแแ แแแแจแแแแแแแแแ แแแแ แแแแแก แกแแแก (แ แแแแแแช แแแแชแแแก แแ แแแแแแแขแก). แคแแแแแแแแแฃแ แ แแแแกแแแแแ, แกแแฎแแแฌแแแแแ แฃแชแฎแ แแแแแ แแ แ.แจ. แแแแแ แแแแก โแแฎแแแกโ แแแฎแกแแแแแแ, แ แแแแแแแช แแฌแงแแแ แแก แกแขแแขแแ, แจแแแแแซแแแ แแแฅแแแ, แ แแ แแ แแแ แแแแก แแ แแแแแแแแ แแแแ แแแแแฆแแแ แกแ แฃแ แกแแกแฌแแแแ แแแแแแแฅแกแก แกแแแฃแแแแแกแแแขแงแแแแ แแแชแแแแ แแแแแจแ: แแแ แแ แแแแแแฃแขแแ แแกแ. แแแชแแแแ แแแ, แคแแแแแ แแ แฅแแแแ - แแแแแแแแ, แแแแแแแแแฃแ แ แแแแแ แแคแแ, แแแชแแแแ แแแแก แแกแขแแ แแ แแ แแฃแแแแช แฃแชแฎแ แแแแแ.
แแแแ แแ แแแแแแแแ แแแ แแแแแชแแแแ แแแแ แแ แแ แแก แแแแแขแ. แแ แแแ แแแ แแฃแแแแ แแแแ แฃแแแแจแแ แแแแ แแแขแแ แแแขแก. แแแแแแแขแแก แแ แฉแแแแกแแก แแแฃแแ แแฅแขแแฃแ แแแแ แแ แแ แแแแแแแขแแก แจแแกแแฎแแ แแแแแแแแแแก แกแขแแขแแ แแฎแกแแแแ แแ แแฃแแแ แแก แคแแแฏแแ แแจแ. แแแแแแแแแ, แแแแแฎแกแแแแแแ, แแ แแ แแก แแแขแแ แแขแแขแฃแแ แฌแงแแ แ. แแฅแแแ แจแแแแซแแแแ แแแแงแแแแ แแแฃแแแแ แแแขแแ แแขแแขแฃแ แฌแงแแ แแแแแ, แแแแแแแแแ, แฅแแแแฃแ แ แแแชแแแแแแแแแ, TSB, แแแกแขแ แแฅแขแฃแแ แแฃแ แแแแแแ, แจแแฃแแแแแแ แแแแฎแแแแแแ แกแแซแแแแ แกแแกแขแแแแแจแ แแ แแแแแแแขแแกแแแแก แแ แ.แจ. แ แแ. แกแขแฃแแแแขแแแก แจแแแซแแแแแ แจแแแกแ แฃแแแ แแแ แขแแแ, แแแแ แแ แจแแแแแ แกแแแแ แแแแแแแแแแ DBMS แแ แแแขแแ แแแข แแแแแแแ.
แชแแแแแฃแ แแแแแแแขแแ แแแแฎแแแแแแแก แแแ แแ, แจแแแแซแแแแ แจแแฅแแแแ แคแฃแแฅแชแแแแแ แแแ, แ แแแแแแช, แแแแแแแแแ, แแแแแจแแแแก แชแฎแ แแแแก แฃแฏแ แแแแแก, แ แแแแแแแช แแแแแงแแคแแแแแแ แแแ แแแแฃแ แแ แแขแแ แแฃแแแแก แกแฎแแแแแกแฎแแ แคแแ แแแแ. แแแแแแแแแ, แแแแแแแแ แแ แแ แแแแแแแแแ. แแ แฃแฏแ แแแแแ, แ แแแแแแกแแช แฌแงแแแก แแแแแฅแขแแแจแ แงแ แแแ แแแแแแแแ แแแ แฅแแแแฃแ แ แฅแแ แฎแแแ.
แแฅแแแ แแกแแแ แจแแแแซแแแแ แแแแแฎแแ แชแแแแแ แแแฃแแแฃแฅแแก แแ แแแแแแแขแแ แแก แคแฃแแฅแชแแแแ. แแแแแแแแแ, แชแฎแ แแแจแ แแแแแจแแแ แแก แแแแแแแขแแแ, แ แแแแแแแช แจแแแแก แแแแแชแแแจแ. แจแแแแแ แแแแแจแแแ แกแขแฃแแแแขแแก แแแแ แแแแแชแแแกแแแแก แแแแแแแแแแกแแก แจแแกแฌแแแแแแ/แแแแแแ แแแฃแแ แแแแแแแขแแแ.
แแ แแ, แแแแแแแแแ, แกแแกแแแแ แฅแแแแแก แแ แ-แแ แแ แขแแแแฃแ แ แแ แแแแแแ:
แแแชแแแฃแแแ 10 แแ แชแแ แชแ. แ แแแแแแ แแแ แแแแแแแ แฃแแแ แแแแแฆแแ แแแแแ แแ แชแแ แชแแก แแแกแแจแแแแแ?
แแ แแ แแแแแแแก แแแแแกแแญแ แแแแ แแฃแชแแแแแแแแ แฅแแ. แ แแแฅแชแแ แแ แแแกแจแ แแแแคแแชแแแแขแแแแก แแแแแแกแแแ, แแแแแแแแแแ แแแแชแแฃแแแก แแแ แแแแแขแแก แแ แฌแงแแแแแแแก แฅแแแ แแแแก แแแแแแฃแแฃแ แ แฌแแแ, แจแแแแแ แจแแแแแแแแ แแ แแแแฎแกแแแแ แแ แแแแ แชแแ. แฉแแแแก แซแแ แแแแ แแ แแแ แแแแแ แแแคแฃแซแแแแฃแ แแแแแฃแแแขแแ แก แจแแฃแซแแแ แแแแแแแแ แแ แแแแฎแกแแ. แแแ แแแแแ, แแฅแแแ แแแแแช แฃแแแ แแแแแแแแแกแฌแแแแ, แ แแ แแแแแ แฃแแแ แแฅแแแก แแแฆแแแฃแแ แแแแแแ แฃแ แญแแ แแแ แแ แแแแแแ แฃแ แแแแชแแแขแ แแชแแแจแ, แแแแ แแ แแก แแ แแก แฅแแแแ แแ แแ แ แแแแแแฃแขแแ แฃแแ แแแชแแแแ แแแ.
CaCO3 + 2HCl = CaCl2 + H2O
แแฅแแแแ แแฎแแแแแ, แ แแ แแแแแญแแ แแแแ แจแแแแแแ แแแแแแแขแแแแก แแขแแแฃแ แ แฌแแแ: แแแแชแแฃแแ (Ca), แแแฎแจแแ แแแแ (C), แแแแแแแแ (O), แฌแงแแแแแแ (H) แแ แฅแแแ แ (Cl). แฃแแแ แขแแแแก แจแแแแฎแแแแแจแ, แฉแแแ แจแแแแแซแแแ แฉแแแฌแแ แแ แแก แฌแแแ แแ แแแแแแแแแแแแแแ แแแกแแแจแ, แ แแแแแแช แแแแแกแแแฆแแ แแแ แ แแแแ แช
AtomicMass : array [1..size] of real;
แกแแแแช แแแกแแแแก แแแแแฅแกแ แจแแแกแแแแแแแ แแแแแแแขแแก แแแแแ แก. แแแขแ แคแแ แแแก แแแแแกแฃแคแแแ แกแแแ แชแแก แจแแกแแฎแแ แแแแแแแแแ แแแแงแแแ แแ แ แแแแ. แแแ แแแ แแแแจแ แแแแแแแแ แแแแแ แฌแแ แแ: "แแแ แแแแ แ แแแแแแขแ แแแชแแแฃแแแ", แแแแ แแจแ - "แแแแ แ แ แแแแแแขแ แแ แแก x-แแก แแแแแ". แแฆแแแแจแแแ แแแแแแ แ แแแแแแขแ 1, แ แแแแแแขแ 2 แจแแกแแแแแแกแแ. แแ แแแ แแแแก แกแฎแแ แแแแแขแแแแแ แแแแแแ แแฅแแแแ แแแแแฃแแแขแแ แแก แจแแแแแแ แแแแแแแแแแแ.
แแแแแแฃแขแแ แแก แแแแแแแขแฃแ แแแ แแแ แแคแ: 10แแ แฌแแ แฌแแ แ แแแแจแ แ แแแแแแขแ 1 แชแแแแแแแแแ: โแแแ แแแ แ แแแแแแขแก แแซแแแแ 10 แโ. แแฎแแ แฉแแแ แจแแแแงแแแแ แแ แ แแแแแแขแแก แคแแ แแฃแแแก แแ แแแแแฃแแแขแแ แ แแแแแแแแแก แแ แแฉแแแแแแก แแแก แแแแแแฃแแฃแ แฌแแแแก แแแกแจแ แจแแกแแแแกแแก.
แแแแฌแแแแฃแแแ LMB แชแฎแ แแแแก แฃแฏแ แแแแ Ca แกแแแแแแแแ. แฌแแ แฌแแ แ แแแแแแ แจแ แ แแแแแแขแ 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 แชแแแแแแแแแ: โแแแ แแแแ แ แแแแแแขแ CaCO3 100.086 แแแชแแแฃแแ 10 แ.โ แแแแแฃแแแขแแ แแ แแแแแ แแแแแแขแ แแแแแแแแแก แแขแแแฃแ แ แฌแแแ แฏแแแก.
แแแแญแแ แแ Enter แแฅแแแแ แแแแแแฃแขแแ แแก แแแแแแแขแฃแ แแแ. แแแ แแแแ แ แแแแแแขแแก แแแแแ แแแ แแแกแ แฃแแแแฃแแแ แแ แแแแแแแก แแแแแ แ แแแแแแขแ 2. แแแแแแแแแกแฌแแแแ, แ แแ แแ แแแแแแแแจแ แฉแแแ แแแแแแแแแ แแแแแแแแฃแ แแแ แกแแแก. แแฃ แกแแกแฃแ แแแแแ, แจแแแแซแแแแ แแแ แขแแแแ แแแแฌแงแแ แแ แแ แแ แแแแแ แขแแแแก แแขแแแแแแก แแฃแแขแแแแแแแขแแ แแแ, แแกแ, แ แแ, แแแแแแแแแ, แฅแ แแแแก แคแแ แแฃแแแจแ (K2Cr2O7) แจแแกแแแแกแแก แแ แแแแญแแ แแแ แแแแแแแ แจแแแแฏแแ แแแแฌแแแแฃแแแ แแแแแแแแแก แฃแฏแ แแแแ.
แแแแฌแแแแฃแแแ LMB แชแฎแ แแแแก แฃแฏแ แแแแ แกแแแแแแ H. แฌแแ แฌแแ แ แแแแจแ แ แแแแแแขแ 2 แชแแแแแแแแแ: โแแแแ แ แ แแแแแแขแ H 1.008 แแแแแ xโ.
แแแแฌแแแแฃแแแ LMB แชแฎแ แแแแก แฃแฏแ แแแแ Cl แกแแแแแแแแ. แฌแแ แฌแแ แ แแแแแแ แจแ แ แแแแแแขแ 2 แชแแแแแแแแแ: โแแแแ แ แ แแแแแแขแ HCl 36.458 แแแแแ xโ. แแแแแฃแแแขแแ แแ แแแแแแขแ แฌแงแแแแแแแก แแ แฅแแแ แแก แแขแแแฃแ แ แฌแแแ. แแแแแแฆแแแจแแฃแแ แ แแแฅแชแแแก แแแแขแแแแแแจแ แฌแงแแแแแแแก แฅแแแ แแแก แฌแแ แฃแซแฆแแแก แแแแคแแชแแแแขแ 2. แแแแขแแ แแแแฌแแแแฃแแแ แแแแแ LMB. แ แแแแแแขแ 2. แแแแแแฃแแฃแ แ แฌแแแ แแ แแแแแแแ (แกแแแแแแแแแ แแ แฏแแ แแแญแแ แแกแแก แแ แ.แจ.). แฌแแ แฌแแ แ แแแแแแ แจแ แ แแแแแแขแ 2 แชแแแแแแแแแ: โแแแแ แ แ แแแแแแขแ 2HCl 72.916 แแแแแ xโ.
แแแแญแแ แแ Enter แแฅแแแแ แแแแแแฃแขแแ แแก แแแแแแแขแฃแ แแแ. แแแแ แ แ แแแแแแขแแก แจแแงแแแแ แแแกแ แฃแแแแฃแแแ แแ แแแแแฃแแแขแแ แ แแแฃแแแแก x-แก แแ แแแแ แชแแแแแ
แแก แแ แแก แแก, แ แแช แฉแแแ แฃแแแ แแแแแแแ.
แจแแแแจแแแ 1. แแแฆแแแฃแแ แแ แแแแ แชแแแก แแแแจแแแแแแแ: แแแจแแแกแแแแก 100.086
แจแแแแจแแแ 2. แแกแแแแกแ แแ แแแแแแแแแก แแ แแแฃแแ:
แฎแแแฉแแแแ แ.แ., แแแแชแแแแแแกแ แแ แกแแแแ แฏแแจแแแแแก แแ แแแฃแแ แฅแแแแแจแ 2009 (8-11 แแแแกแแแ).
แฎแแแฉแแแแ แ.
แจแแแแจแแแ 3. แแแแชแแแแก แแแกแแแแ แขแแแแแแแ, แจแแแแซแแแแ แแแแแแ แขแแแแ แคแแ แแฃแแแก แจแแงแแแแ แกแแฌแงแแก แแแ แกแแแจแ แแ แฃแแ แแแแ แแแแแแขแแ แแแแแแแขแแก แกแแแแแแ แคแแ แแฃแแแก แฎแแแแก แแแแแก. แแแจแแ แแแแชแแฃแแแก แแแ แแแแแขแแก แคแแ แแฃแแ แแฅแแแแ:
CaCOOO
แแแแ แแ แฅแแแแแก แแแกแฌแแแแแแแแก แแแแแแแแ แกแแแแ แแฃแแแ, แ แแ แแแแฌแแแแก แแกแแแ แฉแแแแฌแแ แ. แกแฌแแ แ แฉแแแแฌแแ แแก แแแแแแแแ แแ แแ แแก แ แแฃแแ - แแแแกแแแแแก แแฅแแแ แฃแแแ แแแแแแขแแ แแแกแแแ:
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. แแแ แ แแฅแแก แฃแแ แฃแแแแแงแแก แแแแแแแขแฃแ แแแแ แ แแแแแแขแแก แคแแ แแฃแแแก แแแขแแ แแแขแแฃแแ แจแแงแแแแแก แจแแกแแซแแแแแแแ. แแ แจแแแแฎแแแแแจแ, แแฅแแแ แแแแญแแ แแแแแ แแแ แขแแแ แแแ แกแแ แแก แแแแแ แแแ.
แแฆแกแแแแจแแแแแ, แ แแ:
แแฆแแก แชแฎแ แแแแก แ แแแแแแแแ แแกแแฃแแ แแแ แกแแ แแ แกแแแแแก แแ แแแชแแแแ แแแ แแฃแแแแแแ แแแแแแแแแแแ แแฎแแ แแแ แแแแขแแแก. (
แแแแแแแแแ )
แแแกแฌแแแแแแแก แจแแฃแซแแแแ แแแแแแฉแแแแ แแแแแแแแ แญแแฃแ แแ แแแแแ แแฃแแแแแ แฃแแแ แจแแแแแแแแแแแฃแแ แแ แ-แแ แแ แแแ แแแแขแแก แแแแฎแแ แชแแแแแแแ แแ แกแชแแแแ แกแแแฃแแแ แ แแ แแแแแแแแก แจแแฅแแแ. แจแแแซแแแแ แฉแแแแแก, แ แแ แแก แแ แแก แงแแแแแแ แแแแแแแแ แกแแกแแ แแแแแ แแแแแ แแฃแแแแ แแแแแแฃแขแแ แฃแแ แแแชแแแแ แแแแก แแแแแแแแแแแแกแแแแก. แแฃแแชแ, แแ แกแขแแขแแแจแ แแแแฎแแ แชแแแแแแฃแแ แแแ แแแแฃแแ แชแฎแ แแแแก แกแแฎแแ, แแแแแแ แแแ แกแขแฃแแแแขแแ แจแแแซแแแแ แแแ แแแแแแฎแแก แกแแแแแขแ แแแ แแแ แแแแแแก แ แแแแ แแแแกแแแฃแแ แแแฃแแ แฃแแแ แแขแแกแแแ แกแขแแแแแ แขแฃแแ แฆแแแแแแแแก แแแแแงแแแแแแ แแแขแแ แแแขแแฃแ แแแแแฌแงแแแขแแแ. TButton. แชแฎแ แแแแก แกแแแ แแแฃแ แ แคแแ แแ (แกแแแแช แฃแฏแ แแแแแ แกแฎแแแแแกแฎแแ แคแแ แแแกแแ) แฃแคแ แ แแแแแแ แฌแแ แแแแฉแแแก แแฅ แจแแแแแแแแแแแฃแแ แแแแแฌแงแแแขแแก แฃแแแ แแขแแกแแแแแก.
(
แฉแแแ แแกแแแ แแแแแแแขแแแ, แ แแ แแแ แแแแฃแแ แชแฎแ แแแแกแแแแก แแแแแแแ แแ แกแแแฃแแ แแแแแแฃแขแแ แฃแแ แแ แแแ แแแแแแก แ แแแแแแแแ แแฆแฌแแ แแแแ แแฎแแแฎแแ แแแแแฅแแแงแแแแฃแ แฐแแแ แแจแ.
1) แชแฎแ แแแจแ แจแแแ แฉแแแ แจแฃแ แกแแฃแแฃแแแแแจแ แชแแแแแแ แงแแแแ แแแแแแแขแ.
2) แแแแกแแแฆแแ แแ แงแแแแ แแแแแแแขแ, แ แแแแแแช แชแแแแแแแ แแแ แแแแฃแแ แแแแแแแก แแฆแแแฉแแแแก แแ แแก.
3) แแแแกแแฎแแแแ แจแแแแ แแแแแแแขแ, แ แแแแแแกแแช แแแฅแแแแแแกแแแ แแแแแแแแแ แแแแแแแแ.
4) แแแ แฉแแแ แงแแแแ แแแแแแแขแ, แ แแแแแแช แแแ แแแแฃแ แแแ แแแแแจแแ แแแ แแกแแแ แแแแแแแ แแแแแจแ (แ.แก.).
5) แแแ แฉแแแ แงแแแแ แแแแแแแขแ, แ แแแแแแช แแฎแแแแ แแแแแแแ แแแแแจแแ โ.
6) แแแ แฉแแแ แงแแแแ แแแแแแแขแ, แ แแแแแแแช แแงแแ แแแแแแแ แแแแแจแแ โ.
7) แจแแแ แฉแแแ แงแแแแ แแแแแแแขแ, แ แแแแแแช แจแแแซแแแแ แแงแแก แฐแแแ แจแ แแแแ แฎแแแก แแแแแแแแแแแจแ แแแ แแแแฃแ แแแ แแแแแจแ แจแแกแแแฉแแแแ แชแแแแแแแแแแก แแแ แแจแ.
8) แแแ แฉแแแ แงแแแแ แแแแแแ, แ แแแแแแช แแฎแกแแแแ แแแ แแแแแแแแจแ.
9) แแแ แฉแแแ แงแแแแ แแแแแแ, แ แแแแแแช แแฎแกแแแแ แแแแแ แแแก แแแแแแจแ No.
10) แจแแแ แฉแแแ แงแแแแ แแแแแแ, แ แแแแแแช แแแชแฎแแแแแแกแแก แแฎแกแแแแ แแแแแ แแแแแแแจแ.
11) แแแ แฉแแแ แงแแแแ แแแแแแ, แ แแแแแแช แแฎแกแแแแ แแแแขแแก แแแแแแจแ.
12) แแแแแแ แแแ แงแแแแ แแแแแแ, แ แแแแแแแช แซแแแแแแแ แแแแ แ แแแแแ แแแแ แฌแงแแแแแ แแแ แแแ แแแ แแแแแจแ.
13) แแแ แฉแแแ แงแแแแ แแแแแแ.
14) แแฃแแแแแ แแแแ แชแแแแแฃแแ แแแแแแแขแแแแก แแแแแขแแคแแชแแ แแแ.
15) แแแแแแแขแแแแก แแแแแขแแคแแชแแ แแแ, แ แแแแแแแช แแฃแแแแแจแ แแแแแกแฃแคแแ แแแแแแแ แแแแแจแแ.
16) แแแแแแแแแแแ แแแแแแแขแแแ, แ แแแแแแแช แงแแแแแแ แแแแจแแแแแแแแ แ แแแก แแกแ แฃแแแแแ แแแแแแแแแกแ แแ แชแฎแแแแแแก แกแฎแแฃแแจแ.
17) แจแแแ แฉแแแ แแแแแแแขแแแ, แ แแแแแแแช แคแแ แแแ แแแแแแงแแแแแ แงแแแแแแฆแแฃแ แชแฎแแแ แแแแจแ (แแแแแกแฃแคแแแ แคแแ แแแ แแ แแแแแแแแชแแแแแ).
18) แแแแแแแขแแแแก แแแแแขแแคแแชแแ แแแ, แ แแแแแแแแแแช แแฃแจแแแแ แงแแแแแแ แกแแจแแจแแ แแ แกแแญแแ แแแแก แกแแแชแแแแฃแ แแแแแแก แแ แแแแชแแ แแฆแญแฃแ แแแแแแแก.
19) แแแแแแแแแแแ แแแแแแแขแแแ, แ แแแแแแแช แแแแแกแฃแคแแแ แกแแฎแแ แแ แแแแ แแแแแก แกแแฎแแ แฃแแแแแก แกแแคแ แแฎแแก แฃแฅแแแแแ แแแ แแแแก.
20) แแแ แฉแแแ แซแแแ แคแแกแ แแแแแแแแ.
21) แแแแแแแแแ แแแแแแแขแแแ, แ แแแแแแแช แฃแคแ แ แซแแแ แแ แแแแ แ แซแแแ แคแแกแ แแแแแแแแ.
แจแแแแจแแแแแ
1) แแแ แ แแฅแแก แแ แแแแแ แคแแแขแ แแก แแแฌแแแแแแก. แแแแแแแแแ, แแฃ แฉแแ แแแแ แคแแแขแ แก 1 แแ แแแแแแแก แแแแแกแแญแ แแแแ (แจแฃแ แกแแฃแแฃแแแแแจแ แชแแแแแแ แงแแแแ แแแแแแแขแ) แแ 20 (แซแแแ แคแแกแ แแแแแแแแ), แแแจแแ แแแแแจแแฃแแ แแฅแแแแ แฃแฏแ แแแแแ แซแแแ แคแแกแ แแแแแแแแแ, แ แแแแแแแช แชแแแแแแแ แจแฃแ แกแแฃแแฃแแแแแจแ (แแแแแแแแแ, แคแแ แแ) ( แแแแแแแแแ, แแแแแแแฃแแ แแ แแฅแแแแ แฎแแแแแกแแฃแแ, แแแแฎแกแแ 1803 แฌแแแก).
2) แแแ แ แแฅแแก แแแแก แฃแแ แฃแแแแแกแแงแแคแแ, แ แแ แ แแแแแแแแ แคแแแขแ แ แแฃแจแแแแแแก แแกแแ แ แแแแแจแ, แ แแ แแแแแแฃแแ แคแแแขแ แ แแ แฉแแแก แฃแฏแ แแแแแก แกแแแฃแแแ แ แคแแ แแ, แแแแ แแ แแแแแแแแ แแ แแแแแฆแแแก แกแฎแแ แคแแแขแ แแก แแ แฉแแแแแก (แฃแฏแ แแแแก แแแฌแแแ แแ แ แคแแ แจแ, แแแฌแแแ แแแแ แแจแ). แจแแแแแ, แฌแแแ แแแแแแแแแก แจแแแแฎแแแแแจแ, แแแแแฉแแแแแ แจแฃแ แกแแฃแแฃแแแแแจแ แแฆแแแฉแแแแแ แแแแแแแฅแขแแแแกแ แแ แซแแแ แคแแกแ แแแแแแแแแก แแแแแแแแแแก แแแแแแแขแแแ, แแแ แแแแ แแแแแแแขแแแ, แ แแแแแแแช แแแแแฃแแแแแแแแ แแฎแแแแ แแแ แแแ แแ แแฎแแแแ แแแแ แ แแแแแแแฅแขแแแก. แแแแ. แจแฃแ แกแแฃแแฃแแแแแจแ แฃแชแแแแ แซแแแ แคแแกแ แแแแแแแแ แแ แจแฃแ แกแแฃแแฃแแแแแจแ แชแแแแแแ แแแแแแแขแแแ, แแแแ แแ แแ แ แซแแแ แคแแกแ แแแแแแแแ.
3) แคแแแขแ แแก แแแแแงแแแแแแก แจแแแแแ แแแ แ แแฅแแก แแแฆแแแฃแแ แจแแแแแแแแ แกแฎแแ แกแแแฃแจแแแก แจแแกแแซแแแแแแแแก แฃแแ แฃแแแแแกแแงแแคแแ. แแแแแแแแแ, แจแฃแ แกแแฃแแฃแแแแแจแ แชแแแแแแ แแแแแแแขแแแแก แจแแ แฉแแแแก แจแแแแแ, แแแแฎแแแ แแแแแ แแแแฌแแแแฃแแแแก LMB-แแ แแ แฉแแฃแ แแแแแแแขแแ แแ แแแแแแแก แแแแแแแแแแก แกแขแแขแแแจแ แแ แแแแแแแขแแก แจแแกแแฎแแ.
4) แแแ แ แแฅแแก แแแแฎแแแ แแแแแก แแแแฌแแแแก แแ แฉแแแแก แแแฃแฅแแแแแก แจแแกแแซแแแแแแแ แแ แฉแแฃแ แชแฎแ แแแแก แฃแฏแ แแแแ LMB แแแฌแแแแฃแแแแแ. แแแแแแแแแ, แฃแแแ แแแแแฎแ แแแแแแแขแแแแก แแแแกแแฆแแแแ.
5) แแแ แ แแฅแแก แแแแก แฃแแ แฃแแแแแงแแคแแก, แ แแ แจแแ แฉแแฃแแ แฃแฏแ แแแแแแก แกแแ แแแแฎแแแ แคแแแแจแ แแ แแกแแแ แคแแแแ แแแขแแแ แแฃแแแ แฃแฏแ แแแแแแก แแแขแแแแขแฃแ แ แจแแ แฉแแแแ. แแก แแแแฎแแแ แแแแแก แแแกแชแแแก แจแแกแแซแแแแแแแแก แแแแกแแแแแก แกแแแฃแจแแแแแ.
แฉแแแ แแแแแแแงแแแแ แกแขแแขแแแฃแ แ, แฌแแแแกแฌแแ แแแแกแแแฆแแ แฃแแ แกแแแแแขแ แแแ แ แฃแแ, แแแแ แแ แแ แแก แแแแ แ แแแแจแแแแแแแแแ แแแแชแแแ, แกแแแแช แจแแแซแแแแ แแแแแงแแแแแฃแ แแฅแแแก แแแแแแแฃแ แ แแแ แแแแก แ แฃแแแแ, แ แแแแแแแช แแชแแแแแ แแ แแแ แแแแก แแแจแแแแแกแแก. แแแแแแแแ แจแแแซแแแแ แแงแแก แแ แแคแแแแก แ แแแแฅแขแแ แ, แ แแแแแจแแช แแแแฎแแแ แแแแแ แแงแแแแแก แแแฃแกแก แคแแแฏแแ แแจแ แฌแแแ แแแแแก แแแแแชแแแแแก แแฆแกแแแแจแแแแแ แแ แแแ แจแแ แแก แแแแแแแแก แแแฎแแขแแแกแแแแก. แฌแแแ แแก แแ แแแแแก แฌแแกแแจแแแแแ แแแแฎแแแ แแแแแแ แฃแแแ แแแฃแแแแแก แแแกแแ. แแแแ แแ แแฃ แฌแ แแแ แแแแแจแแฃแ แฌแแแ แแแ แแแแแแแแ แกแแแแแแ แแแ แขแแแแ, แแแจแแ แฃแคแ แ แ แแฃแแ แแฅแแแแ แฌแแ แแแ แฎแแแแ แแแฎแแขแฃแแ แแแแแแ แแแแแแแแ. แแฅ แแแแแฎแแแ แแแแ แกแแแแแขแ แแแ แ แฃแแ, แกแแแแช แฌแแแ แแแแ แแ แแแแแแแ แฃแคแ แ แคแแ แแ แฃแแแแแก แแแแแแแแ, แแแแ แ แฎแแแฃแ แคแแแฃแ แแจแ.
แกแแแแขแแ แแกแ แแแแ แแแแ แแแแฎแแ, แ แแแแแแช แแแแแแจแแ แแแฃแแแ แแแแแแแฅแกแฃแ แ แแแ แฏแแจแแก แแ แแแแแแแแ, แแ แแก แแฃ แแ แ แแก แแแแแแ แแแแแกแแแแแ แฎแแแแแแฃแ แ แแแขแแแแฅแขแแก แแแแแแแแแแจแ?
แฌแงแแ แ: www.habr.com