ПредишенСледващото

Процедури в Делфи

Процедура - един вид рутина. Обикновено се прилага като рутинна процедура в два случая:

  • когато на подпрограмата се връща към основната програма никакви данни. Например, чертае графика в диалоговия прозорец;
  • когато на подпрограмата се връща в програмата призвание за своята повече от едно значение. Например, една рутинна, че решава квадратно уравнение, се очаква да се върне в наричайки програма на двете си дробни числа - корените на уравнението.

име 1. процедура

5. // Тази процедура инструкции

параметри процедура се използват за предаване на данни към процедурата и да се върне на данни към вика процедурата на своята програма. Като пример, в Пример 6.5 показва процедура за решаване на квадратно уравнение (което обикновено се изписва като ax2 + BX + С = О).

През шестте параметри на процедурата: Първите три са предназначени за предаване на процедурата на първоначалната информация - коефициентите на уравнението; параметри X1 и X2 са използвани за връщане на резултата - корените на уравнението; ОК параметър се използва за предаване на информация, която съществува решение.

Обявата 6.5. процедура SqRoot

01. // решаване квадратно уравнение

процедура 02. SqRoot (а, б, в недвижими ;. Var XL, x2 недвижими; .. Var ОК булев);

03. / а, IB, в - коефициентите на уравнението

04. XL, Х2 - корени

Ако описанието на процедурата пред името на параметъра е думата Var, тогава, когато се обадите на процедура на мястото на съответния параметър трябва да бъде променлива от основната програма. Използването на израза, или това е грешка и компилаторът в този случай ще се появи съобщение: Видове реални и формални параметри Променливата трябва да са еднакви (действителния тип параметър трябва да съвпада с типа на формалния параметър).

Обявата 6.6 показва програмни решения на квадратното уравнение, което се използва процедура SqRoot. Прозорецът на програмата е показана на фиг. 6.2.

Обява 6.6. Разтворът на квадратното уравнение (използването на процедурата)

Подкрепете проекта - споделете линка, благодаря!