VPF::[Delphi] Нужна помощь написанию программы

DjRayn

Дата 10.1.2010, 23:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 10.1.2010

Репутация: нет
Всего: нет

Доброго времени суток! smile

Надо в нижеприведенном исходном коде нужно что бы вычислялась сумма верхнего, нижнего рядка, левого и правого столбика матрицы по отдельности! выводить результат никуда не надо...
помогите оч надо!
P.S если я сдам ету лабу, я получу экзамен автоматом!

Код


unit UnitMatrix;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, Menus, StdCtrls, ExtCtrls, UnitMatrixDop, XPMan, ActnList;

type
  TfrmMatrix = class(TForm)
    SGMatrix: TStringGrid;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N31: TMenuItem;
    mnuRandom: TMenuItem;
    mnuSumChetNechet: TMenuItem;
    mnuArrayOfSum: TMenuItem;
    mnuChange: TMenuItem;
    mnuSortMatrix: TMenuItem;
    EditRow: TLabeledEdit;
    EditCol: TLabeledEdit;
    EditModul: TLabeledEdit;
    MemoA: TMemo;
    XPManifest1: TXPManifest;
    XPManifest2: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure showMatrInGrid(const m:TMatrixInt10x10;Row,Col:integer);
    procedure mnuRandomClick(Sender: TObject);
    procedure mnuSumChetNechetClick(Sender: TObject);
    procedure mnuArrayOfSumClick(Sender: TObject);
    procedure ShowArrayInMemo(var a: Tarr; count:integer; var m: TMemo);
    procedure mnuChangeClick(Sender: TObject);
    procedure mnuSortMatrixClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMatrix: TfrmMatrix;
  Col,Row,perim:integer;
  m:TMatrixInt10x10;
implementation

{$R *.dfm}


procedure TfrmMatrix.FormCreate(Sender: TObject);
begin
Randomize;
MemoA.Clear;
EditCol.text:='5';
EditRow.text:='5';
EditModul.text:='10';
Col:=StrToInt(EditCol.Text);
Row:=StrToInt(EditRow.Text);
SGMatrix.ColCount:=col;
SGMatrix.RowCount:=row;
SGMatrix.Width:=col*SGMatrix.DefaultColWidth+10;
SGMatrix.Height:=row*SGMatrix.DefaultRowHeight+10;
end;

procedure TfrmMatrix.showMatrInGrid(const m:TMatrixInt10x10;Row,Col:integer);
       var i,j:integer;
  begin
    //Ìåíÿåì ðàçìåð StringGrid
    SGMatrix.ColCount:=Col;
    SGMatrix.RowCount:=Row;
    //Çàïîëíÿåì ÿ÷åéêè ýëåìåíòàìè ìàòðèöû
    for i:=1 to Row do
    for j:=1 to Col do
    SGMatrix.Cells[j-1,i-1]:=format('%3d',[m[i,j]]);
  end;


procedure TfrmMatrix.mnuRandomClick(Sender: TObject);
var modul,i,j:integer;
begin
modul:=StrToInt(EditModul.Text);
Col:=StrToInt(EditCol.Text);
Row:=StrToInt(EditRow.Text);
createRndMatr(m,row,col,modul);
ShowMessage('Ìàòðèöà ñëó÷àéíûõ ÷èñåë ââåäåíà');
//Ìåíÿåì ðàçìåð StringGrid
    SGMatrix.ColCount:=Col;
    SGMatrix.RowCount:=Row;
    //Çàïîëíÿåì ÿ÷åéêè ýëåìåíòàìè ìàòðèöû
    for i:=1 to Row do
    for j:=1 to Col do
    SGMatrix.Cells[j-1,i-1]:=format('%3d',[m[i,j]]);
end;

procedure TfrmMatrix.mnuSumChetNechetClick(Sender: TObject);
var i,j,sumchet,sumnechet: integer;
begin
    sumchet:=0;
    sumnechet:=0;
    for i:=1 to row do
    for j:=1 to col do
    if m[i,j] mod 2=0 then sumchet:=sumchet+m[i,j]
    else sumnechet:=sumnechet+m[i,j];
    ShowMessage('Ñóììà ÷¸òíûõ ýëåìåíòîâ ìàññèâà ðàâíà '+IntToStr(sumchet));
    ShowMessage('Ñóììà íå÷¸òíûõ ýëåìåíòîâ ìàññèâà ðàâíà '+IntToStr(sumnechet));
end;

procedure TfrmMatrix.mnuArrayOfSumClick(Sender: TObject);
var a: Tarr;    i,k,count: integer;
begin
     k:=1;
     count:=row;
     for i:=1 to row do
     begin
     a[k]:=m[i,i];
     k:=k+1;
     end;
      k:=1;
     for i:=1 to row do
     begin
     a[k]:=a[k]+m[i,row -i+1];
     k:=k+1;
     end;
     MemoA.Clear;
     MemoA.Lines.Move(MemoA.CaretPos.Y,0);
     ShowArrayInMemo(A,count,MemoA);
     
end;

procedure TfrmMatrix.ShowArrayInMemo(var a: Tarr; count:integer; var m: TMemo);
var i: integer; str1: string;
begin
      str1:='';
      for i:=1 to count do
      str1:=str1+IntToStr(a[i])+' ';
      m.Lines.Add(str1);
end;
procedure TfrmMatrix.mnuChangeClick(Sender: TObject);
var i,j,buf: integer;
begin
    for i:=1 to row do
    begin
    buf:=m[i,i];
    m[i,i]:=m[i,row-i+1];
    m[i,row-i+1]:=buf;
    end;
    for i:=1 to Row do
    for j:=1 to Col do
    SGMatrix.Cells[j-1,i-1]:=format('%3d',[m[i,j]]);
end;

procedure TfrmMatrix.mnuSortMatrixClick(Sender: TObject);
var i,j: integer;
begin
if not row=col then showmessage('Ìàòðèöà äîëæíà áûòü êâàäðàòíîé');
SortMatrix(m,row);
for i:=1 to Row do
for j:=1 to Col do
SGMatrix.Cells[j-1,i-1]:=format('%3d',[m[i,j]]);
end;

Данкинг

Дата 10.1.2010, 23:47 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Цитата(DjRayn @ 10.1.2010, 23:39

)

если я сдам ету лабу, я получу экзамен автоматом!

Мы все счастливы за тебя, только я лично не пойму, что мешает сдать? А "сделайте за меня" - это в центр помощи.

--------------------

There's nothing left but silent epitaphs.

DarkProg

Дата 11.1.2010, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19

Цитата(DjRayn @ 10.1.2010, 23:39

)

НУ и на***** тогда считать????

Я не пойму в чём у тебя поблема, вроде бы ты посчитал уже и нечётные элементы, тут ведь куда проще, просто берешь делаешь цикл и проходишь по CeLLs[0,i], по Cells[i,0], по Cells[StringGrid.colcount-1, i] и по Cells[i, StringGrid.Rowcount-1,] и складываешь их.

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

Данкинг

Дата 11.1.2010, 00:24 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

А у меня вопрос не по теме: зачем тут два XPManifest'а? Это действительно для чего-то может быть нужным?

--------------------

There's nothing left but silent epitaphs.

AntonN

Дата 11.1.2010, 01:37 (ссылка)

(голосов:2)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: нет
Всего: 18

Вдруг один не стаботает...
=)

--------------------

bems

Дата 11.1.2010, 04:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 0
Всего: 88

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

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

--------------------

Обижено школьников: 8

Rodman

Дата 11.1.2010, 08:31 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

M
Rodman

Модератор: Название темы должно отражать ее суть!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »