Среда Delphi 7

procedure TForm1. Button1Click (Sender: TObject); // процедура для вычисления заданных операций.

var nol, raz, col, k, max1, max, max2, sum, m:integer; // ввод переменных.

begin

k:=0; // переменная для подсчета нулей.

if checkbox1.checked then // нахождение количества нулей среди элементов, которые не находятся на главной диагонали матрицы.

with stringgrid1 do

begin

for i:= 1 to colCount - 1 do // цикл по столбцам.

for j:= 1 to rowCount - 1 do // цикл по строкам.

if (i<>j) and (strtoint (cells[i, j])=0) then k:=k+1; // проверка условия элемента на нули, находящиеся на главной диагонали.

edit1. Text:=inttostr(k); // вывод количества нулей, с предварительным переводом в строковый тип.

end;

if checkbox2.checked then // нахождение разности между максимальным значением элемента над главной диагональю и максимальным значением под главной диагональю.

with stringgrid1 do

begin

max1:=strtoint (cells[1,1]); // присвоение максимального значения, находящегося в первой ячейке.

for I:= 1 to colCount - 1 do // цикл по столбцам.

for j:= 1 to rowCount - 1 do // цикл по строкам.

if (i<j) and (strtoint (cells[i, j])>max1) then // проверка условия на максимальное значениет, находящегося над главной диагональю.

max1:=strtoint (cells[i, j]); // присвоение максимального элемента.

max2:=strtoint (cells[5,5]); // присвоение максимального значения, находящегося в последней ячейке.

for I:= 1 to colCount - 1 do // цикл по столбцам.

for j:= 1 to rowCount - 1 do // цикл по строкам.

if (i>j) and (strtoint (cells[i, j])>max2) then // проверка условия на максимальное значением под главной диагональю

max2:=strtoint (cells[i, j]); // присвоение максимального значения.

end;

max:=abs (max2-max1); // нахождение модуля разности.

edit2. Text:=inttostr(max); // вывод модуля, с предварительным переводом в строковый тип.

if checkbox3.checked then // подсчет столбцов матрицы, в которых количество нулей больше половины количества элементов в столбце.

with stringgrid1 do

begin

m:=0; // переменная для подсчета столбцов.

for i:= 1 to colCount - 1 do // цикл по столбцам.

begin

sum:=0; // переменная для суммы.

for j:= 1 to rowCount - 1 do // цикл по строкам.

if strtoint (cells[i, j])=0 then // проверка равенства значений на ноль.

sum:=sum+1; // подсчет количества нулей.

if sum>2 then m:=m+1; // проверка условия на количество нулей в столбце, если нулей больше 2, то увеличиваем количество столбцов.

end;

edit3. Text:=inttostr(m); // вывод количества столбцов, с предварительным переводом в строковый тип.

end; end;

procedure TForm1. Button2Click (Sender: TObject); // процедура для вывода нового массива.

var sum, i, j:integer;

begin

with stringgrid1 do

for j:= 1 to rowCount - 1 do // цикл по строкам.

begin

sum:=0;

for i:= 1 to colCount - 1 do // цикл по столбцам.

if i<=j then // проверка условий на элементы, находящихся в начале i-той строки матрицы до элемента, принадлежащего главной диагонали, включительно.

sum:=sum+strtoint (stringgrid1. Cells [i, j]); // подсчет суммы значений элементов, находящихся в начале i-той строки матрицы до элемента, принадлежащего главной диагонали, включительно.

edit4. Text:=edit4.text+' '+inttostr(sum); // вывод суммы для каждой строки, с предварительным переводом в строковый тип.

end; end;

procedure TForm1. Button3Click (Sender: TObject); // процедура по кнопке сброс.

begin

checkbox1. State:=cbunchecked; checkbox2. State:=cbunchecked;

checkbox3. State:=cbunchecked;

edit1.text:=''; edit2.text:=''; edit3.text:=''; edit4.text:='';

with stringgrid1 do

for i:=1 to colCount - 1 do

for j:= 1 to rowCount - 1 do

begin

cells [i, j]:='';

end; end;

procedure TForm1. Button4Click (Sender: TObject); // процедура по кнопке заполнение массива.

var i, j:integer;

begin

randomize;

with stringgrid1 do

begin

i:=0;

for j:= 1 to rowCount - 1 do

cells [i, j]:=inttostr(j);

j:=0;

for i:= 1 to colCount - 1 do

cells [i, j]:=inttostr(i);

end;

with stringgrid1 do

for i:=1 to colCount - 1 do

for j:= 1 to rowCount - 1 do

begin

cells [i, j]:=inttostr (random(10) - 7);

end; end;

Заключение

оператор программа delphi компонент

Данный курсовой проект был выполнен в полном соответствии поставленному заданию и отлажен в среде DELPHI 7.0. В ходе выполнения курсовой работы были разработаны программы для ввода и вывода данных. Созданы приложения для работы с клавишами редактирования, а также приложения по вкладкам формы.

В результате выполнения данной курсовой работы, я убедилась в широких возможностях языка программирования Object Pascal и среды проектирования Delphi 7.

Список литературы

1. Кузнецова, И.А. Практикум по Delphi для решения прикладных задач. - Нижний Новгород, 2005.

2. Чеснокова О.В. Delphi 2007. Алгоритмы и программы. - Москва, NT Press. 328 - 336 с.

3. www.delphilab.ru

4. www.delphi-manual.ru

5. www. DelphiMaster.ru

6. www.delphi.int.ru

Размещено на Allbest.ru