var a:array [1..7] of real;
...
a[1]:=(Px1)/(Dx1);
a[2]:=(Px2)*(Dx2);
{и т.д. до 7}
...
{а здесь мы будем сортировать:}
for i:=1 to 6 do
for j:=i+1 to 7 do
if a>a[j] then
begin
n:=a;
a:=a[j];
a[j]:=n;
end;
{ ну а теперь выводим на экран}
for i:=1 to 7 do writeln(a:0:2);
Сортировать числа
Подскажите, пожалуйста, как отсортировать значения?
У меня в программе есть значения:
F1:=(Px1)/(Dx1);
F2:=(Px2)*(Dx2);
F3:=(Px3)/(Dx3);
F4:=(Px4)*(Dx4);
F5:=(Px5)/(Dx5);
F6:=(Px6)*(Dx6);
F7:=(Px7)*(Dx7);
Мне нужно сделать сортировку F1….F7 по возрастанию и вывести результат на экран.
Заранее спасибо.
У меня в программе есть значения:
F1:=(Px1)/(Dx1);
F2:=(Px2)*(Dx2);
F3:=(Px3)/(Dx3);
F4:=(Px4)*(Dx4);
F5:=(Px5)/(Dx5);
F6:=(Px6)*(Dx6);
F7:=(Px7)*(Dx7);
Мне нужно сделать сортировку F1….F7 по возрастанию и вывести результат на экран.
Заранее спасибо.
у тебя получается 7 переменных, а лучше сделать массив из 7 элементов (сортировать будет легче)
[size=3]
[/size]
[size=3]
Код:
[/size]
Большое спасибо. Всё получилось.