Pascal Next – руководство программиста. Описание языка программирования с примерами

Никита Культин

Описание нового языка программирования Pascal Next с примерами, демонстрирующими возможности языка программирования: операции ввода-вывода, использование циклов, работу с массивами, строками, файлами, встроенными и пользовательскими функциями.Книга адресована тем, кто интересуется программированием. Также она будет весьма полезна учителям, преподавателям техникумов и вузов ведущим занятия в рамках дисциплин «Информатика», «Программирование», «Алгоритмизация и программирование».

Выбор действия

Инструкция if

Выбор действия в зависимости от выполнения некоторого условия реализуется при помощи инструкции if.

Инструкция выбора одного из двух возможных вариантов действия записывается так:

if условие then

// здесь инструкции, которые должны быть выполнены,

// если условие выполняется (истинно)

else

// здесь инструкции, которые должны быть выполнены,

// если условие НЕ выполняется (ложно)

end;

Пример:

if t = 1 then

r:= r1+r2;

else

r:= r1*r2/ (r1+r2);

end;

Если при выполнении условия надо выполнить некоторое действие, а в случае, если условие не выполняется, это действие надо пропустить и перейти к следующей инструкции программы, то инструкция if записывается так:

if условие then

// здесь инструкции, которые будут выполнены,

// если условие выполняется (истинно)

end;

Пример:

if a [i] <a [i+1] then

b:=a [i];

a [i]:=a [i+1];

a [i+1]:=b;

end;

Множественный выбор

Множественный выбор (выбор одного действия из нескольких возможных) осуществляется при помощи вложенных инструкций if.

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

if условие1 then

// здесь инструкции, которые будут выполнены,

// если условие1 истинно

else

if условие2 then

// здесь инструкции, которые будут выполнены,

// если уловие1 ложно, а условие2 истинно

else

if условие3 then

// здесь инструкции, которые будут выполнены,

// если условия условие1 и условие2 ложны,

// а условие3 истинно

else

// здесь инструкции, которые будут выполнены,

// если ни одно из условий условие1, условие2 или

// условие3 НЕ выполняется

end;

end;

end;