VPF::[Delphi] Вывод матрицы - Форум программистов

MIG

Дата 29.5.2006, 14:32 (ссылка)

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

Загрузка ...

Новичок

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

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

(очень срочно нужно) Оконное приложение. Дана квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в заштрихованной части матрицы: см. картинку в архиве

Присоединённый файл ( Кол-во скачиваний: 29 )

_______.rar 0,21 Kb

comtat

Дата 21.6.2006, 12:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

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

На вот примерно так

Код

unit Minimum;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, Grids, Math;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    UpDown1: TUpDown;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
  StringGrid1.ColCount:=UpDown1.Position;
  StringGrid1.RowCount:=UpDown1.Position;
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 // Вводятся только числа
 if ((Key<#48) or (Key>#57)) then Key:=#0;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 // Вводятся только числа
 if ((Key<#48) or (Key>#57)) then Key:=#0;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,n,m:integer;
    max:integer;
    status:boolean;
begin
// проверка StringGrid'a
status:=true;
for i:=0 to StringGrid1.ColCount-1 do
 for j:=0 to StringGrid1.RowCount-1 do
  if ((StringGrid1.Cells[i,j]='')and(status)) then
    begin
     MessageDlg('Ошибка не введено число', mtError, [mbOk], 0);
     status:=false;
     break;
    end;
// Если все в норме
if (status) then
 begin
  max:=0;
  for m:=0 to StringGrid1.ColCount-1 do
   for n:=StringGrid1.ColCount-1-m to StringGrid1.ColCount-1 do
    if (max<=StrToInt(StringGrid1.Cells[n,m])) then
      max:=StrToInt(StringGrid1.Cells[n,m]);
  Label1.Caption:=IntToStr(max);
 end;

end;

end.

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

Рожденный в СССР !!!
ExtJS - мой фреймворк

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