Иван Денисов, Вот рабочий код моей программы как его улучшить? Я веду обучение, решая математические задачки, задача из алгебры, операции со строками в матрице
Код:
var
str_1:real;
str_2:real;
x1,x2,x3,x4,x5:real;
y1,y2,y3,y4,y5:real;
z1,z2,z3,z4,z5:real;
a1b1,a2b1,a3b1,a4b1,a5b1:real;
a1b2,a2b2,a3b2,a4b2,a5b2:real;
a1b3,a2b3,a3b3,a4b3,a5b3:real;
a1b4,a2b4,a3b4,a4b4,a5b4:real;
a1b5,a2b5,a3b5,a4b5,a5b5:real;
begin
str_1:=1; str_2:=2;
(*______________________________________________________*)
if str_1=1 then
begin
x1:=a1b1; x2:=a2b1; x3:=a3b1; x4:=a4b1; x5:=a5b1;
end;
if str_1=2 then
begin
x1:=a1b2; x2:=a2b2; x3:=a3b2; x4:=a4b2; x5:=a5b2;
end;
if str_1=3 then
begin
x1:=a1b3; x2:=a2b3; x3:=a3b3; x4:=a4b3; x5:=a5b3;
end;
if str_1=4 then
begin
x1:=a1b4; x2:=a2b4; x3:=a3b4; x4:=a4b4; x5:=a5b4;
end;
if str_1=5 then
begin
x1:=a1b5; x2:=a2b5; x3:=a3b5; x4:=a4b5; x5:=a5b5;
end;
(*______________________________________________________*)
if str_2=1 then
begin
y1:=a1b1; y2:=a2b1; y3:=a3b1; y4:=a4b1; y5:=a5b1;
end;
if str_1=2 then
begin
y1:=a1b2; y2:=a2b2; y3:=a3b2; y4:=a4b2; y5:=a5b2;
end;
if str_1=3 then
begin
y1:=a1b3; y2:=a2b3; y3:=a3b3; y4:=a4b3; y5:=a5b3;
end;
if str_1=4 then
begin
y1:=a1b4; y2:=a2b4; y3:=a3b4; y4:=a4b4; y5:=a5b4;
end;
if str_1=5 then
begin
y1:=a1b5; y2:=a2b5; y3:=a3b5; y4:=a4b5; y5:=a5b5;
end;
(*______________________________________________________*)
z1:=x1-y1; z2:=x2-y2; z3:=x3-y3; z4:=x4-y4; z5:=x5-y5;
end;