Íà÷àëüíûé êóðñ ïðîãðàììèðîâàíèÿ íà ÿçûêå Ôîðò
ÓÑÎÂÅÐØÅÍÑÒÂÎÂÀÍÍÛÉ ÃÅÍÅÐÀÒÎÐ ÁÅÑÑÌÛÑËÅÍÍÛÕ ÑÎÎÁÙÅÍÈÉ
Ãåíåðàòîð áåññìûñëåííûõ ñîîáùåíèé, î êîòîðîì øëà ðå÷ü â ãë. 10, èìååò ñóùåñòâåííûé íåäîñòàòîê: íåîáõîäèìî îñóùåñòâëÿòü âîçâðàò êàðåòêè â îïðåäåëåíèè ñëîâà ÑÎÎÁÙÅÍÈÅ. Ýòî âåäåò ê ìîçàè÷íîìó âûâîäó ôðàç.
Äëÿ òîãî ÷òîáû ãåíåðèðîâàòü íåñêîëüêî ñîîáùåíèé, ìû äîëæíû ïîðó÷èòü ñàìîé ïðîãðàììå ôèêñèðîâàòü ìîìåíòû, êîãäà òðåáóåòñÿ âîçâðàò êàðåòêè. Ñëåäóþùèé íèæå ëèñòèíã ïðèâîäèòñÿ áåç âñÿêèõ
êîììåíòàðèåâ. Ïðèîáðåòàéòå íàâûêè ÷òåíèÿ ïðîãðàìì íà Ôîðòå. Ïîïðîáóéòå ñäåëàòü îïðåäåëåíèÿ áîëåå ÿñíûìè. Ðåçóëüòàò ðàáîòû íàøåé ïðîãðàììû âûãëÿäèò òàê:  ÄÀÍÍÎÌ ÑÎÎÁÙÅÍÈÈ ÌÛ ÐÀÑÑÊÀÆÅÌ ÂÀÌ Î ÒÎÌ, ×ÒÎ ÂÊËÀÄÛÂÀß ÈÌÅÞÙÈÅÑß Â ÍÀËÈ×ÈÈ ÑÐÅÄÑÒÂÀ  ÈÍÒÅÃÐÈÐÎÂÀÍÍÛÉ ÖÈÔÐÎÂÎÉ ÊÎÌÏËÅÊÑ ÏÐÈÌÅÍßß ÀÂÒÎÍÎÌÍÛÉ ÊÓËÜÒÓÐÍÛÉ ÏÐÎÄÓÊÒ ÏÐÅÄÑÒÀÂËßÅÒÑß ÂÎÇÌÎÆÍÛÌ ÄÀÆÅ ÍÅÑÌÎÒÐß ÍÀ ÊÂÀËÈÔÈÖÈÐÎÂÀÍÍÛÉ ÖÈÔÐÎÂÎÉ ÏÐÎÅÊÒ ÅÖÅ ÁÎËÜØÅ ÊÐÅÏÈÒÜ ÓÍÈÊÀËÜÍÛÉ ÏÐÎÃÐÀÌÌÍÛÉ ÎÁÚÅÌ.
Ñ ÎÄÍÎÉ ÑÒÎÐÎÍÛ, ÈÑÑËÅÄÎÂÀÍÈß ÏÎÊÀÇÀËÈ, ×ÒÎ ÑÒÐÓÊÒÓÐÈÐÎÂÀÍÍÎ ÏÐÈÌÅÍßß ÎÁÙÈÉ ÒÐÓÄÎÂÎÉ ÎÁÚÅÌ Ó×ÈÒÛÂÀß ÀÂÒÎÌÀÒÈÇÈÐÎÂÀÍÍÛÉ ÏÐÎÃÐÀÌÌÍÛÉ ÀÂÒÎÌÀÒ ÑÒÀÍÎÂÈÒÑß ÍÅÎÑÓÙÅÑÒÂÈÌÛÌ ÏÎÄÍÈÌÀß ÑËÓ×ÀÉÍÛÉ ÏÐÎÈÇÂÎÄÑÒÂÅÍÍÛÉ ÏÐÎÖÅÑÑ ÅÙÅ ÁÎËÜØÅ ÊÐÅÏÈÒÜ ÊÂÀËÈÔÈÖÈÐÎÂÀÍÍÛÉ ÌÍÎÃÎÎÒÐÀÑËÅÂÎÉ ÏÐÈÍÖÈÏ.
Ñ ÄÐÓÃÎÉ ÑÒÎÐÎÍÛ, ÒÅÌ ÍÅ ÌÅÍÅÅ, ÏÐÀÊÒÈ×ÅÑÊÈÉ ÎÏÛÒ ÏÎÊÀÇÛÂÀÅÒ, ×ÒÎ ÑÒÐÓÊÒÓÐÈÐÎÂÀÍÍÎ ÏÐÈÌÅÍßß ÖÈÔÐÎÂÎÉ ÕÈÌÈ×ÅÑÊÈÉ ÊÎÌÏËÅÊÑ Ó×ÈÒÛÂÀß ÍÅÎÁÛ×ÀÉÍÛÉ ÌÍÎÃÎÎÒÐÀÑËÅÂÎÉ ÀÂÒÎÌÀÒ ÍÅÎÁÕÎÄÈÌÎ ÐÀÑÑÌÀÒÐÈÂÀß ÍÅÎÁÛ×ÀÉÍÛÉ ÏÐÎÃÐÀÌÌÍÛÉ ÊÐÈÒÅÐÈÈ ÔÓÍÊÖÈÎÍÈÐÎÂÀÒÜ ÊÀÊ ÂÐÅÌÅÍÍÛÉ ÖÈÔÐÎÂÎÉ ÏÐÎÅÊÒ.
 ÐÅÇÓËÜÒÀÒÅ ÍÀØÅ ÏÐÅÄËÎÆÅÍÈÅ ÇÀÊËÞ×ÀÅÒÑß Â ÒÎÌ, ×ÒÎ ÑÒÐÓÊÒÓÐÍÎ ÏÐÈÌÅÍßß ÑËÓ×ÀÉÍÛÉ ÊÓËÜÒÓÐÍÛÉ ÈÍÒÅÐÅÑ Ó×ÈÒÛÂÀß ÑÈÑÒÅÌÀÒÈÇÈÐÎÂÀÍÍÛÉ ÖÈÔÐÎÂÎÉ ÓÐÎÂÅÍÜ ÍÅÎÁÕÎÄÈÌÎ ÐÀÑÑÌÀÒÐÈÂÀß ÖÈÔÐÎÂÎÉ ÒÐÓÄÎÂÎÉ ÏÐÎÅÊÒ ÅÙÅ ÁÎËÜØÅ ÊÐÅÏÈÒÜ ÑÈÍÕÐÎÍÈÇÈÐÎÂÀÍÍÛÉ ÊÎÐÎÒÊÎÂÎËÍÎÂÛÉ ÊÐÈÒÅÐÈÈ.
