I. Języki programowania
integer N, i;
real procedurę cosh(x); real x; begin
cosh := (exp(x)+exp(-x))/2; begin
Read Int (N);
for i := 1 step 1 until N do
x := i/N; y := cosh(x);
Print Real (y); end;
dr Artur Bartoszewski - WYKŁAD: Podstawy informatyki; Studia Podyplomowe INFORMATYKA, Edycja