Задачи на ТурбоПаскаль

[Enyasha]

Дан одномерный массив, расположить элементы(числа) по возрастанию.

если можно, решение полностью.. )

буду сильно благодарна..)

[Sazary]

http://pblog.ru/lab/?p=59
http://pblog.ru/lab/?p=58
Это называется "сортировка"

[MAKEDON]

Вы когда нибудь слышали про алгоритмы сортивровки?!

Ну вот:

Сортировка "пузырьком"

  const N=10; {Количество элементов массива}
  var a: array[1..N] of integer; {массив}
  i: integer; {счётчик для цикла}
  f: boolean; {Признак наличия неупорядоченных пар}
  c: integer; {Переменная для промежуточного хранения}
  .......
repeat
  f:=false; {Пока неупорядоченных пар не было}
  for i:=1 to N-1 do  {Просматриваем все пары рядом стоящих элементов}
  begin
    if a[i]>a[i+1] then {Если пара стоит в неправильном порядке}
    begin
      f:=true; {Есть неупорядоченная пара}
      c:=a[i];a[i]:=a[i+1];a[i+1]:=c; {Меняем местами элементы массива}
    end;
  end;
until not f; {Ждём, пока не исчезнут все неупорядоченные пары}

Метод простого выбора

  const N=10; {Количество элементов массива}
  var a: array[1..N] of integer; {массив}
  i,j: integer; {счётчики для цикла}
  c:   integer; {Переменная для промежуточного хранения}
  c2:  integer; {Переменная для промежуточного хранения}
  .......
for i:=1 to N-1 do begin 
  {цикл по первому обрабатываемому элементу массива}
  c2:=i; {индекс предполагаемого минимального элемента}
  for j:=i+1 to N do 
    {поиск минимального элемента}
    if a[c2]>a[j] then c2:=j; {если в c2 индекс не минимального элемента, 
    			то в c2 записывается индекс меньшего элемента}
    c:=a[i];a[i]:=a[c2];a[c2]:=c; {Меняем местами элемент массива}
end;

Есть еще много, но двух вам вполне хватит!

Блин, опоздал

[Enyasha]

Спасибо! добрый человек! )

[Sazary]

Сообщение от Enyasha

НЕ РАБОТАЕТ!

ошибки выдаёт неопознанным переменным и т.п....

Если у вас что-то не работает, выкладывайте полный код, который вы пытаетесь скомпилировать и указывайте, какие ошибки.

[Enyasha]

Ты не знаешь с кем имеешь дело! я не понимаю слов типа скомпилировать.. и как выглядит этот ваш полный код.. :/

[Sazary]

Сообщение от Enyasha

я не понимаю слов типа скомпилировать.. и как выглядит этот ваш полный код.. :/

Зато я не телепат. И не знаю, что у вас там не работает.

Чтобы что-то не работало, нужно это сначала как-то попытаться запустить. Или как вы узнаете о неработоспособности?

[Enyasha]

Я и запускаю... ему не нравица.. :///

[Sazary]

Сообщение от Enyasha

Я и запускаю... ему не нравица.. :///

И это ответ?
Приведите код, который вы запускаете. И укажите ошибки, которые вам выдает компилятор.

[Enyasha]

Спасибо за ссылку, поняла что такое кампилятор..

всё что дано перепечатываю в Паскаль... там видимо ещё чтото добавить нужно? типа задержку там или програм и название..