(ã³ã³ãããŒã«ã«ãŒã)
(åœéå
çŽ åšæ衚幎ã«ã¡ãªãã )
(ææ°ã®è¿œå ã¯8幎2019æXNUMXæ¥ã«è¡ãããŸãããè¿œå ãªã¹ãã¯ã«ããã®ããäžã«ãããŸã)
(
ã¢ãã«ãšããéã£ãã®ãèŠããŠããŸãã ãããã¯å°çãèªç¶ç§åŠããã·ã¢èªã® XNUMX ã€ã®ææ¥ãäžåºŠã«è¡ããã®ã§ããã çç§ã®ææ¥ã§ã¯ãã¢ãã«ãã¢ãã«ã§ããããšãã©ã®ãããªç¿Œãããã®ãââãã©ã®ãããªè¶³ãããã®ãââãã©ã®ããã«æ³³ãã®ããªã©ãåŠç¿ããŸããã å°çã®ææ¥ã§ã¯ãåãã¢ãã«ãå°çã®äœäººãšããŠç 究ãããŸããããããã©ãã«çæ¯ããã©ãã«çæ¯ããŠããªãããå°å³äžã«ç€ºãå¿ èŠããããŸããã ã»ã©ãã£ãã»ããããŽãã¯ãã·ã¢èªã§ãu-t-k-aããšæžããŠããã¬ã ã®ã¢ãã«ã«ã€ããŠäœãèªãããã«æããŠãããŸããã ã€ãã§ã«ããã€ãã§ã¯ã¢ãã«ã¯ããããã©ã³ã¹èªã§ã¯ããã ãšæããŠãããŸããã åœæã¯ãè€éæ³ããšåŒã°ããŠãããšæããŸãã äžè¬ã«ããã¹ãŠããããŸããŸãåºãŠããŸããã
ãã³ãžã£ãã³ã»ã«ããªã³, è¹é·ã¯äºäººã
äžã®åŒçšæã®äžã§ãããã¢ãã³ã»ã«ããªã³ã¯è€éãªæè²æ¹æ³ã®æ¬ ç¹ãå·§ã¿ã«ç€ºããŸããããå Žåã«ãã£ãŠã¯ (ããããéåžžã«ãŸããª)ããã®æ¹æ³ã®èŠçŽ ãæ£åœåãããããšããããŸãã ãã®ãããªäŸã® XNUMX ã€ã¯ãåŠæ ¡ã®ã³ã³ãã¥ãŒã¿ãŒ ãµã€ãšã³ã¹ã®ææ¥ã§äœ¿çšããã D.I. ã¡ã³ãã¬ãŒãšãã®åšæè¡šã§ãã åšæè¡šã䜿çšããå
žåçãªã¢ã¯ã·ã§ã³ããœãããŠã§ã¢ã§èªååãããšããã¿ã¹ã¯ã¯ãååŠãå匷ãå§ããåŠç«¥ã«ãšã£ãŠã¯æããã§ãããå€ãã®å
žåçãªååŠåé¡ã«åãããŠããŸãã åæã«ãã³ã³ãã¥ãŒã¿ãµã€ãšã³ã¹ã®æ çµã¿ã®äžã§ããã®ã¿ã¹ã¯ã«ãããã°ã©ãã£ãã¯èŠçŽ ã䜿çšããããã°ã©ãã³ã°ãšããŠåºãæå³ã§ç解ãããã°ã©ãã£ãã¯ããã°ã©ãã³ã°ã«èµ·å ããã³ã³ãããŒã«ã«ãŒãã®æ¹æ³ãç°¡åãªåœ¢åŒã§å®èšŒããããšãã§ããŸãã
(8 幎 2019 æ XNUMX æ¥è¿œèš:
åºæ¬çãªã¿ã¹ã¯ããå§ããŸãããã æãåçŽãªã±ãŒã¹ã§ã¯ãåšæè¡šããŠã£ã³ããŠåœ¢åŒã§ç»é¢ã«è¡šç€ºãããåã»ã«ã«å çŽ ã®ååŠçå称ã衚瀺ãããŸãïŒH - æ°ŽçŽ ãHe - ããªãŠã ãªã©ïŒã ããŠã¹ ã«ãŒãœã«ãã»ã«ããã€ã³ãããŠããå ŽåãèŠçŽ ã®æå®ãšãã®çªå·ããã©ãŒã äžã®ç¹å¥ãªãã£ãŒã«ãã«è¡šç€ºãããŸãã ãŠãŒã¶ãŒã LMB ãæŒããšããã®éžæããèŠçŽ ã®æå®ãšçªå·ããã©ãŒã ã®å¥ã®ãã£ãŒã«ãã«è¡šç€ºãããŸãã
ãã®åé¡ã¯ãä»»æã®äžçå
±éèšèªã䜿çšããŠè§£æ±ºã§ããŸãã ããã§ã¯ãã»ãšãã©ã®äººãç解ã§ãããã·ã³ãã«ã§å€ã Delpi-7 ãåãäžããŸãã ãã ããPL ã§ããã°ã©ãã³ã°ããåã«ãããšãã° Photoshop 㧠XNUMX ã€ã®çµµãæããŸãããã ãŸããåšæè¡šãããã°ã©ã äžã§èŠãã圢ã«æããŠã¿ãŸãããã çµæãã°ã©ãã£ã㯠ãã¡ã€ã«ã«ä¿åãã table01.bmp.
0 çªç®ã®æç»ã§ã¯ãæåã®æç»ã䜿çšããŸãã ãã¹ãŠã®ã°ã©ãã£ãã¯ã¹ãåé€ããè¡šã®ã»ã«ããRGB ã«ã©ãŒ ã¢ãã«ã®åºæã®è²ã§é çªã«å¡ãã€ã¶ããŸãã R ãš G ã¯åžžã« 1 ã§ãæ°ŽçŽ ã®å Žå㯠B=2ãããªãŠã ã®å Žå㯠XNUMX ãªã©ã«ãªããŸãããã®å³é¢ã¯å¶åŸ¡ã«ãŒããšãªãã次ã®ãã¡ã€ã«ã«ä¿åãããŸãã table2.bmp.
Photoshop ã§ã®ã°ã©ãã£ã㯠ããã°ã©ãã³ã°ã®æåã®æ®µéãå®äºããŸããã Delpi-7 IDE ã§ã®ã°ã©ãã£ã«ã« GUI ããã°ã©ãã³ã°ã«é²ã¿ãŸãããã ãããè¡ãã«ã¯ãæ°ãããããžã§ã¯ããéããã¡ã€ã³ ãã©ãŒã ã«ãã€ã¢ãã° ãã¿ã³ (ããŒãã«ããŠã³ããŒã)ãããŒãã«ã§ã®äœæ¥ãè¡ãããŸãã 次ã«ãã©ãŒã ãæäœããŸã ããŒãã«ããŠã³ããŒã.
ãã©ãŒã äžã«ã¯ã©ã¹ã³ã³ããŒãã³ããé 眮ããŸãã ãã£ããŒãžã¥ã æã ãåŸã Image1ã äžè¬ã«ã倧èŠæš¡ãªãããžã§ã¯ãã®å Žåããã©ãŒã ã®ååã¯èªåçã«çæãããããšã«æ³šæããŠãã ããã ç»åNã©ã N æ°å以äžã«éããå ŽåããããŸããããã¯æé©ãªããã°ã©ãã³ã° ã¹ã¿ã€ã«ã§ã¯ãªããããããæå³ã®ããååãä»ããå¿ èŠããããŸãã ããããç§ãã¡ã®å°ããªãããžã§ã¯ãã§ã¯ã N 2 ãè¶ ããªããããçæããããŸãŸã«ããŠããããšãã§ããŸãã
ç©ä»¶ãž ç»å1.åç ãã¡ã€ã«ãã¢ããããŒããã table01.bmpã ç§ãã¡ãäœæããŸã Image2 ããã«ã³ã³ãããŒã«ã«ãŒããããŒãããŸã table2.bmpã ãã®å Žåããã©ãŒã ã®å·Šäžé ã«ç€ºãããŠããããã«ããã¡ã€ã«ãå°ãããªãããŠãŒã¶ãŒã«ã¯èŠããªããªããŸãã è¿œå ã®å¶åŸ¡èŠçŽ ãè¿œå ããŸããããã®ç®çã¯æããã§ãã Delpi-7 IDE ã§ã®ã°ã©ãã£ã«ã« GUI ããã°ã©ãã³ã°ã®ç¬¬ XNUMX 段éãå®äºããŸããã
7 çªç®ã®æ®µéãDelpi-XNUMX IDE ã§ã®ã³ãŒãã®äœæã«é²ã¿ãŸãããã ãã®ã¢ãžã¥ãŒã«ã¯ã次㮠XNUMX ã€ã®ã€ãã³ã ãã³ãã©ãŒã®ã¿ã§æ§æãããŸãããã©ãŒã äœæ)ãã«ãŒãœã«ç§»å Image1 (ç»å1ããŠã¹ç§»å)ãã»ã«ãå·Šã¯ãªã㯠(ç»å1ã¯ãªãã¯)ãOK ãã¿ã³ (OKBtnã¯ãªãã¯) ãŸãã¯ãã£ã³ã»ã« (ãã£ã³ã»ã«ãã¿ã³ã¯ãªãã¯ïŒã ãããã®ãã³ãã©ãŒã®ããããŒã¯ã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 åã®èŠçŽ (å®æ°) ã®ããŒãã«ãååŸããŸããã ãµã€ãºïŒã æããã«ããã®ãµã€ãºã倧ããããããšãã§ããŸãã å çŽ å称ïŒååŠèšå·ïŒãé åã«æžã蟌ã¿ãŸãã ããŒãã«ã·ã³ãã«ã ãã ãããœãŒã¹ ã³ãŒããã³ã³ãã¯ãã«ãããšããçç±ããããããã®è¡šèšã®ã·ãŒã±ã³ã¹ãæååå®æ°ã®åœ¢åŒã§èšè¿°ããããšããå§ãããŸãã PeriodicTableStr1ãâŠã PeriodicTableStr4ãã®ããããã©ãŒã ã®äœææã«ãããã°ã©ã èªäœããããã®æå®ãé åã®èŠçŽ ã«åæ£ããŸãã åèŠçŽ ã®æå®ã¯ XNUMX ã€ãŸã㯠XNUMX ã€ã®ã©ãã³æåã§æ§æãããæåã®æåã¯å€§æåãXNUMX çªç®ã®æå (ååšããå Žå) ã¯å°æåã«ãªããŸãã ãã®åçŽãªã«ãŒã«ã¯ãé åãããŒããããšãã«å®è£ ãããŸãã ããã«ãããäžé£ã®è¡šèšãã¹ããŒã¹ãå ¥ããã«ç°¡æœã«èšè¿°ããããšãã§ããã ã·ãŒã±ã³ã¹ã XNUMX ã€ã®éšå (å®æ°) ã«åå²ãã PeriodicTableStr1ãâŠã PeriodicTableStr4ïŒã¯ãœãŒã¹ã³ãŒãã®èªã¿ããããèæ ®ãããã®ã§ãã è¡ãé·ããããšãç»é¢ã«å®å šã«åãŸããªãå ŽåããããŸãã
ããŠã¹ã«ãŒãœã«ãäžã«ç§»åãããšã Image1 ãã³ãã© ç»å1ããŠã¹ç§»å ãã®ã€ãã³ãã¯ãã³ã³ãããŒã« ã«ãŒã ãã¯ã»ã«ã®éè²ã³ã³ããŒãã³ãã®å€ã決å®ããŸãã Image2 çŸåšã®ã«ãŒãœã«åº§æšã æ§é ã«ãã Image2 ã«ãŒãœã«ãã»ã«å ã«ããå Žåããã®å€ã¯èŠçŽ çªå·ãšçãããªããŸãã å¢çç·äžã«ããå Žå㯠255ããã®ä»ã®å Žå㯠XNUMXã ããã°ã©ã ã«ãã£ãŠå®è¡ãããæ®ãã®ã¢ã¯ã·ã§ã³ã¯ç°¡åãªãã®ãªã®ã§ã説æããå¿ èŠã¯ãããŸããã
äžã§è¿°ã¹ãæäœçãªããã°ã©ãã³ã°ææ³ã«å ããŠã解説ã®ã¹ã¿ã€ã«ã«ã泚ç®ãã䟡å€ããããŸãã å³å¯ã«èšãã°ãããã§èª¬æããã³ãŒãã¯éåžžã«å°ããåçŽã§ãããããã³ã¡ã³ãã¯ç¹ã«å¿ èŠãªãããã§ãã ãã ãããããã¯æ¹æ³è«çãªçç±ãããè¿œå ãããŸãããçãã³ãŒãã«ãããããã€ãã®äžè¬çãªçµè«ãããæ確ã«ç€ºãããšãã§ããŸãã æ瀺ãããã³ãŒãã§ã¯ãXNUMX ã€ã®ã¯ã©ã¹ã宣èšãããŠããŸã (ããŒãã«ããŠã³ããŒãïŒã ãã®ã¯ã©ã¹ã®ã¡ãœããã¯äº€æã§ããŸããããã¯ããã°ã©ã ã®æ©èœã«ã¯ãŸã£ãã圱é¿ããŸããããå¯èªæ§ã«åœ±é¿ããå¯èœæ§ããããŸãã ããšãã°ã次ã®ãããªã·ãŒã±ã³ã¹ãæ³åããŠãã ããã
OKBtnClick, Image1MouseMove, FormCreate, Image1Click, CancelBtnClick.
ããŸãç®ç«ããªããããããŸããããèªãã§ç解ããã®ãå°ãé£ãããªããŸãã ã»ã¯ã·ã§ã³å ã« XNUMX ã€ã§ã¯ãªããæ°ååã®ã¡ãœãããããå Žå å®è£ ã¯ã©ã¹ã®èª¬æãšã¯ãŸã£ããç°ãªãé åºã«ãªã£ãŠããå Žåãæ··ä¹±ã¯ããã«å¢å€§ããã ãã§ãã ãããã£ãŠãå³å¯ã«èšŒæããããšã¯é£ãããäžå¯èœãªå ŽåããããŸãããè¿œå ã®é åºãå°å ¥ããããšã§ã³ãŒãã®å¯èªæ§ãåäžããããšãæåŸ ã§ããŸãã ãã®è¿œå ã®é åºã¯ãé¢é£ããã¿ã¹ã¯ãå®è¡ããããã€ãã®ã¡ãœãããè«ççã«ã°ã«ãŒãåããããšã«ãã£ãŠå®¹æã«ãªããŸãã åã°ã«ãŒãã«ã¯æ¬¡ã®ãããªã¿ã€ãã«ãä»ããå¿ èŠããããŸãã
// ÑабПÑа Ñ ÑаблОÑей: ÑказаМОе О вÑбПÑ
ãããã®èŠåºããã¢ãžã¥ãŒã«ã®å é ã«ã³ããŒããç®æ¬¡ãšããŠãã©ãŒãããããå¿ èŠããããŸãã éåžžã«é·ãã¢ãžã¥ãŒã«ã®å Žåããã®ãããªç®æ¬¡ã¯è¿œå ã®ããã²ãŒã·ã§ã³ ãªãã·ã§ã³ãæäŸããŸãã åæ§ã«ãXNUMX ã€ã®ã¡ãœãããããã·ãŒãžã£ããŸãã¯é¢æ°ã®é·ãæ¬äœã§ã¯ããŸããã®æ¬äœã®çµãããããŒã¯ãã䟡å€ããããŸãã
end; // FormCreate
次ã«ãããã°ã©ã æ¬åŒ§ã®éå§ãšçµäºãå«ãåå²ã¹ããŒãã¡ã³ãã§ã¯ãéãæ¬åŒ§ãåç §ããã¹ããŒãã¡ã³ããããŒã¯ããŸãã
end; // if s [j] in
end; // for i :=1
end; // FormCreate
ã°ã«ãŒã ããããŒãšã¡ãœããæ¬äœã®çµããã匷調衚瀺ããã«ã¯ãã»ãšãã©ã®ã¹ããŒãã¡ã³ããããé·ããããšãã°ããããæåã=ããšã_ãã§æ§æãããè¡ãè¿œå ããŸãã
ç¹°ãè¿ããŸãããäºçŽããå¿
èŠããããŸãããã®äŸã¯åçŽãããŸãã ãŸããã¡ãœããã®ã³ãŒãã 8000 ã€ã®ç»é¢ã«åãŸããªãå Žåãã³ãŒããå€æŽããããã« 360 åé£ç¶ããŠçµäºããããšãç解ããã®ãå°é£ã«ãªãããšããããŸãã äžéšã®å€ãã³ã³ãã€ã©ãŒ (OS IBM 370/XNUMX çšã® Pascal XNUMX ãªã©) ã§ã¯ããã®ãããªãµãŒãã¹åããªã¹ãã®å·ŠåŽã«å°å·ãããŠããŸããã
B5
âŠ
E5
ããã¯ãE5 è¡ç®ã®éãæ¬åŒ§ã B5 è¡ç®ã®éãæ¬åŒ§ã«å¯Ÿå¿ããããšãæå³ããŸãã
ãã¡ãããããã°ã©ãã³ã° ã¹ã¿ã€ã«ã¯éåžžã«ç©è°ãéžãåé¡ã§ãããããããã§è¿°ã¹ãã¢ã€ãã¢ã¯åãªãæèã®ææãšããŠåãåãããã¹ãã§ãã é·å¹Žã®ä»äºã®äžã§ç°ãªãã¹ã¿ã€ã«ãéçºãæ £ããŠãããããªãçµéšè±å¯ãª XNUMX 人ã®ããã°ã©ããŒãåæã«éããã®ã¯éåžžã«é£ããå ŽåããããŸãã ãŸã èªåã®ã¹ã¿ã€ã«ãèŠã€ããæéããªããããã°ã©ãã³ã°ãåŠãã§ããåŠçã«ãšã£ãŠã¯å¥ã®åé¡ã§ãã ãã®å Žåãæåž«ã¯å°ãªããšããããã°ã©ã ã®æåã¯ãœãŒã¹ã³ãŒãã®èšè¿°ã¹ã¿ã€ã«ã«å€§ããäŸåãããšãããåçŽã§ã¯ãããæçœã§ã¯ãªãèããçåŸã«äŒããã¹ãã ãšæããŸãã çåŸã¯æšå¥šãããã¹ã¿ã€ã«ã«åŸããªããããããŸããããå°ãªããšããœãŒã¹ ã³ãŒãã®èšèšãæ¹åããããã®ãè¿œå ã®ãã¢ã¯ã·ã§ã³ã®å¿ èŠæ§ã«ã€ããŠèããããŸãã
åšæè¡šã«é¢ããåºæ¬çãªåé¡ã«æ»ããŸãããããªãéçºã¯ããŸããŸãªæ¹åã«é²ãå¯èœæ§ããããŸãã æ瀺㮠XNUMX ã€ã¯åèçšã§ããè¡šã®ã»ã«äžã«ããŠã¹ ã«ãŒãœã«ã眮ããšãæå®ããèŠçŽ ã«é¢ããè¿œå æ å ±ãå«ãæ å ±ãŠã£ã³ããŠã衚瀺ãããŸãã ããã«çºå±ããã®ã¯ãã£ã«ã¿ãŒã§ãã ããšãã°ãã€ã³ã¹ããŒã«ã«ãã£ãŠã¯ãæ å ±ãŠã£ã³ããŠã«ã¯ãæãéèŠãªç©ççããã³ååŠçæ å ±ãçºèŠã®æŽå²ã«é¢ããæ å ±ãèªç¶çã®ååžã«é¢ããæ å ±ãæãéèŠãªååç©ã®ãªã¹ã (ãã®å çŽ ãå«ã) ã®ã¿ãå«ãŸããŸããççåŠçç¹æ§ãå€åœèªã§ã®ååãªã© e. ãã®èšäºã®åé ã«ããã«ããªã³ã®ãã¢ãã«ããæãåºããŠãã ããããã®ããã°ã©ã ã®éçºã«ãããã³ã³ãã¥ãŒã¿ã«å ããŠãèªç¶ç§åŠã«ãããå®å šãªãã¬ãŒãã³ã°è€åäœãåŸããããšèšããŸããç§åŠãç©çåŠãååŠãçç©åŠãçµæžå°çåŠãç§åŠå²ãããã«ã¯å€åœèªãŸã§ã
ãã ããããŒã«ã« ããŒã¿ããŒã¹ã«ã¯å¶éããããŸããã ããã°ã©ã ã¯åœç¶ã€ã³ã¿ãŒãããã«æ¥ç¶ããŸãã èŠçŽ ãéžæãããšããªã³ã¯ãã¢ã¯ãã£ãã«ãªãããã®èŠçŽ ã«é¢ãã Wikipedia ã®èšäºã Web ãã©ãŠã¶ ãŠã£ã³ããŠã«éããŸãã ãåç¥ã®ãšããããŠã£ãããã£ã¢ã¯ä¿¡é Œã§ããæ å ±æºã§ã¯ãããŸããã ååŠçŸç§äºå žãTSBãæé²ãžã£ãŒãã«ããã®èŠçŽ ã®æ€çŽ¢ãšã³ãžã³ã®é åºã¯ãšãªãªã©ãä¿¡é Œã§ããæ å ±æºãžã®ãªã³ã¯ãèšå®ã§ããŸãã ããã åŠçã¯ãDBMS ãšã€ã³ã¿ãŒãããã®ãããã¯ã«é¢ããåçŽã ãææ矩ãªèª²é¡ãå®äºã§ããããã«ãªããŸãã
åã ã®èŠçŽ ã«å¯Ÿããã¯ãšãªã«å ããŠãããšãã°ãç¹å®ã®åºæºãæºããããŒãã«å ã®ã»ã«ãç°ãªãè²ã§ããŒã¯ããæ©èœãäœæã§ããŸãã ããšãã°ãéå±ãšééå±ã§ãã ãŸãã¯ãå°å ã®ååŠå·¥å Žã«ãã£ãŠæ°Žåã«ææ£ããã现èã
ããŒãããã¯ãªãŒã¬ãã€ã¶ãŒã®æ©èœãå®è£ ã§ããŸãã ããšãã°ãè©Šéšã«å«ãŸããèŠçŽ ãè¡šå ã§åŒ·èª¿è¡šç€ºããŸãã 次ã«ãè©Šéšã®æºåã§çåŸãåŠç¿/ç¹°ãè¿ããèŠçŽ ã匷調ããŸãã
ããšãã°ãããã¯å žåçãªåŠæ ¡ã®ååŠã®åé¡ã® XNUMX ã€ã§ãã
ãã§ãŒã¯10gãäžããŸãã ãã®ãã§ãŒã¯ããã¹ãŠæº¶ããã«ã¯ãã©ã®ãããã®å¡©é žãæåããªããã°ãªããŸããã?
ãã®åé¡ã解決ããã«ã¯ãååŠç©è³ªãæžãçããå¿
èŠããããŸãã åå¿åŒã«ä¿æ°ãå
¥ããŠçé
žã«ã«ã·ãŠã ãšå¡©åæ°ŽçŽ ã®ååéãèšç®ãããã®å²åãåæããŠè§£ããŸãã ç§ãã¡ã®åºæ¬ããã°ã©ã ã«åºã¥ããèšç®æ©ãèšç®ããŠè§£ãããšãã§ããŸãã 確ãã«ãé
žã¯é©åºŠã«éå°ã«ãé©åºŠãªæ¿åºŠã§æåããå¿
èŠãããããšãèæ
®ããå¿
èŠããããŸãããããã¯ååŠã§ãããã³ã³ãã¥ãŒã¿ãŒãµã€ãšã³ã¹ã§ã¯ãããŸããã
CaCO3 + 2HCl = CaCl2 + H2O
ãã®ããšãããã«ã«ã·ãŠã (Ca)ãççŽ (C)ãé žçŽ (O)ãæ°ŽçŽ (H)ãå¡©çŽ (Cl) ã®å çŽ ã®ååéãå¿ èŠã§ããããšãããããŸãã æãåçŽãªã±ãŒã¹ã§ã¯ããããã®éã¿ã次ã®ããã«å®çŸ©ããã XNUMX 次å é åã«æžã蟌ãããšãã§ããŸãã
AtomicMass : array [1..size] of real;
ããã§ãé åã€ã³ããã¯ã¹ã¯èŠçŽ çªå·ã«å¯Ÿå¿ããŸãã ãã©ãŒã ã®ç©ºãé åã®è©³çŽ° ããŒãã«ããŠã³ããŒã ãã£ãŒã«ãã XNUMX ã€çœ®ããŸãã æåã®ãã£ãŒã«ãã«ã¯æåã«ãæåã®è©Šè¬ãäžããããŸãããšæžãããXNUMX çªç®ã®ãã£ãŒã«ãã«ã¯ãXNUMX çªç®ã®è©Šè¬ã¯ x ãèŠã€ããããšã§ãããšæžãããŠããŸãã ãã£ãŒã«ããè¡šããŸããã è©Šè¬1, è©Šè¬2 ããããã ããã°ã©ã ãžã®ãã®ä»ã®è¿œå ã¯ã次ã®èšç®æ©ã®äŸããæããã§ãã
ã³ã³ãã¥ãŒã¿ãŒã®ããŒããŒãã§ã10 gããšå ¥åããŸãã è©Šè¬1 å€æŽ: ãæåã®è©Šè¬ã«ã¯ 10 g ãäžããããŸããã ããã§ããã®è©Šè¬ã®åŒãå ¥åãããšãå ¥åãããšèšç®æ©ããã®ååéãèšç®ããŠè¡šç€ºããŸãã
Ca èšå·ã®ããè¡šã®ã»ã«ãå·Šã¯ãªãã¯ããŸãã çã®ç¢æ è©Šè¬1 å€æŽ: ãæåã®è©Šè¬ Ca 40.078 ã 10 g æäžã
C ãšããèšå·ãä»ããè¡šã®ã»ã«ãå·Šã¯ãªãã¯ããŸãã ãã£ãŒã«ãã®ç¢æ è©Šè¬1 å€æŽ: ãæåã®è©Šè¬ CaC 52.089 ã 10 g æäžã ãããã®ã èšç®æ©ã¯ã«ã«ã·ãŠã ãšççŽ ã®ååéãåèšããŸããã
O ã®èšå·ãä»ããè¡šã®ã»ã«ãå·Šã¯ãªãã¯ããŸãã ãã£ãŒã«ãã®ç¢æ è©Šè¬1 å€æŽ: ãæåã®è©Šè¬ CaCO 68.088 ã 10 g æäžã èšç®æ©ã¯é žçŽ ã®ååéãåèšã«å ããŸããã
O ã®èšå·ãä»ããè¡šã®ã»ã«ãå·Šã¯ãªãã¯ããŸãã ãã£ãŒã«ãã®ç¢æ è©Šè¬1 å€æŽ: ã第äžè©Šè¬ CaCO2 84.087 ã 10 g æäžã èšç®æ©ã¯ããäžåºŠé žçŽ ã®ååéãåèšã«å ããŸããã
O ã®èšå·ãä»ããè¡šã®ã»ã«ãå·Šã¯ãªãã¯ããŸãã ãã£ãŒã«ãã®ç¢æ è©Šè¬1 å€æŽ: ãæåã®è©Šè¬ CaCO3 100.086 ã 10 g æäžã èšç®æ©ã¯åã³é žçŽ ã®ååéãåèšã«å ããŸããã
ã³ã³ãã¥ãŒã¿ãŒã®ããŒããŒã㧠Enter ãæŒããŸãã æåã®è©Šè¬ã®å°å ¥ãå®äºãããã£ãŒã«ãã«åãæ¿ãããŸã è©Šè¬2ã ãã®äŸã§ã¯ãæå°éã®ããŒãžã§ã³ãæäŸãããŠããããšã«æ³šæããŠãã ããã å¿ èŠã«å¿ããŠãåãã¿ã€ãã®ååã®ä¹æ°ãç°¡åã«æŽçã§ãããããããšãã°ãã¯ãã ã®åŒ (K2Cr2O7) ãå ¥åãããšãã«ãé žçŽ ã®ã»ã«ã XNUMX åç¶ããŠã¯ãªãã¯ããå¿ èŠããªããªããŸãã
H ãšããèšå·ãä»ããè¡šã®ã»ã«ãå·Šã¯ãªãã¯ããŸãã ãã£ãŒã«ãã®ç¢æ è©Šè¬2 å€æŽ: ã第 1.008 è©Šè¬ H XNUMX x ãæ€çŽ¢ãã
Cl èšå·ã®ããè¡šã®ã»ã«ãå·Šã¯ãªãã¯ããŸãã çã®ç¢æ è©Šè¬2 å€æŽ: ã第 36.458 è©Šè¬ HCl 2 x ãæ€çŽ¢ãã èšç®æ©ã¯æ°ŽçŽ ãšå¡©çŽ ã®ååéãåèšããŸããã äžèšã®åå¿åŒã§ã¯ãå¡©åæ°ŽçŽ ã®åã«ä¿æ° XNUMX ãä»ããŠããŸãããã®ããããã£ãŒã«ãäžã§ LMB ãã¯ãªãã¯ããŸãã è©Šè¬2ã ååéã¯XNUMXåïŒXNUMXåæŒããšXNUMXåãªã©ïŒã«ãªããŸãã çã®ç¢æ è©Šè¬2 å€æŽ: ã第 2 è©Šè¬ 72.916HCl XNUMX x ãæ€çŽ¢ãã
ã³ã³ãã¥ãŒã¿ãŒã®ããŒããŒã㧠Enter ãæŒããŸãã XNUMX çªç®ã®è©Šè¬ã®å ¥åãå®äºããèšç®æ©ã¯å²åãã 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; // ЌПжМП взÑÑÑ Ð¿ÐŸÐºÐŸÑПÑе
ããã§ãåŒå ã§ã®åºçŸã®ã€ã³ããã¯ã¹ã«åŸã£ãŠååŠå çŽ ã®çªå·ãæžãçããŸãã ååã®è¿œå ã«ã¬ã³ãNo åŒã«ä»£å ¥ããŸãã
if formula [currNo]=0 then //ÑÑÐŸÑ Ð°ÑПЌ вÑÑÑеÑОлÑÑ Ð¿ÐµÑвÑй Ñаз
begin
orderIndex := orderIndex+1;//в МаÑале ввПЎа ÑПÑÐŒÑÐ»Ñ orderIndex=0
formulaOrder [orderIndex] := currNo;
end;
formula [currNo]:=formula [currNo]+1;
æ°åŒã XNUMX è¡ã«æžããŸãã
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ã«æ³šæããŠãã ããã è©Šè¬ã®åŒãããŒããŒããã代ããã«å ¥åã§ããæ©èœãæäŸããããšã¯çã«ããªã£ãŠããŸãã ãã®å ŽåãåçŽãªããŒãµãŒãå®è£ ããå¿ èŠããããŸãã
次ã®ç¹ã«æ³šæããŠãã ããã
çŸåšããã®è¡šã«ã¯æ°çŸã®ããŒãžã§ã³ããããç§åŠè ã¯åžžã«æ°ãããªãã·ã§ã³ãæäŸããŠããŸãã (
ãŠã£ãããã£ã¢ )
åŠçã¯ããã§ã«ææ¡ãããŠãããªãã·ã§ã³ã® XNUMX ã€ãå®è£ ããããšã«ãã£ãŠããã®æ¹åã§ã®åµæ工倫ãçºæ®ããããç¬èªã®ãªãã·ã§ã³ãäœæããŠã¿ãããšãã§ããŸãã ããã¯ãã³ã³ãã¥ãŒã¿ ãµã€ãšã³ã¹ã®ææ¥ã«ã¯æã圹ã«ç«ããªãæ¹åã§ããããã«æããããããããŸããã ãã ãããã®èšäºã§å®è£ ããåšæè¡šã®åœ¢åŒã§ã¯ãæšæºãã¿ã³ã䜿çšãã代æ¿ãœãªã¥ãŒã·ã§ã³ãšæ¯ã¹ãŠãã³ã³ãããŒã« ã«ãŒãã®ç¹å¥ãªå©ç¹ãåãããªãåŠçããããããããŸããã Tãã¿ã³ã ããŒãã«ã®èºæåœ¢ç¶ (ã»ã«ã®åœ¢ç¶ãç°ãªã) ã¯ãããã§ææ¡ãããœãªã¥ãŒã·ã§ã³ã®å©ç¹ãããæ確ã«ç€ºããŸãã
(
ãŸããçŸåšååšããåšæè¡šçšã®ã³ã³ãã¥ãŒã¿ãŒ ããã°ã©ã ã®å€ãããHabré ã§æè¿å
¬éãããæç®ã«èšèŒãããŠããããšãä»ãå ããŠãããŸãã
1) äžäžã§ç¥ãããŠãããã¹ãŠã®èŠçŽ ãè¡šããéžæããŸãã
2) åšæåŸã®çºèŠæã«ç¥ãããŠãããã¹ãŠã®èŠçŽ ãç¹å®ããŸãã
3) é¬éè¡åž«ãéå±ãšã¿ãªãã XNUMX ã€ã®å çŽ ãç¹å®ããŸãã
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) ããã€ãã®ãã£ã«ã¿ãŒããåãã£ã«ã¿ãŒãç¬èªã®è²ã®ã»ã«ãéžæããããå¥ã®ãã£ã«ã¿ãŒã®éžæ (ããè²ã®ã»ã«ã®äžéšãšå¥ã®è²ã®ã»ã«ã®äžéš) ãå®å šã«ã¯åé€ããªããããªã¢ãŒãã§åäœããããšãä¿èšŒããããšã¯çã«ããªã£ãŠããŸãã 次ã«ãåã®äŸã®å Žåãäžäžã§çºèŠãããéåãšè²Žéå±ã®äº€å·®èŠçŽ ãããã³æåã®éåã«ã®ã¿å±ããèŠçŽ ãš XNUMX çªç®ã®éåã«ã®ã¿å±ããèŠçŽ ã衚瀺ãããŸãã ãããã®ã äžäžã«ã¯ç¥ãããŠããªãã£ã貎éå±ãããã³äžäžã«ã¯ç¥ãããŠããã貎éå±ã§ã¯ãªãã£ãå çŽ ã
3) ãã£ã«ã¿ãŒãé©çšããåŸãåŸãããçµæã䜿çšããŠä»ã®äœæ¥ãã§ããå¯èœæ§ã確ä¿ããããšã¯çã«ããªã£ãŠããŸãã ããšãã°ãäžäžã§ç¥ãããŠããèŠçŽ ãéžæããåŸããŠãŒã¶ãŒã¯éžæããèŠçŽ ã LMB ãã¯ãªãã¯ãããšããã®èŠçŽ ã«é¢ãã Wikipedia ã®èšäºã衚瀺ãããŸãã
4) éžæããè¡šã®ã»ã«ãå·Šã¯ãªãã¯ããŠéžæã解é€ã§ããæ©èœããŠãŒã¶ãŒã«æäŸããããšã¯åççã§ãã ããšãã°ããã§ã«è¡šç€ºãããŠããã¢ã€ãã ãåé€ããŸãã
5) éžæããã»ã«ã®ãªã¹ãããã¡ã€ã«ã«ä¿åãããã®ãã¡ã€ã«ãã»ã«ã®èªåéžæã§ããŒããããããã«ããããšã¯çã«ããªã£ãŠããŸãã ããã«ããããŠãŒã¶ãŒã¯ä»äºãäŒãæ©äŒãåŸãããŸãã
ããã§ã¯ãäºåã«æ±ºå®ãããéçãªå¶åŸ¡ãããã䜿çšããŸããããããã°ã©ã ã®å®è¡ã«å¿ããŠå€åããåçãªå¶åŸ¡ãããã䜿çšã§ããéèŠãªã¿ã¹ã¯ãæ°å€ããããŸãã äŸãšããŠã¯ããŠãŒã¶ãŒãããŠã¹ã䜿çšããŠãŠã£ã³ããŠå ã®é ç¹ã®äœçœ®ãæå®ããé ç¹ã®éã«ãšããžãæç»ããã°ã©ã ãšãã£ã¿ãŒãæããããŸãã é ç¹ãŸãã¯ãšããžãåé€ããã«ã¯ããŠãŒã¶ãŒã¯ããããã€ã³ãããå¿ èŠããããŸãã ããããåã§ããŒã¯ãããé ç¹ãæãã®ãéåžžã«ç°¡åã§ããã°ã现ãç·ã§æããããšããžãæãã®ã¯ããå°é£ã«ãªããŸãã é ç¹ãšãšããžã衚瀺ãããŠããå³ãããåºãè¿åãå ããå Žåãã³ã³ãããŒã« ãããã圹ç«ã¡ãŸãã
ãã®è€éãªãã¬ãŒãã³ã°æ¹æ³ã«é¢é£ããèå³æ·±ãå¯æ¬¡çãªè³ªåã¯ãããã®æ¹æ³ã¯ AI ã®ãã¬ãŒãã³ã°ã«åœ¹ç«ã¡ãŸãã?ããšãããã®ã§ãã
åºæïŒ habr.com