29.Основные конструкции языка Turbo Pascal 7.0. Оператор выбора.
1) Case _ ключ выбора _ of
Список выбора;
End;
2) Case _ ключ выбора _ of
Список выбора
Else
Операторы
End;
Ключ выбора (селектор) – это выражение любого типа (integer, Boolean)
Список выбора – это одна или более конструкций следущего вида: (список констант выбора:оператор;) константы в списке отделяются друг от друга запятыми.
1)Если значение ключа выбора совпадает с одной их констант в списке выбора, то выполняется соответственно оператор в списке выбора, а если нет, то выполняется оператор после служебного end.
2) Если значение клбча выбора совпадает с одной из констант в списке выбора, то выполняется соответственно оператор в списке выбора, а если нет, то выполняется оператор, после служебного слова else.
Пример:
………….
Case _ nomer _ of
1,2: y:=6;
3,4: y:=6*x;
5: y:=x*sqrt (x);
8: y:=x*exp(x)+10
Else
y:=sqr(Sin(x))
end;
…………..
Nomer- переменная целого типа (integer)
X – переменная вещественного типа (real)
Пусть Nomer=1, то выполняется 1,2:у:=6
Если Nomer=10, то после else
30.Основные конструкции языка Turbo Pascal 7.0. Операторы цикла.
Оператор цикла с параметром
For _ параметр, оператор: выраженияе1 _ to или downto_ выражение 2 _ do
Параметр – это переменная порядкового типа (типа integer)
Выражение 1 определяется начальным значением параметра, а выражение 2 – конечные значения.
При использовании в качестве параметра переменной целого типа выражения 2:
Для “TO” выражение 2≥ выражение 1
Для “Downto” выражение 2≤выражение 1
Для TO шаг изменения параметра +1
Для Downto изменение параметра -1
Значение параметра изменяется в цикле автоматически. Во многих реализациях языка Turbo Pascal запрещается переопределять в цикле значения параметра, а также выражения 1 и выражения 2.
Пример:
начало
S=1+2+3+…..+N; N- натуральное число
Ввод N
Program P1;
Var
S=0
S, I, N: integer;
Begin
I=1,N
Read (N);
S:=0;
S=S+I
For I:=1 to N do
S:=S+I;
Вывод S
Write (S);
End.
конец
Оператор цикла с предварительным условием:
While _ условие выполнения цикла Do
начало
Оператор;
Ввод N
S=1+2+…..+N;
Program P1;
S=0
I=1
Var
S, I, N: integer;
I=≤N
Begin
Read (N); I:=1; S:=0; да
S=S+I
I=I+1
While I<=N do
Begin
S:=S+1;
I:=I+1;
Вывод S
End;
Write (s);
конец
End.
Оператор цикла с пост условием
Repeat
начало
Оператор 1;
Оператор 2;
Ввод N
……………
Оператор N;
S=0
I=1
Unitl _ условие выхода из цикла
Пример:
S=S+I
I=I+1
S=1+2+……+N
Program P1;
Var нет
I>N
S, I, N: integer;
Begin да
Read (N); I:=1; S:=0;
Вывод S
Repeat
S:=S+I;
конец
I:=I+1;
Until I>N;
Write (S);
End.