Модуль 3. Задание 3. (продолжение)

7) Оператор присваивания - основной оператор любого языка программирования. Общая форма записи оператора (Pascal):
  имя величины := выражение
Например, V:=A; или V:=A+1;
Basic: Операторы присваивания выполняют присваивание, сводящееся к вычислению значения справа от оператора присваивания (=) и его записи в элемент слева, как в следующем примере:
V=42.
 
8) В языке Паскаль используется два оператора для реализации условных переходов - IF и CASE, а также оператор безусловного перехода GOTO. Они позволяют нарушить последовательный порядок выполнения инструкций программы.
Оператор условного перехода в Турбо Паскаль имеет вид:

if условие then оператор 1 else оператор 2; 

условие - это логическое выражение, в зависимости от которого выбирается одна из двух альтернативных ветвей алгоритма. Если значение условия истинно (TRUE), то будет выполняться оператор 1, записанный после ключевого слова then. В противном случае будет выполнен оператор 2, следующий за словом else, при этом оператор 1 пропускается. После выполнения указанных операторов программа переходит к выполеннию команды, стоящей непосредственно после оператора if.

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

Часто возникают ситуации, когда приходится осуществлять выбор одного из нескольких альтернативных путей выполнения программы. Несмотря на то, что такой выбор можно организовать с помощью оператора if .. then, удобнее воспользоваться специальным оператором выбора. Его формат:

case выражение of

    вариант : оператор;

    ...

    вариант : оператор;

end;

или

case выражение of

    вариант : оператор;

    ...

    вариант : оператор;

    else оператор

end;

выражение, которое записывается после ключевого слова case, называется селектором, оно может быть любого перечисляемого типа. вариант состоит из одной или большего количества констант или диапазонов, разделенных запятыми. Они должны принадлежать к тому же типу, что и селектор, причем недопустимо более одного упоминания вариантав записи инструкции case. Из перечисленного множества операторов будет выбран только тот, перед которым записан вариант, совпадающий со значением селектора. Если такого варианта нет, выполняется оператор, следующий за словом else (если он есть).
Пример

case ch of

    'A'..'Z', 'a'..'z' : WriteLn('Буква');

    '0'..'9'           : WriteLn('Цифра');

    '+', '-', '*', '/' : WriteLn('Оператор');

    else WriteLn('Специальный символ')

end;

 

Оператор безусловного перехода:

Помимо операторов условного перехода существует также оператор безусловного перехода goto. Формат:

goto метка

Оператор goto переходит при выполнении программы к определенному оператору программы, перед которым находится метка. Метка должна быть описана в разделе описания меток той программы (процедуры или функции), в которой она используется. Нельзя перейти из одной процедуры или функции в другую.
Необходимо, чтобы в программе существовал оператор, отмеченный указанной меткой. Она записывается перед оператором и отделяется от него двоеточием.
Пример

label 1;

begin

  ...

  goto 1;

  ...

  1: WriteLn('Переход к метке 1');

end.

 В программе на Бейсике оператор ветвления может записываться в одну строку:

IF условие THEN ветвь_”то”	- неполное ветвление
или
IF условие THEN ветвь_”то” ELSE ветвь_”иначе”	- полное ветвление

9) В Паскале:

Для ввода исходных данных чаще всего используется процедурa Read, ReadLn:

ReadLn(A1,A2,...AK);

Для вывода результатов работы программы на экран используются процедуры Write, Writeln:

Write(A1,A2,...AK);
WriteLn(A1,A2,...AK);

B Basic:

Ввод: INPUT <Переменная>
Вывод: PRINT <Список вывода>

10) Пример кода оператора цикла Паскаля с постусловием

Readln(n);
i:=0;
y:=0;
Repeat
    i:=i+1;
    y:=y+1/i;
Until i>n; 

11) Рассмотрим применение цикла с параметром в Бэйсике на конкретном примере.
Вычислите значение Sin, Cos и tg углов от 0 до 45 градусов с шагом 1 градус.
CONST PI=3.1415
FOR I=1 TO 45
X=PI*I/180
Y1=SIN(X)
Y2=COS(X)
Y3=TAN(X)
PRINT I, “Sin=”;Y1, “Cos=”; Y2, “tg=”; Y3
NEXT I