Задание 2 к лабораторной работе

Построить график функции у=х² с использованием компонента Chart, в строке состояния показывать текущее время.

План разработки приложения:

1) Со страницы Additional поместить на форму компонент Chart1, со страницы Win 32 - Timer1, StatusBar1, также Button1 – «График», Button2 – «Закрыть»..

2) Дважды щелкнуть на компоненте Chart1 или с помощью команды Edit Chart контекстного меню открыть конструктор графика – Editing Chart 1.

3) Щелкнуть на кнопке Add и выбрать тип графика – Line; отменить флажок 3D.

4) Изменить заголовок графика – назвать Парабола. Для этого перейти на страницу Chart – Titles и ввести заголовок графика.

5) Активизировать кнопку «График» и в заготовку обработчика события поместить следующий текст:

for i:=1 to 5 do

begin

a[i]:=i;b[i]:=a[i]*a[i];

chart1.Series[1].AddXY(a[i],b[i],' ',clred);

end;

6) Активизировать кнопку «Закрыть» и ввести команду.

7) Активизировать Timer1 и в обработчике события поместить следующий текст:

statusbar1.Panels[1].Text:=timetostr(now).

8) Сохранить проект и запустить на выполнение (см. рисунок 6.2).

Рисунок 6.2

6.7Контрольные вопросы

6.7.1 Перечислить компоненты, которые обладают свойством Canvas.

6.7.2 Где на поверхности рисования располагается точка отсчета с координатами (0, 0)?

6.7.3 Какие единицы измерения используются в системе координат поверхности рисования?

6.7.4 Для чего используется функция LineTo()?

6.7.5 Для чего используется функция MoveTo()?

6.7.6 Для чего используется функция TextOut()?

6.7.7 Перечислить основные свойства графических инструментов Pen и Brush.

6.7.8 Как добавить новую серию при использовании компонента Chart?

6.7.9 Каким свойством обеспечивается обращение к определенной серии?

Варианты заданий

По данным таблиц построить диаграммы:

1. Динамика добычи нефти крупнейшими российскими компаниями, млн тонн.

компания
Сургутнефтегаз		33,9	35,2	37,9
Лукойл		57,1	64,2	73,5		78,3	81,4	84,7
Татнефть		25,5	25,5	26,3	23,1	24,6	24,7
Сибнефть		18,2	17,3	16,3	17,2	20,7	26,8	31,5

2. Мировое сельскохозяйственное производство: добавленная стоимость в ценах и по ППС 2000г., млрд долл.

Страна
США				76,5	93,5		128,5		157,5
Германия				21,5				40,5		52,5
Франция	21,5		22,5		23,5	29,5				76,5
Италия	13,5	14,5			18,5	30,5		44,5
СССР		50,5	58,8			81,5	87,5

3. Численность занятых в мировой экономике, млн чел.

Страна
Германия	18,5	23,5		26,5						38,5
Франция				19,5					26,5	27,5
Великобритания	16,5	18,5		20,5	22,5			25,5		26,5
Италия		16,5			18,5				24,5

4. Мировой экспорт, в ценах и по ППС 2000 г., млрд долл.

Страна
Германия	21,5			64,1	36,5	87,5
Франция		28,5	40,5		31,5	62,5
Великобритания	38,5	54,5
Бельгия	12,2	15,5	18,4	16,8	12,3	27,5

5. Промышленное производство: добавленная стоимость, в ценах и по ППС нац. валют 2000г., млрд долл.

Страна
Германия
Франция
Великобритания
СССР