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”.

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

Задачи.

Задача 1.Практическая работа №4. Линейные алгоритмы.

Решая задачи следует сначала подобрать, сформулировать и решить наиболее подходящую более простую задачу, а алгоритмом её решения воспользоваться как вспомогательным.

1. Найти сторону квадрата, имеющего туже площадь, что и суммарная площадь двух кругов с радиусами R и 2*R.

2. Для равнобедренного треугольника известны длины основания и высоты, опущенной на него. Определить периметр и площадь треугольника.

3. Обменять между собой значения трёх переменных А, В, С так, чтобы переменная А стала равной переменной С, переменная С стала равной переменной В, а переменная В стала равной переменной А.

4. Радиус круга задан координатами двух точек на плоскости. Найти площадь круга и длину окружности, которая его ограничивает.

5. Найти периметр треугольника по заданным координатам его вершин.

6. Задана сторона равностороннего треугольника. Найти его периметр, площадь и высоту.

7. Заданы стороны треугольника а, в, с. Найти высоту треугольника, опущенную на сторону в.

8. Заданы основания и высота равнобедренной трапеции. Определить углы, которые составляют диагональ трапеции с её основаниями.

9. Заданы размеры прямоугольного отверстия а и в. Определить, можно ли просунуть в это отверстие кирпич с размерами х, у и z при условии, что грани кирпича параллельны сторонам отверстия.

10. Известны размеры прямоугольного отверстия. Определить, можно ли просунуть в него шар заданного радиуса.

11. Определить, попадает ли в круг радиусом R с центром в точке (а, в) заданная точка с координатами (х, у). Считать, что расстояние между точками (а,в) и (х,у) не равно R.

12. Заданы два разных года. Определить, есть ли среди них хотя бы один високосный.

13. Начиная с некоторого момента времени, прошло К полных секунд. Определить, сколько полных суток, часов и минут прошло к этому моменту.

14. Определить, количество полных часов и минут, которые прошли от начала суток до того момента, когда часовая стрелка повернулась на угол F градусов.

15. Определить угол между положением минутной стрелки в начале суток и её положением через М минут и S секунд.

16. Заданы катеты. Определить, на сколько увеличиться площадь прямоугольного треугольника, если один катет увеличить в 2 раза, а второй – в 3 раза.

17. Огород имеет форму четырехугольника, у которого две стороны длиной а и с параллельны, а третья сторона длиной в перпендикулярна к ним. Определить, на сколько увеличится длина ограды, если сторону а увеличить втрое, оставив форму огорода неизменной.

18. Труба длиной L изготовлена из материала плотностью r. Толщина стенок трубы равна H, внутренний диаметр трубы D. Определить на сколько уменьшилась масса трубы, когда толщину стенок трубы уменьшили на 5%.

19. Цилиндр описан вокруг правильной шестиугольной призмы, все рёбра которой равны А. Определить, на сколько уменьшится объём описанного цилиндра, если каждое ребро призмы уменьшить на 30%.

20. Телефонные разговоры с тремя населенными пунктами стоят c₁ ,c₂ ,c₃ руб./мин. Продолжительность разговоров t₁ , t₂ , t₃ мин соответственно. Какую сумму начислит компьютер для оплаты за каждый и все переговоры?

Задача 2.Практическая работа №2. Разветвляющиеся комбинированные алгоритмы.

1. Вычислить значение комбинированной функции

Lg(x²+1) при x < 5,

Lg(x) при x >=5

2. Вычислить значение комбинированной функции

y= x^п при х >=2,

x² при х< 2.

3. Вычислить значение комбинированной функции

1

A * x + b

4. Вычислить значение комбинированной функции

Y= sin^2.5(x)-sin(x) – cos(x)

5. Вычислить значение комбинированной функции

Sin(x) при x > 1,

Y = sin(x) – cos(x) при x< -1.

6. Вычислить значение комбинированной функции

X+1 при x > 1,

Y = x² при x < 1.

7. Заданы площади круга и квадрата. Сравнить периметры указанных фигур.

