Разделы презентаций

Глава 4 Модульное программирование

Содержание

4.1 Процедуры и функцииПроцедуры и функции – самостоятельные фрагменты программы, соответствующим образом оформленные и вызываемые по имени (программные блоки).Программный блок:

Слайды и текст этой презентации

Слайд 1Глава 4 Модульное программирование
МГТУ им. Н.Э. Баумана
Факультет Информатика и системы

управления
Кафедра Компьютерные системы и сети
Лектор: д.т.н., проф.
Иванова

Галина Сергеевна

2016

Глава 4 Модульное программированиеМГТУ им. Н.Э. БауманаФакультет Информатика и системы управленияКафедра Компьютерные системы и сетиЛектор: д.т.н., проф.

Слайд 24.1 Процедуры и функции
Процедуры и функции – самостоятельные фрагменты программы,

соответствующим образом оформленные и вызываемые по имени (программные блоки).


Программный блок:



4.1 Процедуры и функцииПроцедуры и функции – самостоятельные фрагменты программы, соответствующим образом оформленные и вызываемые по имени

Слайд 3Заголовки процедуры и функции
Процедура:




Пример:
Procedure RRR(a:integer;b:real);

Функция:





Пример:
Function F23(a:integer;b:real):boolean;

Заголовки процедуры и функцииПроцедура:Пример:Procedure RRR(a:integer;b:real);Функция:Пример:Function F23(a:integer;b:real):boolean;

Слайд 4Локальные и глобальные переменные. Передача данных в подпрограмму
* - при

отсутствии перекрытия имен

Подпрограмма может получать данные из основной программы:
а) неявно

– с использованием свойства доступности глобальных переменных;
б) явно – через параметры.
Локальные и глобальные переменные. Передача данных в подпрограмму * - при отсутствии перекрытия именПодпрограмма может получать данные

Слайд 5Неявная передача данных в подпрограмму
Неявная передача:
1) приводит к большому

количеству ошибок;
2) жестко связывает подпрограмму и данные.
Обращение к
глобальной переменной
Обращение к
глобальной

переменной

Обращение к
переменной
вызывающей
подпрограммы

Неявная передача данных в подпрограмму Неявная передача:1) приводит к большому количеству ошибок;2) жестко связывает подпрограмму и данные.Обращение

Слайд 6Передача данных через параметры
Список параметров описывается в заголовке:







Параметры, описанные в

заголовке – формальные.
При вызове подпрограммы необходимо определить фактические значения

этих параметров – аргументы (константы и переменные).
Формальные и фактические параметры должны соответствовать по количеству, типу и порядку:
function proc(a:integer; b:single):byte; …

n:= proc(5,2.1);
Передача данных через параметрыСписок параметров описывается в заголовке:Параметры, описанные в заголовке – формальные. При вызове подпрограммы необходимо

Слайд 7Стек
Способы передачи параметров
Основная
программа
Подпро-
грамма
Передача по значению
Копии
параметров
Работа с копиями параметров
Стек
Основная
программа
Подпро-
грамма
Передача по ссылке
Работа

с параметрами через адреса
Адреса параметров
Параметры - значения – в подпрограмму

передаются ко-пии фактических парамет-ров, и никакие изменения этих копий не возвращаются в вызы-вающую программу.

Параметры - переменные – в под-программу передаются адреса фак-тических параметров, соответст-венно все изменения этих парамет-ров в подпрограмме происходят с переменными основной программы.

СтекСпособы передачи параметровОсновнаяпрограммаПодпро-граммаПередача по значениюКопиипараметровРабота с копиями параметровСтекОсновнаяпрограммаПодпро-граммаПередача по ссылкеРабота с параметрами через адресаАдреса параметровПараметры - значения

Слайд 8Способы передачи параметров (2)
Параметры-значения при описании подпрограммы не помечаются, например:

function Beta(x:single; n:byte):integer; .
Параметры-переменные при описании

подпрограммы помечаются служебным словом var, например:
function Alpha(x:single; Var n:byte):integer; .
Ограничение: в качестве фактических значений параметров-переменных нельзя использовать литералы:
Alpha(2.5,5); // ошибка!
правильно: n:=5; Alpha(2.5,n);
Параметры-константы – в подпрограмму, так же как и в случае параметров-переменных, передаются адреса фактических параметров, но при попытке изменить значение параметра компилятор выдает сообщение об ошибке; такие параметры при описании подпрограммы помечаются служебным словом const, например:
function Alpha(const x:single; n:byte); .
Способы передачи параметров (2)Параметры-значения при описании подпрограммы не помечаются, например: function Beta(x:single; n:byte):integer; .

