Матрица. Ввод данных в integer, вывод в real

[КуКа]

Здравствуйте.
Помогите пожалуйста. Программа сортировки матрицы по заданной трассе. Входные данные - integer, вывод - real. Т.е если я ввожу к примеру элемент матрицы 9, то выводить он мне должен 9.0

Так вот, программку я сделала только для integer и вход и вывод, а как переделать вывод в real не знаю.
Помогите пожалуйста.

program massiv;
uses crt;
var m: array[1..5,1..5] of integer;
    i,j,s,k: integer;
    begin
 clrscr;
 randomize;
 writeln('vvedite massiv');
  for i:=1 to 5 do
  for j:=1 to 5 do
   readln(m[i,j]);

   for i:=1 to 5 do
    begin
    for j:=1 to 5 do
     begin
     write (m[i,j]:5);
      end;
       writeln;
       writeln;
     end;
     readln;
  s:=1;
  while s>0 do
  begin
  s:=0;
 if m[2,4]<m[1,5] then
  begin
   k:=m[2,4];
   m[2,4]:=m[1,5];
   m[1,5]:=k;
   s:=s+1;
  end;
 if m[3,3]<m[2,4] then
  begin
   k:=m[3,3];
   m[3,3]:=m[2,4];
   m[2,4]:=k;
   s:=s+1;
  end;
 if m[4,2]<m[3,3] then
  begin
   k:=m[4,2];
   m[4,2]:=m[3,3];
   m[3,3]:=k;
   s:=s+1;
  end;
 if m[5,1]<m[4,2] then
  begin
   k:=m[5,1];
   m[5,1]:=m[4,2];
   m[4,2]:=k;
   s:=s+1;
  end;
 if m[4,1]<m[5,1] then
  begin
   k:=m[4,1];
   m[4,1]:=m[5,1];
   m[5,1]:=k;
   s:=s+1;
  end;
 if m[3,1]<m[4,1] then
  begin
   k:=m[3,1];
   m[3,1]:=m[4,1];
   m[4,1]:=k;
   s:=s+1;
  end;
 if m[2,1]<m[3,1] then
  begin
   k:=m[2,1];
   m[2,1]:=m[3,1];
   m[3,1]:=k;
   s:=s+1;
  end;
 if m[1,1]<m[2,1] then
  begin
   k:=m[1,1];
   m[1,1]:=m[2,1];
   m[2,1]:=k;
   s:=s+1;
  end;
 end;

   for i:=1 to 5 do
    begin
    for j:=1 to 5 do
     begin
       if(i=5-j+1) or (j=1) then
       textcolor(4);
       write (m[i,j]:5);
       textcolor(15);
       end;
       writeln;
       writeln;
     end;
 readln;
end.

[andrewpalkin]

А что ты делаешь вот здесь ?

while s>0 do
begin
s:=0;
if m[2,4]<m[1,5] then
begin
k:=m[2,4];
m[2,4]:=m[1,5];
m[1,5]:=k;
s:=s+1;
end;
if m[3,3]<m[2,4] then
begin
k:=m[3,3];
m[3,3]:=m[2,4];
m[2,4]:=k;
s:=s+1;
end;
if m[4,2]<m[3,3] then
begin
k:=m[4,2];
m[4,2]:=m[3,3];
m[3,3]:=k;
s:=s+1;
end;
if m[5,1]<m[4,2] then
begin
k:=m[5,1];
m[5,1]:=m[4,2];
m[4,2]:=k;
s:=s+1;
end;
if m[4,1]<m[5,1] then
begin
k:=m[4,1];
m[4,1]:=m[5,1];
m[5,1]:=k;
s:=s+1;
end;
if m[3,1]<m[4,1] then
begin
k:=m[3,1];
m[3,1]:=m[4,1];
m[4,1]:=k;
s:=s+1;
end;
if m[2,1]<m[3,1] then
begin
k:=m[2,1];
m[2,1]:=m[3,1];
m[3,1]:=k;
s:=s+1;
end;
if m[1,1]<m[2,1] then
begin
k:=m[1,1];
m[1,1]:=m[2,1];
m[2,1]:=k;
s:=s+1;
end;
end;

[КуКа]

Это Сортировка по трассе

[andrewpalkin]

Сообщение от КуКа

Это Сортировка по трассе

А если бы у тебя было 100 элементов , ты делал 10000 сравнений вот так

[Novi4ok_11]

Тоесть тебе нужно отсортировать по какому то пути? Если да то лучше сначала по этому пути перегнать в другой массив такой же длины, отсортировать его, а потом этим вторым заполнить первый по тому же пути

[КуКа]

если бы у тебя было 100 элементов , ты делал 10000 сравнений вот так

Задание для матрицы размерностью 5*5

сли да то лучше сначала по этому пути перегнать в другой массив такой же длины, а потом этим вторым заполнить первый по тому же пути

И как это сделать????

[andrewpalkin]

Сообщение от КуКа

Задание для матрицы размерностью 5*5

Смысл не в том , какого размер массив , но даже если у тебя 5х5 размер , то надо использовать циклы . А не копировать текст , потом это все тяжело читаемое становится .

[КуКа]

это то я все понимаю, но вопрос то мой в другом, мне вывод нужен в real

[andrewpalkin]

Сообщение от КуКа

это то я все понимаю, но вопрос то мой в другом, мне вывод нужен в real

Вот тебе пример :

Program alg;
Var a:real;
Begin
a:=192.4678;
Writeln(a:0:2);
Readln;
End.

[КуКа]

Спасибо за помощь.
Пойду дальше комп мучать))