Àëãîðèòì ìîäóëÿ Main:
|
|
**
Àëãîðèòì ìîäóëÿ Registr:
ÍÀ×ÀËÎ ñõåìû REGISTR, ðåãèñòðàöèè ïîëüçîâàòåëÿ;
ÎÏÈÑÀÍÈÅ ÄÀÍÍÛÕ:
I – öåëî÷èñëåííàÿ ïåðåìåííàÿ äëÿ ñ÷åò÷èêà;
ÏÎÂÒÎÐßÒÜ 2 ðàçà
Î×ÈÑÒÈÒÜ ýêðàí;
ÂÛÂÅÑÒÈ íàäïèñü «Ââåäèòå âàøè Ôàìèëèþ È.Î.»;
ÏÅÐÅÍÅÑÒÈ êóðñîð â òî÷êó ñ êîîðäèíàòàìè 10,11;
 ÑËÓ×ÀÅ åñëè i ðàâíî:
1: ÂÂÎÄ Ôàìèëèè È.Î. (name);
2: ÂÂÎÄ ãðóïïû (grup);
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name);
ÑÎÏÎÑÒÀÂÈÒÜ ïåðåìåííóþ f ñ èìåíåì ôàéëà;
ÎÒÊÐÛÒÜ ôàéë f äëÿ ÷òåíèÿ;
ÑÔÎÐÌÈÐÎÂÀÒÜ çíà÷åíèå ïðèçíàêà ïðèñóòñòâèÿ èìåíè ôàéëà â ñïèñêå (pr);
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî ôàéë ñî ñïèñêîì ãðóïï íå êîí÷èëñÿ
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
ÅÑËÈ ïðèçíàê pr ðàâåí íîëþ
ÒÎÃÄÀ
×ÈÒÀÒÜ èç ôàéëà ñî ñïèñêîì ãðóïï â ñòðîêó stroka;
ÅÑËÈ íîìåð ãðóïïû ðàâåí stroka
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ ïðèçíàê pr=1;
ÊÎÍÅÖ ÒÎÃÄÀ
ÈÍÀ×Å
×ÈÒÀÒÜ èç ôàéëà ñî ñïèñêîì ãðóïï â ñòðîêó stroka;
ÊÎÍÅÖ ÅÑËÈ;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÇÀÊÐÛÒÜ ôàéë f;
ÅÑËÈ ôàéë ñî ñïèñêîì ãðóïïû ñóùåñòâóåò (pr=1);
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name=grup+’sp.txt’);
ÎÒÊÐÛÒÜ ôàéë ñî ñïèñêîì ãðóïïû (f_sp_gr);
ÑÔÎÐÌÈÐÎÂÀÒÜ íà÷àëüíîå çíà÷åíèå ïðèçíàêà ïðèñóòñòâèÿ èìåíè â ôàéëå ñî ñïèñêîì ãðóïïû (pr=0);
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî ôàéë f_sp_gr íå êîí÷èëñÿ
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
ÅÑËÈ ïðèçíàê pr ðàâåí 0 (pr=0)
ÒÎÃÄÀ
×ÈÒÀÒÜ èç ôàéëà f_sp_gr â stroka;
ÅÑËÈ èìÿ ðàâíî stroka (name=stroka);
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ ïðèçíàê ïðèñóòñòâèÿ èìåíè â ôàéëå
ÈÍÀ×Å
×ÈÒÀÒÜ èç ôàéëà f_sp_gr â stroka;
ÊÎÍÅÖ ÒÎÃÄÀ;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÇÀÊÐÛÒÜ ôàéë ñî ñïèñêîì ãðóïïû;
ÅÑËÈ èìÿ â ôàéëå íå îáíàðóæåíî (pr=0)
ÒÎÃÄÀ
ÎÒÊÐÛÒÜ ôàéë ñî ñïèñêîì ãðóïïû äëÿ äîáàâëåíèÿ èíôîðìàöèè;
ÇÀÏÈÑÀÒÜ èìÿ â ôàéë;
ÇÀÊÐÛÒÜ ôàéë ñî ñïèñêîì ãðóïïû;
ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name=grup+’rez.txt’);
ÊÎÍÅÖ ÒÎÃÄÀ;
ÈÍÀ×Å
ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name=grup+’rez.txt’);
ÊÎÍÅÖ ÒÎÃÄÀ;
ÈÍÀ×Å
ÎÒÊÐÛÒÜ ôàéë ñî ñïèñêîì ãðóïï äëÿ äîáàâëåíèÿ èíôîðìàöèè;
ÇÀÏÈÑÀÒÜ íîìåð ãðóïïû â ôàéë;
ÇÀÊÐÛÒÜ ôàéë ñî ñïèñêîì ãðóïï;
ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name=grup+’sp.txt’);
ÑÎÇÄÀÒÜ ôàéë ñî ñïèñêîì ãðóïïû;
ÇÀÏÈÑÀÒÜ èìÿ â ñîçäàííûé ôàéë;
ÇÀÊÐÛÒÜ ôàéë;
ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name=grup+’rez.txt’);
ÑÎÇÄÀÒÜ ôàéë äëÿ çàïèñè ðåçóëüòàòîâ ãðóïïû;
ÊÎÍÅÖ ÈÍÀ×Å;
ÊÎÍÅÖ ñõåìû REGISTR;
Àëãîðèòì ìîäóëÿ Chtenie:
ÍÀ×ÀËÎ ñõåìû Chtenie, ÷òåíèÿ èíôîðìàöèè èç ôàéëà;
ÎÒÊÐÛÒÜ ôàéë f äëÿ ÷òåíèÿ;
ÑÔÎÐÌÈÐÎÂÀÒÜ íà÷àëüíîå êîë-âî ïóíêòîâ ìåíþ (kol_kur=0);
ÑÔÎÐÌÈÐÎÂÀÒÜ íà÷àëüíóþ êîîðäèíàòó âûâîäà ïóíêòîâ ìåíþ (y=70);
ÏÎÂÒÎÐßÒÜ ÏÐÈ óñëîâèè, ÷òî ôàéë f íå êîí÷èëñÿ
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
×ÈÒÀÒÜ èç ôàéëà f â stroka;
ÏÅ×ÀÒÀÒÜ stroka ñ êîîðäèíàòàìè 40,ó;
ÑÔÎÐÌÈÐÎÂÀÒÜ êîîðäèíàòó âûâîäà ïóíêòîâ ìåíþ (y=y+20);
ÑÔÎÐÌÈÐÎÂÀÒÜ êîë-âî ïóíêòîâ ìåíþ (kol_kur=kol_kur+1);
 ÑËÓ×ÀÅ åñëè n_menu ðàâåí
