урок 31(теория)

ОПИСАНИЕ ФУНКЦИИ

Функция выглядит почти так же, как и процедура.  Отличительные особенности функции: она имеет только один результат вычисления (но может иметь несколько входных параметров); результат обозначается именем функции и передается в основную программу. Заголовок функции начинается с ключевого слова Function и заканчивается типом возвращаемого данной функцией значения.

Function имя функции (список параметров): тип результата;

раздел описаний

begin

операторы

имя функции:=результат;

end;

Примеры:

Function pl (a:real):real;

Function sum (a,b,c:integer):real;В теле функции обязательно должен быть хотя бы один оператор присваивания, где в левой части стоит имя функции, а в правой — ее значение. Иначе значение функции не будет определено.

Вызывается функция по ее имени с указанием фактических параметров. Вызов функции можно делать непосредственно внутри выражения.

Примеры:

s:=pl(f)+pl(k);

a:=sum(3,6,8)-sum(a,h,k);

Задание 1. Найти площадь фигуры, которая получена вырезанием из квадрата со стороной а квадрата со стороной b (a>b).

Program z1;

Var a,b,s:real;

Function pl (a:real):real;

Begin

Pl:=a*a;

End;

Begin

Readln(a,b);

S:=pl(a)-pl(b);

Writeln(s);

End.

Задание 2. Найти значение выражения:  56 – 310 + 412.

Указание: Описать функцию для нахождения аn, как произведение n множителей, равных а.

Program z2;

Var s:longint;

Function st (a,n:integer):longint;

Var p:longint; i:integer;

Begin

P:=1;

For i:=1 to n do

P:=p*a;

St:=p;

End;

Begin

S:=st(5,6)-st(3,10)+st(4,12);

Writeln(s);

End.

Экспериментальная часть

• • 1.       Дано действительное число x. Вычислить х+х3+х5+х7.

  • 2.       Дано действительное число x. Вычислить х+х3+х5+х7+…+хn, где n – нечетное число.

Задание 3. Найти сумму цифр всех целых чисел от n до m (n,m – целые числа).

Указание: Написать функцию, которая находит сумму цифр одного числа.

Program z2;

Var n,m,I,s:integer;

Function sum(a:integer):integer;

Var s:integer;

Begin

S:=0;

While a<>0 do

Begin

s:=s+a mod 10;

a:=a div 10;

End;

Sum:=s;

End;

Begin

Readln(n,m); s:=0;

For i:=n to m do

S:=s+sum(i);

Writeln(s);

End.

Экспериментальный раздел работы

1. Дан массив целых чисел. Найти число (или несколько) с максимальной суммой цифр.

2. Удалить из массива целых чисел числа, сумма цифр которых меньшеt 9.

Задание 4. Найти сумму всех делителей  чисел от n до m (n, m – натуральные числа).

Указание: Написать функцию, которая находит сумму делителей одного числа.

program z4;

var n,m,i:integer; s1:longint;

function del(a:integer):integer;

var s,i:integer;

begin

s:=1+a;

for i:=2 to a div 2+1 do

if a mod i=0 then s:= s+i ;

del:=s;

end;

begin

readln(n,m);

s1:=0;

for i:=n to m do

s1:=s1+del(i);

writeln(s1);

end.

Экспериментальный раздел работы

1. Найти все совершенные числа на промежутке от n до m (совершенное число равно сумме всех своих делителей, кроме него самого).

2. Дан массив из целых чисел. Необходимо удалить из него все совершенные числа.

ПРИМЕРЫ РЕШЕННЫХ ЗАДАЧ

Задание 1. Составьте программу, которая: запрашивает значение переменной х и шага n; выводит значение функции

 в точках x, x+n, x–n.

Протокол работы программы: