- •Основные блоки алгоритмов.
- •Запись алгоритмов в виде блок-схемы.
- •Линейные алгоритмы.
- •А лгоритмы ветвления.
- •Ц иклические алгоритмы.
- •Типы данных
- •Операции и стандартные функции Турбо-Паскаля
- •Операторы Турбо-Паскаля
- •П аскаль. Программы с ветвлением.
- •Операторы цикла с условием
- •Цикл с параметром
Цикл с параметром
Оператор цикла применяется при выполнении расчетов или других действий, повторяющихся определенное количество раз. Оператор имеет вид:
For i:= N1 To N2 Do <оператор>; либо For i:= N1 DownTo N2 Do <оператор>;
З десь i - параметр цикла (переменная порядкового типа),
N1, N2 - начальное и конечное значения параметра цикла i.
N1, N2 могут быть константами, переменными или выражениями порядкового типа.
Напомним, что "оператор" может иметь вид: Begin "операторы" end;
В случае связки "To" цикл выполняется при условии N1 <= N2 и происходит с единичным возрастанием параметра цикла i от N1 до N2. В случае связки DownTo цикл выполняется при условии N1 >= N2 и происходит с единичным уменьшением параметра цикла i от N1 до N2.
В операторе цикла не разрешается присваивать параметру цикла какое-либо значение.
Пример 1: Найти сумму всех n-значных чисел, кратных k (1 n 4).
Program P1;
Var I,S,K: integer;
Begin
Writeln (‘Введите K’);
Readln (K);
S:=0;
For I:=1 to 9999 do
If I mod K=0 then S:=S+I;
Writeln (‘Результат: ’,S);
Readln;
End.
Пример 2: Вычислить конечную сумму последовательности:
12 + 32 + 52 +. . . + (2*N-1)2; Sn = N*(4*N2-1)/3;
PROGRAM SUM_K
var
a, S, Sn, i, N : word;
Begin
Write ('Введите число членов суммы N=');
Readln (N);
S:= 0;
For i:= 1 to N do
begin
a := Sqr(2*i-1);
S:= S+a;
end;
Sn := N*(4*N*N-1) div 3;
Writeln ('Конечная сумма S=', S:10:2);
Writeln ('Расчет конечной суммы по формуле Sn=', Sn:10:2);
Writeln ('Нажми Enter');
Readln;
End.