у меня задание упорядочить по не убыванию массив, содержащий 15 вещественных чисел
прога есть, но почемуто не прально работает, можете помочь, пожалуйста.
Прикрепленные файлы
ZADMASSM.PAS ( 554 байт )
Кол-во скачиваний: 265
т.е задание такое:
дан одномерный массив,упорядочить его по возрастанию?!
Rom1k, с терминами поаккуратнее... Возрастание, и НЕубывание - разные вещи...
я просто спросил у неё,как надо
.Я даже не знаю,что такое по НЕубыванию.
Если бы она объяснила на примере,возможно бы я понял...
Rom1k
в душе не знаю, задание именно так и звучит: упорядочить по неубыванию
Rom1k, по неубыванию - это когда i+1-ый элемент массива НЕ меньше, чем i-ый. То есть он может быть равен, но меньше быть не может... Вот то, что отмечено курсивом - как раз и есть разница между неубыванием и возрастанием...
[code]Так у меня правильно задача составлена или нет? помойму он не правильно сортирует данные...помогите разобраться
"упорядочить по неубыванию массив, содержащий 15 вещественных чисел" - так сформулирована задача. Я если честно учу паскаль всего лишь месяц и не знаю как делать. Помогите пожалуйста! сроки поджимают....
Народ, помогите пожалуйста, я уже все перепробовала, в чем у меня ошибка? Лаба горит!
1. Она не компилируется ;)
2. Вообще не поняла твой алгоритм. Поищи по форуму (хоть сортировку пузырьком - самое простое).
var
a:array [1..15] of integer;
b,i, j, k:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(15)-8;
end;
WriteLn('Исходный массив:');
for i:=1 to 15 do write (a[i]:4);
WriteLn;
for j:=1 to 14 do for i:=14 downto j do if a[i]>a[i+1] then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b
end;
WriteLn('Отсортированный массив:');
for i:=1 to 15 do write (a[i]:4);
readln;
end.