VPF::[Delphi] Многомерные массивы - Форум программистов

Регина

Дата 8.4.2008, 15:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите пожалуйста с программкой. Нужно ввести массив в стрингрид, найти максимальныфй элемент, и разделить его на каждый элемент массива, исходя из этого вывести преобразованный массив. Также вывести номер строки и столбца массива. Я тут составила програмку, но координаты максимального неправильно выводит. Помогите пожалуйста разобраться!!!! Буду очень рада.

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Table1: TStringGrid;
    Table2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
mas:array[0..3,0..3] of real;
mas1:array[0..3,0..3] of real;
i,j:integer;
MAX:real;
begin
For i:=0 to 3 do begin
For j:=0 to 3 do begin
mas[i,j]:=Random(100)-Random(100);
Table1.Cells[i,j]:=FloatToStr(mas[i,j]);
Edit1.Text:='';
Edit2.Text:='';
end;
end;
for i:=0 to 3 do begin
MAX:=mas[1,1];
for j:=0 to 3 do begin
if mas[i,j]>MAX then
begin
mas[i,j]:=MAX;
Edit1.Text:=IntToStr(i);
Edit2.Text:=IntToStr(j);
MAX:=not 0;
mas1[j,i]:=mas[j,i]/MAX;
Table2.Cells[i,j]:=FloatToStr(mas1[i,j]);
end;
end;
end;
  end;
end

Это сообщение отредактировал(а) Rodman - 8.4.2008, 15:47

Alexeis

Дата 8.4.2008, 15:35 (ссылка)

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

Загрузка ...

Амеба

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

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

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

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

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Rodman

Дата 8.4.2008, 15:58 (ссылка)

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

Загрузка ...

CIO

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

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

фот

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

4.rar 2,62 Kb

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

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

Лотереи мира

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