Функции и процедуры.

     Функции и процедуры – это подпрограммы (набор операторов внутри самой программы) для выполнения различных задач. Функции отличаются от процедур тем, что в результате их выполнения обязательно выдаётся результат.

     Например, Read – это процедура, а ReadKey – это функция:

Read(char1);

char1 := ReadKey;

 

    

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

 

Текст программы:

 {Пример программы с применением функции -> проект «Begin … end!» (www.tolks.narod.ru)}

Program Program6;

Uses crt;

var

      x1, y1: real;

 

{Функция возведения числа x в степень y}

function power (const x, y: real): extended;

begin       {Начало текста функции}

 power := exp(y*ln(x));;

end;         {Конец текста функции}

 

{Основная программа}

begin

 {Очистка экрана}

     clrscr;

 

 {Ввод значений}

     Writeln ('Введите числа x1 и y1: ');

     Readln(x1, y1);    

 

{Использование процедуры и вывод результатов}

     Writeln (‘Результат возведения числа x1 в степень y1’, power (x1, y1):8:3);   

     Writeln (‘Результат возведения числа y1 в степень x1’, power (y1, x1):8:3);    

 

{Ожидание нажатие клавиши перед закрытием программы – для просмотра результатов}

Writeln(' Нажмите любую клавишу для завершения …‘);

Readkey;

end.

 

Примечания:

• В тексте функции результат её работы обозначается её именем (power:=…). Тип этой переменной соответствует типу функции (function power (const x, y: real): extended;), то есть  тип переменной power – extended.

• Функции и процедуры очень удобны при выполнении в программе одинаковых действий (например, если часто требуется возводить числа в степени).

 

Попробуйте поэкспериментировать с текстом программы для лучшего понимания:

• Напишите функцию, например, для вычисления синуса.
• Добавьте свою функцию в программу (получится 2 функции).

• Попробуйте изменить функцию на процедуру по образцу: procedure power (const x, y: real; var result: extended). Используйте её в программе.

 

Посмотрите на изменения в выполнении программы после каждого изменения её текста.

'Версия для просмотра'

 

Напечатано с сайта «Begin … end!» (www.tolks.narod.ru).

 

{Примечания:

1. Если Вы не смогли найти ответы на вопросы о программе, то Вы можете связаться с авторами. Для этого посетите страничку "Обратная связь".                                

                                                                              

2. Размещать приведённые материалы с сайта проекта "Begin ... end!" (www.tolks.narod.ru) на других сайтах (как полностью, так и частично) можно только с согласия авторов проекта и только с обязательным указанием адреса проекта "Begin ... end!" (www.tolks.narod.ru).}