Реклама:

В Коболе существуют и другие способы реализации повторения. Конструкция ВЫПОЛНИТЬ - МЕНЯЯ позволяет использовать индекс, который при каждом повторении изменяется на фиксированную величину, пока не достигнет предписанного значения. После этого повторение завершается. Кроме того, можно эффективно воспользоваться простой конструкцией «ВЫПОЛНИТЬ п РАЗ», если число повторений неизменно.

Кодирование на языке ПЛ/1

ПЛ/1 - необычно мощный язык программирования. Искушенный программист на ПЛ/1 способен чуть ли не исполнить машинную симфонию, помимо выполнения всех нужных логических функций. Однако эта выразительность языка обусловливает необходимость соблюдения некоторых стандартов. Эти стандарты требуются для ограничения почти бесконечного разнообразия методов реализации вполне простых конструкций, которые могут возникнуть в неконтролируемой среде.

Выбор кодируется на ПЛ/1 примерно как на Коболе, с помощью оператора IF-THEN-ELSE. Вот типичный пример выбора:

IF RECTYPE = 'TRANS' THEN BAL = BAL + AMT; ELSE BAL = AMT;

Как и в Коболе, операторы IF-THEN-ELSE могут быть вложены друг в друга. Но в отличие от Кобола существует специальный оператор SELECT для реализации более сложных и длинных выборов.

Наиболее употребимой и самой удобной реализацией повторения на языке ПЛ/1 является оператор DO WHILE например,

do while (count < 10);

count = Count + i;

power = r**C0UNT; write file (output) from (power); end;

Это повторение выполняет три оператора из середины, пока значение в поле COUNT остается меньше, чем 10. Для того чтобы эти три оператора выполнились хотя бы один раз, первоначальное значение COUNT должно быть меньше чем 10. Если же исходное значение COUNT, например, в точности равно 10, то три оператора из середины совсем не будут выполняться.

Следить за происходящим в программе на ПЛ/1 легче, потому что детальная кодировка может быть записана «в одну строку» в отличие от «выносной» ситуации с оператором ВЫПОЛНИТЬ в Коболе. В программе на Коболе три исполнимых оператора из приведенного выше повторения пришлось бы поместить где-то на стороне и заменить в повторении оператором ВЫПОЛНИТЬ.

Как отмечалось выше, ПЛ/1 - особенно богатый язык, и существует ряд различных способов реализации на нем повторений. Имеется оператор DO-UNTIL, обеспечивающий возможность повторяемого выполнения некоторого блока кода до достижения определенного значения. При этой конструкции обычно не требуется ноль появлений повторения.

Кроме того, предусмотрен индексированный цикл, в котором индекс изменяется на фиксированную величину, пока не будет достигнуто предписанное значение, аналогично конструкции Кобола ВЫПОЛНИТЬ-МЕНЯЯ. На языке ПЛ/1 такой тип цикла кодируется оператором вида DO 1=1 to N.

Учитывая богатство возможностей языка ПЛ/1, настойчиво советуем пользоваться им, ограничиваясь определенными методами реализации основных структур.

Кодирование на языке Паскаль

Паскаль - это мощный и в то же время удобный в употреблении современный язык программирования, применявший много от структуры и стиля языков Алгол и ПЛ/1. К тому же при проектировании Паскаля были учтены основные принципы структурного программирования, и поэтому конструкции структурного программирования очень легко кодируются на этом языке.


⇐ Предыдущая страница| |Следующая страница ⇒