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.