Слайд 9Определение площади четырехугольника
Площадь четырехугольника определяем как сумму площадей треугольников.
Площадь треугольника

определяем по формуле Герона.
В качестве подпрограммы реализуем вычисление площади треугольника,

поскольку эта операция выполняется два раза с разными параметрами.

a

b

c

d

e

Определение площади четырехугольникаПлощадь четырехугольника определяем как сумму площадей треугольников.Площадь треугольника определяем по формуле Герона.В качестве подпрограммы реализуем

Слайд 10Схемы алгоритмов подпрограмм
Формальные параметры
Фактические параметры
Фактическое значение параметра-переменной
Формальный параметр-переменная
в заголовке

на схеме не выделяется
Подпрограмма-функция
Начало алгоритма подпрограммы
Подпрограмма-процедура
Завершение подпрограммы
Вызов
проце-дуры

Схемы алгоритмов подпрограммФормальные параметрыФактические параметрыФактическое значение параметра-переменнойФормальный параметр-переменная в заголовке на схеме не выделяетсяПодпрограмма-функцияНачало алгоритма подпрограммыПодпрограмма-процедураЗавершение подпрограммыВызов

Слайд 11Функция
Program Ex4_1;
{$APPTYPE CONSOLE}
Uses SysUtils;
Var A,B,C,D,E:single;
Function Stf(const X,Y,Z: single): single;
Var

p:single;
begin
p:=(X+Y+Z)/2;
Result:=sqrt(p*(p-X)*(p-Y)*(p-Z)); // или

Stf:=..
end;
Begin
WriteLn('Input a,b,c,d,e:');
ReadLn(A,B,C,D,E);
WriteLn('S=',Stf(A,B,E)+Stf(C,D,E):7:3);
ReadLn;
End.

Локальная переменная

Глобальные
переменные

Тип возвращаемого значения

Вызов
функции из выражения

Вычисление
возвращаемого значения

ФункцияProgram Ex4_1;{$APPTYPE CONSOLE}Uses SysUtils;Var A,B,C,D,E:single;Function Stf(const X,Y,Z: single): single; Var p:single; begin p:=(X+Y+Z)/2;

Слайд 12Процедура
Program Ex4_2;
{$APPTYPE CONSOLE}
uses SysUtils;
Var A,B,C,D,E:real; S1,S2:single;
Procedure Stp(const X,Y,Z:single;var S:single);
Var

p:single;
begin p:=(X+Y+Z)/2;
S:=sqrt(p*(p-X)*(p-Y)*(p-Z));
end;
Begin

WriteLn('Input a,b,c,d,e'); ReadLn(A,B,C,D,E);
Stp(A,B,E,S1);
Stp(C,D,E,S2);
WriteLn('S= ',S1+S2:7:3);
ReadLn;
End.

Возвращаемое
значение

Локальная переменная

Вызов
процедуры

Глобальные
переменные

ПроцедураProgram Ex4_2;{$APPTYPE CONSOLE}uses SysUtils;Var A,B,C,D,E:real; S1,S2:single;Procedure Stp(const X,Y,Z:single;var S:single); Var p:single; begin p:=(X+Y+Z)/2;

Слайд 13Параметры структурных типов
Структурные типы параметров должны быть предварительно объявлены.
Пример.

Функция вычисления суммы элементов массива.

Параметры структурных типов Структурные типы параметров должны быть предварительно объявлены.Пример. Функция вычисления суммы элементов массива.

Слайд 14Программа
Program Ex4_3;
{$APPTYPE CONSOLE}
Uses SysUtils;
Type mas=array[1..10] of integer;
Var a:mas; i,n:integer;

Function sum(b:mas; n:integer):integer;
Var s:integer; i:integer;
Begin s:=0;

for i:=1 to n do s:=s+b[i];
Result:=s;
End;
Begin Write('Input n:');
ReadLn(n);
for i:=1 to n do Read(a[i]);
ReadLn;
WriteLn('Sum =',sum(a,n));
ReadLn;
End.

Предварительное объявление типа параметра

Объявление
параметра структурного типа

Фактический
параметр структурного типа

ПрограммаProgram Ex4_3;{$APPTYPE CONSOLE}Uses SysUtils;Type mas=array[1..10] of integer;Var a:mas; i,n:integer; Function sum(b:mas; n:integer):integer; Var s:integer; i:integer;

