Презентация по информатике "Подпрограммы"

подпрограммы преподаватель Климова Ольга Сергеевна, г. Кулебаки, 2014г.

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

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

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

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

Структура процедуры имеет вид : Procedure имя(список формальных параметров); (* раздел описаний *) begin (* раздел операторов *) end; Первая строка описания называется заголовком процедуры, а раздел операторов называется телом процедуры.

Функции    Заголовок функции состоит из слова Function, за  которым указывается имя функции, затем в круглых  скобках записывается список формальных  параметров, далее ставится двоеточие и указывается  тип результата функции.     В теле функции  обязательно должен быть хотя  бы один оператор присваивания, в левой части  которого стоит имя функции, а в правой ­ ее  значение. Иначе значение функции не будет  определено.

Общий  вид описания функции: Function Имя[(список формальных  параметров)]:Тип результата;   описательная часть             Begin   тело функции, в которой обязательно                     должно быть         присваивание   Имя_функции:=значение;                 End;

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

Количество и тип формальных и  фактических параметров должны  в точности совпадать.

Пример 1: Вычислить значение функции у=   3 B sin A cos   cos sin C D 3 начало a,b,с,d X=A*3.14/180,Y=B*3.14/180 Z1=W X=C*3.14/180,Y=D*3.14/180 Z2= W Z=Z1/Z2 печать Z конец начало Х,У      W=cos(x)+sin(y)+3 конец

program primer1; var  a,b,c,d,z,z1,z2,x,y:real;      procedure w(x,y:real; var w:real);         begin            w:=cos(x)+sin(y)+3;         end; begin  writeln(‘задайте a,b,c,d’);  readln(a,b,c,d);  x:=a*3.14/180;  y:=b*3.14/180;  w(x,y,z1);  x:=c*3.14/180;  y:=d*3.14/180;  w(x,y,z2);  z2:=sqrt(z2);  z:=z1/z2;  write(‘z=‘,z:4:2);  readln; end.

Тестовый пример A=20 B=60 C=45 D=30 Z=2.19

Пример 2: Вычислить С= (! n !  mnm )! Факториал. N!=1*2*3*…*N 1!=1 2!=1*2=2 3!=1*2*3=6 4!=1*2*3*4=24 …

начало   Р=1 i=1..k P=P*i конец начало m,n Z=n!   Z1=m! Z2=(n­m)! С  Z 2*1 Z Z печать С конец

program primer2; var     z,z1,z2,c:real;    k,m,n:integer; function factorial(k:integer):integer;   var   i,p:integer;     begin        p:=1;        for i:=1 to k do          p:=p*i;          factorial:=p;     end; begin  writeln(‘задайте m’);  readln(m);  writeln(‘задайте n’);  readln(n);  z:=factorial(n);  z1:=factorial(m);  z2:=factorial(n­m);  c:=z/(z1*z2);  write(‘c=‘,c:4:2);  readln; end.

Тестовый пример m=2 n=5 c=10

Пример 3: Вычислить значение выражения: Вычислить значение  выражения:

program primer3; var x,y:real;     function  lg(x:real) : real;        begin         lg:=ln(x)/ln(10);        end;             function  tg (x: real) : real;                begin                  tg:=sin(x)/cos(x);               end; BEGIN  writeln('Введите х');  readln(x);  y:=lg(sqr(tg(x))+sqr(cos(x)))/sqr(tg(x+sqr(lg(x))) +sqr(sin(x)));   writeln('y=',y:5:4);   readln; END.

Тестовый пример Введите х 3.4 у= 0.0045

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

1. Вычислить значение функции у= , если Практические задания  sin A cos B  D C (sin cos A=20,B=60,C=45,D=30. 1 2)1   (Числовые значения углов даны в градусах). 2. Вычислить по формуле С=n!m!. 3. Вычислить значение выражения ) .  sin x  2 x 3 ( 4 tg log x