Vurderinger er meget velkomne.
Skriv gerne en note til høje/lave votes!
Der er indbygget en fejl i delphi program koden som du skal finde for at kunne løse opgaven.
Koordinatet er let at finde hvis du har den rette "skill" og værktøj.
Måske du også kan løse gåden med alm. kendskab til programmering.
Brug geotjekkeren når du har fundet koordinatet, google er ikke helt enig med min Garmin, så geotjekkeren giver dig lidt ekstra information.
Cachen er en (skjult) plastkasse på 6x10x3 cm
Der er plads til Geocoins, men ikke bytteting.
Indhold fra start:
Log, Blyant, FFC, Muggler info
Bytteting: -
program Geocoord;
{$APPTYPE CONSOLE}
uses
SysUtils;
Const Two = 16;
Var
Coord1, Coord2, S, S2: String;
Value1: Char;
Value2, E,N,W, iCoord: Integer;
begin
Coord1 := 'N 55 42.500';
Coord2 := 'E 012 34.500';
// 123456789012
Writeln(Coord1, #$20, Coord2); //45
Value1 := #$3E; //88
Value2 := 2+Two; //95
Dec(Value2); //22
S := IntToStr(Value2); //64
S2 := Copy(Coord1, 1, 8) + Copy(Coord2, 10, 3); //54
Coord2 := Copy(Coord2, 1, 9) + Copy(Coord1, 9, 3); //36
S2[10] := Value1; //48
Coord2[10] := Chr(Value2); //36
Coord1 := StringReplace(S2, '>', '8', [RfReplaceAll]); //94
Coord2 := StringReplace(Coord2, #$11, '4', [RfReplaceAll]); //29
Coord2 := StringReplace(Coord2, '00', S, [RfReplaceAll]); //25
Coord2 := StringReplace(Coord2, '17', //27
'"insert comment from line with error"', []) //19
S2 := Copy(Coord1,9,3); //12
iCoord := StrToIntDef(S2, 300) + 91; //45
Writeln(Copy(Coord1,1,8), icoord, #$20, Coord2); //61
end.