проект на delphi(ум.матриц)

[Алиба]

Люди, добрый день!
п0м0гите с проектом на delphi!!!
над0 сделать прогу!
Тема(Умн0жение матриц)
сам частичный чайник!!!

[AlDelta]

Сообщение от Алиба

Люди, добрый день!
п0м0гите с проектом на delphi!!!
над0 сделать прогу!
Тема(Умн0жение матриц)
сам частичный чайник!!!

Ну, если частичный..., то этого должно хватить (смотри пост №2):
http://programmersforum.ru/showthread.php?t=7706


Трудно искать черную женщину в темной комнате, особенно - если она не улыбается.

[kommunist]

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.

[Alex21]

Сообщение от kommunist

clrscr;

Круто ))

p.s.: kommunist, используй теги для оформления кода code.

[kommunist]

хорошо теги так теги!

[ExPlay]

Пипл! Хелп! Напишите пожалуста программу на Delphi которая открывает *pas файл другой программы, ищет строку с оператором условия (IF) и проверяет её на правильность написания(типа чтоб все скобочки были на месте, and был написан правильно и т.д)!! Если оператор написан неправильно то программа выделяет эту строку!!!