Подпрограмма — автономная часть программы, выполняющая определенный алгоритм и допускающая обращение к ней из различных частей общей программы. В Паскале подпрограмма является частью основной программы, ее описание располагается между разделом var
Слайды и текст этой презентации
Слайд 1Функции в Паскале
Подпрограммы в Паскале
Слайд 2Подпрограмма — автономная часть программы, выполняющая определенный
алгоритм и допускающая обращение к ней из
различных частей общей программы.
В Паскале подпрограмма является частью основной программы, ее описание располагается между разделом var главной программы и ее программным блоком (первым begin). Подпрограмм может быть несколько, их описания располагаются в произвольном порядке одно за другим.
В Паскале различают два вида подпрограмм: процедуры (PROCEDURE) и функции (FUNCTION). Основное различие между ними заключается в том, что процедура получает в результате своей работы любое количество данных, а функция — только одно значение.
Математические выражения их запись в Паскале
Слайд 3Функция
Это последовательность операторов, имеющая имя и результат
данные, предназначенные ей из главной программы, и
затем возвращает полученный результат
Функция называется с помощью указателя. Указатель- это имя функции, после которого в круглых скобках перечисляются аргументы функции.
Слайд 4Функции Pascal можно разделить на три группы:
стандартные
функции (abs(x), sqrt(x), sqr(x), sin(x), cos(x), и
т.д.);
функции программиста (объявлять свою собственную функцию и дальнейшем использовать её так же как и стандартную);
библиотечные функции (стандартные библиотечные модули).
Слайд 5Структура функции
Function ():;
const …;
…..
Блок описания
локальных переменных
var … ;
Begin
имя:= выражение;
End;
В разделе операторов должен находится, хотя бы один оператор, присваивающий имени функции значение.
Слайд 6Объявление переменных
Вычисление площади и периметра прямоугольника в Паскаль
Глобальные переменные — переменные, объявленные в
основной программе, доступны всем операторам программы, а
так же операторам процедур и функций.
Локальные переменные — переменные, объявленные в процедуре или функции. Они доступны только операторам процедур или функций
Слайд 7Пример:
program primer1;
var
r, c,
q : real;
function inper (a: real; b:
begin
;
end;
begin
(основная программа)
end.
Слайд 8Вычисление функции
Вычисление скорости свободного падения тела
nВычисление n-й степени числа
Слайд 9Вычисление функции
program f1;
var n,x: real;
function fun(a:real):real;
var y:real;
begin
y:=sqrt(a)+a;
fun:=y;
end;
begin
write(‘n=’); readln(n);
x:=fun(n);
writeln(‘x=’,x:4:2);
end.
Слайд 10Вычисление скорости свободного падения тела
program f2;
var t,v:
real;
function fun(t:real):real;
begin
fun:=9.8*t;
end;
begin
write(‘t=’); readln(t);
v:=fun(t);
writeln(‘v=’,v:5:3);
end.
Слайд 11Вычисление n-й степени числа
program f2;
var n: integer;
z,x: real;
function step(a:integer;x:real):real;
var y:real;
i:integer;
begin
y:=1;
for i:=1 to a do
begin
y:=y*x;
step:=y;
end;
end;
begin
write(‘степень=’); readln(n);
write(‘x=’); readln(x);
z:=step(n, x);
writeln(‘z=’, z:4:2);
end.
Слайд 12Задания:
Рассчитать значение х=
Написать программу свободного падения. выводящую
таблицу скорости за первые 10 секунд с
шагом 0,5 секунд.
Рассчитать значение х=
Написать программу вычисления площади круга. Для кругов с радиусами 5, 2, 1, 10, 4. Вычисление площади круга оформить в виде функции.
Слайд 13Вычисление площади круга
var a,c:integer;
b,r:real;
function circle(r:real):real;
begin
circle:=pi*r*r;
end;
begin
for c:=1 to
5 do
begin
write(‘vvod razmer ‘,c,’ radiusa:’);
readln(a);
b:=circle(a);
writeln(‘S=’,b:4:2);
end;
end.
Слайд 14Вычисление функции
program f1;
uses Crt;
var n,x,s: real;
i:integer;
function fun(a:real):real;
var y:real;
begin
y:=sqrt(a)+a;
fun:=y;
end;
Слайд 15Вычисление функции
program f1;
uses Crt;
var n,x: real;
i:integer;
function fun(a:real):real;
var y:real;
begin
y:=a+sin(a);
fun:=y;
end;
Слайд 16Составить таблицу скорости свободного падения тела за
первые 10 секунд с шагом 0,5 секунд
program
f2;
var t,v: real; n:integer;
function fun(t:real):real;
begin
fun:=9.8*t;
end;
Слайд 17Домашнее задание
Составить программу для вычисления суммы членов
геометрической прогрессии.
Даны стороны двух треугольников. Найти сумму
их периметров и сумму их площадей.
Даны координаты точек прямоугольника. Определить, является ли он квадратом, ромбом, трапецией или параллелограммом, и вычислить, исходя из этого, площадь фигуры.
Найти все простые числа из заданного интервала натуральных чисел [N1, N2].
Источник: thepresentation.ru
Презентация, доклад Функции в Паскале
Вы можете изучить и скачать доклад-презентацию на тему Функции в Паскале. Презентация на заданную тему содержит 17 слайдов. Для просмотра воспользуйтесь проигрывателем, если материал оказался полезным для Вас — поделитесь им с друзьями с помощью социальных кнопок и добавьте наш сайт презентаций в закладки!
Презентации » Образование » Функции в Паскале
Слайды и текст этой презентации
Слайд 1
Описание слайда:
Функции в Паскале Подпрограммы в Паскале
Слайд 2
Описание слайда:
Подпрограмма — автономная часть программы, выполняющая определенный алгоритм и допускающая обращение к ней из различных частей общей программы. Подпрограмма — автономная часть программы, выполняющая определенный алгоритм и допускающая обращение к ней из различных частей общей программы. В Паскале подпрограмма является частью основной программы, ее описание располагается между разделом var главной программы и ее программным блоком (первым begin). Подпрограмм может быть несколько, их описания располагаются в произвольном порядке одно за другим. В Паскале различают два вида подпрограмм: процедуры (PROCEDURE) и функции (FUNCTION). Основное различие м
Источник: myslide.ru
Лабораторная работа №5. Использование процедур и функций пользователя в программе на Pascal
— получение навыков в написании, отладке и тестировании программ, использующих функции пользователя.
Краткие теоретические сведения
В Pascal кроме встроенных функций разрешено использование функций пользователя[1]. Функция пользователя должна быть описана в разделе описаний того программного блока, который ее вызывает. Формат ее описания следующий:
Формат
Begin
end;
В разделе операторов должен находиться, по крайней мере, один оператор, присваивающий имени функции результат выполнения функции. Если присвоений несколько, то результатом работы функции будет последнее значение, присвоенное имени функции в ее теле.
Обращение к функции выполняется по имени с обязательным указанием фактических параметров. Между формальными и фактическими параметрами должно быть соответствие по порядку следования, по типу и по количеству параметров.
Функцию пользователя рекомендуется использовать в тех случаях, когда некоторый фрагмент программы используется несколько раз и при этом вычисляется только одно значение.
В тех случаях, когда результатом работы некоторого фрагмента программы является несколько значений, рекомендуется использовать процедуру пользователя. Использование процедур пользователя также позволяет реализовать модульный принцип при разработке программ.
Процедура пользователя должна быть описана в разделе описаний того программного блока, который ее вызывает. Формат ее описания следующий:
Формат
Begin
end;
Список формальных параметров — это идентификаторы, посредством которых в процедуру передаются необходимые для ее работы исходные данные, и идентификаторы, содержащие значения результатов.
Идентификаторы, которые описаны в разделе описания процедуры, называются локальными и их действие распространяется только на процедуру. Вызывающей программе недоступны локальные переменные[1,3].
Для обращения к процедуре необходимо записать оператор вызова процедуры:
Формат
Формальные и фактические параметры должны соответствовать по порядку следования, по типу и по количеству[1, 2, 3].
Пример программы на Pascal
Задача 8.
Даны действительное число и целое положительное или отрицательное число . Вычислить . Возведение в степень оформить в виде функции пользователя.
program st8;
Var
a,x:real;
n:integer;
function Sq(s:real;n:integer):real;
Var
i:integer;
r:real;
Begin
if n=0 then Sq:=1 else
Begin
r:=1;
for i:=1 to abs(n) do r:=r*s;
end;
end;
Begin
read(a,n);
x:=Sq(a,n);
writeln(‘x=’,x);
End.
Задача 9.
Вычислить сумму значений элементов одномерного массива размерности . Вычисление суммы значений элементов массива оформить в виде процедуры пользователя.
program st9;
const n=5;
Type
mas=array[1..n] of integer;
Var
i,s:integer;
x:mas;
procedure Stpr1(a:mas;Var s:integer);
Var
i:integer;
Begin
s:=0;
for i:=1 to n do s:=s+a[i];
end;
Begin
for i:=1 to n do read(x[i]);;
Stpr1(x,s);
writeln(‘s=’,s);
End.
5.3. Содержание задания
Задание 5
Вычислить значения функции для заданных аргументов (см. приложение Б, табл. Б.1). Для решения задачи использовать функцию пользователя. Необходимые для вычисления данные указываются в качестве параметров-значений в списке формальных параметров функции пользователя.
Задание 6
Написать программу для решения задачи (см. приложение В табл. В.1), используя процедуру пользователя. Формальные параметры-значения использовать для ввода необходимых исходных данных, а формальные параметры-переменные – для вывода результатов из процедуры. В процедуре не использовать операторы ввода-вывода.
Содержание отчета
— блок-схема алгоритма решения задачи;
— результаты ручного и машинного счета;
5.5. Контрольные вопросы
1. Объясните назначение и правила использования функции пользователя. Как производится обращение к функции пользователя в программе.
2. Объясните назначение и правила использования процедуры пользователя. Как производится обращение к процедуре пользователя в программе.
- Объясните назначение формальных и фактических параметров.
4. Объясните, как производится ввод данных и вывод результатов при использовании функции и процедуры пользователя.
- Поясните различие между глобальными и локальными переменными.
Библиографический список
1. Немнюгин С.А. Turbo-Pascal. Программирование на языке высокого уровня: учеб. для вузов / С.А. Немнюгин. — СПб.: Питер, 2008. — 544с.
2. Пермеинов О.Н. Программирование на языке Pascal / О.Н. Пермеинов. — М.: Радио и связь, 1998. — 224с.
3. Васильев П.П. Турбо Паскаль в примерах и задачах / П.П. Васильев. — М.: Финансы и статистика, 2003. — 496с.
ПРИЛОЖЕНИЕ А
Таблица А.1 – Варианты к заданию 1
| Вариант | Содержание задания | Исходные данные |
| z=0.160 |
Продолжение таблицы А.1
ПРИЛОЖЕНИЕ Б
Таблица Б.1 – Варианты заданий для решения задания 2
| Вариант | Функция | Исходные данные |
| x=0.11, y= -8.251, z=0.765, x=0.92 |
Продолжение таблицы Б.1
Продолжение таблицы Б.1
Продолжение таблицы Б.1
ПРИЛОЖЕНИЕ В
Таблица В.1 – Варианты заданий для решения задания 3
| Вариант | Функция |
Продолжение таблицы В.1
ПРИЛОЖЕНИЕ Г
Таблица Г.1 – Варианты заданий для решения задания 4
| Вариант | Содержание задачи |
| Задан одномерный массив размерности . Среди положительных элементов в массиве подсчитать количество элементов, которые удовлетворяют условию: «не больших заданного числа ». | |
| Задан одномерный массив размерности . Подсчитать количество элементов в массиве , не больших заданного числа . | |
| Задан одномерный массив размерности . Вывести на печать номера элементов массива , равных заданному числу . | |
| Задан одномерный массив размерности . Определить количество элементов в массиве , не меньших заданного числа . | |
| Задан одномерный массив размерности . Вычислить сумму элементов в массиве , больших заданного числа . | |
| Задан одномерный массив размерности . Вычислить сумму элементов в массиве , больших заданного числа , но меньших заданного числа . |
Продолжение таблицы Г.1
| Задан одномерный массив размерности . Вычислить произведение последних пяти элементов в массиве не равных нулю. |
| Задан одномерный массив размерности . Вычислить произведение отрицательных элементов массива не равных . |
| Задан одномерный массив размерности . Определить количество отрицательных элементов в массиве . |
| Задан одномерный массив размерности . Вычислить сумму значений элементов массива больших пяти. |
| Задан одномерный массив размерности . Отрицательным элементам массива присвоить значение, равное единице, а положительные элементы увеличить в 10 раз. |
| Задан одномерный массив размерности . Отрицательные элементы возвести в квадрат, а положительные значения элементов массива удвоить. |
| Задан одномерный массив размерности . Вычислить сумму положительных элементов в массиве и модулей отрицательных элементов. |
Продолжение таблицы Г.1
| Задан одномерный массив размерности . Вычислить сумму модулей отрицательных элементов в массиве . |
| Задан одномерный массив размерности . Изменить знаки элементов массива на противоположные. |
| Задан одномерный массив размерности . Значение положительных элементов массива увеличить на величину . |
| Задан одномерный массив размерности . Вывести на печать номера элементов массива , которые больше четырех. |
| Задан одномерный массив размерности . Вычислить сумму элементов в массиве , значения которых меньше трех. |
| Задан одномерный массив размерности . Вычислить произведение элементов в массиве не равных нулю и больших шести. |
| Задан одномерный массив размерности . Найти номер элемента массива с максимальным значением. |
| Задан одномерный массив размерности . Вычислить произведение четных значений элементов не равных 8 в массиве . |
Продолжение таблицы Г.1
| Задан одномерный массив размерности . Вычислить модуль разности суммы и произведения значений элементов не равных нулю. |
| Задан одномерный массив размерности . Вычислить среднее арифметическое значений элементов массива меньших пяти. |
| Задан одномерный массив размерности . Вычислить сумму нечетных значений элементов массива . |
| Задан одномерный массив размерности . Вывести на печать номера элементов массива с нечетными значениями. |
| Задан одномерный массив размерности . Найти минимальное значение среди отрицательных значений элементов массива . |
| Задан одномерный массив размерности . Значения элементов массива , большие их среднего арифметического, заменить нулем. |
ПРИЛОЖЕНИЕ Д
Таблица Д.1 – Варианты заданий для самостоятельной работы
| Вариант | Содержание задачи |
| Дано натуральное число . Сколько цифр в числе . Чему равна сумма его цифр. | |
| Дано натуральное число . Переставить первую и последнюю цифры числа. . Приписать по единице в начало и в конец записи числа . | |
| Даны положительные действительные числа . В последовательности образованной по закону , найти первый член , для которого выполняется неравенство . | |
| Дано целое . Вычислить | |
| Дано натуральное число . Получить все его натуральные делители. |
Продолжение таблицы Д.1
| Получить сумму положительных элементов последовательности . |
| Дано натуральные числа . Получить все их общие делители. |
| Дано натуральные числа . Получить все их общие кратные меньшие . |
| Даны натуральные числа . Получить . |
| Дано натуральное число . Вычислить произведение первых сомножителей |
| Дано натуральное число . Получить все трехзначные натуральные числа, сумма цифр которых равна . |
| Получить все четырехзначные натуральные числа, в записи которых нет двух одинаковых цифр. |
| Выяснить, найдутся ли среди точек с координатами четыре таких, которые являются вершинами квадрата. |
| Даны действительные положительные числа . Выяснить, можно ли построить четырехугольник с такими длинами сторон |
Продолжение таблицы Д.1
| Даны действительные числа , которые рассматриваются как координаты 15 точек на плоскости. Выяснить, верно ли, что для каждой из этих пятнадцати точек найдется другая, такая, что все оставшиеся тринадцать точек лежат по одну сторону от прямой, проходящей через эти две точки. |
| Известно, что точки с координатами являются тремя вершинами некоторого прямоугольника. Найти координаты четвертой вершины. |
| Дано символов. Преобразовать последовательность символов, заменив в ней все восклицательные знаки точками, а каждую точку многоточием (т. е. тремя точками). |
| Даны координаты 15 точек на плоскости с координатами . Верно ли, что замкнутая ломанная не имеет самопересечений? |
| Дано символов. Подсчитать сколько раз среди данных символов встречается символ ‘+’ и символ ‘*’; общее число вхождений цифровых символов и символов +, —, * до символа с номером . |
Заказ №______от «_____»______________ 2011. Тираж__________экз.
⇐ Предыдущая Стр 5 из 5
Не забудь поделиться страницей с друзьями:
Источник: infopedia.su