Курсовая работа: Разработка приложения для Windows, представляющего собой выполнение операции над матрицами
Нижеприводитсяокно Form2.
Окно Form2
компонент Form2
Свойства
Caption Справка
1-компонент Label1
object Label1: TLabel
Left = 24
Top = 48
Width = 582
Height = 20
Caption =
«Программа разработана в качестве курсовой работы по программированию»
Font. Charset = DEFAULT_CHARSET
Font. Color = clWindowText
Font. Height = -16
Font. Name = 'MS Sans Serif'
Font. Style = []
ParentFont = False
Написание программы
Для решения поставленной задачи в программе был объявлен двумерный массив(матрица)
x:array [0.. 10,0..10] of integer;
Доступ к элементам массива осуществляется с помощью индексов, поэтому были объявлены целочисленные простые переменные.
k, s, c, i, j, n:integer;
В программе используются циклические конструкции. Кроме вложенных циклов с параметром программа содержит сложную конструкцию Условие [Цикл[Условие]].
// процедура формирования матрицы x
procedureTForm1. Label3Click(Sender: TObject);
begin
if edit1. Text='' then showmessage ('введите размер матрицы') else
randomize;
n:=strtoint (edit1. Text);
stringgrid1. Visible:=true;
n:=n-1;
StringGrid1. Height:=StringGrid1. DefaultRowHeight* (strtoint (edit1.text)+1);
StringGrid1. Width:=StringGrid1. DefaultColWidth* (strtoint (edit1.text)+1);
StringGrid1. ColCount:=strtoint (edit1.text);
StringGrid1. RowCount:=strtoint (edit1.text);
for i:=0 to n do
for j:=0 to n do
begin
x [i, j]:=random(5)+1;
end;