Block # 156 0 ( Ãåíåðàòîð áåññìûñëåííûõ âûðàæåíèé, âàðèàíò ñ ñàìîôîðìàòèðîâàíèåì ) 1 VARIABLE ÎÑÒÀÒÎÊ \ êîëè÷åñòâî îñòàâøèõñÿ ñèìâîëîâ, ïîäëåæàùèõ ñêàíèðîâàíèè 2 VARIABLE ÏÎ-ÃÎÐÈÇÎÍÒÀËÈ \ òåêóùåå ïîëîæåíèå êóðñîðà äëÿ âûâîäà ïî 3 \ ãîðèçîíòàëè 4 70 CONSTANT ÏÐÀÂÃÐÀÍ \ ïðàâàÿ ãðàíèöà 5 : ÑÊÀÍÅÐ ( äëèíà-ïîèñêà -- àäð-ïðîáåëà | êîíåö-ïîëÿ) 6 2DUP + ROT ROT OVER + SWAP ÂÎ 1 Ñ@ BL = 7 IF DROP I LEAVE THEN LOOP ; 8 : ÄÀÉÑËÎÂÎ ( a -- a ñëîâî-ñ÷åò÷èê) \ ïîëó÷.
Forekc.ru
Ðåôåðàòû, äèïëîìû, êóðñîâûå, âûïóñêíûå è êâàëèôèêàöèîííûå ðàáîòû, äèññåðòàöèè, ó÷åáíèêè, ó÷åáíûå ïîñîáèÿ, ëåêöèè, ìåòîäè÷åñêèå ïîñîáèÿ è ðåêîìåíäàöèè, ïðîãðàììû è êóðñû îáó÷åíèÿ, ïóáëèêàöèè èç ïðîôèëüíûõ èçäàíèé