Слайд 154.2 Модули
Модуль – это автономно компилируемая коллекция программных ресурсов, предназначенных

для использования другими модулями и программами.
Ресурсы – переменные, константы, описания

типов и подпрограммы.
Все ресурсы, определенные в модуле делят на:
1) внешние – предназначенные для использования другими программами и модулями.
2) внутренние – предназначенные для использования внутри модуля.

Структура модуля:

Unit <Имя модуля>;
Interface
<Интерфейсная секция>
Implementation
<Секция реализации>
[Initialization
<Секция инициализации>
[Finalization
<Секция завершения>]]
End.

Имя модуля должно совпадать с именем файла, в котором он описан.

4.2 МодулиМодуль – это автономно компилируемая коллекция программных ресурсов, предназначенных для использования другими модулями и программами.Ресурсы –

Слайд 16Подключение модуля к программе
Подключение модуля к программе осуществляется по имени:
Uses

, , ...;

Объявление модулей в файле проекта
Если:
к проекту

подключается модуль, который находится в каталоге, не совпадающем с каталогом проекта и не указанном в путях компилятора;
в путях компилятора имеется несколько модулей с одинаковыми именами,
то необходимо указать местонахождение модуля:

Uses Strings in 'C:\Classes\Strings.pas';
Uses Strings in '..\Strings.pas'; {относительно текущего кат.}

Модули, объявленные в файле проекта с указанием in …, считаются частью проекта, т. е. доступны через средства работы с проектом среды.

Использование указания in … в файлах с расширением pas не допустимо.
Подключение модуля к программеПодключение модуля к программе осуществляется по имени:Uses , , ...;Объявление модулей в файле проектаЕсли:к

Слайд 17Модуль с функцией вычисления суммы
Unit Summa; {должен находиться в файле

Summa.pas}
Interface
type mas=array[1..10] of integer;
function sum(b:mas;n:integer):integer;
Implementation
Function

sum;
Var s:integer;i:integer;
begin
s:=0;
for i:=1 to n do s:=s+b[i];
Result:=s;
end;
End.
Модуль с функцией вычисления суммыUnit Summa; {должен находиться в файле Summa.pas}Interface type mas=array[1..10] of integer;

Слайд 18Программа вычисления суммы
Program Ex4_4;
{$APPTYPE CONSOLE}
Uses SysUtils,
Summa in

'Summa.pas';
Var a:mas;
i,n:integer;
Begin
Write('Input n:');

