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


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

подпрограммы преподавательКлимова Ольга Сергеевна, г. Кулебаки, 2014г. Автономная часть программы, реализующая определенный алгоритм и допускающая обращение к ней из различных частей общей программы, называется подпрограммой. Передача данных из основной программы в подпрограмму (входные данные) и возврат результата выполнения подпрограммы осуществляется с помощью параметров. Параметры - это данные, которые передаются вызываемой подпрограмме и используются последней в качестве входной и (или) выходной информации. Процедура - это независимая часть программы, которую можно вызывать по имени для выполнения определенных действий. Структура процедуры имеет вид : Procedure имя(список формальных параметров); (* раздел описаний *) begin (* раздел операторов *) end; Первая строка описания называется заголовком процедуры, а раздел операторов называется телом процедуры. Функции Заголовок функции состоит из слова Function, за которым указывается имя функции, затем в круглых скобках записывается список формальных параметров, далее ставится двоеточие и указывается тип результата функции. В теле функции обязательно должен быть хотя бы один оператор присваивания, в левой части которого стоит имя функции, а в правой - ее значение. Иначе значение функции не будет определено. Общий вид описания функции:Function Имя[(список формальных параметров)]:Тип результата; описательная часть Begin тело функции, в которой обязательно должно быть присваивание Имя_функции:=значение; End; Формальные параметры - параметры, определенные в заголовке процедуры. Фактические параметры - выражения, задающие конкретные значения при обращении к процедуре. При обращении к процедуре ее формальные параметры замещаются фактическими, переданными из основной программы. Фактические параметры - это параметры, которые передаются процедуре при ее вызове. Количество и тип формальных и фактических параметров должны в точности совпадать. Вычислить значение функции у= Пример 1: начало 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= 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!=1*2*3*…*N1!=12!=1*2=23!=1*2*3=64!=1*2*3*4=24… начало m,n Z=n! Z1=m! Z2=(n-m)! печать С конец начало Р=1 i=1..k P=P*i конец 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. Вычислить значение функции у= , если A=20,B=60,C=45,D=30.(Числовые значения углов даны в градусах).2. Вычислить по формуле С=n!m!. 3. Вычислить значение выражения .

Приложенные файлы

  • ppt file32
    Размер файла: 296 kB Загрузок: 1