Презентация, доклад по информатике на тему Подпрограммы (10 класс)

Содержание

Повторение материалаКакова структура программы?Обязателен ли заголовок программы?Перечислите разделы описанийКакие служебные слова служат для описания переменных?Какое служебное слово является началом основной части программы?Как заканчивается программа?

Слайд 1Понятие подпрограмм. Подпрограммы в языке Паскаль.

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

Слайд 2Повторение материала
Какова структура программы?
Обязателен ли заголовок программы?
Перечислите разделы описаний
Какие служебные слова

служат для описания переменных?
Какое служебное слово является началом основной части программы?
Как заканчивается программа?
Повторение материалаКакова структура программы?Обязателен ли заголовок программы?Перечислите разделы описанийКакие служебные слова служат для описания переменных?Какое служебное слово

Слайд 3Ключворд

Ключворд

Слайд 4Ключворд - ответ

Ключворд - ответ

Слайд 5Подпрограммой называется участок программы, оформленный определенным образом, к которому можно обращаться

из разных точек программы любое число раз. При этом подпрограмма может решать каждый раз одну и ту же задачу с разными значениями исходных данных.

ГЛАВНАЯ

Подпрограмма

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

Слайд 6Подпрограмма – повторяющая группа операторов, оформленная в виде самостоятельной программной единицы.


ГЛАВНАЯ

Подпрограмма 1

Подпрограмма 2

Подпрограмма 3

Подпрограмма – повторяющая группа операторов, оформленная в виде самостоятельной программной единицы. ГЛАВНАЯПодпрограмма 1Подпрограмма 2Подпрограмма 3

Слайд 7В языке Pascal механизм подпрограмм реализуется в виде ПРОЦЕДУР (PROCEDURE) и

ФУНКЦИЙ (FUNCTION)

Процедура

Функция

Подпрограмма

В языке Pascal механизм подпрограмм реализуется в виде ПРОЦЕДУР (PROCEDURE) и ФУНКЦИЙ (FUNCTION)ПроцедураФункция Подпрограмма

Слайд 8Подпрограммы ПРОЦЕДУРЫ (PROCEDURE)

Подпрограммы ПРОЦЕДУРЫ (PROCEDURE)