1: ÇÀÏÈÑÀÒÜ stroka â ìàññèâ mas_pun[kol_kur];
2: ÇÀÏÈÑÀÒÜ stroka â ìàññèâ mas_pun2[kol_kur];
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÇÀÊÐÛÒÜ ôàéë f;
ÊÎÍÅÖ ñõåìû Chtenie;
Àëãîðèòì ìîäóëÿ Find:
ÍÀ×ÀËÎ ñõåìû Find, ïîèñêà ôàéëîâ;
ÎÏÈÑÀÍÈÅ ÄÀÍÍÛÕ:
s,w – ñòðîêîâûå ïåðåìåííûå;
 ÑËÓ×ÀÅ åñëè n_menu ðàâåí
1: ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name='main_men.pas');
2: ÑÔÎÐÌÈÐÎÂÀÒÜ èç öåëî÷èñëåííîé ïåðåìåííîé p_kur ñòðîêîâóþ ïåðåìåííóþ s;
ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name='r'+s+'.pas');
3: ÑÔÎÐÌÈÐÎÂÀÒÜ èç öåëî÷èñëåííîé ïåðåìåííîé p_kur ñòðîêîâóþ ïåðåìåííóþ s;
ÂÑÒÀÂÈÒÜ ñòðîêó s â ñòðîêó f_name;
ÂÑÒÀÂÈÒÜ 'inf' â ñòðîêó f_name;
4: ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name='test_men.pas');
5: ÑÔÎÐÌÈÐÎÂÀÒÜ èç öåëî÷èñëåííîé ïåðåìåííîé p_kur ñòðîêîâóþ ïåðåìåííóþ s;
ÑÔÎÐÌÈÐÎÂÀÒÜ èç öåëî÷èñëåííîé ïåðåìåííîé variant ñòðîêîâóþ ïåðåìåííóþ w;
ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name='v'+s+w+'.pas');
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÊÎÍÅÖ ñõåìû Find;
Àëãîðèòì ìîäóëÿ Ramka:
ÍÀ×ÀËÎ ñõåìû Ramka, ðèñîâàíèÿ ðàìîê;
ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (5,5,635,475);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,35,600,50);
ÓÑÒÀÍÎÂÈÒÜ öâåò (Red);
 ÑËÓ×ÀÅ åñëè n_menu ðàâåí
