Лабораторна робота № 22-23
Створення програми для роботи з двомірними масивами з використанням компонента TStrіngGrіd.
Мета: вивчення прийомів роботи з двомірними масивами з використанням компонента TStrіngGrіd.
Завдання: створити додаток, що виконує наступні функції:
1. Створення таблиці TStrіngGrіd для вводу двомірного масиву.
2. Розрахунок сум елементів у рядках масиву.
3. Розрахунок сум елементів у стовпчиках масиву.
У головному вікні додатка розмістити компонент таблицю (TstrіngGrіd, який розміщається на сторінці Addіtіonal Палітри компонентів).
Розробив інтерфейс, вид якого показаний на рисунку:
Та ввів наступний програмний код:
procedure TForm1.Button1Click(Sender: TObject);
Var
a : array [1..7,1..5] of integer;
i, j, sum : integer;
begin
for i := 1 to StringGrid1.ColCount do
for j := 1 to StringGrid1.RowCount do
begin
a[j,i] := StrToInt(StringGrid1.Cells[i-1,j-1]);
end;
showmessage('Стовбців - '+inttostr(stringgrid1.colcount));
showmessage('Строк - '+inttostr(stringgrid1.rowcount));
for j := 1 to StringGrid1.RowCount do
begin
sum:=0;
for i := 1 to StringGrid1.ColCount do
sum:= sum + a[j,i];
Memo1.Lines.Add('Сума рядка '+ IntToStr(j)+ '='+IntToStr(sum));
end;
for i := 1 to StringGrid1.ColCount do
begin
sum:=0;
for j := 1 to StringGrid1.RowCount do
sum:= sum + a[j,i];
Memo1.Lines.Add('Сума стовпця '+ IntToStr(i)+ '='+IntToStr(sum));
end;
end;
Висновок: В ході лабораторної роботи я вивчив прийоми роботи з двомірними масивами з використанням компонента TStrіngGrіd.
Лабораторна робота № 24
Створення програми з використанням компонента ТImage для побудови графіків.
Мета: вивчення прийомів роботи з компонентом ТImage, оволодіння навичками побудови графіків.
Завдання: створити додаток, що виконує наступні функції:
1. Вивід на екран осей декартової системи координат.
2. Вивід на екран графіка, що складається з відрізків прямої.
Я розробив інтерфейс, вид якого показаний на рисунку:
Та ввів наступний програмний код:
procedure TForm1.Button1Click(Sender: TObject);
var i: Word;
begin
{Малюємо горизонтальну вісь}
Image1.Canvas.MoveTo (25, 100); {Початок осі}
Image1.Canvas.LineTo (25 + 250, 100); {Малюємо до кінця осі}
{Малюємо вертикальну вісь}
Image1.Canvas.MoveTo (25, 125); {Початок осі}
Image1.Canvas.LineTo (25, 125 - 100); {Малюємо до кінця осі}
{Задаємо характеристики олівця}
Image1.Canvas.Pen.Color := clRed; {Червона лінія}
Image1.Canvas.Pen.Width := 2; {Товщина лінії 2 пиксела} {Малюємо графіка}
Image1.Canvas.MoveTo (25, 100); {Початок графіка}
FOR i := 1 TO 250 DO
IF i < 50 THEN {1-й ділянка}
Image1.Canvas.LineTo (i + 25, Image1.Canvas.PenPos.Y)
ELSE IF i < 100 THEN {2-й ділянка}
Image1.Canvas.LineTo (i + 25, Image1.Canvas.PenPos.Y - 1)
ELSE IF i < 150 THEN {3-й ділянка}
Image1.Canvas.LineTo (i + 25, Image1.Canvas.PenPos.Y)
ELSE IF i < 200 THEN {4-й ділянка}
Image1.Canvas.LineTo (i + 25, Image1.Canvas.PenPos.Y + 1)
ELSE {5-й ділянка}
Image1.Canvas.LineTo (i + 25, Image1.Canvas.PenPos.Y);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
Висновок: В ході лабораторної роботи я вивчив прийоми роботи з компонентом ТImage, освоїла навички побудови графіків.