Статья «Пользовательские функции в программах»

Тематический учет знаний «Простейшие функции».

Вариант 1

1. Что делает описанная в данной программе функция? Определить результат выполнения программы для следующих значений исходных данных:

а) a = 6; b = 5;

б) a = 5; b = 5.

var a, b: integer;

functuion func (c, d: integer): integer;

begin

if c > d then func:= c + d else func:= c * d

end;

begin

readln(a, b); writeln(func(a, b): 5)

end.

2. Составьте программу с использованием функции, которая будет проверять, является ли число четным. Результатом работы функции является «1», если введенное число четное, и - «0», если число нечетное. В качестве параметра функции передается целое число.

Вариант 2

1. Что делает описанная в данной программе функция? Определить результат выполнения программы для следующих значений исходных данных:

а) x = 4; y = 3;

б) x = 5; y = -2.

var x: real; y: integer;

function s (a: real; b: integer): real;

var r: real; c: integer;

begin r:= 1;

for c:= 1 to abs(b) do r:= r * a;

if b < 0 then r:= 1 / r; s:= r;

end;

begin

readln(x, y); writeln(s(x, y): 4); end.

2. Напишите функцию нахождения модуля числа, не используя стандартную функцию abs. Результатом выполнения функции должно быть число с плавающей точкой (действительное число). В качестве параметров в функцию передается также действительное число.

Вариант 3

1. Что делает описанная в данной программе функция? Определить результат выполнения программы для следующих значений исходных данных:

а) x = 14; y = 31;

б) x = 15; y = -2.

var x,y: real;

function mf (a,b: real): real;

begin

if a > b then mf:= b else mf:= a;

end;

begin

readln(x, y); writeln(mf(x, y): 7:2)

end.

2. Составьте программу с использованием функции, которая будет проверять, является ли число кратным 5. Результатом работы функции является «да», если введенное число делится на 5 без остатка, и - «нет», в противном случае. В качестве параметра функции передается целое число. Функция будет иметь тип STRING.

Вариант 4

1. Что делает описанная в данной программе функция? Определить результат выполнения программы для следующих значений исходных данных:

а) a = 5; b = 5;

б) a = 9; b = 5.

var a, b: integer;

functuion fn (c, d: integer): integer;

begin

if c > d then fn:= sqr(c) else fn:= sqr(d);

end;

begin

readln(a, b); writeln(fn(a, b): 5)

end.

2. Составьте программу с использованием функции, которая будет проверять, является ли число нечетным. Результатом работы функции является «1», если введенное число нечетное, и - «0», если число нечетное. В качестве параметра функции передается целое число.

Вариант 5

1. Что делает описанная в данной программе функция? Определить результат выполнения программы для следующих значений исходных данных:

а) x = 2; y = 3;

б) x = 10; y = -2.

var x, y: integer;

function pr (a, b: integer): integer;

var r,c: integer;

begin r:= 1;

for c:= 1 to b do r:= r * a; s:= r;

end;

begin

readln(x, y); if y < 0 then writeln('Не подходит')

else writeln(pr(x, y): 4); end.

2. Напишите функцию нахождения знака числа. В качестве параметров в функцию передается также действительное число. Результатом работы функции является «+», если введенное число положительное, «-», если число отрицательное, «ноль»- если число равно 0. Функция будет иметь тип STRING.

Вариант 6

1. Что делает описанная в данной программе функция? Определить результат выполнения программы для следующих значений исходных данных:

а) x = 62; y = 31;

б) x = 15; y = -2.

var x,y: real;

function mf (a,b: real): string;

begin

if a mod b = 0 then mf:= 'да' else mf:= 'нет';

end;

begin

readln(x, y);

writeln(mf(x, y): 7:2)

end.

2. Составьте программу с использованием функции, которая будет проверять, являются ли числа взаимообратными (a*b=1). Результатом работы функции является «1», если числа взаимообратные, и - «0», в противном случае. В качестве параметра функции передаются два целых числа.