Hygieenisyyssyiden... Hygienic reasons... Mystery Cache
Teukka: aikansa kutakin, arkistoin tämän.
More
Hygieenisyyssyiden... Hygienic reasons...
-
Difficulty:
-
-
Terrain:
-
Size:  (micro)
Please note Use of geocaching.com services is subject to the terms and conditions
in our disclaimer.
....vuoksi lienee sittemmin luovuttu tämän ohjelmointikielen
käytöstä. For hygienic reasons... ...they gave up using this
programming language long ago.
Mutta joskus vuonna yksi miinus 519 plus 16490 rakennettiin aikas
näppäriä juttuja tällä, katsotaan miten nyt käy. PROGRAM koordit
(Input , Output) ; VAR a , b , c : Real ; E , N : Real ; ratkaisu :
Boolean ; PROCEDURE ratko (a,b,c : Real ; VAR E, N : Real ; VAR
ratkon ; Boolean) ; VAR geo : Real ; BEGIN geo := Sqr(b) - 4 * a *
c; IF geo < 0 THEN ratkon := False ELSE BEGIN ratkon := True ; E
: = (-b - Sqrt(geo))/2.0 * a) ; N : = (-b + Sqrt(geo))/2.0 * a) END
END; BEGIN (*koordit *) Read(a,b,c); ratko(a,b,c,E,N,ratkaisu); IF
ratkaisu THEN Write(´Ratkaisin ´,E, ´tämän !!!!! ´,N) ELSE
Write(´DNF´) END. Tämä pikkuohjelma ei taida oikeasti toimia mutta
kätkö kuitenkin löytyy 60.09.N ja 24.53.0E Ratkaisemisen iloa!
.................................... english: For hygienic
reasons... ...they gave up using this programming language long
ago. But sometime in the year one minus 519 plus 16490 some quite
clever things were done with this one, let's see how it goes now.
PROGRAM coords (Input , Output) ; VAR a , b , c : Real ; E , N :
Real ; solution : Boolean ; PROCEDURE solve (a,b,c : Real ; VAR E,
N : Real ; VAR I solve ; Boolean) ; VAR geo : Real ; BEGIN geo :=
Sqr(b) - 4 * a * c; IF geo < 0 THEN I solve := False ELSE BEGIN
I solve := True ; E : = (-b - Sqrt(geo))/2.0 * a) ; N : = (-b +
Sqrt(geo))/2.0 * a) END END; BEGIN (*coords *) Read(a,b,c);
solve(a,b,c,E,N,solution); IF solution THEN Write(´I solved ´,E,
´this !!!!! ´,N) ELSE Write(´DNF´) END. This little program
probably won't work really but anyway the cache can be found at
60.09.N and 24.53.0E Have fun solving!
Additional Hints
(Decrypt)
xlyggv fvta