Слайд 2Описание функции состоит из заголовка и тела функции
Заголовок:
FUNCTION [(
ф. п.>)] : ;
Пример: Function F(a:real; b:real):real;
Сп. ф. п. –
список формальных параметров. Он необязателен и может отсутствовать. Параметры в списке отделяются друг от друга «;». Несколько однотипных параметров, следующих друг за другом можно объединять в подсписки (разделять «,»).
Пример Function F(a,b:real):real;
Слайд 3Пример описания функции и вызов
Program FuncExample;
Function FindMin(val1,val2:integer):integer;
Begin
if val1 >
val2 then
FindMin := val1
else
FindMin :=
val2;
End;
Var
a,b:integer;
Begin
readln(a);
readln(b);
writeln(FindMin(a,b));
End.
Слайд 4Цикл со счетчиком FOR
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.
Слайд 5Цикл с предусловием WHILE DO
WHILE DO ;
- выражение
логического типа
- любой оператор паскаля
выполняется пока истинно (TRUE)
Program
Summ_of_integer;
Var
i,n,s:integer;
Begin
Write(‘N=‘);
readln(n);
s := 0;
while i begin
s := s+i;
i := i +1;
end;
writeln(‘Сумма = ’, s);
End.
Слайд 6Цикл с постусловием 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.
![Описание функции состоит из заголовка и тела функцииЗаголовок:FUNCTION [()] : ;Пример: Function F(a:real; b:real):real;Сп. ф. п. –](/img/thumbs/c86f26991db4f234ae3a5b3cc0137345-800x.jpg "Функции и циклы Описание функции состоит из заголовка и тела функцииЗаголовок:FUNCTION [()] : ;Пример:")