Readln(n);
for i:=1 to n do Read(a[i]);
ReadLn;
WriteLn('Sum =',sum(a,n));
ReadLn;
End.
Программа вычисления суммыProgram Ex4_4;{$APPTYPE CONSOLE}Uses SysUtils, Summa in 'Summa.pas';Var a:mas; i,n:integer;Begin Write('Input

Слайд 19Правило видимости имен ресурсов модуля
Ресурсы модуля перекрываются
ресурсами программы и


ранее указанных модулей.
Для доступа к перекрытым
ресурсам модуля используют
точечную

нотацию:
<Имя модуля>.<Имя ресурса>

Пример:
Unit A;
Interface
Var X:real; …
End.

Unit A;

Unit В;

Program G;
Uses A,B;

Program ex;
Uses A;
Var X:integer;
Begin
X:=10;
A.X:=0.45; …

Правило видимости имен ресурсов модуляРесурсы модуля перекрываются ресурсами программы и ранее указанных модулей.Для доступа к перекрытым ресурсам

Слайд 204.3 Создание универсальных подпрограмм 4.3.1 Открытые массивы и строки
Открытый массив –

конструкция описания типа массива без указания типа индексов. Используется только

при объявлении формальных параметров.

Примеры:
array of single;
array of integer;

Индексы открытого массива всегда начинаются с 0.
Размер можно:
передать через дополнительный параметр;
получить, используя функцию High(<Идентификатор массива>).
4.3 Создание универсальных подпрограмм 4.3.1 Открытые массивы и строкиОткрытый массив – конструкция описания типа массива без указания

Слайд 21Функция с открытым массивом
Unit Summa2;
Interface
Function sum(b:array of integer; n:integer):integer;
Implementation


Function sum;
var s:integer;
i:integer;
begin


s:=0;
for i:=0 to n-1 do s:=s+b[i];
Result:=s;
end;
End.

Размер
массива

Функция с открытым массивомUnit Summa2;Interface Function sum(b:array of integer; n:integer):integer;Implementation Function sum; var s:integer;

Слайд 22Тестирующая программа
Program Ex4_5;
{$APPTYPE CONSOLE}
Uses
SysUtils,
Summa2 in 'Summa2.pas';

Var a:array[1..10] of

integer;
i,n:integer;
Begin
Write('Input n:');
ReadLn(n);

for i:=1 to n do Read(a[i]);
ReadLn;
WriteLn('Sum=',sum(a,n));
ReadLn;
End.
Тестирующая программаProgram Ex4_5;{$APPTYPE CONSOLE}Uses SysUtils, Summa2 in 'Summa2.pas';Var a:array[1..10] of integer; i,n:integer;Begin Write('Input n:');

Слайд 23Открытые строки
Для строк, передаваемых в подпрограмму как параметр-переменная, Паскаль осуществляет

контроль длины строки. Чтобы избежать его необходимо использовать «открытые» строки.
Пример.

Программа, формирующая строку из букв латинского алфавита.

Unit Stroka;
Interface
Procedure Add(var s:openstring);
Implementation
Procedure Add;
Var Ch:char;
begin
Ch:=s[length(s)];
s:=s+chr(succ(Ord(Ch)));
end;
End.
Открытые строкиДля строк, передаваемых в подпрограмму как параметр-переменная, Паскаль осуществляет контроль длины строки. Чтобы избежать его необходимо

Слайд 24Тестирующая программа
program Ex4_6;
{$APPTYPE CONSOLE}
uses SysUtils,
Stroka in 'Stroka.pas';

Var

S:string[26];i:integer;
Begin
s:='A';
for i:=2 to 26

do Add(s);
WriteLn(s);
ReadLn;
end.
Тестирующая программаprogram Ex4_6;{$APPTYPE CONSOLE}uses SysUtils, Stroka in 'Stroka.pas';Var S:string[26];i:integer;Begin s:='A'; for

Слайд 254.3.2 Нетипизированные параметры
Нетипизированные параметры – параметры-переменные, тип которых при объявлении

не указан.
Для приведения нетипизированного параметра к определенному типу можно использовать:

1)

автоопределенное преобразование типов:
Procedure Proc(Var a); ...
...b:= Integer(а)+10; ...

2) наложенное описание переменной определенного типа:
Procedure Proc(Var a); ...
Var r:real absolute a;...
4.3.2 Нетипизированные параметрыНетипизированные параметры – параметры-переменные, тип которых при объявлении не указан.Для приведения нетипизированного параметра к определенному

Слайд 26Суммирование чисел различных типов
Unit Summa4;
Interface
type ttype=(treal,tinteger);
function sum(var x;n:integer;t:ttype):real;
Implementation

function sum;
Var mr:array[1..3000] of real absolute x;

mi:array[1..3000] of integer absolute x;
s:real;i:integer;
begin s:=0;
if t=treal then
for i:=1 to n do s:=s+mr[i]
else for i:=1 to n do s:=s+mi[i];
sum:=s;
end;
End.

Параметр
перечисляемого типа, определяющий тип элементов массива

Описанный массив накладывается по адресу параметра

Суммирование чисел различных типовUnit Summa4;Interface type ttype=(treal,tinteger); function sum(var x;n:integer;t:ttype):real;Implementation function sum; Var mr:array[1..3000] of real

Слайд 27Тестирующая программа
program Ex4_7;
{$APPTYPE CONSOLE}
uses SysUtils,
Summa4 in 'Summa4.pas';
Var

a:array[1..10] of integer;
b:array[1..15] of real;

i,n:integer;
Begin
for i:=1 to 10 do Read(a[i]);
ReadLn;
WriteLn('Sum=',sum(a,10,tinteger):8:1);
for i:=1 to 15 do Read(b[i]);
ReadLn;
WriteLn('Sum=',sum(b,15,treal):8:1);
ReadLn;
end.
Тестирующая программаprogram Ex4_7;{$APPTYPE CONSOLE}uses SysUtils, Summa4 in 'Summa4.pas';Var a:array[1..10] of integer; b:array[1..15]

Слайд 28Универсальные подпрограммы с многомерными массивами
B[i,j]  A[(i-1)*q+j]
m
n
p
q
q
m
q
m
B
A
Развертка

матрицы

Универсальные подпрограммы с многомерными массивамиB[i,j]  A[(i-1)*q+j]mnpqqmqmBAРазвертка матрицы

Слайд 29Транспонирование матрицы
В транспонированной матрице B: b[i,j] =

