Àëãîðèòì Ïðîãðàììà
àëã «ñàìûé ëåãêèé ó÷åíèê» ' ñàìûé ëåãêèé ó÷åíèê
íà÷ cls
âûâîä («Äàííûå îá ó÷åíèêàõ») ? «Äàííûå îá ó÷åíèêàõ»
âûâîä («ôàìèëèÿ âåñ») ? «ôàìèëèÿ âåñ»
N: = 0 n = 0
öèêë do
÷òåíèå (Fam, r, v) read famS, r, v
ïðè Fam = «» âûõîä if fam$ = «» then exit do
âûâîä (Fam, v) ? fam$, v, r
N:=N+1 n = n+1
åñëè N == 1 èëè V < Vmin òî if n=l or v < vmin then
Vmin: =
V vmin = v
Fmin: =
Fam fmin$ = fam$
âñå end if
êöèêë loop
âûâîä («ñàìûé ëåãêèé:») ? «ñàìûé ëåãêèé:»
âûâîä (Fmin, Vmin) ? fmin$, vmin
êîí end
 îáùåì ñëó÷àå ñèñòåìàòè÷åñêèé ïîäõîä ê ðåøåíèþ çàäà÷ íà ÝÂÌ òðåáóåò äëÿ ïðîâåðêè ïðàâèëüíîñòè àëãîðèòìîâ è ïðîãðàìì íå òîëüêî ìàòåìàòè÷åñêîé ïîñòàíîâêè çàäà÷, íî è îáÿçàòåëüíîãî îïèñàíèÿ âûáðàííûõ ìåòîäîâ ðåøåíèÿ.