1: ÏÅ×ÀÒÀÒÜ 'Ãëàâíîå ìåíþ';
ÏÅ×ÀÒÀÒÜ 'Ðàçäåëû';
ÏÅ×ÀÒÀÒÜ 'Âûáåðèòå ïóíêò ìåíþ è íàæìèòå Enter';
ÓÑÒÀÍÎÂÈÒÜ öâåò(Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,430,600,445);
2: ÏÅ×ÀÒÀÒÜ mas_pun[p_kur];
ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,430,600,445);
3: ÏÅ×ÀÒÀÒÜ mas_pun2[x];
ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,390,600,445);
4: ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,430,600,445);
5..10: ÏÅ×ÀÒÀÒÜ mas_pun[x];
ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,430,600,445);
ÐÈÑÎÂÀÒÜ ëèíèþ(40,155,600,155);
11: ÏÅ×ÀÒÀÒÜ mas_pun2[x];
12: ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (5,5,635,475);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,35,600,50);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,430,600,445);
13: ÏÅ×ÀÒÀÒÜ mas_pun[n_pun];
ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (5,5,635,475);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,35,600,50);
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÊÎÍÅÖ ñõåìû Ramka;
Àëãîðèòì ìîäóëÿ Kursor:
ÍÀ×ÀËÎ ñõåìû Kursor, ïåðåìåùåíèÿ ñòðåëêè êóðñîðà;
ÓÑÒÀÍÎÂÈÒÜ öâåò (Red);
ÅÑËÈ (n_menu=5)or(n_menu=6)or(n_menu=7)or(n_menu=8)or(n_menu=9)
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ êîîðäèíàòó âûâîäà ñòðåëêè (y=260)
ÈÍÀ×Å
ÑÔÎÐÌÈÐÎÂÀÒÜ êîîðäèíàòó âûâîäà ñòðåëêè (y=70);
ÏÅ×ÀÒÀÒÜ '->';
ÎÏÐÅÄÅËÈÒÜ ðàçìåð ïàìÿòè äëÿ çàïîìèíàíèÿ èçîáðàæåíèÿ ñòðåëêè êóðñîðà (size=(20,42,37,68));
ÂÛÄÅËÈÒÜ ïàìÿòü ñ óêàçàòåëåì p;
ÇÀÏÎÌÍÈÒÜ èçîáðàæåíèå ñòðåëêè êóðñîðà (10,10,27,20) â ïàìÿòè ñ óêàçàòåëåì ð^;
ÎÏÐÅÄÅËÈÒÜ ðàçìåð ïàìÿòè äëÿ çàïîìèíàíèÿ èçîáðàæåíèÿ ïóñòîé îáëàñòè (size=(10,10,27,20));
ÂÛÄÅËÈÒÜ ïàìÿòü ñ óêàçàòåëåì w;
ÇÀÏÎÌÍÈÒÜ èçîáðàæåíèå ïóñòîé îáëàñòè (10,10,27,20) â ïàìÿòè ñ óêàçàòåëåì w^;
ÎÏÐÅÄÅËÈÒÜ ðàçìåð ïàìÿòè äëÿ çàïîìèíàíèÿ èçîáðàæåíèÿ ïóñòîé îáëàñòè (Size=(100,400,500,410));
ÂÛÄÅËÈÒÜ ïàìÿòü ñ óêàçàòåëåì n;
ÇÀÏÎÌÍÈÒÜ èçîáðàæåíèå ïóñòîé îáëàñòè (100,380,500,390) â ïàìÿòè ñ óêàçàòåëåì n^;
ÑÔÎÐÌÈÐÎÂÀÒÜ íà÷àëüíîå çí÷åíèå íîìåðà ïóíêòà ìåíþ (p_kur=1);
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî (key=#13)or(key=#27)
ÄÎ ÏÐÎÂÅÐÊÈ:
ÎÆÈÄÀÒÜ íàæàòèÿ êëàâèøè;
ÑÔÎÐÌÈÐÎÂÀÒÜ ñèìâîë key (key=ReadKey);
 ÑËÓ×ÀÅ åñëè key ðàâåí
#0:  ÑËÓ×ÀÅ åñëè íàæàòà êëàâèøà
#72: ÅÑËÈ p_kur=1
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ y:=y+(kol_kur-1)*20;
ÑÔÎÐÌÈÐÎÂÀÒÜ p_kur:=kol_kur;
ÅÑËÈ (n_menu=5)or(n_menu=6)or(n_menu=7)or(n_menu=8)or (n_menu=9)
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ y1:=260
Else
ÑÔÎÐÌÈÐÎÂÀÒÜ y1:=70;
ÂÑÒÀÂÈÒÜ èçîáðàæåíèå èç ïàìÿòè ñ óêàçàòåëåì w^ (20,y1);
ÊÎÍÅÖ ÒÎÃÄÀ
ÈÍÀ×Å
ÑÔÎÐÌÈÐÎÂÀÒÜ y:=y-20;
ÑÔÎÐÌÈÐÎÂÀÒÜ p_kur:=p_kur-1;
ÊÎÍÅÖ ÈÍÀ×Å;
#80:ÅÑËÈ p_kur=kol_kur
ÒÎÃÄÀ
ÅÑËÈ (n_menu=5)or(n_menu=6)or(n_menu=7)or(n_menu=8)or (n_menu=9)
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ y:=260
ÈÍÀ×Å
ÑÔÎÐÌÈÐÎÂÀÒÜ y:=70;
ÂÑÒÀÂÈÒÜ èçîáðàæåíèå èç ïàìÿòè ñ óêàçàòåëåì w^ (20,y+(kol_kur-1)*20);
ÑÔÎÐÌÈÐÎÂÀÒÜ p_kur:=1;
ÊÎÍÅÖ ÒÎÃÄÀ
ÈÍÀ×Å
ÑÔÎÐÌÈÐÎÂÀÒÜ y:=y+20;
ÑÔÎÐÌÈÐÎÂÀÒÜ p_kur:=p_kur+1;
ÊÎÍÅÖ ÈÍÀ×Å;
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÂÑÒÀÂÈÒÜ èçîáðàæåíèå èç ïàìÿòè ñ óêàçàòåëåì p^ (20,y,);
ÂÑÒÀÂÈÒÜ èçîáðàæåíèå èç ïàìÿòè ñ óêàçàòåëåì w^ (20,y-20);
ÂÑÒÀÂÈÒÜ èçîáðàæåíèå èç ïàìÿòè ñ óêàçàòåëåì w^ (20,y+20);
#13: ÂÑÒÀÂÈÒÜ èçîáðàæåíèå èç ïàìÿòè ñ óêàçàòåëåì n^ (100,400);
ÅÑËÈ (key=#13)and(p_kur=kol_kur)
ÒÎÃÄÀ
ÅÑËÈ n_menu=1
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ key:=#27
ÈÍÀ×Å
ÅÑËÈ proc<>'t'
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ n_menu:=n_menu-1;
ÑÔÎÐÌÈÐÎÂÀÒÜ p_kur:=n_pun;
ÊÎÍÅÖ ÒÎÃÄÀ;
ÊÎÍÅÖ ÈÍÀ×Å;
ÊÎÍÅÖ ÒÎÃÄÀ;
ÈÍÀ×Å
ÅÑËÈ ((n_menu=1)and((p_kur=7)or(p_kur=8)or(p_kur=9)))
ÒÎÃÄÀ
 ÑËÓ×ÀÅ åñëè p_kur ðàâåí
7: ÑÔÎÐÌÈÐÎÂÀÒÜ proc:='p';
8: ÑÔÎÐÌÈÐÎÂÀÒÜ proc:='t';
9: ÑÔÎÐÌÈÐÎÂÀÒÜ proc:='r';
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÑÔÎÐÌÈÐÎÂÀÒÜ n_menu:=n_menu+1;
ÑÔÎÐÌÈÐÎÂÀÒÜ n_pun:=p_kur;
ÊÎÍÅÖ ÈÍÀ×Å;
#27: ÂÑÒÀÂÈÒÜ èçîáðàæåíèå èç ïàìÿòè ñ óêàçàòåëåì n^ (100,400);
ÅÑËÈ n_menu<>1
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ key:=#13;
ÑÔÎÐÌÈÐÎÂÀÒÜ n_menu:=n_menu-1;
ÑÔÎÐÌÈÐÎÂÀÒÜ p_kur:=n_pun;
ÊÎÍÅÖ ÒÎÃÄÀ;
ÈÍÀ×Å
ÏÅ×ÀÒÀÒÜ 'Íàæàòà íåïðàâèëüíàÿ êëàâèøà';
ÇÀÄÅÐÆÊÀ (5000);
ÂÑÒÀÂÈÒÜ èçîáðàæåíèå èç ïàìÿòè ñ óêàçàòåëåì n^ (100,400);
ÊÎÍÅÖ ÈÍÀ×Å;
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÊÎÍÅÖ ÄÎ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÊÎÍÅÖ ñõåìû Kursor;
Àëãîðèòì ìîäóëÿ Spravka:
ÍÀ×ÀËÎ ñõåìû Spravka; âûâîäà ñïðàâî÷íîé èíôîðìàöèè;
ÎÏÈÑÀÍÈÅ ÄÀÍÍÛÕ:
k1,k2 – ñèìâîëüíûå ïåðåìåííûå;
s,s1,s2,m – ñòðîêîâûå ïåðåìåííûå;
ÑÔÎÐÌÈÐÎÂÀÒÜ k1:='1';
ÑÔÎÐÌÈÐÎÂÀÒÜ x:=p_kur;
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî key=#27
ÄÎ ÏÐÎÂÅÐÊÈ:
Î×ÈÑÒÈÒÜ ÝÊÐÀÍ;
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÓÑÒÀÍÎÂÈÒÜ öâåò (White);
ÎÒÊÐÛÒÜ ôàéë f;
ÑÔÎÐÌÈÐÎÂÀÒÜ key:='q';
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó s;
ÑÔÎÐÌÈÐÎÂÀÒÜ k2, ñèìâîë ñëåäóþùèé çà k1;
ÑÔÎÐÌÈÐÎÂÀÒÜ ñòðîêó s1:=k1+'.';
ÑÔÎÐÌÈÐÎÂÀÒÜ ñòðîêó s2:=k2+'.';
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî s<>s1
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó s;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÑÔÎÐÌÈÐÎÂÀÒÜ y:=70;
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó s;
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî s<>s2
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
ÏÅ×ÀÒÀÒÜ ñòðîêó s;
ÑÔÎÐÌÈÐÎÂÀÒÜ y:=y+20;
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó s;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÎÆÈÄÀÒÜ íàæàòèÿ êëàâèøè;
ÑÔÎÐÌÈÐÎÂÀÒÜ key, ñèìâîë íàæàòîé êëàâèøè;
 ÑËÓ×ÀÅ åñëè key ðàâåí
#0: ÑËÓ×ÀÅ åñëè áûëà íàæàòà êëàâèøà
#72:ÅÑËÈ k1<>'1'
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ k1:=Pred(k1);
#80:×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó s;
ÅÑËÈ s<>'Êîíåö'
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ k1:=Succ(k1);
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
#27:ÏÅ×ÀÒÀÒÜ 'Íàæàòà êëâèøà Esc';
ÇÀÄÅÐÆÊÀ (5000);
ÂÑÒÀÂÈÒÜ èçîáðàæåíèå èç ïàìÿòè ñ óêàçàòåëåì n^ (100,400);
ÈÍÀ×Å
ÏÅ×ÀÒÀÒÜ 'Íàæàòà íåïðàâèëüíàÿ êëàâèøà';
ÇÀÄÅÐÆÊÀ (5000);
ÂÑÒÀÂÈÒÜ èçîáðàæåíèå èç ïàìÿòè ñ óêàçàòåëåì n^ (100,375);
ÊÎÍÅÖ ÈÍÀ×Å;
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÇÀÊÐÛÒÜ ôàéë f;
ÊÎÍÅÖ ÄÎ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÑÔÎÐÌÈÐÎÂÀÒÜ n_menu:=n_menu-1;
ÓÄÀËÈÒÜ èç èìåíè ôàéëà f_name 4 ñèìâîëà, íà÷èíàÿ ñ 3-ãî;
ÑÔÎÐÌÈÐÎÂÀÒÜ m, êîïèðîâàòü èç èìåíè ôàéëà 1ñèìâîë, íà÷èíàÿ ñî 2-ãî;
ÑÔÎÐÌÈÐÎÂÀÒÜ èç ñòðîêîâîé ïåðåìåííîé m öåëî÷èñëåííóþ p_kur;
ÊÎÍÅÖ ñõåìû Spravka;
Àëãîðèòì ìîäóëÿ Test:
ÍÀ×ÀËÎ ñõåìû Test, òåñòèðîâàíèÿ ïîëüçîâàòåëÿ;
ÎÏÈÑÀÍÈÅ ÄÀÍÍÛÕ:
Ball – öåëî÷èñëåííàÿ ïåðåìåííàÿ, êîë-âî áàëëîâ;
z,ocenka,oc,dan_otv,vopros – ñòðîêîâûå ïåðåìåííûå;
mas_vopr – ìàññèâ ñòðîê, õðàíåíèå âàðèàíòîâ îòâåòà;
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî key<>'q'
ÄÎ ÏÐÎÂÅÐÊÈ:
Î×ÈÑÒÈÒÜ ýêðàí;
ÑÔÎÐÌÈÐÎÂÀÒÜ n_menu:=4;
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÂÛÏÎËÍÈÒÜ ñõåìó Find;
ÂÛÏÎËÍÈÒÜ ñõåìó Chtenie;
ÂÛÏÎËÍÈÒÜ ñõåìó Kursor;
ÑÔÎÐÌÈÐÎÂÀÒÜ x:=p_kur;
ÅÑËÈ n_menu=5
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ íîìåð âàðèàíòà (Random(9));
ÑÔÎÐÌÈÐÎÂÀÒÜ íà÷àëüíîå êîë-âî áàëëîâ (ball=0);
ÂÛÏÎËÍÈÒÜ ñõåìó Find;
ÎÒÊÐÛÒÜ ôàéë f;
ÑÔÎÐÌÈÐÎÂÀÒÜ kol_kur:=4;
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî ôàéë f íå êîí÷èëñÿ
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
Î×ÈÑÒÈÒÜ ýêðàí;
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÑÔÎÐÌÈÐÎÂÀÒÜ y:=70;
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó vopros;
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî vopros<>'q'
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
ÓÑÒÀÍÎÂÈÒÜ öâåò (White);
ÏÅ×ÀÒÀÒÜ vopros;
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó vopros;
ÑÔÎÐÌÈÐÎÂÀÒÜ y:=y+20;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
×ÈÒÀÒÜ èç ôàéëà f â ìàññèâ mas_vopr[1]);
×ÈÒÀÒÜ èç ôàéëà f â ìàññèâ mas_vopr[2]);
×ÈÒÀÒÜ èç ôàéëà f â ìàññèâ mas_vopr[3]);
×ÈÒÀÒÜ èç ôàéëà f â ìàññèâ mas_vopr[4]);
×ÈÒÀÒÜ èç ôàéëà f â ìàññèâ mas_vopr[5]);
ÓÑÒÀÍÎÂÈÒÜ öâåò (White);
ÏÅ×ÀÒÀÒÜ mas_vopr[1]);
ÏÅ×ÀÒÀÒÜ mas_vopr[2]);
ÏÅ×ÀÒÀÒÜ mas_vopr[3]);
ÏÅ×ÀÒÀÒÜ mas_vopr[4]);
ÑÔÎÐÌÈÐÎÂÀÒÜ kol_kur:=4;
ÂÛÏÎËÍÈÒÜ ñõåìó Kursor;
ÑÔÎÐÌÈÐÎÂÀÒÜ ñòðîêó dan_otv èç öåëî÷èñëåííîé p_kur;
ÅÑËÈ mas_vopr[5]=dan_otv
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ ball:=ball+1;
ÏÅ×ÀÒÀÒÜ 'Ïðàâèëüíûé îòâåò';
ÊÎÍÅÖ ÒÎÃÄÀ;
ÈÍÀ×Å
ÏÅ×ÀÒÀÒÜ 'Íåïðàâèëüíûé îòâåò ';
ÇÀÄÅÐÆÊÀ (6000);
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÇÀÊÐÛÒÜ ôàéë f;
Î×ÈÑÒÈÒÜ ýêðàí;
ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (5,5,635,475);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,35,600,50);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,150,600,180);
ÓÑÒÀÍÎÂÈÒÜ öâåò (White);
 ÑËÓ×ÀÅ åñëè ball ðàâíà