a[j,i]








Если i=1, то первый номер столбца j=2

i=2  j=3
i=3  j=4
i=4  j=5

Транспонирование матрицыВ транспонированной матрице B: b[i,j] = a[j,i]Если i=1, то первый номер столбца j=2

Слайд 30Универсальная подпрограмма
Unit Matrica;
Interface
procedure Tran(Var x;n,q:integer);
Implementation
procedure Tran;
Var a:array[1..3000]

of real absolute x;
i,j:integer;

t:single;
begin
for i:=1 to n-1 do
for j:= i+1 to n do
begin t:=a[(i-1)*q+j];
a[(i-1)*q+j]:=a[(j-1)*q+i];
a[(j-1)*q+i]:=t;
end;
end;
End.
Универсальная подпрограммаUnit Matrica;Interface procedure Tran(Var x;n,q:integer);Implementation procedure Tran; Var a:array[1..3000] of real absolute x;

Слайд 31Тестирующая программа
Program Ex4_8;
{$APPTYPE CONSOLE}
Uses SysUtils,
Matrica in 'Matrica.pas';
Var

a:array[1..10,1..10] of single; i,j:integer;
Begin WriteLn('Input a(5*5):');

for i:=1 to 5 do
begin for j:=1 to 5 do Read(a[i,j]);
ReadLn;
end;
tran(a,5,10);
WriteLn('Result:');
for i:=1 to 5 do
begin for j:=1 to 5 do Write(a[i,j]:6:2);
WriteLn;
end;
ReadLn;
End.
Тестирующая программаProgram Ex4_8;{$APPTYPE CONSOLE}Uses SysUtils, Matrica in 'Matrica.pas';Var a:array[1..10,1..10] of single; i,j:integer;Begin WriteLn('Input

Слайд 324.3.3 Параметры процедурного типа
Параметры процедурного типа используются для передачи в

подпрограмму имен процедур и функций.
Для объявления процедурного типа используется заголовок

подпрограммы, в котором отсутствует имя:

Type proc=procedure (a,b,c:real;Var d:real);
func=function(x:real):real;

Значениями переменных процедурных типов являются идентификаторы процедур и функций с соответствующими заголовками:

Var f:func;
...
f:=fun1;...
4.3.3 Параметры процедурного типаПараметры процедурного типа используются для передачи в подпрограмму имен процедур и функций.Для объявления процедурного

Слайд 33Табулирование функций
Табулирование – построение таблицы значений:
x y
0.01

5.56
0.02 6.34
0.03 7.56
...
Рассчитыва-ется лишний N+1 элемент
Исключение расчета лишнего элемента за

счет
дополнительной проверки

Расчет значения аргумента требует больше времени

Табулирование функцийТабулирование – построение таблицы значений: x y0.01 5.560.02 6.340.03 7.56...Рассчитыва-ется лишний N+1 элементИсключение расчета

Слайд 34Подпрограмма табулирования функции
Unit SFun;
Interface
Type func=function(x:Single):Single;
Procedure

TabFun(f:func;a,b:Single;n:integer;

var Masf,MasX:array of Single);
Implementation
Procedure TabFun;
Var h,x:Single; i:integer;
Begin
h:=(b-a)/(n-1);
for i:=0 to n-1 do
begin MasX[i]:= a+h*i;
Masf[i]:=f(MasX[i]);
end;
End;
End.
Подпрограмма табулирования функцииUnit SFun; Interface Type func=function(x:Single):Single; Procedure TabFun(f:func;a,b:Single;n:integer;

Слайд 35Тестирующая программа
Program Ex4_9;
{$APPTYPE CONSOLE}
Uses SysUtils,
SFun in

'SFun.pas';
Var masF1,masX1:array[1..10] of Single;
masF2,masX2:array[1..20] of Single;

i:integer;
function F1(x:Single):Single;
Begin
F1:=sin(x);
end;
function F2(x: Single):Single;
Begin
F2:=exp(x)+cos(x);
end;
Тестирующая программаProgram Ex4_9;{$APPTYPE CONSOLE}Uses SysUtils, SFun in 'SFun.pas';Var masF1,masX1:array[1..10] of Single; masF2,masX2:array[1..20] of

Слайд 36Тестирующая программа. Раздел операторов
Begin
TabFun(F1,0,2,10,masF1,masX1);
WriteLn(’Table 1’);

for i:=1 to 10 do

WriteLn(masX1:4:1,masF1[i]:7:1);

WriteLn(’Table 2’);
TabFun(F2,0,2,20,masF2,masX2);
for i:=1 to 20 do
WriteLn(masX2:4:1,masF2[i]:7:1);
ReadLn;
End.

Тестирующая программа. Раздел операторовBegin TabFun(F1,0,2,10,masF1,masX1); WriteLn(’Table 1’); for i:=1 to 10 do

Слайд 374.4 Рекурсия 4.4.1 Основные понятия
Рекурсия – организация вычислений, при которой процедура

или функция обращаются к самим себе.
Различают явную и косвенную рекурсии.

При явной – в теле подпрограммы существует вызов самой себя, при косвенной – вызов осуществляется в подпрограммах, вызываемых из рассматриваемой.
Косвенная рекурсия требует предопределения forward:
procedure B(j:byte); forward;
procedure A(j:byte);
begin ...B(i);...
end;
procedure B;
begin ... A(j);...
end;
4.4 Рекурсия 4.4.1 Основные понятияРекурсия – организация вычислений, при которой процедура или функция обращаются к самим себе.Различают

Слайд 38Вычисление наибольшего общего делителя
Базисное утверждение: если два числа равны, то

их наибольший общий делитель равен этим числам.
Рекурсивное утверждение: наибольший общий

делитель двух чисел равен наибольшему общему делителю их разности и меньшего из чисел.

18

12

a

b

r

18

12

@r

6

12

@r

6

6

@r

6

Фрейм активации

Фрейм активации

Фрейм активации

Вычисление наибольшего общего делителяБазисное утверждение: если два числа равны, то их наибольший общий делитель равен этим числам.Рекурсивное

Слайд 39Вычисление наибольшего общего делителя (2)
Program Ex4_10a;
{$APPTYPE CONSOLE}
Uses SysUtils;
Var a,b,r:integer;
Procedure nod(a,b:integer;

var r:integer);
Begin
if a=b then

r:=a
else if a>b then nod(a-b,b,r)
else nod(a,b-a,r)
End;
Begin WriteLn('Input A,B');
ReadLn(a,b);
nod(a,b,r);
WriteLn(r);
ReadLn;
End.
Вычисление наибольшего общего делителя (2)Program Ex4_10a;{$APPTYPE CONSOLE}Uses SysUtils;Var a,b,r:integer;Procedure nod(a,b:integer; var r:integer); Begin

Слайд 40Вычисление наибольшего общего делителя (3)
18
12
a
b
r
18
12
6
12
6
6
6
Фрейм активации
Фрейм активации
Фрейм активации

Вычисление наибольшего общего делителя (3)1812abr1812612666Фрейм активацииФрейм активацииФрейм активации

Слайд 41Вычисление наибольшего общего делителя (4)
Program Ex4_10b;
{$APPTYPE CONSOLE}
Uses SysUtils;
Var a,b,r:integer;
Function nod(a,b:integer):integer;

begin if a=b then Result:=a

else
if a>b then Result:=nod(a-b,b)
else Result:=nod(a,b-a)
end;
Begin WriteLn('Input A,B');
ReadLn(a,b);
r:=nod(a,b);
WriteLn(r);
ReadLn;
End.
Вычисление наибольшего общего делителя (4)Program Ex4_10b;{$APPTYPE CONSOLE}Uses SysUtils;Var a,b,r:integer;Function nod(a,b:integer):integer; begin if a=b then Result:=a

Слайд 424.4.2 Фрейм активации. Структура рекурсивной подпрограммы
Каждое обращение к рекурсивной подпрограмме

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

активации рекурсивной подпрограммы, называется фреймом активации.
Фрейм активации включает
локальные переменные подпрограммы;
копии параметров-значений;
адреса параметров-переменных и параметров-констант (4 байта);
копию строки результата (для функций типа string);
служебную информацию (12 байт, точный размер этой области зависит от способа передачи параметров).
4.4.2 Фрейм активации. Структура рекурсивной подпрограммыКаждое обращение к рекурсивной подпрограмме вызывает независимую активацию этой подпрограммы. Совокупность

Слайд 43Переворот строки
1) последовательное отсечение начального элемента и добавление его в

конец результирующей строки:







Function reverse1(const st:string):string;
Begin
if length(st)=0 then

Result:=‘‘
else
Result:= reverse1(copy(st,2,length(st)-1))+ st[1];
End;

Фрейм активации: V=4 + 256 + <служебная область> 272.

S=‘ABC’

S=‘ABC’

S=‘BC’

S=‘С’

S=‘’

Result:= ‘’ +S[1]

Result:=‘CB’+S[1]

Result:=‘C’+S[1]

Result:=‘’

Переворот строки1) последовательное отсечение начального элемента и добавление его в конец результирующей строки: Function reverse1(const st:string):string;Begin

