Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Матрицы

Автор: BraMix 22.3.2009, 19:44

Здраствуйте!!!помогите решить или дать ссылку с примером по решению задачи с матрицей в Delphi.Задача стоит следуйщем образом:
Вычислить и заполнить сумму и число положительных элементов каждого столбца матрицы 4х4.Результат вывести в виде 2-х строк.
Заранее спасибо!!!

Автор: Dobermann 22.3.2009, 19:52

http://www.google.ru/search?source=ig&hl=ru&rlz=&=&q=%D1%80%D0%B5%D1%88%D0%B5%D0%BD%D0%B8%D0%B5+%D0%BC%D0%B0%D1%82%D1%80%D0%B8%D1%86+%D0%B2+delphi&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&meta=lr%3D

Автор: THandle 22.3.2009, 21:34

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: BraMix 24.3.2009, 16:20

помогите плизззз smile

Автор: Al47 24.3.2009, 22:58

Вот так... код и все файлы проекта... http://dump.ru/file/2292125

Код


procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer;
begin
s:=0;
k:=0;
for i:=0 to 3 do
for j:=0 to 3 do
begin
if strtoint(stringgrid1.cells[i,j])>0 then
begin
s:=s+strtoint(stringgrid1.cells[i,j]);
k:=k+1;
end;
end;
label1.Caption:='S='+inttostr(s);
label2.Caption:='K='+inttostr(k);
end;
end.

Автор: grigiv 25.3.2009, 17:27

Модератор: Сообщение скрыто.

Автор: BraMix 25.3.2009, 22:05

Al47, Спасибо огромное!!!!

Автор: Al47 25.3.2009, 23:12

BraMix, на здоровье, если вопрос исчерпан нужно пометить тему, как решённую...

Автор: BraMix 3.4.2009, 19:11

Al47, извини тут проблемка вышла,как вывести результат в виде 2-х строк?? smile

Автор: BraMix 6.4.2009, 00:33