Особенности работы с массивами рассмотрим на конкретном примере.
Пример 11.1. Для заданного массива вещественных чисел, состоящего из 10 элементов,
{-3,7 -5,6 4,6 2,1 3,1 -2,4 5,6 5,4 -6,7 3,5}
вычислить по формуле: , где а = 0,25?10-3.
Текст программы
Program pm;
Uses CRT;
Const n=10;
Type vec=array[1..n] of real;
Var
x, y :vec;
a :real;
i :integer;
Begin
clrscr;
Writeln('Введите массив х:');
For i:=1 to n do Read(x[i]); Readln;
For i:=1 to n do y[i]:=2*exp(a*x[i])+ sqrt(abs(x[i]/2));
Writeln('Результат:':20);
Writeln(' y[i]=’);
For i:=1 to n do Writeln(y[i]:10);
End.
Итак, мы видим, что для работы с массивом, мы должны его объявить:
Type vec=array[1..n] of real;
В данной строке мы объявляем массив, как тип, а потом объявляем как 2 переменных:
x, y :vec;
После этого мы вводим в массив x данные:
For i:=1 to n do Read(x[i]); Readln;
А в массив у мы вводим полученные данные из формулы.
For i:=1 to n do y[i]:=2*exp(a*x[i])+ sqrt(abs(x[i]/2));
А потом в цикле выводим на экран полученные данные:
For i:=1 to n do Writeln(y[i]:10);
:10 - говорит о том, что мы выводим не все цифры после запятой, а только 10, потому что тип у нас дробный.
Вот так осуществляется работа с массивами на языке Турбо Паскаль.