(Kartên kontrolê)
(Ji bo Sala Navnetewî ya Tabloya Perîyodîk ya Hêmanên Kîmyayî hatiye veqetandin)
(Zêdekirinên herî dawî di 8ê Avrêl, 2019-an de hatine çêkirin. Navnîşa lêzêdekirinan tavilê li jêrê ye)
(, )
Tê bîra min em ji dîkê derbas bûn. Ev sê ders bûn yekcar: erdnîgarî, zanista xwezayî û rûsî. Di dersa zanistê de, ordek wek dîk hat xwendin, çi baskên wê hene, çi lingên wê hene, çawa avjeniyê dike û hwd. Di dersa erdnîgariyê de, heman duck wekî niştecîhek cîhanê hate lêkolîn kirin: pêdivî bû ku li ser nexşeyê were nîşandan ku ew li ku derê dijî û li ku ne. Bi rûsî, Serafima Petrovna fêrî me kir ku em "u-t-k-a" binivîsin û li ser dîkên Brem tiştek bixwînin. Di derbazbûnê de, wê ji me re da zanîn ku ordek bi almanî wiha ye, di fransî de jî wiha ye. Ez difikirim ku wê hingê jê re "rêbaza tevlihev" tê gotin. Bi gelemperî, her tişt "di derbasbûnê de" derket.
Veniamin Kaverin, Du kaptan
Di vegotina jorîn de, Veniamin Kaverin bi hostayî kêmasiyên rêbaza hînkirina tevlihev nîşan da, lêbelê, di hin rewşan de (dibe ku pir kêm) hêmanên vê rêbazê rastdar in. Bûyerek weha tabloya demkî ya D.I. Mendeleev di dersên zanistiya kompîturê ya dibistanê de ye. Erka otomatîkkirina nermalavê ya kiryarên tîpîk bi tabloya demkî ji bo xwendekarên dibistanê yên ku dest bi xwendina kîmyayê kirine zelal e, û di nav gelek pirsgirêkên kîmyewî yên tîpîk de tê dabeş kirin. Di heman demê de, di çarçoveya zanistiya komputerê de, ev peywir dihêle ku em bi rengek hêsan rêbaza qertên kontrolê, ku dikare ji bernamesaziya grafîkî re were veqetandin, ku di wateya berfireh a peyvê de wekî bernamekirina hêmanên grafîkî têne fêm kirin, nîşan bidin.
(Zêdekirinên 8ê Avrêl, 2019:
Ka em bi karê bingehîn dest pê bikin. Di rewşa herî hêsan de, pêdivî ye ku tabloya perîyodîk li ser ekranê bi rengek pencereyê were xuyang kirin, ku di her hucreyê de navnîşek kîmyewî ya elementê hebe: H - hîdrojen, He - helium, hwd. Ger kursorê mişkê nîşanî şaneyek bide, wê hingê navnîşa hêmanê û hejmara wê di qadek taybetî ya forma me de têne xuyang kirin. Ger bikarhêner LMB-ê bikişîne, wê hingê navnîş û hejmara vê hêmana hilbijartî dê di qadek din a formê de were destnîşan kirin.
Pirsgirêk bi karanîna her zimanek gerdûnî dikare were çareser kirin. Em ê Delpi-7-a kevn a hêsan bistînin, ku hema hema ji her kesî re tê fêm kirin. Lê berî bernamekirinê di PL-ê de, em du wêneyan xêz bikin, mînakî, di Photoshop-ê de. Pêşî, werin em Tabloya Periyodîk bi forma ku em dixwazin di bernameyê de bibînin xêz bikin. Encamê di pelek grafîkî de hilînin table01.bmp.
Ji bo xêzkirina duyemîn em ya yekem bikar tînin. Em ê di modela rengê RGB de şaneyên tabloyê yên ku ji hemî grafîkan hatine paqij kirin, bi rêzdarî tijî bikin. R û G dê her dem bibin 0, û B=1 ji bo hîdrojenê, 2 ji bo helyûmê, hwd. Ev xêzkirin dê bibe qerta me ya kontrolê, ku em ê di pelek bi navê de tomar bikin. table2.bmp.
Qonaxa yekem a bernameya grafîkî ya li Photoshopê qediya. Ka em di Delpi-7 IDE de biçin bernamesaziya GUI ya grafîkî. Ji bo vê yekê, projeyek nû vekin, ku li ser forma sereke em bişkojka diyalogê (tableDlg), ku tê de xebata bi tabloyê dê pêk were. Piştre em bi formê re dixebitin tableDlg.
Li ser formê pêkhateyek polê bi cîh bikin TImage... Em distînin Image1. Têbînî ku bi gelemperî, ji bo projeyên mezin, navên formê bixweber têne çêkirin ImageNko N dikare bigihîje çend dehan an zêdetir - ev ne şêwaza bernamekirinê ya çêtirîn e, û divê navên watedartir werin dayîn. Lê di projeya meya piçûk de, li ku derê N dê ji 2 derbas neke, hûn dikarin wê wekî ku hatî çêkirin bihêlin.
Li milkê Wêne1.Wêne pelê barkirin table01.bmp. Em diafirînin Image2 û karta me ya kontrolê li wir bar bikin table2.bmp. Di vê rewşê de, em pelê ji bikarhênerê re piçûk û nayê dîtin, wekî ku di quncika çepê ya jêrîn a formê de tê xuyang kirin. Em hêmanên kontrolê yên din lê zêde dikin, ku armanca wan eşkere ye. Qonaxa duyemîn a bernameya GUI ya grafîkî ya di Delpi-7 IDE de qediya.
Ka em biçin qonaxa sêyemîn - nivîsandina kodê di Delpi-7 IDE de. Module tenê ji pênc hilgirên bûyerê pêk tê: afirandina form (FormCreate), tevgera cursor Image1 (Image1MouseMove), li ser şaneyek LMB bikirtînin (Wêne1 Bitikîne) û bi bişkokên OK ji diyalogê derkevin (OKBtnBitikîne) an betal bike (BetalBtnBitikîne). Sernavên van hilberan bi karanîna IDE-ê bi rengek standard têne çêkirin.
Koda çavkaniya modulê:
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.Di guhertoya xwe de, me tabloyek ji 104 hêmanan (domdar mezinayî). Diyar e ku ev mezinahî dikare were zêdekirin. Navnîşanên hêmanan (nîşanên kîmyewî) li ser rêzek têne nivîsandin TableSymbols. Lêbelê, ji ber sedemên lihevhatina koda çavkaniyê, guncan xuya dike ku rêza van nîşanan di forma domdarên rêzikê de binivîsin. PeriodicTableStr1..., PeriodicTableStr4ji ber vê yekê gava ku form tê çêkirin, bername bixwe van navdêran di nav hêmanên rêzê de belav dike. Navnîşana her hêmanek ji yek an du tîpên latînî pêk tê, herfa yekem mezin û ya duyemîn (heke hebe) piçûk e. Ev qaîdeya hêsan dema barkirina arrayek tête bicîh kirin. Ji ber vê yekê, rêza nîşanan dikare bi rengek kurt û bêyî valahiyê were nivîsandin. Parvekirina rêzek li çar beşan (domdar PeriodicTableStr1..., PeriodicTableStr4) ji ber ramanên hêsaniya xwendina koda çavkaniyê ye, ji ber Rêzek pir dirêj dibe ku bi tevahî li ser ekranê nemîne.
Dema ku nîşana mişkê li ser Image1 handler Image1MouseMove ev bûyer nirxa pêkhateya rengê şîn a pixela qerta kontrolê diyar dike Image2 ji bo hevrêzên cursorê yên heyî. Bi avakirinê Image2 ev nirx bi jimareya elementê re wekhev e, heke pîvaz di hundurê şaneyê de be; sifir heke li ser sînor be, û 255 di rewşên din de. Çalakiyên mayî yên ku ji hêla bernameyê ve têne kirin ne hindik in û ne hewceyê ravekirinê ne.
Ji xeynî teknîkên bernamesaziya stîlîstîkî yên ku li jor hatine destnîşan kirin, hêja ye ku şêwaza şîroveyê were zanîn. Bi hişkî axaftin, koda ku hatî nîqaş kirin ew qas piçûk û hêsan e ku şîrove bi taybetî hewce xuya nakin. Lêbelê, ew ji ber sedemên metodolojîk jî hatine zêdekirin - koda kurt dihêle ku em hin encamên gelemperî zelaltir bikin. Di koda pêşkêşkirî de yek pola tê ragihandin (TtableDlg). Rêbazên vê polê dikarin werin guheztin û ev ê bi tu awayî bandorê li karûbarê bernameyê neke, lê dibe ku bandorê li xwendina wê bike. Mînakî, rêzê bifikirin:
OKBtnClick, Image1MouseMove, FormCreate, Image1Click, CancelBtnClick.
Dibe ku ew ne pir berçav be, lê xwendin û têgihîştina wê hinekî dijwartir bibe. Ger di beşê de ne pênc, lê bi dehan carî bêtir rêbaz hene pêkanîn wan rêzek bi tevahî cûda ji danasîna polê heye, wê hingê kaos dê tenê zêde bibe. Ji ber vê yekê, her çend îsbatkirina hişk dijwar e û dibe ku ne gengaz be jî, mirov dikare hêvî bike ku danasîna fermana zêde dê xwendina kodê baştir bike. Ev fermana zêde ji hêla komkirina mantiqî ya çend awayên ku peywirên têkildar pêk tîne hêsan dibe. Divê her komê sernavek were dayîn, mînakî:
// работа с таблицей: указание и выбор
Divê ev sernav di destpêka modulê de bêne kopî kirin û wekî tabloyek naverokê bêne format kirin. Di hin rewşên modulên pir dirêj de, tabloyên naverokê yên weha vebijarkên navîgasyonê yên din peyda dikin. Bi heman rengî, di laşê dirêj a rêbazek, prosedur an fonksiyonê de, hêja ye, pêşî, dawiya vê laşê nîşan bide:
end; // FormCreateû, ya duyemîn, di daxuyaniyên şaxkirî yên bi bendikên bernameyê de dest pê dikin - bi dawî dibin, daxuyaniya ku bendika girtinê jê re vedibêje nîşan bikin:
end; // if s [j] in
end; // for i :=1
end; // FormCreate
Ji bo ronîkirina sernavên komê û dawiya laşên rêbazê, hûn dikarin xêzên ku ji dirêjahiya piraniya operatoran derbas dibin û bi rêzê ve ji tîpên "=" û "_" pêk tên lê zêde bikin.
Dîsa, pêdivî ye ku em veqetandinê bikin: mînaka me pir hêsan e. Û gava ku koda rêbazek li ser yek ekranê nehêle, zehmet e ku meriv şeş dawiya li pey hev fêm bike da ku guheztina kodê bike. Di hin berhevkarên kevn de, mînakî, Pascal 8000 ji bo OS IBM 360/370, stûnek karûbarê mîna vê li milê çepê di navnîşê de hate çap kirin.
B5
…
E5
Ev tê vê wateyê ku paranteza girtinê ya li ser xeta E5 bi vekirina paranteza li ser xeta B5 re têkildar e.
Bê guman, şêwaza bernamekirinê mijarek pir nakok e, ji ber vê yekê divê ramanên ku li vir têne diyar kirin ji bilî xwarina ramanê wekî tiştek din neyê girtin. Dibe ku ji bo du bernamenûsên bi tecrube, yên ku di xebata gelek salan de bi şêwazên cihêreng pêşkeftî û aş bûne, pir dijwar be ku li hev bikin. Ji bo xwendekarek ku hînî bernamekirinê dibe ku hîn wext nekiriye ku şêwaza xwe bibîne mijarek cûda ye. Ez difikirim ku di vê rewşê de mamoste bi kêmanî divê ji xwendekarên xwe re ramanek wusa hêsan, lê ne eşkere ji wan re ragihîne ku serkeftina bernameyekê bi piranî bi şêwaza ku koda çavkaniya wê tê nivîsandin ve girêdayî ye. Dibe ku xwendekar şêwaza pêşniyarkirî bişopîne, lê bila ew bi kêmanî li ser hewcedariya kiryarên "zêde" bifikire da ku sêwirana koda çavkaniyê baştir bike.
Vegera pirsgirêka xwe ya bingehîn li ser Tabloya Periyodîk: Pêşveçûnek din dikare di rêgezên cûda de biçe. Yek ji rêwerzan ji bo referansê ye: gava ku hûn nîşana mişkê li ser şaneyek tabloyê bihêlin, pencereyek agahdarî xuya dike ku agahdariya zêde li ser hêmana diyarkirî vedihewîne. Pêşveçûna bêtir fîlteran e. Mînakî, li gorî sazkirinê, pencereya agahdariyê tenê dê dihewîne: agahdariya fîzîkî û kîmyewî ya herî girîng, agahdariya li ser dîroka vedîtinê, agahdariya li ser belavkirina di xwezayê de, navnîşek pêkhateyên herî girîng (ku vê hêmanê vedihewîne) taybetiyên fîzyolojîkî, navê bi zimanekî biyanî, hwd. e. Bi bîranîna "dok"a Kaverin ku ev gotar pê dest pê dike, em dikarin bibêjin ku bi vê pêşkeftina bernameyê em ê di zanistên xwezayî de kompleksek perwerdehiya bêkêmasî bistînin: ji bilî komputerê. zanist, fîzîk û kîmya - biyolojî, erdnîgariya aborî, dîroka zanistî û heta zimanên biyanî.
Lê databasek herêmî ne sînor e. Bername bi xwezayî bi Înternetê ve girêdayî ye. Dema ku hûn hêmanek hilbijêrin, girêdan tê çalak kirin, û gotara Wîkîpediya di derbarê vê hêmanê de di pencereya geroka webê de tê vekirin. Wîkîpediya, wekî hûn jî dizanin, ne çavkaniyek desthilatdar e. Hûn dikarin lînkan bi çavkaniyên rayedar re saz bikin, mînakî, ansîklopediya kîmyewî, TSB, kovarên abstrakt, di motorên lêgerînê de ji bo vê hêmanê vepirsînên ferman bikin, hwd. Va. Xwendekar dê bikaribin li ser mijarên DBMS û Internetnternetê peywirên hêsan lê watedar biqedînin.
Digel pirsên li ser hêmanek kesane, hûn dikarin fonksiyonek biafirînin ku, mînakî, dê di tabloyê de şaneyên ku hin pîvanan bi rengên cihêreng bicîh tînin nîşan bide. Mînakî, metal û nemetal. An jî hucreyên ku ji hêla nebatek kîmyewî ya herêmî ve têne avêtin avê.
Her weha hûn dikarin fonksiyonên organîzatorek notebookê bicîh bikin. Mînakî, di tabloyê de hêmanên ku di azmûnê de cih digirin ronî bikin. Dûv re hêmanên ku xwendekar di amadekirina azmûnê de hatine xwendin / dubare kirin ronî bikin.
Û li vir, wek nimûne, yek ji pirsgirêkên kîmyayê yên dibistanê ye:
10 g çîçek tê dayîn. Çiqas asîda hîdrochloric divê were girtin da ku ev hemî kelpîç were hilweşandin?
Ji bo çareserkirina vê pirsgirêkê, pêdivî ye ku kîmyewî binivîse. reaksiyonê û bi danîna kêşeyan tê de, giraniya molekulê ya karbonat kalsiyûm û klorîdê hîdrojenê dihejmêre, paşê nîsbetê çêdike û çareser dike. Hesabkerek li ser bingeha bernameya meya bingehîn dikare hesab bike û çareser bike. Rast e, hûn ê hîn jî hewce bikin ku hûn zanibin ku pêdivî ye ku asîd bi zêdebûnek maqûl û bi giraniyek maqûl were girtin, lê ev kîmya ye, ne zanistiya komputerê.
Pêvek 1: Hesabkera Kîmyayê Çawa Kar dikeKa em bi mînaka pirsgirêka jorîn a kelpîç û "hodgepodge" xebata hesabkerê analîz bikin. Ka em bi reaksiyonê dest pê bikin:
CaCO3 + 2HCl = CaCl2 + H2O
Ji vê yekê em dibînin ku em ê hewceyê giraniya atomê ya hêmanên jêrîn bikin: kalsiyûm (Ca), karbon (C), oksîjen (O), hîdrojen (H) û klor (Cl). Di rewşa herî hêsan de, em dikarin van giranan di nav rêzek yek-dimensî de binivîsin
AtomicMass : array [1..size] of real;cihê ku index array bi hejmara hêmanên. Zêdetir li ser cîhê belaş a formê tableDlg du zeviyan danîn. Di qada yekem de di destpêkê de tê nivîsandin: "Reagenta yekem tê dayîn", di ya duyemîn de - "Reagenta duyemîn ew e ku x bibînin". Ka em zeviyan destnîşan bikin reagent1, reagent2 herwiha. Zêdekirinên din ên bernameyê dê ji mînaka jêrîn a hesabkerê diyar bibin.
Em li ser klavyeya kompîturê dinivîsin: 10 g reagent1 guhertin: "Reagenta yekem 10 g tê dayîn." Naha em têkevin formula vê reagentê, û hesap gava ku hûn têkevin wê giraniya molekulê ya wê hesab bike û nîşan bide.
LMB li ser şaneya sifrê ya bi nîşana Ca bikirtînin. Nivîsandin li zeviyê reagent1 Guherandinên: "Yekemîn reagent Ca 40.078 10 g hat dayîn."
LMB bikirtînin li ser şaneya sifrê ya bi nîşana C. Nivîsîn li qadê reagent1 guhertin: "Yekemîn reagent CaC 52.089 10 g hatî dayîn." Ewan. Hesabker giraniya atomî yên kalsiyûm û karbonê zêde kir.
LMB li ser şaneya sifrê ya bi nîşana O. Di nav zeviyê de hatî nivîsandin bikirtînin reagent1 Guherandinên: "Yekemîn reagent CaCO 68.088 10 g hat dayîn." Hesabker giraniya atomê ya oksîjenê li hevokê zêde kir.
LMB li ser şaneya sifrê ya bi nîşana O. Di nav zeviyê de hatî nivîsandin bikirtînin reagent1 Guherandinên: "Yekemîn reagent CaCO2 84.087 10 g tê dayîn." Hesabker careke din giraniya atomê ya oksîjenê li hevokê zêde kir.
LMB li ser şaneya sifrê ya bi nîşana O. Di nav zeviyê de hatî nivîsandin bikirtînin reagent1 guherandin: "Yekemîn reagent CaCO3 100.086 10 g tê dayîn." Hesabker dîsa giraniya atomê ya oksîjenê li hevokê zêde kir.
Li ser klavyeya komputera xwe Enter bikirtînin. Danasîna reagenta yekem qediya û derbasî zeviyê dibe reagent2. Têbînî ku di vê nimûneyê de em guhertoyek hindiktirîn pêşkêş dikin. Heke bixwaze, hûn dikarin bi hêsanî pirjimarên atomên heman celebî birêxistin bikin, da ku, mînakî, hûn ne hewce ne ku gava têkevin formula kromê (K2Cr2O7) heft caran li pey hev li ser hucreya oksîjenê bikirtînin.
LMB li ser şaneya sifrê ya bi nîşana H. Di nav zeviyê de hatî nivîsandin bikirtînin reagent2 diguhere: "Reagenta duyemîn H 1.008 x bibîne."
LMB li ser şaneya sifrê ya bi nîşana Cl bikirtînin. Nivîsandin li zeviyê reagent2 diguhere: "Reagenta duyemîn HCl 36.458 x bibînin." Hesabker giraniya atomê ya hîdrojen û klorê zêde kir. Di hevkêşana reaksiyonê ya jorîn de, hîdrojen klorîd bi hevberek 2 tê pêş. Ji ber vê yekê, li qadê LMB bikirtînin. reagent2. Giraniya molekulî du qat dibe (dema du caran tê pêçandin sê qat dibe, hwd.). Nivîsandin li zeviyê reagent2 guhertin: "Reagenta duyemîn 2HCl 72.916 x bibînin."
Li ser klavyeya komputera xwe Enter bikirtînin. Ketina reagenta duyemîn qediya, û hesabker x ji nîsbetê dibîne
Ya ku me hewce dikir ev e.
Nîşe 1. Wateya rêjeya encam: ji bo hilweşandinê 100.086 72.916 Da asîd lazim e, û ji bo helandina 10 g kelmêş hûn x asîd hewce ne.
Nîşe 2. Koleksiyonên pirsgirêkên wekhev:
Khomchenko I. G., Berhevoka pirsgirêk û temrîn di kîmyayê de 2009 (polên 8-11).
Khomchenko G. P., Khomchenko I. G., Komkirina pirsgirêkên di kîmyayê de ji bo serlêderên zanîngehan, 2019.
Nîşe 3. Ji bo hêsankirina peywirê, hûn dikarin têketina formula di guhertoya destpêkê de hêsan bikin û bi tenê sembola elementê li dawiya rêzika formula lê zêde bikin. Wê hingê formula karbonat kalsiyûm dê bibe:
CaCOOO
Lê mamosteyek kîmyayê ne mimkûn e ku ji tomarek wusa hez neke. Çêkirina têketina rast ne dijwar e - ji bo vê yekê hûn hewce ne ku rêzek lê zêde bikin:
formula : array [1..size] of integer;ku îndeks hejmara hêmana kîmyewî ye, û nirxa vê îndeksê jî hejmara atoman e (di destpêkê de hemî hêmanên rêzê ji nû ve têne sifir kirin). Rêza ku atom di formûlekê de têne nivîsandin, wekî ku di kîmyayê de hatî pejirandin, divê were hesibandin. Mînakî, hindik kes dê O3CaC jî hez bikin. Werin em berpirsiyariyê bidin ser bikarhêner. Çêkirina array:
formulaOrder : array [1..size] of integer; // можно взять покорочеku em hejmara hêmana kîmyewî li gorî nîşaneya xuyabûna wê di formulê de dinivîsin. Zêdekirina atomek currNo nav formula:
if formula [currNo]=0 then //этот атом встретился первый раз
begin
orderIndex := orderIndex+1;//в начале ввода формулы orderIndex=0
formulaOrder [orderIndex] := currNo;
end;
formula [currNo]:=formula [currNo]+1;Nivîsandina formula li ser rêzê:
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;
Nîşe 4. Ma watedar e ku meriv jêhatîbûnê peyda bike ku bi rengek alternatîf têkevin formula reagentê ji klavyeyê. Di vê rewşê de, hûn ê hewce ne ku parserek hêsan bicîh bikin.
Hêjayî gotinê ye ku:
Îro, çend sed guhertoyên tabloyê hene, û zanyar bi berdewamî vebijarkên nû pêşkêş dikin. ()
Xwendekar dikarin bi pêkanîna yek ji vebijarkên ku berê hatine pêşniyar kirin jîrbûna xwe di vî alî de nîşan bidin an jî hewl bidin ku yeka xweya orjînal çêbikin. Dibe ku xuya bibe ku ev ji bo dersên zanistiya komputerê rêwerziya herî kêm bikêr e. Lêbelê, di forma Tabloya Peryodîk a ku di vê gotarê de hatî bicîh kirin, dibe ku hin xwendekar avantajên taybetî yên qertên kontrolê li ser çareseriya alternatîf bi karanîna bişkokên standard nebînin. TButton. Şêweya spiral a tabloyê (ku şaneyên bi şeklên cihê ne) dê avantajên çareseriya ku li vir tê pêşniyar kirin eşkeretir nîşan bide.
(, )
Werin em vê yekê jî lê zêde bikin ku çend bernameyên komputerê yên heyî yên ji bo Tabloya Peryodîk di kovara ku vê dawiyê li ser Habré hatî weşandin de têne diyar kirin. .
Pêvek 2: Nimûneyên karên ji bo parzûnanBi karanîna fîlteran hûn dikarin, mînakî, karên jêrîn çareser bikin:
1) Di tabloyê de hemî hêmanên ku di Serdema Navîn de têne zanîn hilbijêrin.
2) Hemî hêmanên ku di dema vedîtina Qanûna Peryodîk de têne zanîn nas bikin.
3) Heft hêmanên ku alkîmyazan metal dihesibînin nas bikin.
4) Hemî hêmanên ku di nav şert û mercên normal (n.s.) de di rewşa gazê de ne hilbijêrin.
5) Hemî hêmanên ku di rewşek şil de li no-yê ne hilbijêrin.
6) Hemî hêmanên ku di rewşek hişk de ne hilbijêrin hilbijêrin.
7) Hemî hêmanên ku dikarin di şert û mercên normal de bêyî guhertinên berbiçav ji bo demek dirêj ve berbi hewayê ve biçin hilbijêrin.
8) Hemî metalên ku di asîda hîdrochloric de dihelin hilbijêrin.
9) Hemî metalên ku di asîda sulfurîk de li nojê dihelin hilbijêrin.
10) Hemî metalên ku dema germ dibin di asîda sulfurîk de dihelin hilbijêrin.
11) Hemî metalên ku di asîdê nitricê de dihelin hilbijêrin.
12) Hemî metalên ku di şert û mercên hawîrdorê de bi avê re bi tundî reaksiyonê dikin veqetînin.
13) Hemî metalan hilbijêrin.
14) Hêmanên ku di xwezayê de berbelav in destnîşan bikin.
15) Hêmanên ku di xwezayê de di rewşeke azad de têne dîtin destnîşan bikin.
16) Hêmanên ku di laşê mirov û heywanan de rola herî girîng dilîzin destnîşan bikin.
17) Hêmanên ku di jiyana rojane de bi berfirehî têne bikar anîn hilbijêrin (bi forma belaş an bi tevlihevî).
18) Elementên ku karkirina bi wan re herî xeternak e û tedbîrên taybetî û alavên parastinê hewce dike destnîşan bikin.
19) Elementên ku bi forma azad an jî bi şiklê pêkhateyan xetereya herî mezin li ser jîngehê çêdikin nas bikin.
20) Metalên hêja hilbijêrin.
21) Elementên ku ji metalên hêja bihatir in destnîşan bikin.
Notes
1) Aqil e ku meriv gelek fîlteran peyda bike. Mînakî, heke hûn parzûnek vekin da ku pirsgirêka 1 (hemû hêmanên ku di Serdema Navîn de têne zanîn) û 20 (metalên hêja) çareser bikin, wê hingê şaneyên bi metalên hêja yên ku di Serdema Navîn de têne zanîn dê bêne ronî kirin (mînak, bi rengê) ( ji bo nimûne, palladium dê neyê ronî kirin, di 1803 de hate vekirin).
2) Aqil e ku meriv pê ewle bibe ku çend fîlter bi rengek wusa tevdigerin ku her parzûnek bi rengê xwe şaneyan hildibijêre, lê bijartina parzûnek din bi tevahî dernakeve (beşek ji şaneyê bi rengek, beşek di yekî din de). Dûv re, di mînaka berê de, hêmanên hevberdana komên ku di Serdema Navîn de hatine keşif kirin û metalên giranbiha, û hem jî hêmanên ku tenê aîdî komên yekem û tenê yên duyemîn in, dê xuya bibin. Ewan. metalên hêja di Serdema Navîn de nayên zanîn, û hêmanên ku di Serdema Navîn de têne zanîn lê ne metalên hêja.
3) Piştî serîlêdana parzûnê maqûl e ku bi encamên ku hatine bidestxistin îhtîmala xebatek din were piştrast kirin. Mînakî, dema ku hêmanên ku di Serdema Navîn de têne zanîn hilbijartiye, bikarhêner LMB li ser hêmana hilbijartî bitikîne û tê birin gotara Wîkîpediya ya derbarê vê hêmanê.
4) Aqil e ku meriv bi tikandina LMB-ê li ser şaneya tabloya hilbijartî kapasîteya jêbirinê ji bikarhêner re peyda bike. Mînakî, ji bo rakirina tiştên ku berê hatine dîtin.
5) Aqil e ku meriv pê ewle bibe ku navnîşa hucreyên hilbijartî di pelê de were tomar kirin û pelek wusa bi hilbijartina otomatîkî ya hucreyan re were barkirin. Ev ê derfetê bide bikarhêner ku ji kar veqetîne.
Me nexşeyek kontrolê ya statîk, pêşwextkirî bikar anî, lê gelek karên girîng hene ku nexşeyên kontrolê yên dînamîkî yên ku bi xebitandina bernameyê diguhezin dikarin werin bikar anîn. Nimûneyek dê edîtorek grafikê be, ku tê de bikarhêner mişkê bikar tîne da ku di pencereyê de pozîsyonên lûtkeyan destnîşan bike û keviya di navbera wan de xêz bike. Ji bo jêbirina vertex an jî qiraxekê, divê bikarhêner wê nîşan bide. Lê heke îşaretkirina lûtkeyek ku bi xelekê hatiye nişandan pir hêsan be, wê hingê dê dijwartir be ku meriv xêzek zirav xêzkirî nîşan bide. Nexşeya kontrolê dê li vir alîkariyê bike, li cihê ku lûtke û qerax taxên berfirehtir ji jimareya xuyayî dagir dikin.
Pirsek balkêş a ku bi vê rêbaza perwerdehiya tevlihev ve girêdayî ye ev e: gelo ev rêbaz dikare di perwerdekirina AI-ê de bikêr be?
Source: www.habr.com