Слайд 9Общий вид структуры подпрограммы
Program pr;
Var a,b:integer;
Рrосеdurе (формальные параметры);
VAR (описание

локальных параметров, они могут быть или не быть)
begin
тело процедуры
end;
BEGIN
<имя> (Фактические параметры)
END.
Общий вид структуры подпрограммыProgram pr;Var a,b:integer;Рrосеdurе   (формальные параметры);VAR (описание локальных параметров, они могут быть или

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

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

ПараметрыФактические – располагаются в головном модуле при вызове процедуры.Формальные – описываются в заголовке процедуры, к ним относятся

Слайд 11Пример
Составить программу сложения 2-х чисел

Program pr;

Var a,b,s:real;

Procedure summa(x,y:real;

var s:real);
Begin
S:=x+y;
End;

Begin
Writeln(‘сложить 2 числа’);
Summa(a,b,s);
Writeln(‘s=’,s);
End.

фактические

формальные

параметры-значений, входные, при выходе не сохраняются

параметры-переменные, выходные, при выходе сохраняются

Пример Составить программу сложения 2-х чиселProgram pr;Var  a,b,s:real;Procedure summa(x,y:real;  var s:real);BeginS:=x+y;End;BeginWriteln(‘сложить 2 числа’);Summa(a,b,s);Writeln(‘s=’,s);End.фактическиеформальныепараметры-значений, входные, при

Слайд 12Формальные и фактические параметры должны совпадать
по 3 признакам:

Формальные и фактические параметры должны совпадать по 3 признакам:

Слайд 13
Вывести на экран 5 строк примерно такого текста:

Привет, Катя! Поздравляю тебя

с новым годом!
Привет, Таня! Поздравляю тебя с новым годом!
Привет, Вася! Поздравляю тебя с новым годом!
Привет, Коля! Поздравляю тебя с новым годом!
Привет, Боря! Поздравляю тебя с новым годом!

В программе использовать процедуру для вывода текста.
Вывести на экран 5 строк примерно такого текста:Привет, Катя! Поздравляю тебя с новым годом!Привет, Таня! Поздравляю тебя

Слайд 14program primer;
var s: string;

procedure ok;

begin
writeln (‘Привет’, s,’! Поздравляю тебя с новым годом! ’);
end;

begin
s:=‘Катя’;
ok;
s:=‘Таня’;
ok;
s:=‘Вася’;
ok;
s:=‘Коля’;
ok;
s:=‘Боря’;
ok;
end.
program primer;  var s: string;  procedure ok;    begin

Слайд 15Подпрограммы ФУНКЦИИ (FUNCTION)

Подпрограммы ФУНКЦИИ (FUNCTION)

Слайд 16Функции
function (): ;
begin
;
:=
end;
Функция - подпрограмма,

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

В блоке функции обязательно должен присутствовать оператор <имя_функции>:=<результат>.

Перечень формальных параметров и их типов

Тип результата

!

Для вызова функции её имя со списком параметров может быть в любом месте программы(в выражении, в условиях, в операторе write).

Функции function (): ;begin; := end;Функция - подпрограмма, имеющая единственный результат, записываемый в ячейку памяти, имя которой

Слайд 17Функция поиска максимального из 2-х
program n_20;
var a, b, c,

d, f: integer;

Function max(x,y:integer):integer;
begin
if x>y then max:=x
else max:=y;
end;

begin
readln (a, b, c, d);
f:=max(max(a, b),max(c, d));
writeln ('f=', f);
end.

Описание переменных

Раздел
описания
Под-
программы

Раздел операторов
главной
программы

Функция поиска максимального из 2-х program n_20; var a, b, c, d, f: integer;Function max(x,y:integer):integer;begin if x>y

Слайд 18Найти

, используя подпрограммы нахождения большего и меньшего из двух чисел.

Вспомогательные алгоритмы

Найти

Слайд 19program pr2;
var a, b, c, m: real;
function

max(x, y: real): real;
begin
if x>y then max:=x else max:=y
end;
function min(x, y: real): real;
begin
if x end;
begin
writeln(‘a=’); readln (a);
writeln(‘b=’); readln (b);
writeln(‘c=’); readln (c);
m:=(2*max(a, b)+min(a+3,b))/min(c,a-b);
writeln (‘max= ', m);
end.
program pr2;  var a, b, c, m: real;  function max(x, y: real): real;

Слайд 21Требуется найти разность факториалов F=M!-K!
PROGRAM 4;
VAR F,M,K:1NTEGER;
FUNCTION FACT(N:INTEGER):INTEGER;
VAR P,

I:INTEGER;
BEGIN
P:=1;
FOR I =2 TO N DO
P=P*I;
FACT:=P;
END;

BEGIN
READ(M,K);
F:=FACT(M) - FACT(K);
WRITE (F)
END.

М=4
К=3

Требуется найти разность факториалов F=M!-K!PROGRAM 4;VAR F,M,K:1NTEGER; FUNCTION FACT(N:INTEGER):INTEGER;  VAR P, I:INTEGER; BEGIN P:=1; FOR I

Слайд 23Опорный конспект
Запись вспомогательных алгоритмов в языках программирования осуществляется с помощью подпрограмм.


Подпрограмма, имеющая произвольное количество входных и выходных данных.

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

Процедура

Функция

Подпрограмма

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

Слайд 24В языке Паскаль подпрограммы реализуются в виде
процедур и функций.

В языке Паскаль подпрограммы реализуются в виде процедур и функций.

Слайд 25

Спасибо за внимание

Спасибо за внимание

Слайд 26Практическая
работа

Практическая работа

Слайд 27Подпрограммы ФУНКЦИИ (FUNCTION)

Подпрограммы ФУНКЦИИ (FUNCTION)

Слайд 31Задачи для самостоятельного решения

Задачи для самостоятельного решения

Слайд 32Главная программа
Read(k);
X1:=SYMMA(1,7,K);
X2:=SYMMA(2,10,K);
Z:=X1+X2;
WRITE('Z=',Z,‘ при K=',k)
Подпрограмма функция
Function SYMMA(I,N,K1:INTEGER):INTEGER;
VAR S:INTEGER;
BEGIN
S:=0;
FOR I:=1 TO N

DO
S:=S+(2*K1+I);
SYMMA:=S;
END
Главная программаRead(k);X1:=SYMMA(1,7,K);X2:=SYMMA(2,10,K);Z:=X1+X2;WRITE('Z=',Z,‘ при K=',k)Подпрограмма функцияFunction SYMMA(I,N,K1:INTEGER):INTEGER;VAR S:INTEGER;BEGINS:=0; FOR I:=1 TO N DOS:=S+(2*K1+I); SYMMA:=S;END

Слайд 33PROGRAM S11;
VAR k,X1,X2,Z:INTEGER;

Function
SYMMA(I,N,K1:INTEGER):INTEGER;
VAR S:INTEGER;
BEGIN
S:=0;
FOR I:=1 TO N DO
S:=S+(2*K1+I);


SYMMA:=S;
END;

BEGIN
Read(k);
X1:=SYMMA(1,7,K);
X2:=SYMMA(2,10,K);
Z:=X1+X2;
WRITE('Z=',Z,' при K=',k)
END.
PROGRAM S11; VAR k,X1,X2,Z:INTEGER; FunctionSYMMA(I,N,K1:INTEGER):INTEGER;VAR S:INTEGER;BEGINS:=0; FOR I:=1 TO N DOS:=S+(2*K1+I); SYMMA:=S;END;BEGINRead(k);X1:=SYMMA(1,7,K);X2:=SYMMA(2,10,K);Z:=X1+X2;WRITE('Z=',Z,'  при K=',k)END.

Слайд 34Подпрограммы ПРОЦЕДУРЫ (PROCEDURE)

Подпрограммы ПРОЦЕДУРЫ (PROCEDURE)

Слайд 35Program z2;

Procedure horline (Len: integer; s: char);

Var i: integer;
Begin
For i:=1 to Len do write(s);
Writeln;
end;

begin
Horline (10,'-');
Horline (20,'*');
Horline (30,'#');
End.

Program z2;  Procedure horline (Len: integer; s: char);   Var i: integer;  Begin

Слайд 36Запишите процедуру, выполняющую возведение в целую неотрицательную степень любое число.  
С

помощью данной процедуры вычислите, сколько байтов содержится в килобайте, мегабайте и гигабайте, используя известные соотношения:
1 Кбайт=2^10 байт, 1 Мбайт =2^20 байт, 1 Гбайт =2^30 байт
 
Program asd;
 
{процедура возведения числа Х в целую неотрицательную степень n}
{результатом является параметр-переменная res}
Procedure deg (x: real; n: byte; var res: real);
Var I: integer;
Begin
Res:=1;
For I:=1 to n do res:=res*x;
End;

{Основная программа}
Var kb, mb, gb: real;
Begin
Deg (2, 10, kb);
Deg (2, 20, mb);
Deg (2, 30, gb);
Writeln ('1 Kb = ', kb: 4:0, ' byte');
Writeln ('1 Mb = ', mb: 7:0, ' byte');
Writeln ('1 Gb = ', gb: 10:0, ' byte');
End.

Запишите процедуру, выполняющую возведение в целую неотрицательную степень любое число.  С помощью данной процедуры вычислите, сколько байтов

Слайд 37Оформить в виде процедуры сумму и произведение чисел
1+2+3+…+N

и 1*2*3*…*N

PROGRAM 3;
VAR N:INTEGER;
SUM,PR:REAL;

PROCEDURE SYMMA(K:INTEGER; VAR X,Y:INTEGER);
VAR l:INTEGER;
BEGIN
X:=0; Y:=1;
FOR l:=1 TO K DO
BEGIN
X;=X+I;
Y:=Y*I;
END
END;

BEGIN
READ (N);
SYMMA(N,SUM,PR);
WRITE(SUM=‘,SUM,’PR=‘,PR)
END.

Оформить в виде процедуры сумму и произведение чисел1+2+3+…+N    и     1*2*3*…*N

Слайд 38Процедура вычисления суммы 3-х чисел, если все три числа больше нуля
Процедура

в которой проверяется больше ли нуля число х, и если больше то число возводится в квадрат
Найти наибольшее из 4 чисел, используя процедуру нахождения наибольшего из 2-х чисел.
Оформить в виде процедуры сумму и произведение чисел 1+2+3+…+N и 1*2*3*…*N

Процедура вычисления суммы 3-х чисел, если все три числа больше нуляПроцедура в которой проверяется больше ли нуля

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

Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.


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

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

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

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