Îáðàáîòêà ÷èñëîâûõ ïîñëåäîâàòåëüíîñòåé âñåãäà îñíîâûâàåòñÿ íà èñïîëüçîâàíèè îïåðàòîðà öèêëà. Ýòî ìîæåò áûòü áåçóñëîâíûé öèêë
FOR I:=N1 TO N2 DO
<òåëî öèêëà>;
ãäå I - ïåðåìåííàÿ öèêëà, êîòîðàÿ äîëæíà áûòü ïåðå÷èñëÿåìîãî òèïà (öåëàÿ, ñèìâîëüíàÿ è ò. ä.);
N1 - íà÷àëüíîå çíà÷åíèå ïåðåìåííîé öèêëà;
N2 - êîíå÷íîå çíà÷åíèå ïåðåìåííîé öèêëà.
Áåçóñëîâíûé öèêë âûïîëíÿåòñÿ çàäàííîå ÷èñëî ðàç. ×òîáû ïðåðâàòü âûïîëíåíèå äîñðî÷íî, íåîáõîäèìî óâåëè÷èòü I äî êîíå÷íîãî çíà÷åíèÿ (I := N2) ëèáî èñïîëüçîâàòü îïåðàòîð BREAK.
 ÿçûêå PASCAL ïðåäëàãàþòñÿ ê èñïîëüçîâàíèþ öèêëû, èñïîëíåíèå êîòîðûõ çàâèñèò îò êàêîãî-ëèáî óñëîâèÿ. Òàêèõ öèêëîâ äâà:
Ñ ïîñòóñëîâèåì |
Ñ ïðåäóñëîâèåì |
REPEAT
<òåëî öèêëà>
UNTIL <óñëîâèå>; |
WHILE <óñëîâèå> DO
<òåëî öèêëà>; |
 öèêëå ñ ïîñòóñëîâèåì ñíà÷àëà âûïîëíÿåòñÿ òåëî öèêëî, I òîëüêî ïîòîì ïðîâåðÿåòñÿ óñëîâèå. Íàïðèìåð, ïðîâåðêà íà òî, ÷òîáû çàäàòü äëèíó ïîñëåäîâàòåëüíîñòè, îñóùåñòâëÿåòñÿ ñëåäóþùèì îáðàçîì:
REPEAT
WRITE('BBEÄÈTE ÄËÈÍÓ ÏÎÑËÅÄÎÂÀÒÅËÜÍÎÑÒÈ N = ');
READLN (N);
UNTIL N>0;
Öèêë âûïîëíÿåòñÿ äî òåõ ïîð, ïîêà ïîëüçîâàòåëü íå ââåäåò ïîëîæèòåëüíîå ÷èñëî.
Äëÿ öèêëà ñ ïðåäóñëîâèåì ïðîâåðêà ïðîâîäèòñÿ äî íà÷àëà î÷åðåäíîé èòåðàöèè:
BEGIN
WRLTE('BBEÄÈTE ÄËÈÍÓ ÏÎÑËÅÄÎÂÀÒÅËÜÍÎÑÒÈ N = ');
READLN (N);
END;
Äëÿ ïîñëåäîâàòåëüíîñòåé õàðàêòåðíî, ÷òî â êàæäûé ìîìåíò âðåìåíè íàì äîñòóïåí òîëüêî îäèí ýëåìåíò ïîñëåäîâàòåëüíîñòè. Ïîýòîìó âñå àëãîðèòìû ñòðîÿòñÿ ñ ó÷åòîì îäíîêðàòíîãî ïîñëåäîâàòåëüíîãî ïðîñìîòðà.
{SITELINK-S247}Óïðàæíåíèå 1.{/SITELINK} Ââîäèòñÿ ïîñëåäîâàòåëüíîñòü èç N öåëûõ ÷èñåë. Íàéòè ñóììó âñåõ îòðèöàòåëüíûõ ÷èñåë.
{SITELINK-S248}Óïðàæíåíèå 2.{/SITELINK} Ââîäèòñÿ ïîñëåäîâàòåëüíîñòü èç N öåëûõ ÷èñåë. Íàéòè, ñêîëüêî â íåé íóëåé.
{SITELINK-S249}Óïðàæíåíèå 3.{/SITELINK} Ââîäèòñÿ ïîñëåäîâàòåëüíîñòü èç N öåëûõ ÷èñåë. Íàéòè íàèáîëüøåå ÷èñëî.
{SITELINK-S250}Óïðàæíåíèå 4.{/SITELINK} Ââîäèòñÿ ïîñëåäîâàòåëüíîñòü öåëûõ ÷èñåë, 0 - êîíåö ïîñëåäîâàòåëüíîñòè. Íàéòè äâà íàèìåíüøèõ ÷èñëà
|