Вход

Просмотр полной версии : необходим совет


Воть
13.03.2008, 08:19
Не знаю, можно ли создавать подобную тему в этом разделе, но раз про книги писали, то может быть))

можете ли, люди добрые, помочь с написанием интерфейсной части программы через тп проф (меню)? для ввода матрицы и вывода оратной.
знаю, что прописывать это надо при помощи рисования таблицы, а как именно разобраться не могу.

если вопрос непонятен, постараюсь объяснить, только скажите что именно

xriby
13.03.2008, 10:51
Не знаю, можно ли создавать подобную тему в этом разделе, но раз про книги писали, то может быть))

можете ли, люди добрые, помочь с написанием интерфейсной части программы через тп проф (меню)? для ввода матрицы и вывода оратной.
знаю, что прописывать это надо при помощи рисования таблицы, а как именно разобраться не могу.

если вопрос непонятен, постараюсь объяснить, только скажите что именно

тп - это Турбо Паскаль? Так тебе только интерфейс сделать? алгоритм нахождения обр матр уже есть?

Воть
13.03.2008, 10:57
ну... это я уж как нить сама, думаю через алгебраические дополнения надо, стало быть через рекурсию... если не права, то подскажите как лучше, пока я еще с ума не сошла от этого, а вот интерфейс не понимаю как

xriby
13.03.2008, 11:04
Можно через массив компонент TEdit.

Воть
13.03.2008, 11:09
??

xriby
13.03.2008, 11:22
Процедура создает массив компонент TEdit размером 20х20:
procedure TForm1.Button1Click(Sender: TObject);
var
a: array [1..20, 1..20] of TEdit; // массив элементов Edit
i, j: integer;
begin
for i:=1 to 20 do
begin
for j:=1 to 20 do
begin
a[i,j]:=TEdit.create(self);
a[i,j].parent:=form1;
a[i,j].Height := 30;
a[i,j].Width := 30;
a[i,j].left:=i*30;
a[i,j].text:=inttostr(i*j);
a[i,j].top:=j*30;
end;
end;
end;



эх студни... я к диплому задачи оптимального управления решал на дельфях в которых на каждой итерации решалась система дифуров 11 размера и матрица размерм 121х121!
ну да ладна, сам сибя не похвалишь... :)
И еще каждый день пиво пил, эх студенчество... было же время...:)

Воть
13.03.2008, 11:28
пасиб, я и не думала, что так просто... а как прописать ее исправление в зависимости от ввода человека, чтоб он мог это все в любой момент исправить, а то задачи все надо рассчитывать на пользователя...

xriby
13.03.2008, 11:41
О ну тут вы сами думайте. Вариантов Много:
- Сначала пользователь вводит размер матрицы N;
- Затем создаешь массив TEdit заданного размера NxN;
- После этого вводятся исходные данные матрицы;
- Вычисляется обр матрица;
- Вывод обр матрицы.

Вообще подобных математических задач в инете полно надо только поискать. А так лучше самой разобраться:)

Воть
13.03.2008, 11:48
ок! попытаюсь что-нибудь сделать, не получится - обращусь, если вы не против))

Lord-z
13.03.2008, 11:56
оффтоп: Этот раздел как раз для подобных тем:)

Воть
13.03.2008, 11:57
ну, значит, я была права))

Воть
18.03.2008, 00:54
эх студни... я к диплому задачи оптимального управления решал на дельфях в которых на каждой итерации решалась система дифуров 11 размера и матрица размерм 121х121!
ну да ладна, сам сибя не похвалишь... :)
И еще каждый день пиво пил, эх студенчество... было же время...:)

Ну... студенческая жизнь у нас тоже...)))
а до диплома мне еще мучицца и мучицца)) так что хорошо, что есть такие люди, как вы)))

xriby
20.03.2008, 14:20
Нашел у себя старый проект Delphi, но не помню что почем, но поддерживатся ввод матрицы любой размерности посредством TStringGrid!
Воть что ты просила:
14637 - это архив rar, расширение *.doc убери

Воть
20.03.2008, 23:36
Спасибо! вроде разобралась))