Kess DuKe
-
Total Posts
:
56
-
Reward points
:
0
- Joined: Aug 11, 2004
|
Who's the best programmer?
-
Dec 31, 2008 04:37
Program rajzolo_wasd;
Uses crt;
Var
x,y:integer;
gomb:char;
Begin
Textcolor(14);
Clrscr;
x:=40;
y:=13;
Gotoxy(x,y);
Repeat
gomb:=readkey;
If(gomb='w')then begin
y:=y-1;
Gotoxy(x,y);
Gotoxy(1,1);
Write(x,',',y);
Gotoxy(x,y);
end;
If(gomb='a')then begin
x:=x-1;
Gotoxy(x,y);
Gotoxy(1,1);
Write(x,',',y);
Gotoxy(x,y);
end;
If(gomb='s')then begin
y:=y+1;
Gotoxy(x,y);
Gotoxy(1,1);
Write(x,',',y);
Gotoxy(x,y);
end;
If(gomb='d')then begin
x:=x+1;
Gotoxy(x,y);
Gotoxy(1,1);
Write(x,',',y);
Gotoxy(x,y);
end;
If(gomb='n')then write('*');
If(gomb='m')then write(' ');
Until(gomb='x');
End.
It is written in Free Pascal and you can draw with it.
<message edited by Kess DuKe on Dec 31, 2008 04:40>
|
|
immortaldanmx
-
Total Posts
:
2966
-
Reward points
:
9215
- Joined: Nov 13, 2003
- Location: Virginia, USA
|
Re:Who's the best programmer?
-
Dec 31, 2008 04:52
Thats terrible. Tony Stark could build that in a cave with scraps.
Kidding. I havent programmed since I had Visual Basic class and played with Python because I was bored in Networking.
I dont want to celebrate, I want to sell you hate.
|
|
locopuyo
-
Total Posts
:
3138
-
Reward points
:
41070
- Joined: Jan 10, 2005
- Location: Minneapolis
|
Re:Who's the best programmer?
-
Dec 31, 2008 19:27
ew delphi
"If you knew how good I am you would think I'm modest."
|
|