(์ปจํธ๋กค ์นด๋)
(์ธ๊ณ ํํ ์์ ์ฃผ๊ธฐ์จํ์ ํด๋ฅผ ๊ธฐ๋
ํ์ฌ)
(์ต์ ์ถ๊ฐ๋ 8๋
2019์ XNUMX์ผ์ ์ด๋ฃจ์ด์ก์ต๋๋ค. ์ถ๊ฐ ๋ชฉ๋ก์ ์ปท ๋ฐ๋ก ์๋์ ์์ต๋๋ค)
(
์ฐ๋ฆฌ๊ฐ ์ค๋ฆฌ๋ฅผ ์ง๋์ณค๋ ๊ฒ์ ๊ธฐ์ตํฉ๋๋ค. ์ง๋ฆฌ, ์์ฐ ๊ณผํ, ๋ฌ์์์ด์ ์ธ ๊ฐ์ง ์์ ์ด ๋์์ ์ด๋ฃจ์ด์ก์ต๋๋ค. ๊ณผํ ์์ ์์๋ ์ค๋ฆฌ๊ฐ ์ค๋ฆฌ์ธ์ง, ๋ ๊ฐ๊ฐ ๋ฌด์์ธ์ง, ๋ค๋ฆฌ๊ฐ ๋ฌด์์ธ์ง, ์ด๋ป๊ฒ ํค์์น๋์ง ๋ฑ์ ์ฐ๊ตฌํ์ต๋๋ค. ์ง๋ฆฌ ์์ ์์ ๋์ผํ ์ค๋ฆฌ๊ฐ ์ง๊ตฌ์ ์ฃผ๋ฏผ์ผ๋ก ์ฐ๊ตฌ๋์์ต๋๋ค. ์ค๋ฆฌ๊ฐ ์ฌ๋ ๊ณณ๊ณผ ๊ทธ๋ ์ง ์์ ๊ณณ์ ์ง๋์ ํ์ํด์ผ ํ์ต๋๋ค. ๋ฌ์์์ด๋ก Serafima Petrovna๋ ์ฐ๋ฆฌ์๊ฒ "u-t-k-a"๋ผ๊ณ ์ฐ๊ณ Brem์ ์ค๋ฆฌ์ ๊ดํ ๋ด์ฉ์ ์ฝ๋ ๋ฒ์ ๊ฐ๋ฅด์ณค์ต๋๋ค. ์ง๋๊ฐ๋ฉด์ ๊ทธ๋ ๋ ๋ ์ผ ์ค๋ฆฌ๋ ์ด๋ ๊ณ , ํ๋์ค์ด์์๋ ์ด๋ ๋ค๊ณ ์๋ ค์คฌ์ต๋๋ค. ๋น์์๋ '๋ณต์กํ ๋ฐฉ๋ฒ'์ด๋ผ๊ณ ๋ถ๋ ๋ ๊ฒ ๊ฐ์์. ์ผ๋ฐ์ ์ผ๋ก ๋ชจ๋ ๊ฒ์ด "์ง๋๋ฉด์"๋ํ๋ฌ์ต๋๋ค.
๋ฒ ๋์๋ฏผ ์นด๋ฒ ๋ฆฐ, ์ ์ฅ XNUMX๋ช
์์ ์ธ์ฉ๋ฌธ์์ Veniamin Kaverin์ ๋ณต์กํ ๊ต์ก ๋ฐฉ๋ฒ์ ๋จ์ ์ ํ๋ฅญํ๊ฒ ๋ณด์ฌ ์ฃผ์์ง๋ง ์ผ๋ถ (์๋ง๋ ๋งค์ฐ ๋๋ฌธ ๊ฒฝ์ฐ) ๊ฒฝ์ฐ ์ด ๋ฐฉ๋ฒ์ ์์๊ฐ ์ ๋นํ๋ฉ๋๋ค. ๊ทธ๋ฌํ ์ฌ๋ก ์ค ํ๋๋ ํ๊ต ์ปดํจํฐ ๊ณผํ ์์
์์ D.I. Mendeleev์ ์ฃผ๊ธฐ์จํ์
๋๋ค. ์ฃผ๊ธฐ์จํ๋ฅผ ์ฌ์ฉํ ์ผ๋ฐ์ ์ธ ๋์์ ์ํํธ์จ์ด ์๋ํ ์์
์ ํํ์ ๊ณต๋ถํ๊ธฐ ์์ํ ํ์๋ค์๊ฒ ๋ถ๋ช
ํ๋ฉฐ ๋ง์ ์ผ๋ฐ์ ์ธ ํํ ์์
์ผ๋ก ๋๋ฉ๋๋ค. ๋์์, ์ปดํจํฐ ๊ณผํ์ ํ ๋ด์์ ์ด ์์
์ ํตํด ์ฐ๋ฆฌ๋ ๊ทธ๋ํฝ ์์๋ฅผ ์ฌ์ฉํ ํ๋ก๊ทธ๋๋ฐ์ด๋ผ๋ ๋จ์ด์ ๋์ ์๋ฏธ์์ ์ดํด๋๋ ๊ทธ๋ํฝ ํ๋ก๊ทธ๋๋ฐ์ ๊ธฐ์ธํ ์ ์๋ ์ ์ด ์นด๋ ๋ฐฉ๋ฒ์ ๊ฐ๋จํ ํํ๋ก ๋ณด์ฌ์ค ์ ์์ต๋๋ค.
(8๋
2019์ XNUMX์ผ์ ์ถ๊ฐ๋ ๋ด์ฉ:
๊ธฐ๋ณธ์ ์ธ ์์ ๋ถํฐ ์์ํด ๋ณด๊ฒ ์ต๋๋ค. ๊ฐ์ฅ ๊ฐ๋จํ ๊ฒฝ์ฐ ์ฃผ๊ธฐ์จํ๋ ์ฐฝ ํํ๋ก ํ๋ฉด์ ํ์๋์ด์ผ ํ๋ฉฐ, ๊ฐ ์ ์๋ H-์์, He-ํฌ๋ฅจ ๋ฑ๊ณผ ๊ฐ์ ์์์ ํํ์ ์ง์ ์ด ์์ต๋๋ค. ๋ง์ฐ์ค ์ปค์๊ฐ ์ ์ ๊ฐ๋ฆฌํค๋ฉด ์์ ์ง์ ๊ณผ ํด๋น ๋ฒํธ๊ฐ ์์์ ํน์ ํ๋์ ํ์๋ฉ๋๋ค. ์ฌ์ฉ์๊ฐ LMB๋ฅผ ๋๋ฅด๋ฉด ์ ํํ ์์์ ์ง์ ๊ณผ ๋ฒํธ๊ฐ ์์์ ๋ค๋ฅธ ํ๋์ ํ์๋ฉ๋๋ค.
๋ชจ๋ ๋ณดํธ์ ์ธ์ด๋ฅผ ์ฌ์ฉํ์ฌ ๋ฌธ์ ๋ฅผ ํด๊ฒฐํ ์ ์์ต๋๋ค. ๊ฑฐ์ ๋ชจ๋ ์ฌ๋์ด ์ดํดํ ์ ์๋ ๋จ์ํ๊ณ ์ค๋๋ Delpi-7์ ์ฌ์ฉํ๊ฒ ์ต๋๋ค. ํ์ง๋ง PL๋ก ํ๋ก๊ทธ๋๋ฐํ๊ธฐ ์ ์ ์๋ฅผ ๋ค์ด Photoshop์์ ๋ ์ฅ์ ๊ทธ๋ฆผ์ ๊ทธ๋ ค ๋ณด๊ฒ ์ต๋๋ค. ๋จผ์ , ํ๋ก๊ทธ๋จ์์ ๋ณด๊ณ ์ถ์ ํํ๋ก ์ฃผ๊ธฐ์จํ๋ฅผ ๊ทธ๋ ค๋ณด์. ๊ฒฐ๊ณผ๋ฅผ ๊ทธ๋ํฝ ํ์ผ์ ์ ์ฅ table01.bmp.
๋ ๋ฒ์งธ ๊ทธ๋ฆผ์์๋ ์ฒซ ๋ฒ์งธ ๊ทธ๋ฆผ์ ์ฌ์ฉํฉ๋๋ค. ๋ชจ๋ ๊ทธ๋ํฝ์ด ์ง์์ง ํ
์ด๋ธ ์
์ RGB ์์ ๋ชจ๋ธ์ ๊ณ ์ ํ ์์์ผ๋ก ์์ฐจ์ ์ผ๋ก ์ฑ์ธ ๊ฒ์
๋๋ค. R๊ณผ G๋ ํญ์ 0์ด๊ณ B=1์ ์์, 2๋ ํฌ๋ฅจ ๋ฑ์
๋๋ค. ์ด ๊ทธ๋ฆผ์ ์ ์ด ์นด๋๊ฐ ๋๋ฉฐ ์ด๋ฅผ ๋ค์๊ณผ ๊ฐ์ ํ์ผ์ ์ ์ฅํฉ๋๋ค. table2.bmp.
Photoshop์์ ๊ทธ๋ํฝ ํ๋ก๊ทธ๋๋ฐ์ ์ฒซ ๋ฒ์งธ ๋จ๊ณ๊ฐ ์๋ฃ๋์์ต๋๋ค. Delpi-7 IDE์ ๊ทธ๋ํฝ GUI ํ๋ก๊ทธ๋๋ฐ์ผ๋ก ๋์ด๊ฐ๊ฒ ์ต๋๋ค. ์ด๋ ๊ฒ ํ๋ ค๋ฉด ์ ํ๋ก์ ํธ๋ฅผ ์ด๊ณ ๊ธฐ๋ณธ ์์์ ๋ํ ์์ ๋ฒํผ(ํ
์ด๋ธDlg), ํ
์ด๋ธ ์์
์ด ์งํ๋ฉ๋๋ค. ๋ค์์ผ๋ก ์ฐ๋ฆฌ๋ ์์์ ์ฌ์ฉํ์ฌ ์์
ํฉ๋๋ค. ํ
์ด๋ธDlg.
ํผ์ ํด๋์ค ์ปดํฌ๋ํธ ๋ฐฐ์น Timage. ์ฐ๋ฆฌ๋ ์ป๋๋ค Image1. ์ผ๋ฐ์ ์ผ๋ก ๋๊ท๋ชจ ํ๋ก์ ํธ์ ๊ฒฝ์ฐ ์์ ์ด๋ฆ์ด ์๋์ผ๋ก ์์ฑ๋ฉ๋๋ค. ์ด๋ฏธ์งN์ด๋์์ N ์์ญ ๊ฐ ์ด์์ ๋๋ฌํ ์ ์์ต๋๋ค. ์ด๋ ์ต๊ณ ์ ํ๋ก๊ทธ๋๋ฐ ์คํ์ผ์ด ์๋๋ฉฐ ๋ ์๋ฏธ ์๋ ์ด๋ฆ์ ์ง์ ํด์ผ ํฉ๋๋ค. ํ์ง๋ง ์ฐ๋ฆฌ์ ์์ ํ๋ก์ ํธ์์๋ N 2๋ฅผ ์ด๊ณผํ์ง ์์ผ๋ฉด ์์ฑ๋ ์ํ๋ก ๋ ์ ์์ต๋๋ค.
๋ถ๋์ฐ์ผ๋ก ์ด๋ฏธ์ง1.์ฌ์ง ํ์ผ์ ์ ๋ก๋ํ์ธ์ table01.bmp. ์ฐ๋ฆฌ๋ ์ฐฝ์กฐํ๋ค Image2 ๊ฑฐ๊ธฐ์ ์ ์ด ์นด๋๋ฅผ ๋ก๋ํฉ๋๋ค. table2.bmp. ์ด ๊ฒฝ์ฐ ์์์ ์ผ์ชฝ ํ๋จ์ ํ์๋ ๊ฒ์ฒ๋ผ ํ์ผ์ ์๊ฒ ๋ง๋ค์ด ์ฌ์ฉ์์๊ฒ ๋ณด์ด์ง ์๊ฒ ๋ง๋ญ๋๋ค. ๋ชฉ์ ์ด ๋ถ๋ช ํ ์ถ๊ฐ ์ ์ด ์์๋ฅผ ์ถ๊ฐํฉ๋๋ค. Delpi-7 IDE์ ๊ทธ๋ํฝ GUI ํ๋ก๊ทธ๋๋ฐ์ ๋ ๋ฒ์งธ ๋จ๊ณ๊ฐ ์๋ฃ๋์์ต๋๋ค.
์ธ ๋ฒ์งธ ๋จ๊ณ์ธ Delpi-7 IDE์์ ์ฝ๋ ์์ฑ์ผ๋ก ๋์ด๊ฐ๊ฒ ์ต๋๋ค. ๋ชจ๋์ XNUMX๊ฐ์ ์ด๋ฒคํธ ํธ๋ค๋ฌ๋ก๋ง ๊ตฌ์ฑ๋ฉ๋๋ค. ์์ ์์ฑ(์์์์ฑ), ์ปค์ ์ด๋ Image1 (์ด๋ฏธ์ง1๋ง์ฐ์ค์ด๋), ์
์์ LMB๋ฅผ ํด๋ฆญํฉ๋๋ค(์ด๋ฏธ์ง1ํด๋ฆญ) ํ์ธ ๋ฒํผ(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๊ฐ ์์๋ก ๊ตฌ์ฑ๋ ํ ์ด๋ธ์ ์ฌ์ฉํ์ต๋๋ค(์์ ํฌ๊ธฐ). ๋ถ๋ช ํ ์ด ํฌ๊ธฐ๋ ๋์ด๋ ์ ์์ต๋๋ค. ์์ ์ง์ (ํํ ๊ธฐํธ)์ด ๋ฐฐ์ด์ ๊ธฐ๋ก๋ฉ๋๋ค. ํ ์ด๋ธ๊ธฐํธ. ๊ทธ๋ฌ๋ ์์ค ์ฝ๋๊ฐ ๊ฐ๊ฒฐํ๋ค๋ ์ด์ ๋ก ์ด๋ฌํ ํ๊ธฐ๋ฒ์ ์์๋ฅผ ๋ฌธ์์ด ์์ ํ์์ผ๋ก ์์ฑํ๋ ๊ฒ์ด ์ข์ต๋๋ค. ์ฃผ๊ธฐ์ ์ธ ํ ์ด๋ธStr1..., ์ฃผ๊ธฐ์ ์ธ ํ ์ด๋ธStr4๋ฐ๋ผ์ ์์์ด ์์ฑ๋ ๋ ํ๋ก๊ทธ๋จ ์์ฒด๋ ์ด๋ฌํ ์ง์ ์ ๋ฐฐ์ด ์์์ ๋ถ์ฐ์ํต๋๋ค. ๊ฐ ์์ ์ง์ ์ ํ๋ ๋๋ ๋ ๊ฐ์ ๋ผํด ๋ฌธ์๋ก ๊ตฌ์ฑ๋๋ฉฐ, ์ฒซ ๋ฒ์งธ ๋ฌธ์๋ ๋๋ฌธ์์ด๊ณ ๋ ๋ฒ์งธ ๋ฌธ์(์๋ ๊ฒฝ์ฐ)๋ ์๋ฌธ์์ ๋๋ค. ์ด ๊ฐ๋จํ ๊ท์น์ ๋ฐฐ์ด์ ๋ก๋ํ ๋ ๊ตฌํ๋ฉ๋๋ค. ๋ฐ๋ผ์ ์ผ๋ จ์ ํ๊ธฐ๋ฒ์ ๊ณต๋ฐฑ ์์ด ๊ฐ๊ฒฐํ๊ฒ ์์ฑํ ์ ์์ต๋๋ค. ์ํ์ค๋ฅผ ๋ค ๋ถ๋ถ์ผ๋ก ๋๋๊ธฐ(์์ ์ฃผ๊ธฐ์ ์ธ ํ ์ด๋ธStr1..., ์ฃผ๊ธฐ์ ์ธ ํ ์ด๋ธStr4)์ ์์ค ์ฝ๋๋ฅผ ์ฝ๊ธฐ ์ฝ๋๋ก ๊ณ ๋ คํ ๊ฒ์ ๋๋ค. ๋๋ฌด ๊ธด ์ค์ ํ๋ฉด์ ์์ ํ ๋ค์ด๊ฐ์ง ์์ ์ ์์ต๋๋ค.
๋ง์ฐ์ค ์ปค์๊ฐ ํด๋น ํญ๋ชฉ ์๋ก ์ด๋ํ๋ฉด Image1 ๋งค๋์ ์ด๋ฏธ์ง1๋ง์ฐ์ค์ด๋ ์ด ์ด๋ฒคํธ๋ ์ ์ด ์นด๋ ํฝ์ ์ ํ๋์ ๊ตฌ์ฑ ์์ ๊ฐ์ ๊ฒฐ์ ํฉ๋๋ค. Image2 ํ์ฌ ์ปค์ ์ขํ์ ๋ํด. ๊ฑด์ค๋ก Image2 ์ปค์๊ฐ ์ ๋ด๋ถ์ ์์ผ๋ฉด ์ด ๊ฐ์ ์์ ๋ฒํธ์ ๊ฐ์ต๋๋ค. ๊ตญ๊ฒฝ์ ์์ผ๋ฉด 255์ด๊ณ , ๋ค๋ฅธ ๊ฒฝ์ฐ์๋ XNUMX์ ๋๋ค. ํ๋ก๊ทธ๋จ์ด ์ํํ๋ ๋๋จธ์ง ์์ ์ ์ฌ์ํ๋ฉฐ ์ค๋ช ์ด ํ์ํ์ง ์์ต๋๋ค.
์์์ ์ธ๊ธํ ์คํ์ผ๋ฆฌ์ํ ํ๋ก๊ทธ๋๋ฐ ๊ธฐ์ ์ธ์๋ ํด์ค ์คํ์ผ์ ์ฃผ๋ชฉํ ๊ฐ์น๊ฐ ์์ต๋๋ค. ์๋ฐํ ๋งํ๋ฉด, ๋ ผ์๋ ์ฝ๋๋ ๋๋ฌด ์๊ณ ๋จ์ํด์ ์ฃผ์์ด ํน๋ณํ ํ์ํด ๋ณด์ด์ง ์์ต๋๋ค. ๊ทธ๋ฌ๋ ๋ฐฉ๋ฒ๋ก ์ ์ธ ์ด์ ๋ก ์ถ๊ฐ๋์์ต๋๋ค. ์งง์ ์ฝ๋๋ฅผ ์ฌ์ฉํ๋ฉด ๋ช ๊ฐ์ง ์ผ๋ฐ์ ์ธ ๊ฒฐ๋ก ์ ๋ ๋ช ํํ๊ฒ ๋ด๋ฆด ์ ์์ต๋๋ค. ์ ์๋ ์ฝ๋์์๋ ํ๋์ ํด๋์ค๊ฐ ์ ์ธ๋์์ต๋๋ค(TtableDlg). ์ด ํด๋์ค์ ๋ฉ์๋๋ ๊ต์ฒด๋ ์ ์์ผ๋ฉฐ ์ด๋ก ์ธํด ํ๋ก๊ทธ๋จ์ ๊ธฐ๋ฅ์๋ ์ด๋ค ์ํฅ๋ ๋ฏธ์น์ง ์์ง๋ง ๊ฐ๋ ์ฑ์๋ ์ํฅ์ ๋ฏธ์น ์ ์์ต๋๋ค. ์๋ฅผ ๋ค์ด ๋ค์ ์์๋ฅผ ์์ํด ๋ณด์ธ์.
OKBtnClick, Image1MouseMove, FormCreate, Image1Click, CancelBtnClick.
๋ณ๋ก ๋์ ๋์ง ์์ ์๋ ์์ง๋ง ์ฝ๊ณ ์ดํดํ๊ธฐ๊ฐ ์กฐ๊ธ ๋ ์ด๋ ค์์ง ๊ฒ์ ๋๋ค. ํด๋น ์น์ ์ XNUMX๊ฐ๊ฐ ์๋๋ผ ์์ญ ๋ฐฐ ๋ ๋ง์ ๋ฉ์๋๊ฐ ์๋ ๊ฒฝ์ฐ ์ดํ ์์ ์ค๋ช ๊ณผ ์์ ํ ๋ค๋ฅธ ์์๋ฅผ ๊ฐ์ง๋ฉด ํผ๋์ด ์ปค์ง ๊ฒ์ ๋๋ค. ๋ฐ๋ผ์ ์๋ฐํ๊ฒ ์ฆ๋ช ํ๊ธฐ๋ ์ด๋ ต๊ณ ๋ถ๊ฐ๋ฅํ ์๋ ์์ง๋ง, ์ถ๊ฐ ์์๋ฅผ ๋์ ํ๋ฉด ์ฝ๋์ ๊ฐ๋ ์ฑ์ด ํฅ์๋ ๊ฒ์ผ๋ก ๊ธฐ๋๋ฉ๋๋ค. ์ด ์ถ๊ฐ ์์๋ ๊ด๋ จ ์์ ์ ์ํํ๋ ์ฌ๋ฌ ๋ฉ์๋๋ฅผ ๋ ผ๋ฆฌ์ ์ผ๋ก ๊ทธ๋ฃนํํจ์ผ๋ก์จ ์ด์ง๋ฉ๋๋ค. ๊ฐ ๊ทธ๋ฃน์๋ ์ ๋ชฉ์ด ์ง์ ๋์ด์ผ ํฉ๋๋ค. ์๋ฅผ ๋ค๋ฉด ๋ค์๊ณผ ๊ฐ์ต๋๋ค.
// ัะฐะฑะพัะฐ ั ัะฐะฑะปะธัะตะน: ัะบะฐะทะฐะฝะธะต ะธ ะฒัะฑะพั
์ด๋ฌํ ์ ๋ชฉ์ ๋ชจ๋ ์์ ๋ถ๋ถ์ ๋ณต์ฌ๋์ด์ผ ํ๋ฉฐ ๋ชฉ์ฐจ ํ์์ผ๋ก ์ง์ ๋์ด์ผ ํฉ๋๋ค. ๋งค์ฐ ๊ธด ๋ชจ๋์ ๊ฒฝ์ฐ ์ด๋ฌํ ๋ชฉ์ฐจ๋ ์ถ๊ฐ ํ์ ์ต์ ์ ์ ๊ณตํฉ๋๋ค. ๋ง์ฐฌ๊ฐ์ง๋ก, ํ๋์ ๋ฉ์๋, ํ๋ก์์ ๋๋ ํจ์์ ๊ธด ๋ณธ๋ฌธ์์๋ ๋จผ์ ์ด ๋ณธ๋ฌธ์ ๋์ ํ์ํ๋ ๊ฒ์ด ์ข์ต๋๋ค.
end; // FormCreate
๋์งธ, ํ๋ก๊ทธ๋จ ๊ดํธ๊ฐ ์์ - ๋์ธ ๋ถ๊ธฐ๋ ๋ช ๋ น๋ฌธ์์ ๋ซ๋ ๊ดํธ๊ฐ ์ฐธ์กฐํ๋ ๋ช ๋ น๋ฌธ์ ํ์ํ์ญ์์ค.
end; // if s [j] in
end; // for i :=1
end; // FormCreate
๊ทธ๋ฃน ํค๋์ ๋ฉ์๋ ๋ณธ๋ฌธ์ ๋์ ๊ฐ์กฐ ํ์ํ๋ ค๋ฉด ๋๋ถ๋ถ์ ์ฐ์ฐ์ ๊ธธ์ด๋ฅผ ์ด๊ณผํ๊ณ ์๋ฅผ ๋ค์ด ๊ฐ๊ฐ "=" ๋ฐ "_" ๋ฌธ์๋ก ๊ตฌ์ฑ๋ ํ์ ์ถ๊ฐํ ์ ์์ต๋๋ค.
๋ค์ ํ ๋ฒ ์ ๋ณดํด์ผ ํฉ๋๋ค. ์ฐ๋ฆฌ์ ์๋ ๋๋ฌด ๊ฐ๋จํฉ๋๋ค. ๊ทธ๋ฆฌ๊ณ ๋ฉ์๋์ ์ฝ๋๊ฐ ํ ํ๋ฉด์ ๋ค ๋ค์ด๊ฐ์ง ์์ ๊ฒฝ์ฐ, ์ฝ๋ ๋ณ๊ฒฝ์ ์ํด 8000๊ฐ์ ์ฐ์๋ ๋์ด ์ดํดํ๊ธฐ ์ด๋ ค์ธ ์ ์์ต๋๋ค. ์๋ฅผ ๋ค์ด OS IBM 360/370์ฉ Pascal XNUMX๊ณผ ๊ฐ์ ์ผ๋ถ ์ค๋๋ ์ปดํ์ผ๋ฌ์์๋ ์ด์ ๊ฐ์ ์๋น์ค ์ด์ด ๋ชฉ๋ก ์ผ์ชฝ์ ์ธ์๋์์ต๋๋ค.
B5
โฆ
E5
์ด๋ E5 ํ์ ๋ซ๋ ๊ดํธ๊ฐ B5 ํ์ ์ฌ๋ ๊ดํธ์ ํด๋นํจ์ ์๋ฏธํฉ๋๋ค.
๋ฌผ๋ก ํ๋ก๊ทธ๋๋ฐ ์คํ์ผ์ ๋งค์ฐ ๋ ผ๋์ ์ฌ์ง๊ฐ ์๋ ๋ฌธ์ ์ด๋ฏ๋ก ์ฌ๊ธฐ์ ํํ๋ ์์ด๋์ด๋ ๋จ์ง ์๊ฐํ ๊ฑฐ๋ฆฌ๋ก ๋ฐ์๋ค์ฌ์ผ ํฉ๋๋ค. ์๋ ๊ฐ์ ์์ ์ ํตํด ์๋ก ๋ค๋ฅธ ์คํ์ผ์ ๊ฐ๋ฐํ๊ณ ์ต์ํด์ง ์๋นํ ๊ฒฝํ์ด ํ๋ถํ ๋ ํ๋ก๊ทธ๋๋จธ๊ฐ ํฉ์ํ๋ ๊ฒ์ ๋งค์ฐ ์ด๋ ค์ธ ์ ์์ต๋๋ค. ์์ง ์์ ์ ์คํ์ผ์ ์ฐพ์ ์๊ฐ์ด ์์์ง๋ง ํ๋ก๊ทธ๋จ์ ๋ฐฐ์ฐ๋ ํ์์๊ฒ๋ ๋ค๋ฅธ ๋ฌธ์ ์ ๋๋ค. ์ด ๊ฒฝ์ฐ ๊ต์ฌ๋ ์ต์ํ ํ๋ก๊ทธ๋จ์ ์ฑ๊ณต์ด ์์ค ์ฝ๋ ์์ฑ ์คํ์ผ์ ํฌ๊ฒ ์ข์ฐ๋๋ค๋ ๊ฐ๋จํ์ง๋ง ๋ช ํํ์ง ์์ ์์ด๋์ด๋ฅผ ํ์๋ค์๊ฒ ์ ๋ฌํด์ผ ํ๋ค๊ณ ์๊ฐํฉ๋๋ค. ํ์์ด ๊ถ์ฅ๋๋ ์คํ์ผ์ ๋ฐ๋ฅด์ง ์์ ์๋ ์์ง๋ง ์ต์ํ ์์ค ์ฝ๋ ๋์์ธ์ ๊ฐ์ ํ๊ธฐ ์ํด "์ถ๊ฐ" ์์ ์ด ํ์ํ์ง ์๊ฐํ๊ฒ ํ์ญ์์ค.
์ฃผ๊ธฐ์จํ์ ๊ธฐ๋ณธ ๋ฌธ์ ๋ก ๋์๊ฐ์, ์ถ๊ฐ ๊ฐ๋ฐ์ ๋ค๋ฅธ ๋ฐฉํฅ์ผ๋ก ์งํ๋ ์ ์์ต๋๋ค. ์ง์นจ ์ค ํ๋๋ ์ฐธ์กฐ์ฉ์ ๋๋ค. ํ ์ ์์ ๋ง์ฐ์ค ์ปค์๋ฅผ ์ฌ๋ฆฌ๋ฉด ์ง์ ๋ ์์์ ๋ํ ์ถ๊ฐ ์ ๋ณด๊ฐ ํฌํจ๋ ์ ๋ณด ์ฐฝ์ด ๋ํ๋ฉ๋๋ค. ์ถ๊ฐ ๊ฐ๋ฐ์ ํํฐ์ ๋๋ค. ์๋ฅผ ๋ค์ด, ์ค์น์ ๋ฐ๋ผ ์ ๋ณด ์ฐฝ์๋ ๊ฐ์ฅ ์ค์ํ ๋ฌผ๋ฆฌ์ ๋ฐ ํํ์ ์ ๋ณด, ๋ฐ๊ฒฌ ์ด๋ ฅ์ ๋ํ ์ ๋ณด, ์์ฐ ๋ถํฌ์ ๋ํ ์ ๋ณด, ๊ฐ์ฅ ์ค์ํ ํํฉ๋ฌผ ๋ชฉ๋ก(์ด ์์ ํฌํจ)๋ง ํฌํจ๋ฉ๋๋ค. ์๋ฆฌ์ ํน์ฑ, ์ธ๊ตญ์ด๋ก ๋ ์ด๋ฆ ๋ฑ e. ์ด ๊ธฐ์ฌ๊ฐ ์์๋๋ Kaverin์ "์ค๋ฆฌ"๋ฅผ ๊ธฐ์ตํ๋ฉด ์ด๋ฌํ ํ๋ก๊ทธ๋จ ๊ฐ๋ฐ์ ํตํด ์ปดํจํฐ ์ธ์๋ ์์ฐ ๊ณผํ์์ ์์ ํ ํ๋ จ ๋จ์ง๋ฅผ ์ป๊ฒ ๋ ๊ฒ์ด๋ผ๊ณ ๋งํ ์ ์์ต๋๋ค. ๊ณผํ, ๋ฌผ๋ฆฌํ, ํํ - ์๋ฌผํ, ๊ฒฝ์ ์ง๋ฆฌ, ๊ณผํ์ฌ, ์ฌ์ง์ด ์ธ๊ตญ์ด๊น์ง.
๊ทธ๋ฌ๋ ๋ก์ปฌ ๋ฐ์ดํฐ๋ฒ ์ด์ค์๋ ํ๊ณ๊ฐ ์์ต๋๋ค. ํ๋ก๊ทธ๋จ์ ์์ฐ์ค๋ฝ๊ฒ ์ธํฐ๋ท์ ์ฐ๊ฒฐ๋ฉ๋๋ค. ์์๋ฅผ ์ ํํ๋ฉด ๋งํฌ๊ฐ ํ์ฑํ๋๊ณ ์ด ์์์ ๋ํ Wikipedia ๋ฌธ์๊ฐ ์น ๋ธ๋ผ์ฐ์ ์ฐฝ์์ ์ด๋ฆฝ๋๋ค. ์์๋ค์ํผ ์ํคํผ๋์๋ ๊ถ์ ์๋ ์ถ์ฒ๊ฐ ์๋๋๋ค. ์๋ฅผ ๋ค์ด ํํ ๋ฐฑ๊ณผ์ฌ์ , TSB, ์ด๋ก ์ ๋, ์ด ์์์ ๋ํ ๊ฒ์ ์์ง์ ์ฃผ๋ฌธ ์ฟผ๋ฆฌ ๋ฑ๊ณผ ๊ฐ์ ์ ๋ขฐํ ์ ์๋ ์์ค์ ๋ํ ๋งํฌ๋ฅผ ์ค์ ํ ์ ์์ต๋๋ค. ์ ๊ฒ. ํ์๋ค์ DBMS ๋ฐ ์ธํฐ๋ท ์ฃผ์ ์ ๋ํด ๊ฐ๋จํ์ง๋ง ์๋ฏธ ์๋ ๊ณผ์ ๋ฅผ ์๋ฃํ ์ ์์ต๋๋ค.
๊ฐ๋ณ ์์์ ๋ํ ์ฟผ๋ฆฌ ์ธ์๋ ํน์ ๊ธฐ์ค์ ์ถฉ์กฑํ๋ ํ ์ด๋ธ์ ์ ์ ๋ค๋ฅธ ์์์ผ๋ก ํ์ํ๋ ๊ธฐ๋ฅ ๋ฑ์ ๋ง๋ค ์ ์์ต๋๋ค. ์๋ฅผ ๋ค์ด ๊ธ์๊ณผ ๋น๊ธ์์ด ์์ต๋๋ค. ๋๋ ์ง์ญ ํํ ๊ณต์ฅ์์ ์์ญ์ ๋ฒ๋ ค์ง ์ธํฌ์ ๋๋ค.
๋ ธํธ๋ถ ์ ๋ฆฌ ๊ธฐ๋ฅ์ ๊ตฌํํ ์๋ ์์ต๋๋ค. ์๋ฅผ ๋ค์ด, ์ํ์ ํฌํจ๋ ์์๋ฅผ ํ์์ ๊ฐ์กฐ ํ์ํ์ญ์์ค. ๊ทธ๋ฐ ๋ค์ ์ํ ์ค๋น ๊ณผ์ ์์ ํ์์ด ๊ณต๋ถ/๋ฐ๋ณตํ ์์๋ฅผ ๊ฐ์กฐ ํ์ํฉ๋๋ค.
์๋ฅผ ๋ค์ด ์ฌ๊ธฐ์ ์ ํ์ ์ธ ํ๊ต ํํ ๋ฌธ์ ์ค ํ๋๊ฐ ์์ต๋๋ค.
10g์ ๋ถํ์ด ์ฃผ์ด์ก์ต๋๋ค. ์ด ๋ถํ์ ๋ชจ๋ ๋ น์ด๋ ค๋ฉด ์ผ๋ง๋ ๋ง์ ์ผ์ฐ์ ์ญ์ทจํด์ผ ํฉ๋๊น?
์ด ๋ฌธ์ ๋ฅผ ํด๊ฒฐํ๋ ค๋ฉด ํํ์ ์ ์ด์ผ ํฉ๋๋ค. ๋ฐ์์์ ๊ณ์๋ฅผ ๋์
ํ์ฌ ํ์ฐ์นผ์๊ณผ ์ผํ์์์ ๋ถ์๋์ ๊ณ์ฐํ๊ณ ๊ทธ ๋น์จ์ ๊ตฌ์ฑํ์ฌ ํผ๋ค. ์ฐ๋ฆฌ์ ๊ธฐ๋ณธ ํ๋ก๊ทธ๋จ์ ๊ธฐ๋ฐ์ผ๋ก ํ ๊ณ์ฐ๊ธฐ๋ ๊ณ์ฐํ๊ณ ํด๊ฒฐํ ์ ์์ต๋๋ค. ์ฌ์ค, ์ฐ์ ํฉ๋ฆฌ์ ์ผ๋ก ๊ณผ์์ผ๋ก ๊ทธ๋ฆฌ๊ณ ํฉ๋ฆฌ์ ์ธ ๋๋๋ก ์ญ์ทจํด์ผ ํ๋ค๋ ์ ์ ๊ณ ๋ คํด์ผ ํ์ง๋ง ์ด๊ฒ์ ์ปดํจํฐ ๊ณผํ์ด ์๋๋ผ ํํ์
๋๋ค.
CaCO3 + 2HCl = CaCl2 + H2O
์ด๋ฅผ ํตํด ์นผ์(Ca), ํ์(C), ์ฐ์(O), ์์(H) ๋ฐ ์ผ์(Cl) ์์์ ์์๋์ด ํ์ํ๋ค๋ ๊ฒ์ ์ ์ ์์ต๋๋ค. ๊ฐ์ฅ ๊ฐ๋จํ ๊ฒฝ์ฐ, ์ด๋ฌํ ๊ฐ์ค์น๋ฅผ ๋ค์๊ณผ ๊ฐ์ด ์ ์๋ XNUMX์ฐจ์ ๋ฐฐ์ด์ ์ธ ์ ์์ต๋๋ค.
AtomicMass : array [1..size] of real;
์ฌ๊ธฐ์ ๋ฐฐ์ด ์ธ๋ฑ์ค๋ ์์ ๋ฒํธ์ ํด๋นํฉ๋๋ค. ์์์ ์ฌ์ ๊ณต๊ฐ์ ๋ํด ์์ธํ ์์๋ณด๊ธฐ ํ ์ด๋ธDlg ๋ ๊ฐ์ ํ๋๋ฅผ ๋ฃ์ผ์ญ์์ค. ์ฒซ ๋ฒ์งธ ํ๋์๋ ์ฒ์์ "์ฒซ ๋ฒ์งธ ์์ฝ์ด ์ ๊ณต๋ฉ๋๋ค", ๋ ๋ฒ์งธ ํ๋์๋ "๋ ๋ฒ์งธ ์์ฝ์ x๋ฅผ ์ฐพ๋ ๊ฒ์ ๋๋ค"๋ผ๊ณ ๊ธฐ๋ก๋ฉ๋๋ค. ํ๋๋ฅผ ๋ํ๋ด์ ์์ฝ1, ์์ฝ2 ๊ฐ๊ธฐ. ํ๋ก๊ทธ๋จ์ ์ถ๊ฐ๋ ๋ค๋ฅธ ์ฌํญ์ ๋ค์ ๊ณ์ฐ๊ธฐ ์๋ฅผ ํตํด ๋ช ํํด์ง๋๋ค.
์ปดํจํฐ ํค๋ณด๋์ 10g์ ์ ๋ ฅํฉ๋๋ค. ํ๋์ ๋น๋ฌธ ์์ฝ1 ๋ณ๊ฒฝ: "์ฒซ ๋ฒ์งธ ์์ฝ์ 10g์ด ์ฃผ์ด์ง๋๋ค." ์ด์ ์ด ์์ฝ์ ๊ณต์์ ์ ๋ ฅํ๋ฉด ์ ๋ ฅํ ๋๋ก ๊ณ์ฐ๊ธฐ๊ฐ ๋ถ์๋์ ๊ณ์ฐํ์ฌ ํ์ํฉ๋๋ค.
Ca ๊ธฐํธ๊ฐ ์๋ ํ ์ด๋ธ ์ ์์ LMB๋ฅผ ํด๋ฆญํฉ๋๋ค. ํ์ฅ์ ๋น๋ฌธ ์์ฝ1 ๋ณ๊ฒฝ: "40.078g์ ์ฒซ ๋ฒ์งธ ์์ฝ Ca 10 ์ ๊ณต."
๊ธฐํธ C๊ฐ ์๋ ํ ์ด๋ธ ์ ์์ LMB๋ฅผ ํด๋ฆญํฉ๋๋ค. ํ๋์ ๋น๋ฌธ ์์ฝ1 ๋ณ๊ฒฝ: "52.089g์ ์ฒซ ๋ฒ์งธ ์์ฝ CaC 10 ์ ๊ณต." ์ ๊ฒ๋ค. ๊ณ์ฐ๊ธฐ๋ ์นผ์๊ณผ ํ์์ ์์๋์ ํฉ์ฐํ์ต๋๋ค.
O ๊ธฐํธ๊ฐ ์๋ ํ ์ด๋ธ ์ ์์ LMB๋ฅผ ํด๋ฆญํฉ๋๋ค. ํ๋์ ๋น๋ฌธ ์์ฝ1 ๋ณ๊ฒฝ ์ฌํญ: "์ฒซ ๋ฒ์งธ ์์ฝ CaCO 68.088 10g ์ ๊ณต." ๊ณ์ฐ๊ธฐ๋ ํฉ๊ณ์ ์ฐ์์ ์์๋์ ๋ํ์ต๋๋ค.
O ๊ธฐํธ๊ฐ ์๋ ํ ์ด๋ธ ์ ์์ LMB๋ฅผ ํด๋ฆญํฉ๋๋ค. ํ๋์ ๋น๋ฌธ ์์ฝ1 ๋ณ๊ฒฝ: "2g์ ์ฒซ ๋ฒ์งธ ์์ฝ CaCO84.087 10 ์ ๊ณต." ๊ณ์ฐ๊ธฐ๋ ๋ค์ ํ ๋ฒ ํฉ๊ณ์ ์ฐ์์ ์์๋์ ๋ํ์ต๋๋ค.
O ๊ธฐํธ๊ฐ ์๋ ํ ์ด๋ธ ์ ์์ LMB๋ฅผ ํด๋ฆญํฉ๋๋ค. ํ๋์ ๋น๋ฌธ ์์ฝ1 ๋ณ๊ฒฝ: "3g์ ์ฒซ ๋ฒ์งธ ์์ฝ CaCO100.086 10 ์ ๊ณต." ๊ณ์ฐ๊ธฐ๋ ๋ค์ ํฉ๊ณ์ ์ฐ์์ ์์๋์ ๋ํ์ต๋๋ค.
์ปดํจํฐ ํค๋ณด๋์์ Enter ํค๋ฅผ ๋๋ฆ ๋๋ค. XNUMX์ฐจ ์์ฝ ํฌ์ ์ด ์๋ฃ๋๊ณ ํ์ฅ์ผ๋ก ์ ํ๋ฉ๋๋ค. ์์ฝ2. ์ด ์์์๋ ์ต์ ๋ฒ์ ์ ์ ๊ณตํ๊ณ ์์ต๋๋ค. ์ํ๋ ๊ฒฝ์ฐ ๋์ผํ ์ ํ์ ์์ ์น์๋ฅผ ์ฝ๊ฒ ๊ตฌ์ฑํ ์ ์์ผ๋ฏ๋ก ์๋ฅผ ๋ค์ด ํฌ๋กฌ ๊ณต์(K2Cr2O7)์ ์ ๋ ฅํ ๋ ์ฐ์ ์ ์ ์ฐ์์ผ๋ก XNUMX๋ฒ ํด๋ฆญํ ํ์๊ฐ ์์ต๋๋ค.
H ๊ธฐํธ๊ฐ ์๋ ํ ์ด๋ธ ์ ์์ LMB๋ฅผ ํด๋ฆญํฉ๋๋ค. ํ๋์ ๋น๋ฌธ ์์ฝ2 ๋ณ๊ฒฝ ์ฌํญ: "๋ ๋ฒ์งธ ์์ฝ H 1.008 x๋ฅผ ์ฐพ์ผ์ธ์."
Cl ๊ธฐํธ๊ฐ ์๋ ํ ์ด๋ธ ์ ์์ LMB๋ฅผ ํด๋ฆญํฉ๋๋ค. ํ์ฅ์ ๋น๋ฌธ ์์ฝ2 ๋ณ๊ฒฝ ์ฌํญ: "๋ ๋ฒ์งธ ์์ฝ HCl 36.458 x๋ฅผ ์ฐพ์ผ์ธ์." ๊ณ์ฐ๊ธฐ๋ ์์์ ์ผ์์ ์์๋์ ํฉ์ฐํ์ต๋๋ค. ์ ๋ฐ์์์์ ์ผํ์์ ์์ ๊ณ์ 2๊ฐ ๋ถ์ต๋๋ค. ๋ฐ๋ผ์ ํด๋น ํ๋์์ LMB๋ฅผ ํด๋ฆญํฉ๋๋ค. ์์ฝ2. ๋ถ์๋์ ๋ ๋ฐฐ๋ก ๋์ด๋ฉ๋๋ค(๋ ๋ฒ ๋๋ฅด๋ฉด ์ธ ๋ฐฐ ๋ฑ). ํ์ฅ์ ๋น๋ฌธ ์์ฝ2 ๋ณ๊ฒฝ ์ฌํญ: "๋ ๋ฒ์งธ ์์ฝ 2HCl 72.916 ์ฐพ๊ธฐ x."
์ปดํจํฐ ํค๋ณด๋์์ Enter ํค๋ฅผ ๋๋ฆ ๋๋ค. ๋ ๋ฒ์งธ ์์ฝ ์ ๋ ฅ์ด ์๋ฃ๋๊ณ , ๊ณ์ฐ๊ธฐ๋ ๊ทธ ๋น์จ์์ 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;
์ฌ๊ธฐ์ ์ธ๋ฑ์ค๋ ํํ ์์์ ์์ด๊ณ ์ด ์ธ๋ฑ์ค์ ๊ฐ์ ์์์ ์์ ๋๋ค(์ด๊ธฐ์๋ ๋ฐฐ์ด์ ๋ชจ๋ ์์๊ฐ 3์ผ๋ก ์ฌ์ค์ ๋ฉ๋๋ค). ํํ์์ ์ฑํ๋ ๋๋ก ๊ณต์์ ์์๊ฐ ๊ธฐ๋ก๋๋ ์์๋ฅผ ๊ณ ๋ คํด์ผ ํฉ๋๋ค. ์๋ฅผ ๋ค์ด OXNUMXCaC๋ฅผ ์ข์ํ๋ ์ฌ๋๋ ๊ฑฐ์ ์์ต๋๋ค. ์ฑ ์์ ์ฌ์ฉ์์๊ฒ ์ ๊ฐํฉ์๋ค. ๋ฐฐ์ด ๋ง๋ค๊ธฐ:
formulaOrder : array [1..size] of integer; // ะผะพะถะฝะพ ะฒะทััั ะฟะพะบะพัะพัะต
์ฌ๊ธฐ์ ์ฐ๋ฆฌ๋ ๊ณต์์ ๋ํ๋๋ ์์ธ์ ๋ฐ๋ผ ํํ ์์์ ์๋ฅผ ๊ธฐ๋กํฉ๋๋ค. ์์ ์ถ๊ฐ ํตํ์๋์ ๊ณต์์:
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์ ์ ์ํ์ญ์์ค. ํค๋ณด๋์์ ์์ฝ ๊ณต์์ ์ ๋ ฅํ ์ ์๋ ๊ธฐ๋ฅ์ ์ ๊ณตํ๋ ๊ฒ์ด ํฉ๋ฆฌ์ ์ ๋๋ค. ์ด ๊ฒฝ์ฐ ๊ฐ๋จํ ํ์๋ฅผ ๊ตฌํํด์ผ ํฉ๋๋ค.
๋ค์ ์ฌํญ์ ์ฃผ๋ชฉํ ๊ฐ์น๊ฐ ์์ต๋๋ค.
์ค๋๋ ์๋ ์๋ฐฑ ๊ฐ์ง ๋ฒ์ ์ ํ ์ด๋ธ์ด ์์ผ๋ฉฐ ๊ณผํ์๋ค์ ๋์์์ด ์๋ก์ด ์ต์ ์ ์ ๊ณตํ๊ณ ์์ต๋๋ค. (
์ํค ๋ฐฑ๊ณผ )
ํ์๋ค์ ์ด๋ฏธ ์ ์๋ ์ต์ ์ค ํ๋๋ฅผ ๊ตฌํํ์ฌ ์ด ๋ฐฉํฅ์ ๋ํ ๋ ์ฐฝ์ฑ์ ๋ณด์ฌ์ฃผ๊ฑฐ๋ ์์ ๋ง์ ๋ ์ฐฝ์ ์ธ ์ต์ ์ ๋ง๋ค์ด ๋ณผ ์ ์์ต๋๋ค. ์ด๊ฒ์ด ์ปดํจํฐ ๊ณผํ ์์ ์ ์์ด์ ๊ฐ์ฅ ์ ์ฉํ์ง ์์ ๋ฐฉํฅ์ธ ๊ฒ์ฒ๋ผ ๋ณด์ผ ์๋ ์์ต๋๋ค. ๊ทธ๋ฌ๋ ์ด ๊ธฐ์ฌ์์ ๊ตฌํ๋ ์ฃผ๊ธฐ์จํ์ ํํ์์ ์ผ๋ถ ํ์๋ค์ ํ์ค ๋ฒํผ์ ์ฌ์ฉํ๋ ๋์ฒด ์๋ฃจ์ ์ ๋นํด ์ปจํธ๋กค ์นด๋์ ํน๋ณํ ์ด์ ์ ๋ณด์ง ๋ชปํ ์๋ ์์ต๋๋ค. T๋ฒํผ. ํ ์ด๋ธ์ ๋์ ํ ๋ชจ์(์ ์ ๋ชจ์์ด ์๋ก ๋ค๋ฆ)์ ์ฌ๊ธฐ์ ์ ์๋ ์๋ฃจ์ ์ ์ฅ์ ์ ๋์ฑ ๋ช ํํ๊ฒ ๋ณด์ฌ์ค๋๋ค.
(
๋ํ ์ฃผ๊ธฐ์จํ์ ๋ํด ํ์ฌ ์กด์ฌํ๋ ๋ค์์ ์ปดํจํฐ ํ๋ก๊ทธ๋จ์ด ์ต๊ทผ Habrรฉ์ ์ถํ๋ ๋
ผ๋ฌธ์ ์ค๋ช
๋์ด ์๋ค๋ ์ ์ ๋ง๋ถ์ฌ ๋ณด๊ฒ ์ต๋๋ค.
1) ์ค์ธ ์๋์ ์๋ ค์ง ๋ชจ๋ ์์๋ฅผ โโํ์์ ์ ํํ์ญ์์ค.
2) ์ฃผ๊ธฐ์จ ๋ฐ๊ฒฌ ๋น์ ์๋ ค์ง ๋ชจ๋ ์์๋ฅผ ํ์ธํ์ญ์์ค.
3) ์ฐ๊ธ์ ์ฌ๊ฐ ๊ธ์์ผ๋ก ๊ฐ์ฃผํ ์ผ๊ณฑ ๊ฐ์ง ์์๋ฅผ ๋ฐํ์ญ์์ค.
4) ์ ์์ ์ธ ์กฐ๊ฑด(n.s.)์์ ๊ธฐ์ฒด ์ํ์ ์๋ ์์๋ฅผ ๋ชจ๋ ์ ํํฉ๋๋ค.
5) XNUMX๋ฒ ํญ๋ชฉ์์ ์ก์ฒด ์ํ์ธ ์์๋ฅผ ๋ชจ๋ ์ ํํฉ๋๋ค.
6) XNUMX๋ฒ์์ ๊ณ ์ฒด์ํ์ ์๋ ์์๋ฅผ ๋ชจ๋ ์ ํํฉ๋๋ค.
7) ์ ์์ ์ธ ์กฐ๊ฑด์์ ์ค๋ ์๊ฐ ๋์ ๋์ ๋๋ ๋ณํ๊ฐ ์์ด ๊ณต๊ธฐ์ ๋ ธ์ถ๋ ์ ์๋ ์์๋ฅผ ๋ชจ๋ ์ ํํฉ๋๋ค.
8) ์ผ์ฐ์ ๋ น๋ ๊ธ์์ ๋ชจ๋ ์ ํํ๋ค.
9) ํฉ์ฐ์ ๋ น๋ ๊ธ์์ ๋ชจ๋ ์ ํํ์ฌ No.
10) ๊ฐ์ดํ๋ฉด ํฉ์ฐ์ ๋ น๋ ๊ธ์์ ๋ชจ๋ ์ ํํ๋ค.
11) ์ง์ฐ์ ๋ น๋ ๊ธ์์ ๋ชจ๋ ์ ํํ์์ค.
12) ์ฃผ๋ณ ์กฐ๊ฑด์์ ๋ฌผ๊ณผ ๊ฒฉ๋ ฌํ๊ฒ ๋ฐ์ํ๋ ๋ชจ๋ ๊ธ์์ ๊ฒฉ๋ฆฌํ์ญ์์ค.
13) ๋ชจ๋ ๊ธ์์ ์ ํํ์ธ์.
14) ์์ฐ์ ๋๋ฆฌ ํผ์ ธ ์๋ ์์๋ฅผ ์๋ณํฉ๋๋ค.
15) ์์ ์ํ์ ์์ฐ์์ ๋ฐ๊ฒฌ๋๋ ์์๋ฅผ ์์๋ณธ๋ค.
16) ์ธ๊ฐ๊ณผ ๋๋ฌผ์ ์ ์ฒด์์ ๊ฐ์ฅ ์ค์ํ ์ญํ ์ ํ๋ ์์๋ฅผ ์์๋ณด์ธ์.
17) ์ผ์์ํ์์ ๋๋ฆฌ ์ฌ์ฉ๋๋ ์์๋ฅผ ์ ํํ์ธ์(์์ ํํ ๋๋ ์กฐํฉ).
18) ์์ ํ๊ธฐ์ ๊ฐ์ฅ ์ํํ๊ณ ํน๋ณํ ์กฐ์น์ ๋ณดํธ ์ฅ๋น๊ฐ ํ์ํ ์์๋ฅผ ์๋ณํ์ญ์์ค.
19) ์์ ํํ ๋๋ ํํฉ๋ฌผ ํํ๋ก ํ๊ฒฝ์ ๊ฐ์ฅ ํฐ ์ํ์ ๊ฐํ๋ ์์๋ฅผ ์๋ณํ์ญ์์ค.
20) ๊ท๊ธ์์ ์ ํํ์ธ์.
21) ๊ท๊ธ์๋ณด๋ค ๋น์ผ ์์๋ฅผ ์๋ณํฉ๋๋ค.
์ฐธ๊ณ ์ฌํญ
1) ์ฌ๋ฌ ๊ฐ์ ํํฐ๋ฅผ ์ ๊ณตํ๋ ๊ฒ์ด ํฉ๋ฆฌ์ ์ ๋๋ค. ์๋ฅผ ๋ค์ด, ๋ฌธ์ 1(์ค์ธ ์๋์ ์๋ ค์ง ๋ชจ๋ ์์)๊ณผ ๋ฌธ์ 20(๊ท๊ธ์)์ ํด๊ฒฐํ๊ธฐ ์ํด ํํฐ๋ฅผ ์ผ๋ฉด ์ค์ธ ์๋์ ์๋ ค์ง ๊ท๊ธ์์ด ํฌํจ๋ ์ ์ด ๊ฐ์กฐ ํ์๋ฉ๋๋ค(์: ์์๋ณ๋ก)( ์๋ฅผ ๋ค์ด ํ๋ผ๋์ ๊ฐ์กฐ ํ์๋์ง ์์ผ๋ฉฐ 1803๋ ์ ๊ฐ๋ด๋์์ต๋๋ค.)
2) ๊ฐ ํํฐ๊ฐ ๊ณ ์ ํ ์์์ผ๋ก ์ ์ ์ ํํ์ง๋ง ๋ค๋ฅธ ํํฐ์ ์ ํ์ ์์ ํ ์ ๊ฑฐํ์ง ์๋ ๋ชจ๋์์ ์ฌ๋ฌ ํํฐ๊ฐ ์๋ํ๋์ง ํ์ธํ๋ ๊ฒ์ด ํฉ๋ฆฌ์ ์ ๋๋ค(์ ์ ์ผ๋ถ๋ ํ ์์, ์ผ๋ถ๋ ๋ค๋ฅธ ์์). ๊ทธ๋ฌ๋ฉด ์ด์ ์์ ๊ฒฝ์ฐ ์ค์ธ ์๋์ ๋ฐ๊ฒฌ๋ ์งํฉ์ ๊ต์ฐจ์ ๊ณผ ๊ท๊ธ์์ ์์๋ฟ๋ง ์๋๋ผ ์ฒซ ๋ฒ์งธ ์งํฉ์๋ง ์ํ๋ ์์์ ๋ ๋ฒ์งธ ์งํฉ์๋ง ์ํ๋ ์์๋ ํ์๋ฉ๋๋ค. ์ ๊ฒ๋ค. ์ค์ธ ์๋์ ์๋ ค์ง์ง ์์ ๊ท๊ธ์, ์ค์ธ ์๋์ ์๋ ค์ก์ผ๋ ๊ท๊ธ์์ด ์๋ ์์.
3) ์ป์ ๊ฒฐ๊ณผ๋ก ๋ค๋ฅธ ์์ ์ ๊ฐ๋ฅ์ฑ์ ๋ณด์ฅํ๊ธฐ ์ํด ํํฐ๋ฅผ ์ ์ฉํ ํ์๋ ์๋ฏธ๊ฐ ์์ต๋๋ค. ์๋ฅผ ๋ค์ด, ์ค์ธ ์๋์ ์๋ ค์ง ์์๋ฅผ ์ ํํ ๊ฒฝ์ฐ ์ฌ์ฉ์๋ ์ ํํ ์์์์ LMB๋ฅผ ํด๋ฆญํ๊ณ ํด๋น ์์์ ๋ํ Wikipedia ๋ฌธ์๋ก ์ด๋ํฉ๋๋ค.
4) ์ ํํ ํ ์ด๋ธ ์ ์์ LMB๋ฅผ ํด๋ฆญํ์ฌ ์ ํ์ ์ทจ์ํ ์ ์๋ ๊ธฐ๋ฅ์ ์ฌ์ฉ์์๊ฒ ์ ๊ณตํ๋ ๊ฒ์ด ํฉ๋ฆฌ์ ์ ๋๋ค. ์๋ฅผ ๋ค์ด ์ด๋ฏธ ๋ณธ ํญ๋ชฉ์ ์ ๊ฑฐํ๋ ค๋ ๊ฒฝ์ฐ์ ๋๋ค.
5) ์ ํํ ์ ๋ชฉ๋ก์ด ํ์ผ์ ์ ์ฅ๋๊ณ ํด๋น ํ์ผ์ด ์๋ ์ ์ ํ๊ณผ ํจ๊ป ๋ก๋๋๋์ง ํ์ธํ๋ ๊ฒ์ด ํฉ๋ฆฌ์ ์ ๋๋ค. ์ด๋ฅผ ํตํด ์ฌ์ฉ์๋ ์ง์ฅ์์ ํด์์ ์ทจํ ์ ์์ต๋๋ค.
์ฐ๋ฆฌ๋ ์ ์ ์ด๊ณ ๋ฏธ๋ฆฌ ๊ฒฐ์ ๋ ์ปจํธ๋กค ๋งต์ ์ฌ์ฉํ์ง๋ง ํ๋ก๊ทธ๋จ์ด ์คํ๋จ์ ๋ฐ๋ผ ๋ณ๊ฒฝ๋๋ ๋์ ์ปจํธ๋กค ๋งต์ ์ฌ์ฉํ ์ ์๋ ์ค์ํ ์์ ์ด ๋ง์ด ์์ต๋๋ค. ์๋ฅผ ๋ค์ด ์ฌ์ฉ์๊ฐ ๋ง์ฐ์ค๋ฅผ ์ฌ์ฉํ์ฌ ์ฐฝ์ ์ ์ ์์น๋ฅผ ๋ํ๋ด๊ณ ์ ์ ์ฌ์ด์ ๊ฐ์ฅ์๋ฆฌ๋ฅผ ๊ทธ๋ฆฌ๋ ๊ทธ๋ํ ํธ์ง๊ธฐ๊ฐ ์์ต๋๋ค. ์ ์ ์ด๋ ๊ฐ์ฅ์๋ฆฌ๋ฅผ ์ญ์ ํ๋ ค๋ฉด ์ฌ์ฉ์๊ฐ ์ด๋ฅผ ๊ฐ๋ฆฌ์ผ์ผ ํฉ๋๋ค. ๊ทธ๋ฌ๋ ์์ผ๋ก ํ์๋ ๊ผญ์ง์ ์ ๊ฐ๋ฆฌํค๋ ๊ฒ์ด ์์ฃผ ์ฝ๋ค๋ฉด ๊ฐ๋ ์ ์ผ๋ก ๊ทธ๋ฆฐ โโ๋ชจ์๋ฆฌ๋ฅผ ๊ฐ๋ฆฌํค๋ ๊ฒ์ ๋ ์ด๋ ค์ธ ๊ฒ์ ๋๋ค. ์ฌ๊ธฐ์๋ ์ ์ ๊ณผ ๊ฐ์ฅ์๋ฆฌ๊ฐ ๋ณด์ด๋ ๊ทธ๋ฆผ๋ณด๋ค ๋ ๋์ ์ด์์ ์ฐจ์งํ๋ ์ ์ด ๋งต์ด ๋์์ด ๋ ๊ฒ์ ๋๋ค.
์ด ๋ณต์กํ ํ๋ จ ๋ฐฉ๋ฒ๊ณผ ๊ด๋ จ๋ ํฅ๋ฏธ๋ก์ด ๋ถ๊ฐ ์ง๋ฌธ์ ๋ค์๊ณผ ๊ฐ์ต๋๋ค. ์ด ๋ฐฉ๋ฒ์ด AI ํ๋ จ์ ์ ์ฉํ ์ ์์ต๋๊น?
์ถ์ฒ : habr.com