Помощь - Поиск - Пользователи - Календарь
Полная версия: Сортировка
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
BAEVIK
Есть задача она написанна ниже нада сделать сортировку любым из спосабав , кто можете помагите !
 program _1_;
Type
    Masiv = array[1..100,1..100] of integer;
procedure arr(var a:masiv;count:integer);
var i:integer;
begin
for i:=1 to count do
  begin
       a[i,i]:=0;
       a[count-i+1,i]:=0;
  end;
end;
var
     a:masiv;
     i:integer;
     count:integer;
     j:integer;
begin
 writeln('‚vedite kol strok i stolb');
 readln(count);
 Writeln('vvedit zna4enn9 elementy masuv');
  For i:=1 to count do
   begin
        for j:=1 to count do read(A[i,j]);
        writeln;
   end;
 for i:=1 to count do
  for j:=1 to count do
    If a[i,j]>100 then
     begin
       arr(a,count);
       break;
     end;
  for i:=1 to count do
  begin
   for j:=1 to count do Write(a[i,j],' ');
   Writeln;
   end;
readln;
end.
maksimla
а где тебе нужно сортировать? после ввода чисел
 For i:=1 to count do
   begin
        for j:=1 to count do read(A[i,j]);
        writeln;
   end;


или после проверки
 If a[i,j]>100 then

так где ?
и еще как сортировать по возрастанию или по уменьщению?
и еще что как сортируем по i или по j или все вместе ?
например
ввели такие значения
Код

3
2 8  6
3 4 7
7 9 6


сортируем мы так сперва по j
Код

2 6 8
3 4 7
6 7 9


сортируем мы так по i
Код

2 8 6
3 4 7
7 9 6

сортируем все вместе
Код

2 3 4
6 6 7
7 8 9

а может я что то перихитрил или не понел задания я
потомучто простая сортировка начинается с for и if .
так что тебе надо? извените если я непонел
BAEVIK
Ну нет там нада какими-то метода вроде бинарным и ещё сортировка методом выбора какимито двумя она говарила вот !
Ещё вспомнил сортировку обменом вот ! нада этими сартировками как-то сделать ток я не пойму что они вообще делают !
maksimla
я значит запутался то ты говоришь любым способом сортировку сделать а но сейчас говоришь что другим методом
надо и что даже двумя или тремя сортировками надо сделать что сам незнаешь выходит так так пожалуйста узнай каким методом тебе сортировать надо или методами какими и скажи.
скажи как сортировать по возврастанию или по убыванию ?
и после чего сортировать надо тебе ? тоесть после readln или после процедуры?

Добавлено через 5 мин.
в поиске набери сортировка массива и еще набери сортировку обменом и тогда может вспомнишь какие тебе сортировки нужны и скажешь тогда и напишешь сам тогда
BAEVIK
я разабрался вообще нада по другому сделать вот ! но это в другой задаче !
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.