Слайд 44Переворот строки (2)
2) последовательная перестановка элементов,
например

ABCDE  EBCDA  EDCBA




Procedure reverse2(var ss:string; n:integer);
Var temp:char;
Begin if n

begin temp:=ss[n];
ss[n]:=ss[length(ss)-n+1];
ss[length(ss)-n+1]:=temp;
reverse2(ss,n+1);
end;
End;

Фрейм активации: V=4+4+1+<служебная область>21
Переворот строки (2)2) последовательная перестановка элементов,напримерABCDE  EBCDA  EDCBA Procedure reverse2(var ss:string; n:integer);Var temp:char;Begin if n

Слайд 45Определение корней уравнения на заданном отрезке. Метод деления пополам
0
a
b
x
f(x)>
x’
f(x’)>
x’’
f(x’’)

(b-a)/2
b’
b’’

Определение корней уравнения на заданном отрезке. Метод деления пополам 0abxf(x)>x’f(x’)>x’’f(x’’)

Слайд 46Определение корней уравнения на заданном отрезке (2)
Базисное утверждение: Если

абсолютная величина функции в середине отрезка не превышает заданного значения

погрешности, то координата середины отрезка и есть корень.
Рекурсивное утверждение: Корень расположен между серединой отрезка и тем концом, значение функции в котором по знаку не совпадает со значением функции в середине отрезка.
Определение корней уравнения на заданном отрезке (2) Базисное утверждение: Если абсолютная величина функции в середине отрезка не

