Продемонстрируйте созданную форму преподавателю. Закончите работу.

Задача 3.1.Добавьте к контекстному меню команду “Выход” и запрограммируйте ее.

Задача 3.2. Создайте и запрограммируйте еще одно контекстное меню, содержащее команды "Убрать все флажки", "Включить все флажки". Такое меню должно появляться после щелчка правой клавишей мыши в любой точке панели с флажками. Не забудьте "привязать" это меню (PopupMenu2) к панели с флажками (см. пункт 19).

Задача 3.3.Определите количество элементов массива больших 0,5 и меньших 1.

Задача 3.4.Предусмотрите в созданной программе дополнительную возможность для определения максимального и минимального значений функции.

Подсказка. В теле процедуры ButtonlClick, описывающей программный код кнопки “Табулировать”, воспользуйтесь такими командами:

{В начале процедуры:}

max:=360000/(1821.6*x);

• • •

{В цикле:}

ifmax<y thenmax:=y;

• • •

{После цикла:}

Str(max:8:3, strl); Memo1.Lines.Add( 'max=' + str1);

Задача З.5.Поменяйте процедуру команды “Табулировать” так, чтобы для включенного флажка “В массив” вывод результатов выполнялся в одномерный массив.

Задача 3.6. Вставьте в форму объект ChartFX из закладки OCX для построения графика функции. Дважды щелкните на нем и на закладке Appearance из списка Gallery Type выберите пиктограмму нужного графика. На закладке 3DView уберите флажок 3D. На закладке DataValues задайте ожидаемые (ориентировочно) максимальное и минимальное значения функции. Создайте дополнительный пункт меню или вставьте кнопку “Нарисовать график” для получения графика. Запрограммируйте кнопку так, например:

procedureTForml.ButtonlClick(Sender: TObject);

vari, n : integer;

x : real;

s : string;

Begin

x:=0;

n:=10;{n- количество точек}

ChartFX1.0penDataEx(C0D_VALUES,l, n);

fori := 0 ton-1 do

Begin

ChartFXl.Value[i] := 360000/(1821.6*x);

{Формируем легенду оси ОХ}

str(x:5:2,s);

ChartFX 1 .Legend[i]:=s;

x:=x+0.5;

end;

ChartFX l.CloseData(COD_ VALUES);

end;