Стандартные функции для работы со строками.

29. Циклы в Паскале, примеры.

Цикл – это многократно повторяющиеся фрагменты программ. Алгоритм циклической структуры – это алгоритм, содержащий циклы. В ТР существует три оператора цикла: цикл с предусловием;цикл с постусловием;цикл с параметром. Для всех циклов характерны следующие особенности: значения переменных используемых в цикле, и не изменяющиеся в нем д.б. определены до входа в цикл; вход в цикл возможен только через его начало; выход их цикла осуществляется как в результате его естественного окончания, так и с помощью операторов перехода. Оператор цикла с предусловием в Паскале. Оператор цикла с предусловием реализует следующую базовую конструкцию: Формат записи:
While L do OP; где: While - пока не;
do – выполнить;
L – выражение логического типа;
OP – тело цикла; оператор (простой или составной).

Рис. 9.3. Структурная схема оператора цикла с предусловием Работа оператора: Вычисляется значение логического выражения, если вычисленное значение истинно, то выполняется оператор OP после чего повторяется проверка условия и выполнение операторов тела цикла. В противном случае осуществляется выход из цикла.

Вычисление значения логического выражения предшествует выполнению операторов тела цикла, поэтому этот оператор цикла называется циклом с предусловием.

Пример 9.3. Составить программу вычисления функции y для заданного значения x.

где: C=2,7; n=2; a=0.5; 0<t<1; Dt=0,1.

Program Ex_2;
Uses crt;
Var
y, C, a, t:real;
n:integer;
Begin
clrscr;
Writeln('Введите C, a, n'); Read(C, a, n);
Writeln('Результат:');
Writeln('t’:5,’y’:15);
t:=0;
While t<1 do
Begin
y:=C*exp(a*t)*cos(n*t);
Writeln(t:4:1,’ ‘:5, y:10);
t:=t+0.1;
End;
end.

Оператор цикла с постусловием в языке Паскаль

Оператор цикла с постусловием реализует следующую конструкцию:

Формат записи:
Repeat
OP
Until L;
где:
Repeat - повторять;
Until – пока не;
L – выражение логического типа;
OP – тело цикла; оператор (простой или составной).

Рис. 9.4. Структурная схема оператора цикла с постусловием Работа оператора: Выполняетсяоператор OP после чего вычисляется значение логического выражения L, если вычисленное значение False, то снова выполняется оператор OP в противном случае осуществляется выход из цикла. Вычисление значения логического выражения следует после выполнения операторов тела цикла, поэтому этот оператор цикла называется циклом с постусловием.В отличие от цикла с предусловием, в цикле с постусловием тело цикла выполняется о крайней мере один раз не зависимо от условия.
В операторе цикла с постусловием ключевые слова Repeat и Until играют роль операторных скобок.
Пример 9.4. Составить программу вычисления функции y для заданного значения x. где: C=2,7; n=2; a=0.5; 0<t<1; Dt=0,1. Program Ex_2;
Uses crt;
Var
y, C, a, t:real;
n:integer;
Begin
clrscr;
Writeln('Введите C, a, n');
Read(C, a, n);
Writeln('Результат:'); Writeln('t’:5,’y’:15);
t:=0;
Repeat
y:=C*exp(a*t)*cos(n*t);
Writeln(t:4:1,’ ‘:5, y:10);
t:=t+0.1;
Untile t>=1;
End. Оператор цикла с параметром в языке Паскаль Оператор цикла с параметром реализует следующую базовую конструкцию:
Рис. 9.5. Структурная схема оператора цикла с параметром. Формат записи:
1. For P:=Pn to Pk do OP;
2. For P:=Pk downto Pn do OP;
где: For - для; to – до; downto – уменьшая до
do – выполнить; OP – тело цикла; оператор (простой или составной); P -параметр цикла, переменная порядкового типа;
Pn, Pk – начальное и конечное значение параметра.

Работа оператора: Вычисляется начальное значение параметра цикла Pn и присваивается параметру P. Проверяется условие P?Pk, и если оно True выполняютсяоператоры тела цикла OP. После чего наращивается значение P на единицу и опять проверяется условие P?Pk. Если условие False осуществляется выход из цикла.
В операторе с downto шаг изменения параметра цикла равен –1. Примеры записи: For i:=1 to n do n:=sqr(i)+1;
For s:=’A’ to ‘Z’ do R:=R+ord(s)/127;
For L:=False to True do H:= (False or L) And Not (L); Пример 9.5. Составить программу вычисления функции y для заданного значения n. где: C=2,7; a=0.5; t=0,1; 0<n<10; Dn=1. Program Ex_3;
Uses crt;
Var
y, C, a, t:real;
n:integer;
Begin
clrscr;
Writeln('Введите C, a, t');
Read(C, a, n);
Writeln('Результат:');
Writeln(‘n’:5,’y’:15);
For n:=1 to 10 do
Begin
y:=C*exp(a*t)*cos(n*t);
Writeln(n:4,’ ‘:5, y:10);
end;
End.

Запись в файл и чтение из файла последовательного доступа.