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

 

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