Alguien que de favor me ayude con este programita
Publicado por natalia (1 intervención) el 04/05/2013 00:07:18
tengo este programa y debo usar procedure en las partes donde estan los gotoxy que son las que separe con un renglón pero sinceramente no se como quedaría, de antemano las gracias a quien sea tan amable de orientarme
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program mover;
uses crt;
const knesc=#27;
kbarr=#72;{flecha arriba}
kabj=#80{flecha abajo}
kbiz=#75; {flecha izquierd}
kdere=#77; {flecha derecha}
var x,y:integer;
movida, salida:char;
procedure pantalla;
begin
textbackground (red); textcolor (yellow);
clrscr;
gotoxy (2,1); write('presione esc para salir');
gotoxy (2,25); write ('use las flechas para moverse');
window(1,2,80, 40); textbackground (black); textcolor (white);
clrscr;
end;
begin
pantalla;
x:=30;
y:=12;
gotoxy (x,y); write('*'); gotoxy (x-1,y);write('*');
end;
if movida=kbiz then
begin
x:= x-1;
gotoxy(x,y); write('*'); gotoxy (x+1,y);write('');end;
if movida kabj then
begin
y:=y+1;
gotoxy(x,y); write('*'); gotoxy( x,y-1); write (''); end;
if movida = kbarr then
begin
y:=y-1;
gotoxy(x,y); write('*'); gotoxy(x,y+1);write(''); end;
until movida = knesc;
end.
Valora esta pregunta
0