ÊÎÍÅÖ ñõåìû OpDan;

Àëãîðèòì ìîäóëÿ Main:


‘p’
*

(key=#27)and(n_menu=1)

**

           
   
 
   
 
   
 
 


Àëãîðèòì ìîäóëÿ 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;