Функции и циклы Описание функции состоит из

Функции и циклы

Описание функции состоит из заголовка и тела функции Заголовок: FUNCTION <имя> [(<сп. ф. п. >)] : <тип>; Пример: Function F(a: real; b: real): real; Сп. ф. п. – список формальных параметров. Он необязателен и может отсутствовать. Параметры в списке отделяются друг от друга «; » . Несколько однотипных параметров, следующих друг за другом можно объединять в подсписки (разделять «, » ). Пример Function F(a, b: real): real;

Пример описания функции и вызов Program Func. Example; Function Find. Min(val 1, val 2: integer): integer; Begin if val 1 > val 2 then Find. Min : = val 1 else Find. Min : = val 2; End; Var a, b: integer; Begin readln(a); readln(b); writeln(Find. Min(a, b)); End.

Цикл со счетчиком FOR <пар_цикла> : = <нач_знач> TO <конеч_знач> DO <оператор>; <пар_цикла> - переменная порядкового типа <нач_знач> - начальное значение – выражение того же типа <конеч_знач> - конечное значение - выражение того же типа <оператор> - проивольный оператор Program Summ_of_integer; Var I, n, s: integer; Begin Write(‘N=‘); readln(n); s : = 0; for i: =1 to n do s : = s+i; writeln(‘Сумма = ’, s); End.

Цикл с предусловием WHILE DO WHILE <условие> DO <оператор>; <условие> - выражение логического типа <оператор>- любой оператор паскаля <Оператор> выполняется пока <условие> истинно (TRUE) Program Summ_of_integer; Var i, n, s: integer; Begin Write(‘N=‘); readln(n); s : = 0; while i

Цикл с постусловием REPEAT UNTIL REPEAT <тело цикла> UNTIL <условие>; <тело цикла> - последовательность операторов <условие> - выражение логического типа <тело цикла> выполняется пока <условие> есть FALSE Program Summ_of_integer; Var i, n, s: integer; Begin Write(‘N=‘); readln(n); s : = 0; repeat s : = s+i; i : = i +1; until i>10; writeln(‘Сумма = ’, s); End.

Задачи •