Слайд 47Определение корней уравнения на заданном отрезке (3)
Program Ex4_11;
{$APPTYPE CONSOLE}
Uses SysUtils;
Var

a,b,eps,x:real;
Procedure root(a,b,eps:real;var r:real);
Var f,x:real;
Begin x:=(a+b)/2; f:=x*x-1;

if abs(f)>=eps then
if (a*a-1)*f>0 then root(x,b,eps,r)
else root(a,x,eps,r)
else r:=x;
End;
Begin WriteLn('Input a,b,eps'); ReadLn(a,b,eps);
root(a,b,eps,x);
WriteLn('Root x=',x:9:7); ReadLn;
End.

Если корней на заданном отрезке нет, то произойдет зацикливание!

Определение корней уравнения на заданном отрезке (3)Program Ex4_11;{$APPTYPE CONSOLE}Uses SysUtils;Var a,b,eps,x:real;Procedure root(a,b,eps:real;var r:real); Var f,x:real; Begin

Слайд 48Структура рекурсивной подпрограммы
«Операторы после вызова», выполняются после возврата управления из

рекурсивно вызванной подпрограммы.

Пример. Распечатать положительные элементы массива в порядке следования,

а отрицательные элементы – в обратном порядке. Признак конца массива – 0.
Структура рекурсивной подпрограммы«Операторы после вызова», выполняются после возврата управления из рекурсивно вызванной подпрограммы.Пример. Распечатать положительные элементы массива

Слайд 49Просмотр массива
i=1
i=2
i=3
Дан массив, завершающийся нулем и не содержащий

нулей
в середине, например:

4 -5 8 9 -3 0.
Необходимо напечатать положительные элементы в том порядке, как они встречаются в массиве и отрицательные элементы в обратном порядке:
4 8 9 -3 -5
Просмотр массиваi=1i=2i=3 Дан массив, завершающийся нулем и не содержащий нулей в середине, например:

Слайд 50Просмотр массива. Программа
Program Ex4_12;
{$APPTYPE CONSOLE}
Uses SysUtils;
Type mas=array[1..10] of real;
Var x:mas;

i:integer;
Procedure print(const x:mas;i:integer);
Begin if x[i]=0 then WriteLn('***')

else
begin
if x[i]>0 then WriteLn(i,x[i]);
print(x,i+1);
if x[i]<0 then WriteLn(i,' ', x[i]);
end
End;
Просмотр массива. ПрограммаProgram Ex4_12;{$APPTYPE CONSOLE}Uses SysUtils;Type mas=array[1..10] of real;Var x:mas; i:integer;Procedure print(const x:mas;i:integer); Begin if x[i]=0

Слайд 51Просмотр массива. Программа (2)
Begin
i:=0;
repeat

