| carnak |  |
|
2011-03-24 16:46 - Respuestas: 0 - Tema nº: 2774418
turbo pascal
program relojote;
uses crt,dos;
var
h,m,s,c : word;
procedure marco;
var
{varibales locales}
f : integer;
begin
for f :=1 to 80 do
begin
gotoxy(f,1);
writeln('*');
gotoxy(f,23);
writeln('*');
end;
for f :=1 to 23 do
begin
gotoxy(1,f);
writeln('*');
gotoxy(80,f);
writeln('* ');
end;
end;
begin
clrscr;
marco;
repeat
gettime(h,m,s,c);
gotoxy(12,12);
writeln(h,' : ',m,' : ',s);
until keypressed;
end.
alguien me puede ayudar a hacer este reloj en grande
| |
|
|
