IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Сортировка, одна из сортировак !
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Мужской
Реальное имя: САША

Репутация: -  0  +


Есть задача она написанна ниже нада сделать сортировку любым из спосабав , кто можете помагите !
 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.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


а где тебе нужно сортировать? после ввода чисел
 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 .
так что тебе надо? извените если я непонел


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Мужской
Реальное имя: САША

Репутация: -  0  +


Ну нет там нада какими-то метода вроде бинарным и ещё сортировка методом выбора какимито двумя она говарила вот !
Ещё вспомнил сортировку обменом вот ! нада этими сартировками как-то сделать ток я не пойму что они вообще делают !

Сообщение отредактировано: BAEVIK -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


я значит запутался то ты говоришь любым способом сортировку сделать а но сейчас говоришь что другим методом
надо и что даже двумя или тремя сортировками надо сделать что сам незнаешь выходит так так пожалуйста узнай каким методом тебе сортировать надо или методами какими и скажи.
скажи как сортировать по возврастанию или по убыванию ?
и после чего сортировать надо тебе ? тоесть после readln или после процедуры?

Добавлено через 5 мин.
в поиске набери сортировка массива и еще набери сортировку обменом и тогда может вспомнишь какие тебе сортировки нужны и скажешь тогда и напишешь сам тогда


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Мужской
Реальное имя: САША

Репутация: -  0  +


я разабрался вообще нада по другому сделать вот ! но это в другой задаче !
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.04.2025 20:25
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name