procedure TForm1 ButtonlClick Sender TObject var array -20 20 of real

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
procedure TForm1.ButtonlClick(Sender: TObject);
var
a:array [-20;20] of real; // массив для хранения значений функции
b, c: integer; // b - значения x, c - переменная, для создания таблицы
begin
for b := -20 to 20 do begin // для значений x от -20 до 20...
if abs(b) < 10 then // .. Если |x|<10 ...
a[b] = sqrt(3*sqr(b) + 8); // ... Считаем значение функции
end;
StringGtid1.Cells[0,0]:='x='; // Заголовок 1 столбца
StringGtid1.Cells[1,0]:='y='; // Заголовок 2 столбца
for b := -9 to 9 do begin // для всех значений x от -9 до 9..
c:= b + 10; // Генерируем номер следующего столбца
StringGrid1.Cells[1,c]:=floattostr(b); // и создаем его. добавляя x
StringGrid1.Cells[1,c]:=floattostr(a[b]); // и y
end;
end;