Зразки програм на мові Pascal

Нехай  i - параметр циклу;

Часто крок зміни змінної, яка управляє циклом, відрізняється від 1 або -1.

Програма табулює  функцію y=1/p e^-x в інтервалі значень [a, b] з кроком Step. Зверніть увагу на те, що перед входом у цикл обчислюється N - верхня межа параметра циклу, а в тілі циклу обчислюється наступне 

Табулювання функції дійсної змінної.

Рrogram Tabulation;

   const Pi=3.14159262;

   var

   a,b,Step,x, y : Real;  

   i, n : Integer;

 Begin

  Write(‘Введіть межі табулювання ‘);  

Readln(a, b);

Write(‘Введіт крок табулювання ‘); Readln(Step);

  n := Round((b - a)/Step);   x := a;  

  for  i := 0 to n do begin

               y := (1/Pi) * exp(-x);

               writeln(‘ x = ‘, x , ’ y = ‘, y);

               x := x + Step;

               end;

еnd.