Современное программирование предлагает пользователям использовать самые разнообразные языки программирования. Но основой основ является Паскаль.Данный язык был разработан в 1971 году в Университете Цюриха профессором Никлаусом Виртом. Его предназначение изначально было учебным. Имея достаточно четко выраженную структуру и систему предоставления данных Паскаль имел ограничения в функциях ввода - вывода, при создании подпрограмм.

Управляющие операторы языка

Оператор выбора

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

Синтаксическая диаграмма <Оператор выбора>

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

Предоставим пользователю возможность выбрать функцию через простейшую имитацию меню, в котором каждой функции соответствует некоторое число (код):

Введите код функции:

1 - y=sin(x)

2 - y=cos(x)

3 - y=exp(x)

В зависимости от значения введенного кода выбирается одна из функций. Схема алгоритма программы будет выглядеть таким образом:

Текст программы, реализующий заданный алгоритм:

Program ex;

Var x, y:real; Kod:byte; Key:boolean;

Begin

WriteLn (`Введите код функции:`);

WriteLn (`1-sin(x)`)

WriteLn (`2-cos(x)`)

WriteLn (`3-exp(x)`)

ReadLn (kod);

Write (`Введите значение аргумента:`);

ReadLn (x);

Key:=true; {признак правильности кода}

case Kod of

1: y:=sin(x);

2: y:=cos(x);

3: y:=exp(x);

else Key:=false; {код не соответствует функции}

end;

if key then

WriteLn (`При x=` x:12:6, `y=`, y:12:6)

else

WriteLn (`Веден неверный код функции.`)

End.

Hosted by uCoz