Proceduri în delphi, delphi, delphi, surse delphi

Proceduri în Delphi

Procedura este un fel de subrutină. De obicei, subrutina este implementată ca o procedură în două cazuri:

  • Când subrutina nu returnează date în programul principal. De exemplu, atrage un grafic în caseta de dialog;
  • când subrutina returnează mai mult decât o valoare programului de apel. De exemplu, o subrutină care rezolvă o ecuație cuadratoare trebuie să returneze două numere fracționare în program cauzând-o, rădăcinile ecuației.

1. Numele procedurii





5. // aici instrucțiunea procedurii

Parametrii procedurii sunt utilizați pentru a transfera date în procedură, precum și pentru a returna datele din procedură către programul care le-a denumit. Ca un exemplu, în exemplul 6.5 prezintă procedeul pentru rezolvarea unei ecuații pătratice (care este, în general scrise ca AX2 + bx + c-O).







Procedura are șase parametri: primele trei sunt destinate transferului la procedura inițială a datelor - coeficienții ecuației; Parametrii x1 și x2 sunt folosiți pentru a returna rezultatul - rădăcinile ecuației; parametrul ok servește pentru a transmite informații că soluția există.

Listing 6.5. Procedura SqRoot

01. // rezolvă ecuația patratică

02. procedura SqRoot (a, b, c. Real; var xl, x2, Real; var ok boolean);

03. / a, ib, c sunt coeficienții ecuației

04. xl, x2 sunt rădăcinile ecuației

Dacă cuvântul var este folosit în descrierea procedurii înainte de numele parametrului, atunci când se solicită procedura, variabila programului principal trebuie să fie în locul parametrului corespunzător. Folosirea expresiei, sau este o eroare și compilatorul în acest caz, se va afișa un mesaj: Tipuri de parametrii actuali și formale var trebuie să fie identice (tipul actual parametru trebuie să se potrivească cu tipul parametrului formal).

Figura 6.6 prezintă programul pentru rezolvarea ecuației patrate în care se utilizează procedura SqRoot. Fereastra programului este prezentată în Fig. 6.2.

Listing 6.6. Soluția ecuației patratice (utilizarea procedurii)







Trimiteți-le prietenilor: