10. Сохраните выполненную на данный момент программу в своей папке.

11. Запрограммируйте операцию введения данных в таблицу StringGrid2 так, чтобы в момент введения денежных сумм в первой и второй ячейке в третьей ячейке сразу отображался остаток капитала ( поскольку ежегодно бизнесмен инвестирует весь имеющийся капитал ).

Procedure TForm1. StringGrid2SetEditText(Sender: TObject;ACol, ARow:Longit; const Value: string);

Var I,code:integer; s:string;

Begin

For i: =0 to 1 do val(StringGrid2.Cells[0,i+1],money[i],code);

Money[2]:=capital-money[0]-money[1];

Str(money[2],s);

StringGrid2.Cells[0,3]:=s;

SpeedButton1.Enabled : = True ;

End;

12. Запустите созданную программу и проследите за её работой.

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

13. Создайте ехе-файл программы.

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

Требования: Выполните следующие задания:

На оценку 4 (уд):

Задание №1 Информационную надпись”Прибыль (убыток) на конец года составит” изменить на ”Прибыль на конец года составит” или ”Убыток на конец года составит” в зависимости от того вырос или уменьшился капитал на конец года в сравнении с начальным.

На оценку 5 (уд):

Задание №2 Не дайте возможность игроку ввести отрицательные денежные суммы в таблицу инвестиций.

Вопросы при сдаче лабораторной работы:

1. Каково назначение визуального компонента StringGrid? Что содержат его свойства Align, ColCount, FixedRows?

2. Чем отличаются компоненты RadioGroup и GroupBox ? Как задать список элементов в объекте RadioGroup?

3. Для чего и каким образом выполняется фиксация положения компонентов на форме?

4. Опишите назначение свойсва MaxLength.

Литература:

Глинский Я.М. “TURBO PASCAL i DELPHI”.

Список лабораторных работ