Текущий архив: 2006.11.12;
Скачать: CL | DM;
Вниз
Помогите, пожалуйста! Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.121 c
