Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Функции и процедуры
Содержание
- 1. Функции и процедуры
- 2. Процедурно-ориентированные языки имеют средства структурирования программ.Структурирование предполагает
- 3. Отличие функции от процедурыПроцедура может возвращать значение
- 4. Описание подпрограммыПосле раздела переменных и констант и
- 5. Глобальные переменные объявляются в основной программе. Доступны
- 6. FUNCTION():FUNCTION beta (a, b : real; c
- 7. Вызов процедуры (функции)Указание имени и в круглых скобках списка фактических параметров
- 8. Количество и тип фактических параметров должны совпадать
- 9. Слайд 9
- 10. consta:integer=5; b:integer=7 ;procedure udv (var c:integer;d:integer);
- 11. var а,b:integer;function max(i,j:integer):integer;begin if i>j
- 12. program Factorials; {Ctrl+Break Enter}var n:integer;Function Factorial (k:integer):longint;
- 13. Program sochet; {C =n!/(m!*(n-m)!) }uses CRT;var n,m:integer;
- 14. beginClrscr; writeln('VVedite kol sochet iz n po m'); readln(n,m); a:=Factorial(n); b:=Factorial(m); c:=Factorial(n-m); d:=a div (b*c);writeln('Kol sochet iz',n:2,' po',m:2,' =',d:3);readln;end.Лист2
- 15. const raz=20;varn,m: integer;massiv: array[1..raz,1..raz] of integer;x,y: integer;procedure
- 16. beginwriteln('Vvedite razmer massiva N x M');readln(n,m);for x:=1 to n dofor y:=1 to m domassiv[x,y]:=1;massiv_out(n,m);readln;end.Лист2
- 17. РекурсияПроцедура (функция) может обращаться к другой процедуре(функции).Вызов
- 18. program Factorials;var n:integer;Function Factorial (n:integer):real;
- 19. var k:integer;function Fibon(k:integer):integer;begin if k=0
- 20. Скачать презентанцию
Процедурно-ориентированные языки имеют средства структурирования программ.Структурирование предполагает расчленение программы на относительно самостоятельные фрагментыНисходящее программирование – метод конструирования сложных программ
Слайды и текст этой презентации
Слайд 1Функции и процедуры
Инструмент структурирования программ
Два типа подпрограмм
Описание
Локальные и глобальные переменные
Параметры:
формальные и фактические
Слайд 2Процедурно-ориентированные языки имеют средства структурирования
программ.
Структурирование предполагает расчленение программы на
относительно
самостоятельные фрагменты
Нисходящее программирование – метод конструирования сложных программ
Слайд 3Отличие функции от процедуры
Процедура может возвращать значение обработки (вычислений), если
параметр объявляется с атрибутом VAR как параметр-переменная. Процедура на выходе
может выдавать несколько значений или ни одного.Вызов функции можно использовать в списках параметров оператора WRITE (невозможно для процедуры).
В теле функции результат вычислений обязательно присваивается переменной, имя которой совпадает с именем функции.
Слайд 4Описание подпрограммы
После раздела переменных и констант и
до начала основной
части
Структура
begin
end;
Переменные локальные и глобальные
Структура подпрограммы
такая же как основной программы
Слайд 5Глобальные переменные объявляются в
основной программе. Доступны основной и всем
ее подпрограммам.
Локальные объявлены внутри подпрограммы
и доступны только ей самой.
Одноименные
глобальные и локальные переменные – разные переменные.Обращение к таким переменным в теле подпрограммы трактуется как к локальным (глобальные не доступны).
Слайд 6FUNCTION():
FUNCTION beta (a, b : real; c : integer)
: real
PROCEDURE()
PROCEDURE vsp (x, y: integer; var m, n: real)
Формальные
параметры
Слайд 8Количество и тип фактических параметров
должны совпадать с количеством и
типом
формальных параметров
d:=beta(3, 4, 7.5)
3,4,7.5 фактические параметры (константы), перечисляются через
запятую
Слайд 10const
a:integer=5; b:integer=7 ;
procedure udv (var c:integer;d:integer);
begin
c:=2*c;
d:=2*d;writeln('udvoennoe:',c:5,d:5);
end;
begin
writeln (' Ishodnoe:',a:5,b:5);
udv (a,b);
writeln(' rezultat:',a:5,b:5); readln
end.
Слайд 11var а,b:integer;
function max(i,j:integer):integer;
begin
if i>j then max:=i else
max:=j
end;
begin
writeln('Vvedite a,b');
readln(a,b);writeln('Maxim=',max(a,b));
readln;
end.
Слайд 12program Factorials; {Ctrl+Break Enter}
var n:integer;
Function Factorial (k:integer):longint;
var i: integer; f: longint;
begin f:=1;for i:=1 to k do f:=f*i;
factorial:=f; end;
begin
repeat
writeln('VVedite n'); readln(n);
if n<0 then writeln('Error')
else writeln(n,'!=',factorial(n));
until eof
end.
Слайд 13Program sochet;
{C =n!/(m!*(n-m)!) }
uses CRT;
var n,m:integer; a,b,c,d: longint;
Function Factorial
(k:integer):longint;
var i: integer; f: longint;
beginf:=1;
for I:=1 to k do f:=f*i;
factorial:=f;
end;
Лист1
Слайд 14begin
Clrscr;
writeln('VVedite kol sochet iz n po m'); readln(n,m);
a:=Factorial(n);
b:=Factorial(m);
c:=Factorial(n-m);
d:=a
div (b*c);
writeln('Kol sochet iz',n:2,' po',m:2,' =',d:3);
readln;
end.
Лист2
Слайд 15const raz=20;
var
n,m: integer;
massiv: array[1..raz,1..raz] of integer;
x,y: integer;
procedure massiv_out (l,k: integer);
var i,j: integer;
beginfor i:=1 to l do begin
for j:=1 to k do
write(massiv[i,j]:6);
writeln end;
end;
Лист1
![const raz=20;varn,m: integer;massiv: array[1..raz,1..raz] of integer;x,y: integer;procedure massiv_out (l,k: integer); var](/img/tmb/1/38053/1478cfdbc286f16157918ab73ac7ea77-800x.jpg "Функции и процедуры const raz=20;varn,m: integer;massiv: array[1..raz,1..raz] of integer;x,y: integer;procedure massiv_out (l,k: integer);")
Слайд 16begin
writeln('Vvedite razmer massiva N x M');
readln(n,m);
for x:=1 to n do
for
y:=1 to m do
massiv[x,y]:=1;
massiv_out(n,m);
readln;
end.
Лист2
![beginwriteln('Vvedite razmer massiva N x M');readln(n,m);for x:=1 to n dofor y:=1 to m domassiv[x,y]:=1;massiv_out(n,m);readln;end.Лист2](/img/thumbs/0051e61be0c665948ffdbe011c549022-800x.jpg "Функции и процедуры beginwriteln('Vvedite razmer massiva N x M');readln(n,m);for x:=1 to n dofor y:=1 to m domassiv[x,y]:=1;massiv_out(n,m);readln;end.Лист2")
Слайд 17Рекурсия
Процедура (функция) может обращаться к другой процедуре(функции).
Вызов функции из нее
самой называется рекурсией.
Recurrence – повторение или возвращение
Слайд 18program Factorials;
var n:integer;
Function Factorial (n:integer):real;
begin
if n=0 then factorial:=1
else factorial:=n*factorial(n-1)end;
begin
repeat
writeln('VVedite n'); readln(n);
if n<0 then writeln('Error')
else writeln('n!=',factorial(n));
until eof
end.
Слайд 19var k:integer;
function Fibon(k:integer):integer;
begin
if k=0 then fibon:=0;
if (k=1) or(k=2) then fibon:=1
else fibon:=fibon(k-2)+fibon(k-1)
end;begin
repeat
writeln('Vvedite k'); readln(k);
until k>=0;
writeln(k:4,'number Fibon=',fibon(k));
readln end.
Теги
