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

Содержание

1. Функции и циклы
2. Описание функции состоит из заголовка и тела
3. Пример описания функции и вызовProgram FuncExample;Function FindMin(val1,val2:integer):integer;Begin
4. Цикл со счетчиком FORFOR := TO DO
5. Цикл с предусловием WHILE DOWHILE DO ;
6. Цикл с постусловием REPEAT UNTILREPEAT UNTIL ;
7. Задачи
8. Скачать презентанцию

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

Слайды и текст этой презентации

Слайд 1Функции и циклы

Слайд 2Описание функции состоит из заголовка и тела функции
Заголовок:
FUNCTION [(

ф. п.>)] : ;
Пример: Function F(a:real; b:real):real;
Сп. ф. п. –

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

Описание функции состоит из заголовка и тела функцииЗаголовок:FUNCTION [()] : ;Пример: Function F(a:real; 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.

Пример описания функции и вызовProgram FuncExample;Function FindMin(val1,val2:integer):integer;Begin if val1 > val2 then FindMin := val1 else

Слайд 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.

Цикл с предусловием WHILE DOWHILE DO ; - выражение логического типа- любой оператор паскаля выполняется пока истинно

Слайд 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.