|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.10.2007, 17:29 | #1 |
Регистрация: 12.10.2007
Сообщений: 4
|
проект на delphi(ум.матриц)
Люди, добрый день!
п0м0гите с проектом на delphi!!! над0 сделать прогу! Тема(Умн0жение матриц) сам частичный чайник!!! |
21.10.2007, 18:09 | #2 | |
Реанимируюсь...
Участник клуба
Регистрация: 19.07.2007
Сообщений: 1,445
|
Цитата:
http://programmersforum.ru/showthread.php?t=7706 Трудно искать черную женщину в темной комнате, особенно - если она не улыбается.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" |
|
21.10.2007, 18:24 | #3 |
C# developer
Форумчанин
Регистрация: 03.10.2007
Сообщений: 393
|
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i:integer; j:integer; i1:integer; j1:integer; matr1:array[1..3,1..4] of integer; matr2:array[1..3,1..4] of integer; p:integer; begin clrscr; randomize; for i:= 1 to 3 do begin for j:= 1 to 4 do begin matr1[i,j]:= random(10); write(matr1[i,j],' '); end; Writeln(''); {ïåðåõîä íà íîâóþ ñòðîêó} end; begin randomize; for i1:= 1 to 3 do begin for j1:= 1 to 4 do begin matr2[i,j]:= random(10); write(matr2[i,j],' '); end; Writeln(''); {ïåðåõîä íà íîâóþ ñòðîêó} end; end; function TMatrix.Mult(Matrix: TMatrix): TMatrix; var i, j, k: Word; TempData: TMatrixData; begin if ColCount <> Matrix.RowCount then Error(SMultError, 1); SetLength(TempData, RowCount, Matrix.ColCount); for i := 0 to RowCount - 1 do for j := 0 to Matrix.ColCount - 1 do begin TempData[i, j] := 0; for k := 0 to ColCount - 1 do TempData[i, j] := TempData[i, j] + FData[i, k] * Matrix.FData[k, j] end; ChangeAndFree(TempData); Result := Self end; end.
I like WPF
Последний раз редактировалось kommunist; 21.10.2007 в 18:39. |
21.10.2007, 19:02 | #4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Круто ))
p.s.: kommunist, используй теги для оформления кода code.
Life is too short, play more...
Как правильно задавать вопросы |
21.10.2007, 19:04 | #5 |
C# developer
Форумчанин
Регистрация: 03.10.2007
Сообщений: 393
|
хорошо теги так теги!
I like WPF
|
23.10.2007, 14:02 | #6 |
Новичок
Джуниор
Регистрация: 23.10.2007
Сообщений: 1
|
НУЖНА ПОМОЩЬ
Пипл! Хелп! Напишите пожалуста программу на Delphi которая открывает *pas файл другой программы, ищет строку с оператором условия (IF) и проверяет её на правильность написания(типа чтоб все скобочки были на месте, and был написан правильно и т.д)!! Если оператор написан неправильно то программа выделяет эту строку!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как собрать проект Delphi, чтобы он запускался на всех компах? | AnGrig | Общие вопросы Delphi | 13 | 23.03.2009 18:57 |
Доделать проект на Delphi | SNUPY | Фриланс | 3 | 06.05.2008 15:16 |
Перекомпилить проект Delphi 7 под .NET | 5naip | Общие вопросы Delphi | 2 | 26.04.2008 19:14 |
помогите плиз загрузить проект в delphi!!! | IGstik | Помощь студентам | 7 | 27.08.2007 12:59 |