Àëãîðèòì ìîäóëÿ Rezult:
ÍÀ×ÀËÎ ñõåìû Rezult, îáðàáîòêè ðåçóëüòàòîâ òåñòèðîâàíèÿ;
ÎÏÈÑÀÍÈÅ ÄÀÍÍÛÕ:
n_name, n_oc – ñòðîêîâûå ïåðåìåííûå;
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî key<>'q'
ÄÎ ÏÐÎÂÅÐÊÈ:
Î×ÈÑÒÈÒÜ ýêðàí;
ÑÔÎÐÌÈÐÎÂÀÒÜ n_menu:=12;
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÑÔÎÐÌÈÐÎÂÀÒÜ f_name:='test_men.pas';
ÂÛÏÎËÍÈÒÜ ñõåìó Chtenie;
ÂÛÏÎËÍÈÒÜ ñõåìó Kursor;
ÑÔÎÐÌÈÐÎÂÀÒÜ x:=p_kur;
ÅÑËÈ n_menu=13
ÒÎÃÄÀ
Î×ÈÑÒÈÒÜ ýêðàí;
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,150,600,180);
ÓÑÒÀÍÎÂÈÒÜ öâåò (Red);
ÏÅ×ÀÒÀÒÜ 'Ââåäèòå íîìåð ãðóïïû';
ÂÂÅÑÒÈ íîìåð ãðóïïû (grup);
Î×ÈÑÒÈÒÜ ýêðàí;
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÏÅ×ÀÒÀÒÜ '1. Âûâåñòè ðåç-òû äëÿ îäíîãî ñòóäåíòà';
ÏÅ×ÀÒÀÒÜ '2. Âûâåñòè ðåç-òû äëÿ âñåé ãðóïïû (òàáëèöà)';
ÏÅ×ÀÒÀÒÜ '3. Âûâåñòè ðåç-òû äëÿ âñåé ãðóïïû (ãðàôèê)';
ÏÅ×ÀÒÀÒÜ 'Äëÿ âîçâðàòà ê ïðåäûäóùåìó ìåíþ íàæìèòå (Esc)';
ÑÔÎÐÌÈÐÎÂÀÒÜ kol_kur:=4;
ÂÛÏÎËÍÈÒÜ ñõåìó Kursor;
ÅÑËÈ n_menu=14
ÒÎÃÄÀ
ÎÒÊÐÛÒÜ ôàéë ñî ñïèñêîì ãðóïïû (f_sp_gr);
ÅÑËÈ p_kur=1
ÒÎÃÄÀ
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,150,600,180);
ÏÅ×ÀÒÀÒÜ 'Ââåäèòå Ô.È.Î. ñòóäåíòà';
ÂÂÅÑÒÈ èìÿ ñòóäåíòà (name);
ÊÎÍÅÖ ÒÎÃÄÀ;
ÑÔÎÐÌÈÐÎÂÀÒÜ kol_stud:=0;
ÑÔÎÐÌÈÐÎÂÀÒÜ d_ki:=0;
ÑÔÎÐÌÈÐÎÂÀÒÜ t_ki:=0;
ÑÔÎÐÌÈÐÎÂÀÒÜ ch_ki:=0;
ÑÔÎÐÌÈÐÎÂÀÒÜ p_ki:=0;
ÎÒÊÐÛÒÜ ôàéë f1 äëÿ ïåðåçàïèñè;
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî ôàéë f_sp_gr íå êîí÷èëñÿ
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
×ÈÀÒÜ èç ôàéëà f_sp_gr â ñòðîêó stroka;
ÅÑËÈ p_kur=1
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ stroka:=name;
ÎÒÊÐÛÒÜ ôàéë f_rez_gr;
ÑÔÎÐÌÈÐÎÂÀÒÜ prizn:=0;
ÑÔÎÐÌÈÐÎÂÀÒÜ kol_raz:=0;
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî ôàéë f_rez_gr íå êîí÷èëñÿ
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
×ÈÒÀÒÜ èç ôàéëà f_rez_gr â ñòðîêó stroka_rez;
ÑÔÎÐÌÈÐÎÂÀÒÜ perem:=Copy(stroka_rez,1,Length(stroka));
ÅÑËÈ stroka=perem
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ perem:=Copy(stroka_rez,Length(stroka)+ 1, Length(mas_pun[x]));
ÅÑËÈ mas_pun[x]=perem
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ prizn:=1;
ÊÎÍÅÖ ÒÎÃÄÀ
ÈÍÀ×Å
ÑÔÎÐÌÈÐÎÂÀÒÜ prizn:=0;
ÅÑËÈ prizn=1
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ kol_raz:=kol_raz+1;
ÑÔÎÐÌÈÐÎÂÀÒÜ ocen:=copy(stroka_rez, Length(stroka_rez),1);
ÊÎÍÅÖ ÒÎÃÄÀ;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÅÑËÈ kol_raz>0
ÒÎÃÄÀ
ÑÔÎÐÌÈÐÎÂÀÒÜ èç ñòðîêè ocen ïåðåìåííóþ ocen2;
 ÑËÓ×ÀÅ åñëè ocen2 ðàâíà
