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

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

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

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

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

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

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

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

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

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 перед каждым вызовом процедуры Команды присваивания для сохранения результатов Процедура, в которой вычисляется периметр и площадь треугольника Программа

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

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