0,1,2: ÑÔÎÐÌÈÐÎÂÀÒÜ ocenka:='Íåóäîâëåòâîðèòåëüíî';
ÑÔÎÐÌÈÐÎÂÀÒÜ oc:='2';
3: ÑÔÎÐÌÈÐÎÂÀÒÜ ocenka:='Óäîâëåòâîðèòåëüíî';
ÑÔÎÐÌÈÐÎÂÀÒÜ oc:='3';
4: ÑÔÎÐÌÈÐÎÂÀÒÜ ocenka:='Õîðîøî';
ÑÔÎÐÌÈÐÎÂÀÒÜ oc:='4';
5: ÑÔÎÐÌÈÐÎÂÀÒÜ ocenka:='Îòëè÷íî';
ÑÔÎÐÌÈÐÎÂÀÒÜ oc:='5';
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÑÔÎÐÌÈÐÎÂÀÒÜ èç ïåðåìåííîé ball ñòðîêó z;
ÏÅ×ÀÒÀÒÜ name;
ÏÅ×ÀÒÀÒÜ 'Îöåíêà âàøèõ çíàíèé:';
ÏÅ×ÀÒÀÒÜ ocenka;
ÏÅ×ÀÒÀÒÜ 'Êîëè÷åñòâî ïðàâèëüíûõ îòâåòîâ:';
ÏÅ×ÀÒÀÒÜ z;
ÎÒÊÐÛÒÜ ôàéë f_rez_gr äëÿ äîáàâëåíèÿ èíôîðìàöèè;
ÇÀÏÈÑÀÒÜ îöåíêó â ôàéë;
ÎÆÈÄÀÒÜ íàæàòèÿ êëàâèøè;
ÑÔÎÐÌÈÐÎÂÀÒÜ key:='q'
ÊÎÍÅÖ ÒÎÃÄÀ
ÈÍÀ×Å
ÑÔÎÐÌÈÐÎÂÀÒÜ key:=#13;
ÑÔÎÐÌÈÐÎÂÀÒÜ n_menu:=1;
ÑÔÎÐÌÈÐÎÂÀÒÜ proc:='s';
ÊÎÍÅÖ ÄÎ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÊÎÍÅÖ ñõåìû Test;
Àëãîðèòì ìîäóëÿ Poisk:
ÍÀ×ÀËÎ ñõåìû Poisk, ïîèñêà èíôîðìàöèè;
ÎÏÈÑÀÍÈÅ ÄÀÍÍÛÕ:
i, k, h – öåëî÷èñëåííûå ïåðåìåííûå;
j, nom, k1, k2 – ñèìâîëüíûå ïåðåìåííûå;
s, s1, s2 – ñòðîêîâûå ïåðåìåííûå;
ÑÔÎÐÌÈÐÎÂÀÒÜ èìÿ ôàéëà (f_name_p='f_poisk.pas');
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî key<>'q'
ÄÎ ÏÐÎÂÅÐÊÈ:
ÑÔÎÐÌÈÐÎÂÀÒÜ n_menu:=11;
Î×ÈÑÒÈÒÜ ñòðîêó s;
ÑÔÎÐÌÈÐÎÂÀÒÜ nom:='0';
Î×ÈÑÒÈÒÜ ôàéë f1;
Î×ÈÑÒÈÒÜ ýêðàí;
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÓÑÒÀÍÎÂÈÒÜ öâåò (White);
×ÈÒÀÒÜ 'Ââåäèòå óñëîâèå äëÿ ïîèñêà';
ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,150,600,180);
ÎÆÈÄÀÒÜ íàæàòèÿ êëàâèøè;
ÑÔÎÐÌÈÐÎÂÀÒÜ key, ñèìâîë íàæàòîé êëàâèøè;
ÅÑËÈ key<>#27
ÒÎÃÄÀ
ÏÅÐÅÍÅÑÒÈ êóðñîð â òî÷êó ñ êîîðäèíàòàìè (10,11);
ÂÂÅÑÒÈ óñëîâèå ïîèñêà (uslovie);
ÑÔÎÐÌÈÐÎÂÀÒÜ i:=1;
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî uslovie[i]<>' '
ÄÎ ÏÐÎÂÅÐÊÈ:
ÅÑËÈ uslovie[i]=' '
ÒÎÃÄÀ
ÓÄÀËÈÒÜ èç ñòðîêè uslovie 1 ñèìâîë;
ÊÎÍÅÖ ÄÎ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÑÔÎÐÌÈÐÎÂÀÒÜ i:=Length(uslovie);
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî uslovie[i]<>' '
ÄÎ ÏÐÎÂÅÐÊÈ:
ÅÑËÈ uslovie[i]=' '
ÒÎÃÄÀ
ÓÄÀËÈÒÜ èç ñòðîêè uslovie ïîñëåäíèé ñèìâîë;
ÑÔÎÐÌÈÐÎÂÀÒÜ i:=i-1;
ÊÎÍÅÖ ÒÎÃÄÀ;
ÊÎÍÅÖ ÄÎ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÏÎÂÒÎÐßÒÜ 6 ðàç îò '1' äî '6' do
ÑÔÎÐÌÈÐÎÂÀÒÜ f_name:='r'+key+'.pas';
ÎÒÊÐÛÒÜ ôàéë f;
ÑÔÎÐÌÈÐÎÂÀÒÜ j:='0';
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî ôàéë f íå êîí÷èëñÿ
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
ÑÔÎÐÌÈÐÎÂÀÒÜ j:=Succ(j);
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó stroka;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÇÀÊÐÛÒÜ ôàéë f;
ÑÔÎÐÌÈÐÎÂÀÒÜ j:=Pred(j);
ÏÎÂÒÎÐßÒÜ j ðàç îò key='1'
ÂÑÒÀÂÈÒÜ ñèìâîë key â èìÿ ôàéëà f_name;
ÂÑÒÀÂÈÒÜ 'inf' â èìÿ ôàéëà f_name;
ÎÒÊÐÛÒÜ ôàéë f;
ÑÔÎÐÌÈÐÎÂÀÒÜ k1:='1';
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó s;
ÏÎÂÒÎÐßÒÜ ÏÐÈ óñëîâèè, ÷òî ôàéë f íå êîí÷èëñÿ
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
ÑÔÎÐÌÈÐÎÂÀÒÜ k2:=Succ(k1);
ÑÔÎÐÌÈÐÎÂÀÒÜ s1:=k1+'.';
ÑÔÎÐÌÈÐÎÂÀÒÜ s2:=k2+'.';
ÏÎÂÒÎÐßÒÜ ÏÐÈ óñëîâèè, ÷òî s<>s1
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó s;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó s;
ÅÑËÈ ñòðîêà s='Êîíåö'
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ s2:='Êîíåö';
ÑÔÎÐÌÈÐÎÂÀÒÜ k:=1;
ÑÔÎÐÌÈÐÎÂÀÒÜ h:=0;
ÏÎÂÒÎÐßÒÜ ÏÐÈ óñëîâèè, ÷òî s<>s2
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
ÑÔÎÐÌÈÐÎÂÀÒÜ mas_poisk[k]:=s;
ÅÑËÈ h=0
ÒÎÃÄÀ
ÏÎÂÒÎÐßÒÜ îò i:=1 äî êîíöà ñòðîêè s
ÅÑËÈ s[i]=uslovie[1]
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ stroka:=Copy(s,i,length(uslovie));
ÅÑËÈ uslovie=stroka
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ i:=Length(s);
ÑÔÎÐÌÈÐÎÂÀÒÜ h:=1;
ÊÎÍÅÖ ÒÎÃÄÀ;
ÊÎÍÅÖ ÒÎÃÄÀ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
×ÈÒÀÒÜ èç ôàéëà f â ñòðîêó s;
ÑÔÎÐÌÈÐÎÂÀÒÜ k:=k+1;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÅÑËÈ h=1
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ nom:=Succ(nom);
ÎÒÊÐÛÒÜ ôàéë f1 äëÿ äîáàâëåíèÿ èíôîðìàöèè ;
ÇÀÏÈÑÀÒÜ nom â ôàéë f1;
ÇÀÏÈÑÀÒÜ '.' â ôàéë f1;
ÏÎÂÒÎÐßÒÜ k ðàç
ÇÀÏÈÑÀÒÜ mas_poisk[i] â ôàéë f1;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÇÀÊÐÛÒÜ ôàéë f1;
ÊÎÍÅÖ ÒÎÃÄÀ;
ÑÔÎÐÌÈÐÎÂÀÒÜ k1:=Succ(k1);
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÇÀÊÐÛÒÜ ôàéë f;
ÓÄÀËÈÒÜ èç ñòðîêè f_name 4 ñèìâîëà, íà÷èíàÿ ñ 3-ãî;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
Î×ÈÑÒÈÒÜ ñòðîêó f_name;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÅÑËÈ nom<>'0'
ÒÎÃÄÀ
ÎÒÊÐÛÒÜ ôàéë f1 äëÿ äîáàâëåíèÿ èíôîðìàöèè;
ÑÔÎÐÌÈÐÎÂÀÒÜ nom:=Succ(nom);
ÇÀÏÈÑÀÒÜ nom â ôàéë f1;
ÇÀÏÈÑÀÒÜ '.' â ôàéë f1;
ÇÀÏÈÑÀÒÜ 'Êîíåö.'â ôàéë f1;
ÇÀÊÐÛÒÜ ôàéë f1;
ÑÔÎÐÌÈÐÎÂÀÒÜ f_name:=f_name_p;
Î×ÈÑÒÈÒÜ ýêðàí;
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÂÛÏÎËÍÈÒÜ ñõåìó Spravka;
ÊÎÍÅÖ ÒÎÃÄÀ
ÈÍÀ×Å
ÏÅ×ÀÒÀÒÜ 'Ïî çàäàííîìó óñëîâèþ èíôîðìàöèè íå íàéäåíî’;
ÇÀÄÅÐÆÊÀ (5000);
ÑÔÎÐÌÈÐÎÂÀÒÜ key:='q';
ÊÎÍÅÖ ÒÎÃÄÀ;
ÊÎÍÅÖ ÄÎ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÑÔÎÐÌÈÐÎÂÀÒÜ n_menu:=1;
ÑÔÎÐÌÈÐÎÂÀÒÜ proc:='s';
ÑÔÎÐÌÈÐÎÂÀÒÜ key:=#13;
End;{procedure}
Àëãîðèòì ìîäóëÿ Diagram:
ÍÀ×ÀËÎ ñõåìû Diagram, âûâîäà íà ýêðàí äèàãðàììû;
ÎÏÈÑÀÍÈÅ ÄÀÍÍÛÕ:
d_ki_p, t_ki_p, ch_ki_p, p_ki_p – âåùåñòâåííûå ïåðåìåííûå;
d_ki_s, t_ki_s, ch_ki_s, p_ki_s, kol_stud_s – ñòðîêîâûå ïåðåìåííûå;
y1, y2, y3, y4 – öåëî÷èñëåííûå ïåðåìåííûå;
ÑÔÎÐÌÈÐÎÂÀÒÜ kol_stud:=20;
ÑÔÎÐÌÈÐÎÂÀÒÜ d_ki:=9;
ÑÔÎÐÌÈÐÎÂÀÒÜ t_ki:=1;
ÑÔÎÐÌÈÐÎÂÀÒÜ ch_ki:=3;
ÑÔÎÐÌÈÐÎÂÀÒÜ p_ki:=7;}
ÑÔÎÐÌÈÐÎÂÀÒÜ d_ki_p:=d_ki/kol_stud*100;
ÑÔÎÐÌÈÐÎÂÀÒÜ t_ki_p:=t_ki/kol_stud*100;
ÑÔÎÐÌÈÐÎÂÀÜ ch_ki_p:=ch_ki/kol_stud*100;
ÑÔÎÐÌÈÐÎÂÀÒÜ p_ki_p:=p_ki/kol_stud*100;
ÎÊÐÓÃËÈÒÜ d_ki â ïåðåìåííóþ d_ki_p;
ÎÊÐÓÃËÈÒÜ t_ki â ïåðåìåííóþ t_ki_p;
ÎÊÐÓÃËÈÒÜ ch_ki â ïåðåìåííóþ ch_ki_p;
ÎÊÐÓÃËÈÒÜ p_ki â ïåðåìåííóþ p_ki_p;
ÑÔÎÐÌÈÐÎÂÀÒÜ èç d_ki ñòðîêó d_ki_s;
ÑÔÎÐÌÈÐÎÂÀÒÜ èç t_ki ñòðîêó t_ki_s;
ÑÔÎÐÌÈÐÎÂÀÒÜ èç ch_ki ñòðîêó ch_ki_s;
ÑÔÎÐÌÈÐÎÂÀÒÜ èç p_ki ñòðîêó p_ki_s);
ÑÔÎÐÌÈÐÎÂÀÒÜ ñòðîêó d_ki_s:=d_ki_s+'%';
ÑÔÎÐÌÈÐÎÂÀÒÜ ñòðîêó t_ki_s:=t_ki_s+'%';
ÑÔÎÐÌÈÐÎÂÀÒÜ ñòðîêó ch_ki_s:=ch_ki_s+'%';
ÑÔÎÐÌÈÐÎÂÀÒÜ ñòðîêó p_ki_s:=p_ki_s+'%';
ÑÔÎÐÌÈÐÎÂÀÒÜ êîîðäèíàòó y1:=300-d_ki*2;
ÑÔÎÐÌÈÐÎÂÀÒÜ êîîðäèíàòó y2:=300-t_ki*2;
ÑÔÎÐÌÈÐÎÂÀÒÜ êîîðäèíàòó y3:=300-ch_ki*2;
ÑÔÎÐÌÈÐÎÂÀÒÜ êîîðäèíàòó y4:=300-p_ki*2;
Î×ÈÑÒÈÒÜ ýêðàí;
ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (5,5,635,475);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,35,600,50);
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,430,600,445);
ÓÑÒÀÍÎÂÈÒÜ öâåò (Red);
ÏÅ×ÀÒÀÒÜ grup;
ÏÅ×ÀÒÀÒÜ mas_pun[x];
ÓÑÒÀÍÎÂÈÒÜ öâåò (Red);
ÓÑÒÀÍÎÂÈÒÜ ñòèëü çàëèâêè (11,Red);
ÐÈÑÎÂÀÒÜ òðåõìåðíûé ïðÿìîóãîëüíèê (145,y1,195,300,10,TopOn);
ÓÑÒÀÍÎÂÈÒÜ ñòèëü çàëèâêè (11,Brown);
ÓÑÒÀÍÎÂÈÒÜ öâåò (Brown);
ÐÈÑÎÂÀÒÜ òðåõìåðíûé ïðÿìîóãîëüíèê (245,y2,295,300,10,TopOn);
ÓÑÒÀÍÎÂÈÒÜ ñòèëü çàëèâêè (11,Blue);
ÓÑÒÀÍÎÂÈÒÜ öâåò (Blue);
ÐÈÑÎÂÀÒÜ òðåõìåðíûé ïðÿìîóãîëüíèê (345,y3,395,300,10,TopOn);
ÓÑÒÀÍÎÂÈÒÜ ñòèëü çàëèâêè (11,Green);
ÓÑÒÀÍÎÂÈÒÜ öâåò (Green);
ÐÈÑÎÂÀÒÜ òðåõìåðíûé ïðÿìîóãîëüíèê (445,y4,495,300,10,TopOn);
ÓÑÒÀÍÎÂÈÒÜ öâåò (White);
ÐÈÑÎÂÀÒÜ ëèíèþ (63,302,600,302);
ÏÅ×ÀÒÀÒÜ '0%';
ÏÅ×ÀÒÀÒÜ d_ki_s;
ÏÅ×ÀÒÀÒÜ t_ki_s;
ÏÅ×ÀÒÀÒÜ ch_ki_s;
ÏÅ×ÀÒÀÒÜ p_ki_s;
ÑÔÎÐÌÈÐÎÂÀÒÜ èç kol_stud ñòðîêó kol_stud_s;
ÏÅ×ÀÒÀÒÜ kol_stud_s;