procedure Equation (a,b,c:real; var x1,x2:real); var d:real; begin d:=sqr(b)-4*a*c; if d>=0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); end; end; function sum (k:integer):real; var i:integer; s:real; begin s:=0; for i:=1 to k do s:=s+1/i; sum:=s; end; Proqramın icraedici bloku
Begin işçi sözü ilə başlayır, sonra isə bir-
birindən nöqtə-vergüllə ayrılan dilin operatorları yazılır. Bölmənin sonu
End işçi
sözü ilə qurtarır.
End işçi sozündən sonra mütləq nöqtə qoyulmalıdır:
Begin ….. End. Məsələn, kvadratın sahəsinin tapılması alqoritmi aşağıdakı kimi yazıla bilər.
Program P_2; Var a, s : Real; Begin Write(’kvadratin terefini daxil edin’); Readln(a); s := a * a; Write(’Kvadratin sahəsi=’, s:10:4); End. Qeyd edək ki, proqramın istənilən yerində izahedici mətnlərdən ibarət olan
şərhlər verilə bilər. Şərhlər vasitəsilə proqramın məqsədi, dəyişənlərin və sabitlərin
mənası, proqramın çətin başa düşülən yerləri izah edilir. Yaxşı şərhlə verilən
proqram həm oxunaqlı olur, həm də orada baş verən səhvlərin tapılması asanlaşır.
Şərhin mətni {} və ya (* *) simvolları arasında yazılır. Şərhləri Turbo Pascal
dilinin kompilyatoru nəzərə almır. Odur ki, onlar proqramın yerinə yetirilməsinə
təsir göstərmirlər.
