Sortowanie punktów

Question

Dzień dobry! Ostatnio zainteresowałem się tym zadaniem w serwisie SPOJ.

http://pl.spoj.com/problems/XYZSORT/

Wykonałem je już w języku C, natomiast teraz chciałem je wykonać w Pascalu (fpc 3.0.0). Niestety, cały czas uzyskuję złe wyniki. Kod się kompiluje, ale dla większości danych wejściowych drukuje złe dane wyjściowe.

Oto kod.(sorry za brak wcięć, ale SPOJ liczy białe znaki, wiec wolę zostawić to co oryginalnie tam wklejałem).

Zgodnie z tym tematem: 

https://forum.pasja-informatyki.pl/90416/spoj-zasady-umieszczania-postow?show=90416#q90416

umieszczam tylko fragment kodu dot. rozwiązania zadania, aby nie psuć zabawy innym. 

https://gist.github.com/anonymous/eca06a7d9aa5d6e02a8f8e049ce06285

Tylko proszę się nie czepiać że gównianie ponazywane zmienne czy brak wcięć, po prostu spoj liczy literki bo  to zadanie typu challenge. Interesuje mnie tylko czemu odpowiedź jest błędna. Kombinowałem już chyba na wszystkie sposoby z nawiasami w wyrażeniu If przy spójnikach Or oraz And ale nic to nie daje, a podejrzewam, że tam coś nie gra).

 

Dziękuję i pozdrawiam.

 

 

 

Comments

Ode mnie taka propozycja dotycząca rozwiązywania zadań, w których chodzi o jak najkrótszy kod.

Napisz najpierw program, który zawiera dużo znaków, ale jest czytelny i działa. Dopiero później powoli go skracaj, bo inaczej szybko się pogubisz.

Answer 1

Poradziłem właśnie sobie z zadaniem, niepotrzebnie tu pisałem. Temat można zamknąć.