Weirdo

PROGRAM WEIRDO; USES CRT; VAR N:INTEGER; TMP:INTEGER; I:INTEGER; J:INTEGER; A:ARRAY[1..7] OF INTEGER; BEGIN A[1]:=1;A[2]:=3;A[3]:=5;A[4]:=7;A[5]:=6;A[6]:=4;A[7]:=2; N:=7; J:=A[N]; FOR I:=1 TO N-1 DO BEGIN TMP:=A[J]; A[J]:=J; J:=TMP; END; WRITELN('RESULT IS'); FOR I:=1 TO N DO BEGIN WRITE(A[I],' '); END; END. What the…

Continue Reading

Google advertising

It’s been nearly 4 years I put google ads into my site (http://www.tepetaklak.com) I specifically targeted the kanji enthusiasts and wrote a small c program to extract the kanjis out of the default kanji font of the jwpe (japanese editor)…

Continue Reading