сортировка массива при помощи процедуры
Добавлено: 05 ноя 2009, 17:27
Уф.. что-то не ладится у меня с этими процедурами.. помогите пожалуйста - завтра лабу сдавать - въехать никак не могу.
Переписать элеманты массива Х, предварительно сортировав их по возрастанию, в массив У и подсчитать их количество, при условии, что -1<=x<=1. Задачу решить с использованием процедур.
Можно сортировать либо вставкой либо выбором.
Массивы создала, элементы переписала, подсчитала, сортировку хз как делать, тем более, что с процедурой.
Вот что получилось:
program mas;
type massiv=array[1..20] of real;
var x,y:massiv; n,i:integer;
begin
for i:=1 to 20 do {заполнение массива Х}
begin
write('x[',i,']=');
readln(x);
end;
n:=1;
for i:=1 to 20 do {отбор данных, удовлетворяющих условию и заполнение массива У}
if (x>=-1) and (x<=1) then
begin
y[n]:=x;
n:=n+1;
end;
for i:=1 to n do {вывод массива У}
writeln('y[',i,']=',y:6:3);
writeln('kolichestvo elementov massiva y=',n);
readln;
end.
Подскажите, что и куда вставить для полной программы. Буду благодарна.
Переписать элеманты массива Х, предварительно сортировав их по возрастанию, в массив У и подсчитать их количество, при условии, что -1<=x<=1. Задачу решить с использованием процедур.
Можно сортировать либо вставкой либо выбором.
Массивы создала, элементы переписала, подсчитала, сортировку хз как делать, тем более, что с процедурой.
Вот что получилось:
program mas;
type massiv=array[1..20] of real;
var x,y:massiv; n,i:integer;
begin
for i:=1 to 20 do {заполнение массива Х}
begin
write('x[',i,']=');
readln(x);
end;
n:=1;
for i:=1 to 20 do {отбор данных, удовлетворяющих условию и заполнение массива У}
if (x>=-1) and (x<=1) then
begin
y[n]:=x;
n:=n+1;
end;
for i:=1 to n do {вывод массива У}
writeln('y[',i,']=',y:6:3);
writeln('kolichestvo elementov massiva y=',n);
readln;
end.
Подскажите, что и куда вставить для полной программы. Буду благодарна.