Page 19 - 6263

const a1=2; // локальна константа
begin
testFunction:=sqrt((a1*sin(x)-1)/abs(x+1)); //
функція повертає це значення
//або Result:=
end;

procedure testArray; // приклад роботи з масивом
var i:byte;
begin
SetLength(ar5,high(ar1)); // установити довжину масиву
for i:=0 to high(ar1) do // для кожного значення індексу
масиву ar1
begin // виконувати ці команди
ar5[i]:=ar1[i]+1; // присвоїти значення i-му елементу
масиву ar5
writeln(ar5[i]); // вивести його
end;
end;

procedure testArray2D; // приклад роботи з двовимірним
масивом
var i,j:byte;
begin
for i:=0 to high(ar2) do // для кожного рядка
begin
for j:=0 to high(ar2[0]) do // для кожного стовпчика
begin
ar4[i,j]:=ar2[i,j]+1;
write(ar4[i,j],' '); // вивести елемент в i-рядку та j-
стовпчику
end;
writeln; // вивести кінець рядка масиву
end;

19