Учусь в университете, так получилось, что задали задание по работе с оконным интерфейсом в FreePascal, а у меня нету никаких навыков в этом. (препод любит когда мы сами начинаем учиться)
Прошу помочь.
В задании необходимо расположить данные в окне output в соответствии с картинкой
Саму программу по заданию я уже написал без проблем, осталось расставить операторы window и тому подобные, но я не могу четко понять как это делается. Что не пытался - окна расползаются.
Если кто-то возьмется помочь, вот текст программы:
- Код: Выделить всё
program matrix;
{ В заданной матрице из положительных целых чисел поменять местами побочную диагональ со строкой, содержащей максимальный элемент матрицы.}
const R=5;
type Tind=1..R;
Tmas = array[Tind,Tind] of integer;
var k,i,j,z:Tind;
a:Tmas;
t,m:Integer;
Begin
{$R+}
write('Введите размерность матрицы: '); ReadLn(k);
if k<1 then begin writeln('Размерность введена неверно!'); halt(1);
end;
writeln('Введите матрицу построчно: ');
for i:=1 to k
do begin for j:=1 to k
do begin read(a[i,j]);
if a[i,j]<=0
then begin writeln('Введен отрицательный элемент!'); halt(2);
end;
end;
end;
m:=a[1,1];
for i:=1 to k
do for j:=1 to k
do if a[i,j]<=m then z:=i;
for i:=1 to k
do begin t:=a[i,z];
a[i,z]:=a[i,i];
a[i,i]:=t;
end;
writeln('Матрица после перестановки ');
for i:=1 to k
do begin for j:=1 to k
do write(a[i,j]:2);
writeln;
end;
End.
