Функции пользователя
В отличие от процедур, функции могут быть задействованы в основной программе, лишь в каком либо выражении. Также для обращения к функции необходимо знать тип данных результата, возвращаемого ей.
Описание функций начинается со служебного слова Function, вслед за которым идет ее заголовок, а дальше те же блоки, что и у процедуры.
Function (: ): ; var begin . . . :=; end; |
Допустим необходимо написать подпрограмму-функцию степени а^x, где a, х – любые числа. Воспользуемся формулой: аx = ex ln a.
Пример программы с использованием функции:
Program func;
var
f, b, s, t, c, d : real; { глобальные параметры}
{начало описания функции}
Function stp (a, x : real) : real;
var y : real;
begin
y:= exp (x*ln(a)) ;
stp:= y; {присвоение имени функции результата вычислений подпрограммы}
end; {конец описания функции}
begin
d:= stp (2.4, 5); {вычисление степеней разных чисел и переменных }
writeLn (d, stp (5,3.5));
readln (f, b, s, t);
c := stp (f, s)+stp (b, t);
writeln (c);
end.
|
Задание для самостоятельного выполнения на тему "Функции пользователя".
«3»: Напишите функцию, которая находит наибольший общий делитель двух натуральных чисел.
Пример:
Введите два натуральных числа: 7006652 112307574 НОД(7006652,112307574) = 1234 |
Пример:
Введите натуральное число: 1234 Произведение чётных цифр числа 1234 равно 8 |
Пример:
Введите натуральное число: 1234 После переворота: 4321 |
- Фамилия - фамилия автора работы,
- Класс - класс с литерой,
- Группа - номер группы,
-
Уровень - уровень задачи (3, 4 или 5),
Внимание! В тексте комментария указываем фамилию автора (в случае её отсутствия в логине) и уровень сложности задачи.
Ваши помощники:
Учебник: «Информатика (2 часть), 10 класс», К.Ю. Поляков, Е.А. Еремин, параграф 62, 63, стр. 165-171
Презентация: Процедуры_и_функции.ppt, автор К. Ю. Поляков (файл добавлен к сообщению)
Сайт: http://kvodo.ru/pascal-procedures-and-functions.html
Видео: Уроки на языке Pascal. Урок 16. Процедуры и функции.
Файлы:
Процедуры_и_функции.ppt (571.5 КБ)