Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2006.11.12;
Скачать: [xml.tar.bz2];

Вниз

Помогите, пожалуйста!   Найти похожие ветки 

 
ReWQ   (2006-10-26 16:52) [0]

Как вывести полследовательность чисел в таком порядке??
Пример исходных данных
4
1  3  6  10
2  5  9  13
4  8  12 15
7  11 14 16
Пример результата
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16


 
Anatoly Podgoretsky ©   (2006-10-26 16:55) [1]

Так это же элементарная сортировка, наверно предподователь дал Самостоятельную работу?


 
han_malign ©   (2006-10-26 17:02) [2]


> Так это же элементарная сортировка

- не факт, может сканирование по диагонали /...


 
Raesta ©   (2006-10-26 17:41) [3]

А почему бы не использовать Pos/StrToInt, заносить это в массив и его сортировать?


 
Vendict ©   (2006-10-26 18:22) [4]

чем то напоминает http://acm.timus.ru/problem.aspx?space=1&num=1319
для неё моё решение:

Type
Int=LongInt;
Var
i,j,k,l,m,n:Int;
a:array [1..100,1..100]of Byte;
Begin
Assign(Input,"1319.in");
Reset(Input);
Assign(Output,"1319.out");
Rewrite(Output);

Readln(n);
{ For i:=1 to n do
 For j:=1 to n do
  Read(a[i,j]);}

// Write(a[1,1]," ");
//2.1 1.2
//3.1 2.2 1.3
//4.1 3.2 2.3 1.4
k:=0;
For i:=1 to n do
 For j:=1 to i do
  Begin
   Inc(k);
   a[j,n-i+j]:=k;
  End;
//4.2 3.3 2.4
//4.3 3.4
//4.4
For i:=2 to n do
 For j:=i to n do
  Begin
   Inc(k);
   a[j,n-i-n+j+1]:=k;
  End;

For i:=1 to n do
 Begin
  For j:=1 to n do
   Write(a[i,j]," ");
  Writeln;
 End;
Close(Input);
Close(Output);
End.


чтобы решало твоё, нужно немного поправить. думай сам.


 
oldman ©   (2006-10-26 18:24) [5]


> ReWQ   (26.10.06 16:52)  
> Как вывести полследовательность чисел в таком порядке??
> Пример исходных данных
> 4
> 1  3  6  10
> 2  5  9  13
> 4  8  12 15
> 7  11 14 16
> Пример результата
> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16


А само задание привести?


 
Ketmar ©   (2006-10-26 18:28) [6]

>[5] oldman(c) 26-Oct-2006, 18:24
>А само задание привести?
зачем? явно же или домашнее, или самостоятельная. делать, что ли, нечего -- решать за всяких недорослей задания?


 
oldman ©   (2006-10-26 18:35) [7]


> Ketmar ©   (26.10.06 18:28) [6]


Просто сам вопрос: "мне надо 13245768 вывести как 12345678" :)))
Задание бы видеть. То ли сортировка, толи хрень какая-то...
Тем паче, что в исходных данных таблица, а в выходных - строка.


 
Anatoly Podgoretsky ©   (2006-10-26 18:39) [8]


> явно же или домашнее, или самостоятельная. делать, что ли,
>  нечего -- решать за всяких недорослей задания?

А ведь наверняка при институте есть коперативы по написанию курсовых и лабораторных, но скупость, скупость, здесь же на халяву работу выполнят, только свистнуть надо.


 
oldman ©   (2006-10-26 18:41) [9]


> Anatoly Podgoretsky ©   (26.10.06 18:39) [8]


Да он пока наш треп читает, влетит на сумму по трафику...
:)))))))))))))))))


 
Anatoly Podgoretsky ©   (2006-10-26 18:45) [10]

Его проблемы, еще и со сроками неуспеет, а то еще шутку подкинут, весело будет при сдаче.



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.11.12;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.042 c
15-1161803227
XeRoN
2006-10-25 23:07
2006.11.12
Как в KOL из типа Real перевести в PChar?


2-1161781612
просто_человек
2006-10-25 17:06
2006.11.12
занесение значения ячейки до е изменения(как-то так=)))


15-1161323524
xayam
2006-10-20 09:52
2006.11.12
Уравнение любви


15-1161436618
Альберт
2006-10-21 17:16
2006.11.12
Adobe Flash...


15-1161352552
Мистер Эко
2006-10-20 17:55
2006.11.12
А что означают эти символы " :) "





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский