Информатика. Часть 1. Мойзес О.Е - 118 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

118
Конец
k=0
n=0
Начало
Ввод H
i
Вывод HP
k
, HO
n
i = 1, 20
H
i
>0
n=n+1
HO
n
=H
i
нет
k=k+1
HP
k
=H
i
да
Program Entalp;
type mas=array[1..20]of
real;
var H,Hp,Ho:mas;
k,n,i:integer;
Begin
for i:=1 to 20 do
readln(H[i]);
k:=0;n:=0;
for i:=1 to 20 do
if H[i]>0 then
begin k:=k+1;
Hp[k]:=H[i];
end
else
begin n:=n+1;
Ho[n]:=H[i];
end;
for i:=1 to k do
writeln(Hp[i]:10,’ ’);
writeln;
for i:=1 to n do
writeln(Ho[i]:10,’ ’);
End.
Сортировка данных методом отыскивания наименьшего
элемента
Одним из наиболее важных и часто выполняемых на ЭВМ задач
является сортировка данных, т.е. расположение элементов в
соответствии с заданным порядком. Известно достаточно большое
количество методов сортировки. Рассмотрим один из них: сортировку
методом отыскивания наименьшего элемента.
Пример. Дана смесь углеводородов С
1
, ..., С
5
. Расположить
компоненты в порядке возрастания по числу атомов углерода в
молекуле.
Массив исходных данных: 4 3 1 5 2.

Страницы