2: ÑÔÎÐÌÈÐÎÂÀÒÜ d_ki:=d_ki+1;
3: ÑÔÎÐÌÈÐÎÂÀÒÜ t_ki:=t_ki+1;
4: ÑÔÎÐÌÈÐÎÂÀÒÜ ch_ki:=ch_ki+1;
5: ÑÔÎÐÌÈÐÎÂÀÒÜ p_ki:=p_ki+1;
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÇÀÏÈÑÀÒÜ stroka â ôàéë f1;
ÇÀÏÈÑÀÒÜ kol_raz â ôàéë f1;
ÇÀÏÈÑÀÒÜ ocen â ôàéë f1;
ÑÔÎÐÌÈÐÎÂÀÒÜ kol_stud:=kol_stud+1;
ÊÎÍÅÖ ÒÎÃÄÀ;
ÇÀÊÐÛÒÜ ôàéë f_rez_gr;
ÅÑËÈ p_kur=1
ÒÎÃÄÀ
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî ôàéë f_sp_gr íå êîí÷èëñÿ
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
×ÈÒÀÒÜ èç ôàéëà f_sp_gr â ñòðîêó stroka;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÇÀÊÐÛÒÜ ôàéë (f1);
 ÑËÓ×ÀÅ åñëè p_kur ðàâíî
1,2:ÅÑËÈ kol_stud<>0
ÒÎÃÄÀ
ÏÅ×ÀÒÀÒÜ 'Ô.È.Î.';
ÏÅ×ÀÒÀÒÜ 'Êîë-âî ïðîõîæäåíèé îöåíêà';
ÐÈÑÎÂÀÒÜ ëèíèþ (200,70,200,400);
ÐÈÑÎÂÀÒÜ ëèíèþ (420,70,420,400);
ÐÈÑÎÂÀÒÜ ëèíèþ (40,82,600,82);
ÎÒÊÐÛÒÜ ôàéë f1;
ÑÔÎÐÌÈÐÎÂÀÒÜ y1:=90;
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÏÅ×ÀÒÀÒÜ mas_pun[x];
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,430,600,445);
ÏÎÂÒÎÐßÒÜ ÏÐÈ ñîõðàíåíèè óñëîâèÿ, ÷òî ôâéë f1 íå êîí÷èëñÿ
ÏÎÑËÅ ÏÐÎÂÅÐÊÈ:
×ÈÒÀÒÜ èç ôàéëà f1 â ñòðîêó stroka;
ÑÔÎÐÌÈÐÎÂÀÒÜ n_oc:=copy(stroka,length(stroka)-1,2);
ÑÔÎÐÌÈÐÎÂÀÒÜ Delete(stroka,length(stroka)-1,2);
ÑÔÎÐÌÈÐÎÂÀÒÜ Insert(' ',n_oc,2);
ÏÅ×ÀÒÀÒÜ stroka;
ÏÅ×ÀÒÀÒÜ n_oc;
ÑÔÎÐÌÈÐÎÂÀÒÜ y1:=y1+20;
ÊÎÍÅÖ ÏÎÑËÅ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÇÀÊÐÛÒÜ ôàéë f1;
ÊÎÍÅÖ ÒÎÃÄÀ;
ÈÍÀ×Å
ÂÛÏÎËÍÈÒÜ ñõåìó Ramka;
ÏÅ×ÀÒÀÒÜ mas_pun[x];
ÐÈÑÎÂÀÒÜ ïðÿìîóãîëüíèê (40,430,600,445);
ÊÎÍÅÖ ÈÍÀ×Å;
3:ÂÛÏÎËÍÈÒÜ ñõåìó Diagram;
ÊÎÍÅÖ Â ÑËÓ×ÀÅ;
ÎÆÈÄÀÒÜ íàæàòèÿ êëàâèøè;
ÇÀÊÐÛÒÜ ôàéë f_sp_gr;
ÑÔÎÐÌÈÐÎÂÀÒÜ key:='q'
ÊÎÍÅÖ ÒÎÃÄÀ
ÈÍÀ×Å
ÑÔÎÐÌÈÐÎÂÀÒÜ key:='q';
ÊÎÍÅÖ ÒÎÃÄÀ;
ÊÎÍÅÖ ÄÎ ÏÐÎÂÅÐÊÈ;
ÊÎÍÅÖ ÏÎÂÒÎÐÅÍÈÉ;
ÑÔÎÐÌÈÐÎÂÀÒÜ n_menu:=1;
ÑÔÎÐÌÈÐÎÂÀÒÜ proc:='s';
ÊÎÍÅÖ ñõåìû Rezult;