Дата публикации:
#1
kot003



Специалист
****

Группа: Пользователи
Сообщений: 360
Регистрация: 19.03.2005
Из: Санкт-Петербург
Пользователь №: 9.192


Респектов: 5
-----X----


Предупреждений:


Доброе время суток!
Учусь в университете, так получилось, что задали задание по работе с оконным интерфейсом в FreePascal, а у меня нету никаких навыков в этом. (препод любит когда мы сами начинаем учиться)
Прошу помочь.
В задании необходимо расположить данные в окне output в соответствии с картинкой



Саму программу по заданию я уже написал без проблем, осталось расставить операторы window и тому подобные, но я не могу четко понять как это делается. Что не пытался - окна расползаются.

Если кто-то возьмется помочь, вот текст программы:
Code
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.
User is offline
Go topGo end

Topic Options
Сейчас: 29.03.2024 - 18:29
Мобильная версия | Lite версия