8. Заданы радиус шара и ребро куба. Сравнить площади поверхности этих тел.

9. Найти наибольшее из трёх чисел.

10. Упорядочить по возрастанию три заданных числа.

11. Найти общее сопротивление заданной электрической цепи.

R1 R2

R3

R4 R5

12. Найти общее сопротивление заданной электрической цепи.

R1 R2

R3 R4

R5

13. Заданы коэффициенты а, в, с квадратного уравнения а * х² + в * х + с = 0. Найти значения и количество только разных действительных корней этого уравнения.

14. Заданы коэффициенты а, в, с и m, n, k квадратных уравнений *х²+в*х+с=0 и m*x²+n*x+k=0.Найти общее количество и сумму действительных корней этих квадратных уравнений.

15. Заданы произвольные значения углов А и В (в градусах). Определить тип треугольника по отношению к углам, если треугольник с такими углами может существовать. Для решения задачи воспользоваться значением наибольшего угла.

16. Заданы произвольные значения углов А и В (в градусах). Определить тип треугольника по отношению к сторонам, если треугольник с такими углами может существовать.

17. Найти наибольший по модулю корёнь среди решений линейных уравнений а*х=в и с*х=d.

18. Заданы коэффициенты уравнений двух прямых y=a*x+b и y=c*x+d. Найти координаты точки пересечения этих прямы, если они пересекаются.

19. Имеет ли линейное уравнение а*х=в решение, удовлетворяющее неравенству с*х > d. Найти значение этого решения, если оно существует.

Задача 3.Практическая работа №3. Циклические комбинированные алгоритмы.

1. Бесконечная числовая последовательность задана формулой общего члена

A_I =

Найти сумму N членов этой последовательности.

2. Бесконечная числовая последовательность задана формулой общего члена

Найти произведение первых N членов этой последовательности.

3. Бесконечная числовая последовательность рекуррентного типа задана формулой общего члена A_I =

π при I = 1,

A_i-1* sin(i) при I = 2,3,…

Найти сумму первых N членов этой последовательности.

5. Бесконечная числовая последовательность рекуррентного типа задана формулой общего члена А_i

2. при I =1,

A_I-1 +√I при I = 2,3,…

Найти произведение первых N членов этой последовательности.

6. Найти сумму первых N членов последовательности.

1!, -2!, 3!, -4!, … .

7. Найти сумму первых N членов последовательности.

-Sin(x), Sin(x²), -Sin(x³), Sin(x⁴),…

8. Найти сумму первых N членов последовательности.

9. Найти сумму первых N членов последовательности

- x³, x⁵, -x⁷, x⁹, … .

10. Бесконечная убывающая знакочередующаяся числовая последовательность задана формулой общего члена А_i

A_I =

Найти сумму членов этой последовательности с точностью ε. При исполнении программы проследить, как зависит количество нужных для этого слагаемых от изменения требований по точности.

11. Вычислить с точностью ε значение функции

12. Вычислить с точностью ε значение функции

Найти произведение первых N членов последовательности

1.3, 1.9, 2.5, 3.1, …

13. Найти произведение первых N членов последовательности

1.7, 1.4, 1.1, 0.8, …

14. На заданном отрезке [35,-40] найти произведение всех членов последовательности 35,31,27,23,…

15. На заданном отрезке [-3.5,10] найти произведение всех членов последовательности -3.5,-3.1,-2.7,-2.3,…

16. Найти произведение всех целых чисел, кратных R, на отрезке[M,N].

17. Заданы стартовый член А и разность R двусторонней арифметической прогрессии. Найти произведение всех её членов, попадающих в произвольный отрезок [X, Y].

18. Сравнить число Фибоначчи с порядковым номером М и число с порядковым номером N в последовательности чётных натуральных чисел.

19. Найти наименьшее из значений заданной функции f(x), вычисленных в точках разбиения отрезка [a, b] на N равных частей.

20. Найти наибольшее из значений заданной функции f(x), вычисленных в точках разбиения отрезка [a, b] на N равных частей.

21. Найти наибольший общий делитель трёх заданных натуральных чисел М, N,K.