Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Omega
1

Need some help!

19.06.2008, 15:48. Показов 1015. Ответов 7
Метки нет (Все метки)

Здравствуйте! Очень срочно нужно решить одну задачу, надеюсь на вашу помощь.
Задача такова : В поле мемо вводим матрицу 5х5. В другом поле мемо должна быть выведена таже матрица, но у нее по главной диагонали должны стоять суммы всех членов в данной строке и столбце, т.е. Элемент с индексом (1;1) должен быть суммой всех чисел в 1 столбце и 1 строке итд. Заранее спасибо
10 / 0 / 0
Регистрация: 19.05.2008
Сообщений: 19
20.06.2008, 09:37 2
Вот ответ, надеюсь разберётесь:
Код
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Matr : array [1..5,1..5] of integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i,j: integer;
      s: string;
begin
    s := '';
    Randomize;
    for i:=1 to 5 do
    begin
        for j:=1 to 5 do
        begin
            Matr[i,j] := random(10);
            S := S + IntToStr(Matr[i,j]) + '   ';
        end;
        Memo1.Lines.Add(s);
        Memo2.Lines.Add(s);
        S := '';
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var SumX,SumY,i,j: integer;
    MasSum : array [1..5] of integer;
    s      : string;
begin
    for i:=1 to 5 do
       MasSum[i] := 0;
    s := '';
    SumX := 0;
    SumY := 0;
    Memo1.Clear;
    Memo2.Clear;
    for i:=1 to 5 do
    begin
        for j:=1 to 5 do
        begin
            SumY := SumY + Matr[i,j];
        end;
        MasSum[i] := MasSum[i] + SumY;
        SumY := 0;
    end;
    for j:=1 to 5 do
    begin
        for i:=1 to 5 do
        begin
            SumX := SumX + Matr[i,j];
        end;
        MasSum[j] := MasSum[j] + SumX;
        SumX := 0;
    end;
    for i:=1 to 5 do
    begin
        Matr[i,i] := MasSum[i];
    end;
    for i:=1 to 5 do
    begin
        for j:=1 to 5 do
        S := S + IntToStr(Matr[i,j]) + '   ';
        Memo1.Lines.Add(s);
        Memo2.Lines.Add(s);
        S := '';
    end;
end;
end.
0
Omega
20.06.2008, 14:42 3
Странно, программа не работает. При нажатии клавиши ничего не происходит. Возможно вы что-то пропустили? И еще - можете пожалуйста код прокомментировать?
Почетный модератор
11175 / 4131 / 413
Регистрация: 12.06.2008
Сообщений: 11,974
20.06.2008, 15:35 4
Странно, программа не работает. При нажатии клавиши ничего не происходит. Возможно вы что-то пропустили? И еще - можете пожалуйста код прокомментировать?
Просто нажми два раза на форму и на кнопку, что бы подключить процедуры к событиям.
0
10 / 0 / 0
Регистрация: 19.05.2008
Сообщений: 19
20.06.2008, 18:17 5
Я чуть чуть поправил эту программу, сделал коминтарии. Чтобы не возникало вопросов, выкладываю проэкт:
0
Вложения
Тип файла: zip Matrica.zip (10.6 Кб, 29 просмотров)
Omega
20.06.2008, 18:20 6
Спасибо!
Omega
20.06.2008, 19:20 7
Извините, а не могли бы вы написать пример считывания матрицы из Мемо? А то я тут не могу разобраться с пробелами
Omega
20.06.2008, 20:09 8
Все равно что-то не могу разобраться... Напишите пожалуйста маленький пример с вводом матрицы из Мемо
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.