Итак, рассмотрим три основных типа алгоритмов, которые используются при написании программ.

1. Линейный алгоритм, в котором действия производятся в строгом порядке, одно за другим, без возможных отклонений.
2. Разветвляющийся алгоритм (ветвление). В нём присутствуют несколько авриантов последующего выполнения - в зависимости от выполнения или невыполнения определённого условия. Пример из жизни - мы подошли к перекрёстку, смотрим на светофор и думаем: "Ага, если красный цвет - стою, зелёный - пойду". Затем делаем что-то одно - стоим или идём.
3. Циклический алгоритм (цикл) содержит повторяющиеся действия, опять же, в зависимости от условия. При чём величина, которая постоянно изменяется при выполнении цикла, называется параметром. И опять же - пример из жизни. Кто-нибудь загадал загадку и хочет, чтобы Вы решили её с трёх попыток. Вы решаете её до тех пор, пока не решите или все три попытки не кончатся. Вот так.

• на основе безусловного перехода;
• на основе условного перехода.

          Некоторое отступление от темы. Эти примеры наглядно показывают, насколько бейсик отличается от паскаля объёмом программ. Насколько я помню, паскаль был создан гораздо раньше бейсика, поэтому бейсик был как бы упрощённой его версией. Однако, люди, знающие паскаль хорошо и имеющие хоть немного представления о бейсике, утверждают, что бейсик создан для ленивых людей. Конечно, лучше знать оба языка, а на каком из них вам писать программы (хотя бы на начальном уровне своей "карьеры программиста"). Для изучения обоих языков я и пишу этот самый учебник.

          Так вот. На этих примерах показаны программы заполнения экрана сплошь звёздами "*". Сначала программа пишет один символ, оставляя курсно на данной строке. Затем, переходя на следующую строку, переходит на эту же строку с печатью символа "*" и печатает его за предыдущем и так далее. Замечу, что когда строка заканчивается, то ничто не заставит курсор остаться на этой строке - он неизбежно перейдёт на следующую строку.

          Строго говоря, серьёзное программирование "не любит" операторы безусловного перехода, так как считается, что они запутывают программу, циклируют её, часто просто приводят к зависанию компьютера. Вообще, лучше пользоваться условным переходом. Безусловным желательно прользоваться только в тех случаях, когда метка, на которую ссылается оператор, стоит после этого оператора, тогда при выполнении следующих строк программы, интерпритатор снова не наткнётся на эту строку со ссылкой на ту же метку, и не будет бесконечного цикла. Ладно, теперь поговорим об условном переходе.

!

В паскале блок операторов, который идёт после условия, естественно сдвигается на ступень вправо и выделяется логическими скобками Begin и End; (End именно с точной с запятой). Это делается в блоке операторов при выполнении условия и в блоке его невыполнения (Else - Иначе). Если же там или там оператор только один (под фразой "один оператор" подразумевается и одна строка, и оператор условия, содержащий много строк, и циклы и т.п.), то ставть Begin и End; не надо. В бейсике всё так же, только начальной логической скобки ставить не надо, а конечную заменяет слово ENDIF.

          В записи условия можно использовать следующие символы:

• = (равно);
• > (больше);
• < (меньше);
• <> или >< (не равно);
• <= или =< (меньше или равно);
• >= или => (больше или равно);

!	В бейсике для безусловного перехода в условии можно писать так: IF K>=N THEN 2 (то же самое, что и IF K>=N THEN GOTO 2).

          В первом случае использована связка "И", во втором - "ИЛИ". То есть в первом должны выполниться все два условия, во втором хотя бы одно. Условия, кстати, можно заключать в скобки.

          Существует также альтернативное ветвление. О нём и поговорим.

          "Список выражений" в первом случае - это все условия со связками, при выполнении которых будет осуществляться блок операторов. Во втором случае - У1 и У2 (условия 1 и 2) - это те же самые списки выражений. В условиях (SELECT CASE в бейсике) можно писать следующее:

• выражение[, выражение, выражение]... (перечисление вариантов);
• выражение TO выражение (если число находится в диапозоне от ... до ...);
• IS оператор_отношения выражение (отношение - если число больше/меньше/больше либо равно/меньше либо равно другому числу).

• Рассмотреть повторяющиеся действия и выделить в них равномерно изменяющуюся величину (параметр);
• Дать параметру имя;
• Определить начальное и конечное значения параметра, а также шаг изменения параметра - насколько параметр будет изменяться при запуске нового витка цикла.
• Написать оператор цикла, который состоит из трёх частей:
  • FOR параметр=начальное_значение TO конечное значение STEP шаг
  • тело цикла (в нём указывается блок операторов для циклического повторения)
  • NEXT параметр

• For параметр:=начальное_значение To конечное значение Do
• тело цикла (как было говорено уже не рас, может быть в логических скобках)
• Если выполняется не один параметр, то End;

• Рассмотреть повторяющиеся действия и выделить в них изменяющуюся величину (параметр);
• Определить условие выполнения цикла;
• Написать оператор цикла, который состоит из трёх частей:
  • WHILE условие (так же, как и в операторе условия IF)
  • тело цикла (в нём указывается блок операторов для циклического повторения) с изменяющимся параметром
  • WEND

1. DO UNTIL условие тело_цикла LOOP
2. DO WHILE условие тело_цикла LOOP
3. DO тело_цикла LOOP UNTIL условие
4. DO тело_цикла LOOP WHILE условие

          Теперь оператор Repeat. Он делает то же, что и третья и четвёртая строки. Пишется так: Repeat ... Until ... - вообще, странноватый оператор. Нетипичный для циклов, я бы так сказал. Во-первых, нет ключевого слова Do, во-вторых, в любом случае не ставятся Begin и End;! Интересно... Ну, ладно. Перейдём к конструкциям, которых все так ждали.

Циклы	Бейсик	Паскаль
Счётчик	FOR переменная=нач.зн TO кон.зн. тело_цикла NEXT переменная	For переменная:=нач.зн. To кон.зн. Begin тело_цикла End;
С неизвестным количеством повторений	WHILE условие тело_цикла WEND	While условие Do Begin тело_цикла End;
DO...LOOP Repeat	DO UNTIL условие тело_цикла LOOP DO WHILE условие тело_цикла LOOP DO тело_цикла LOOP UNTIL условие DO тело_цикла LOOP WHILE условие	Repeat тело_цикла Until условие;

          Итак, наконец-то мы закончили со вторым разделом. Смело - в следующий раздел!