Процедуры в Turbo Pascal Шутилина Л.А. Lshutilina@yandex.ru. - презентация

1 Процедуры в Turbo Pascal Шутилина Л.А.

2 Научиться использовать структурный подход в программировании – разбиение сложной задачи на более простые. Как для этого можно использовать процедуры (подпрограммы). Задачи занятия

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

4 Используя (процедуру) подпрограмму, можно единожды описать действия, требующие многократного использования в теле программы, а затем лишь только вызывать ее. Такой принцип дефрагментации программы называется нисходящим программированием и соответствует принципу структурного программирования, в основу которого и положено понятие подпрограммы. Принцип нисходящего программирования

5 Формат описания процедуры

6 Процедуры Без параметров С параметрами Параметры – переменные значения

7 Р1Р1 Р2Р2 Р21Р21 Процедуры без переменных

8 Составить программу для вычисления площади выпуклого четырехугольника, заданного длинами его сторон и диагональю. ABD C Диагональ делит четырехугольник на два треугольника, к которым применима формула Герона: Пример

9 Комментарии к решению Процедура, с помощью которой мы выполним данную задачу, может быть записана следующим образом: Procedure Ploshad1; begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); end; Связь процедуры Ploshad1 с остальными операторами происходит с помощью переменных a, b, c и s. Переменная p используется только внутри процедуры. Ее можно и описать в этой процедуре.

10 program Prog1; uses CRT; var AB, BC, CD, DA, AC, S1, S2, S, a, b, c, p: real; Procedure Ploshad1; begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); end; begin Clrscr; Writeln('Задайте стороны 4-х угольника ABCD и его диагональ AC'); readln (AB, BC, CD, DA, AC); a:=AB; b:=BC; c:=AC; Ploshad1; S1:=s; a:=DA; b:=AC; c:=CD; Ploshad1; S2:=s; Writeln ('Площадь ABCD= ', S1+S2:8:2); readln; end. Вызов процедур Команды присваивания, задающие значения a, b, c перед каждым вызовом процедуры Команды присваивания для сохранения результатов Процедура, в которой вычисляется периметр и площадь треугольника Программа

11 Переменные, используемые в процедурах и программах Все переменные программы делятся на глобальные и локальные. Глобальные переменные объявляются в разделе описания основной программы. Локальные переменные объявляются в процедурах и функциях. Таким образом локальные переменные «живут» только во время работы подпрограммы

12 1.Составить программу нахождения наибольшего из 4 чисел, используя процедуру нахождения наибольшего из 2-х чисел. 2.Составить программу для вычисления а n (целые числа а>0 и n>0 вводятся с клавиатуры)