Трябва ми програма, която да подрежда числата във възходящ ред.Например емаме 3,1,7 и да се подредят 1,3,7.Ако можете помогнете

Числата какви да са? От нула нагоре? От -99 до +99? от -99.99 до +99.99? Има разлики...

Готова програма ли ти трябва или само насоки как да я напишеш?

Трябва ми програма, която да подрежда числата във възходящ ред.Например емаме 3,1,7 и да се подредят 1,3,7.Ако можете помогнете

http://pascalprogramming.byethost15.com/articles/sorting.php

Числата какви да са? От нула нагоре? От -99 до +99? от -99.99 до +99.99? Има разлики...

Готова програма ли ти трябва или само насоки как да я напишеш?

От 0 до 100

Готова ми трябва

Редактирано 1 февруари 201016 г. от radomir4y (преглед на промените)

http://pascalprogramming.byethost15.com/articles/sorting.php

Кое от всички възможни е това което ми трябва? Би ли ми казал името ?

Кое от всички възможни е това което ми трябва? Би ли ми казал името ???

Редактирано 5 февруари 201016 г. от radomir4y (преглед на промените)

Кое от всички възможни е това което ми трябва? Би ли ми казал името ???

Приятел, това са три различни метода за сортиране.

Избери си един.

Аз си избирам QuickSort.

решението на програмата е в рамките на 6,7 реда.Не мисля че е това пък и ми изписва грешка на програмата.Всичко е въведено както трябва.Помогнете

Редактирано 7 февруари 201016 г. от radomir4y (преглед на промените)

решението на програмата е в рамките на 6,7 реда.Не мисля че е това пък и ми изписва грешка на програмата.Всичко е въведено както трябва.Помогнете

Как да ти помогнем ?

Да ти я напишем наготово ли ?

Нали си написал нещо ? След като излиза някаква грешка, намери защо излиза и я оправи.

Казах ти, че QuickSort ще ти свърши работа.

Редактирано 7 февруари 201016 г. от Ken (преглед на промените)

ако може да ми я напишете на готово.само три пъти сме работили с паскал и задачата не е сложна.Решението е 6 реда но не знам как ще стане

Редактирано 7 февруари 201016 г. от radomir4y (преглед на промените)

ако може да ми я напишете на готово.само три пъти сме работили с паскал и задачата не е сложна.Решението е 6 реда но не знам как ще стане

Не разбирам, откъде ти знаеш, че решението е 6 реда, но карай да върви.

program Project;


var

  i: integer;

  nnn: array of integer;


procedure QSort(var numbers: array of Integer; left: Integer; right: Integer);

   var pivot, l_ptr, r_ptr: Integer;

begin

  l_ptr := left;

  r_ptr := right;

  pivot := numbers[left];

  while (left < right) do

  begin

    while ((numbers[right] >= pivot) and (left < right)) do

      right := right - 1;

    if (left <> right) then

    begin

      numbers[left] := numbers[right];

      left := left + 1;

    end;

    while ((numbers[left] <= pivot) and (left < right)) do

      left := left + 1;

    if (left <> right) then

    begin

      numbers[right] := numbers[left];

      right := right - 1;

    end;

  end;

  numbers[left] := pivot;

  pivot := left;

  left := l_ptr;

  right := r_ptr;

  if (left < pivot) then

    QSort(numbers, left, pivot - 1);

  if (right > pivot) then

    QSort(numbers, pivot + 1, right);

end;


procedure QuickSort(var numbers: array of Integer; size: Integer);

begin

  QSort(numbers, 0, size - 1);

end;


begin

  randomize;

  setlength(nnn, 6);

  for i := 0 to 5 do

  begin

    nnn[i] := integer(randом(100));

    writeln(nnn[i]);

  end;


  quicksort(nnn, 6);


  writeln;


  for i := 0 to 5 do

    writeln(nnn[i]);


  setlength(nnn, 0);


end.

procedure bubblesort(var x:data;n:integer);

var i,j:integer;t:byte;

begin

for i:=1 to n-1 do

for j:=1 to n-1 do

if x[j]>x[j+1] then

begin

t:=x[j];

x[j]:=x[j+1];

x[j+1]:=t;

end;

end;

Това не става ли

Става. Защо да не става ?

В пост №7 ти казах, че това са три различни метода за сортиране и да си избереш един.

На мене ми трябва цялата програма която да е толкова дълга.Тови ми е домашното и само част от термините сме ги учили.Най-основните само

На мене ми трябва цялата програма която да е толкова дълга.Тови ми е домашното и само част от термините сме ги учили.Най-основните само

Защо не препишеш точно, какво са ти дали за домашно ?

Иначе ще има до март да се уточняваме.

Да се състави програма която да подрежда числа във възходящ ред.Това е условието.Задачата е с основните термими и не е дълга.Само 3 часа сме работили с програмата.

Редактирано 7 февруари 201016 г. от radomir4y (преглед на промените)

Да се състави програма която да подрежда числа във възходящ ред.Това е условието.Задачата е с основните термими и не е дълга.Само 3 часа сме работили с програмата.

program Project;


var

  i, j, t: integer;

  nnn: array[1..5] of integer;


begin

  writeln('Въведете 5 числа:');

  for i := 1 to 5 do

  begin

    write('Число ', i);

    readln(nnn[i]);

  end;


  for i := 1 to 5-1 do

    for j := 1 to 5-1 do

      if nnn[j] > nnn[j + 1] then

      begin

        t := nnn[j];

        nnn[j] := nnn[j + 1];

        nnn[j + 1] := t;

      end;


  writeln;


  for i := 1 to 5 do

    writeln(nnn[i]);


end.

Много ти благодаря

Само да питам какво е това nnn дето си го слагал на няколлко места ?

Много ти благодаря

Само да питам какво е това nnn дето си го слагал на няколлко места ?

Така съм кръстил масива с данните. Можеш да го смениш с нещо по-разбираемо, но на латиница да е.

Задачата трябва да се направи с условен оператор

Задачата трябва да се направи с условен оператор

Според теб IF какво е ?

Я върви да четеш и да пишеш на Pascal !

Според теб IF какво е ?

Я върви да четеш и да пишеш на Pascal !

Задачата не се парви така.Питах госпожата.Ако им друг начис с условен алгоритъп моля да ми помогнете

Условен оператор е едно. Условен алгоритъм е друго.

Кое от двете иска госпожата ?

Програма ли иска, или алгоритъм ?

Ken,не мога да разбера защо му се връзваш.Ясно си личи,че не си сяда на за**ика за 5 минути и да почете малко,а ти си седнал да му обясняваш и да му пишеш програмите.Твоя работа все пак.Аз такива ги игнорирам.Като дойде сесията и всички форуми се пълнят с теми от подобни хора,които ги мързи да седнат да почетат малко.