IMHO.WS - Перевод программы из Pascal на Delphi

IMHO.WS (https://www.imho.ws/index.php)

- Программирование (https://www.imho.ws/forumdisplay.php?f=40)

- - Перевод программы из Pascal на Delphi (https://www.imho.ws/showthread.php?t=109001)

Перевод программы из Pascal на Delphi

Привет всем!
У меня такая проблема:
у меня есть программа по расчёту детерминанта на Паскале. Теперь её попросили перевести на Delphi, с которым я почти вообще не работал.
Суть в том, что нужно просто создать форму с окном для ввода информации (edit), поле для ответа(label) и кнопку для начала осуществления расчёта.
Может кто нибудь поможет?

Цитата:

program mat;
//---------types-----------------
type
matrix = array [1..50, 1..50] of real;
temp_matrix = array [1..50] of real;
//------------procedures--------------------
procedure ent(var mat_en : matrix; row, col : byte);
var
i, j : byte;
begin
for i := 1 to row do
for j := 1 to col do
read(mat_en[i,j]);
end;
//*******************************************************
procedure det_matrix(var mat_det : matrix; n, k, i : byte);
var
koef : real;
mat_tmp : temp_matrix;
j : byte;
begin
koef := mat_det[i,k]/mat_det[k,k]*(-1);

for j := 1 to n do
mat_tmp[j] := mat_det[k,j]*koef;

for j := 1 to n do
mat_det[i,j] := mat_det[i,j] + mat_tmp[j];

for j := 1 to n do
mat_tmp[j] := 0;
end;
//****************************************
procedure tikr(var mat_tikr : matrix; n, k : byte); {proverka}
var
j, z : byte;
tmp : real;
begin
for z := k+1 to n do
if mat_tikr[z,k] <> 0 then
begin
for j := k to n do
begin
tmp := mat_tikr[k,j];
mat_tikr[k,j] := mat_tikr[z,j];
mat_tikr[z,j] := tmp;
end;
break;
end;
end;
//------------varibles-----------------
var
n, i, k : byte;
mat : matrix;
det : real;
//-------------code--------------------
begin
write('vvedite kollichestvo strok i stolbcov matricy: ');
read(n);
writeln('vvedite elementy matricy: ');
ent(mat, n, n);

k := 1;
while k < n do
begin
if mat[k,k] = 0 then
tikr(mat, n, k)
else
begin
for i := k+1 to n do
if mat[i,k] <> 0 then
det_matrix(mat, n, k, i);
inc(k);
end;
end;

det := 1;

for i := 1 to n do
det := det * mat[i,i];

write('Determinant raven: ',det:3);
end.

не понял проблемы. Delphi особенно хорош своей наглядностью, всавь поле edit и бери в программе его значение как edit1.Text, преобразуя StringToInt, для вывода в label1.Caption любую строковую переменную.
Вообщем RTFM и все будет хорошо.

Что так теоретически делать надо я понимаю - а вот практически это реализовать за отсутствием опыта не получается

Цитата:

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

что именно не получается? Есть опыт в Паскале, ну так в Delphi все правила те же. Тебе конкретно пример привести? Ну типа -
a:=StringToInt(edit1.Text); // это взять переменныю
label1.Caption:=IntToStr(result); // вывести результат

Да забацать самый простенький интерфейс не выходит, точнее связать его.
Т.е. вызов процедур... их переменные... вообщем глухой лес :(

Я все еще не понимаю какие проблемы???
ставишь кнопку, на ее нажатие устанавливаешь свою процедуру вычеслений и все.