i:=i+1;
Read(x[i])
until x[i]=0;
print(x,1);


ReadLn;
End.
Просмотр массива. Программа (2)Begin i:=0; repeat i:=i+1; Read(x[i])

Слайд 524.4.3 Древовидная рекурсия. Перестановки
А,B,C  ABC, ACB, BAC, BCA, CAB,

CBA.
Схема формирования перестановок:

4.4.3 Древовидная рекурсия. ПерестановкиА,B,C  ABC, ACB, BAC, BCA, CAB, CBA.Схема формирования перестановок:

Слайд 53Перестановки (2)
Program Ex4_13;
{$APPTYPE CONSOLE}
Uses SysUtils;
Type mas=array[1..3] of char;
Var a:mas='ABC'; Var

pole:mas;
procedure Perest(n,m:integer; Const r:mas;

Var pole:mas);
Var r1:mas; k,j,i:integer;
Begin
if n>m then
begin
for i:=1 to m do Write(pole[i]); WriteLn;
end
else
Перестановки (2)Program Ex4_13;{$APPTYPE CONSOLE}Uses SysUtils;Type mas=array[1..3] of char;Var a:mas='ABC'; Var pole:mas;procedure Perest(n,m:integer; Const r:mas;

Слайд 54Перестановки (3)
for i:=1 to m-n+1 do

begin

pole[n]:=r[i];
k:=1;
for j:=1 to m-n+1 do
if j<>i then
begin r1[k]:=r[j]; k:=k+1; end;
Perest(n+1,m,r1,pole);
end;
End;
Begin
Perest(1,3,a,pole);
ReadLn;
End.

Перестановки (3) for i:=1 to m-n+1 do begin

Похожие презентации

Правописание приставок Правописание приставок 584
Дисциплина Анатомия и физиология человека РАЗДЕЛ ПРОЦЕСС КРОВООБРАЩЕНИЯ И Дисциплина Анатомия и физиология человека РАЗДЕЛ ПРОЦЕСС КРОВООБРАЩЕНИЯ И 173
Цинк(Z N ), хром(C r ) Цинк(Z N ), хром(C r ) 184
Великие битвы Великой Отечественной МБУК ЦМБС Администрации Шатковского Великие битвы Великой Отечественной МБУК ЦМБС Администрации Шатковского 548
Устный счет 1. 0, 023*10= 2. 0,128*1000= 3. 56,214:10= 4. 15,348*100= 5 Устный счет 1. 0, 023*10= 2. 0,128*1000= 3. 56,214:10= 4. 15,348*100= 5 132
Тема 13. Рынки факторов производства Тема 13. Рынки факторов производства 235
ОПІР МАТЕРІАЛІВ Семестр - 2 Лекція - 5 ОПІР МАТЕРІАЛІВ Семестр - 2 Лекція - 5 177
Презентация Признаки подлинности денежных купюр Банка России МДК 05.01 Презентация Признаки подлинности денежных купюр Банка России МДК 05.01 370
Лекция: Хирургическая операция Лекция: Хирургическая операция 464
Оценка стоимости нематериальных активов Оценка стоимости нематериальных активов 222
Анимированная сорбонка Какие животные скрываются за этими сказочными Анимированная сорбонка Какие животные скрываются за этими сказочными 200
Восстановление экономики Прошли года. Деревья умерщвленные С нежданной силой Восстановление экономики Прошли года. Деревья умерщвленные С нежданной силой 150
Греческие колонии на берегах Средиземного и Черного морей Греческие колонии на берегах Средиземного и Черного морей 217
100-лет со дня рождения А.Д. Сахарова 100-лет со дня рождения А.Д. Сахарова 420
Промоушен на март Для новых партнеров Все новые партеры которые зайдут в Промоушен на март Для новых партнеров Все новые партеры которые зайдут в 216
Галилео Галилей Галилео Галилей 502
У кого есть здоровье, У того есть надежда. У кого есть надежда, У того есть У кого есть здоровье, У того есть надежда. У кого есть надежда, У того есть 231
АНТОНИС ВАН ДЕЙК ЯКОБ ЙОРДАНС АНТОНИС ВАН ДЕЙК ЯКОБ ЙОРДАНС 230
Производство пресс-релиза. Основные принципы Производство пресс-релиза. Основные принципы 184
Центр экологического воспитания Жизнь на земле Центр экологического воспитания Жизнь на земле 190

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.

Для правообладателей

Яндекс.Метрика