Pascal/Turbo Pascal - Programa en Pascal de un cronometro

   
Vista:

Programa en Pascal de un cronometro

Publicado por Alessia (2 intervenciones) el 25/04/2015 04:22:10
Hola, tengo que hacer un programa en Pascal que simule a un cronómetro, este deberá contener las funciones de iniciar (tecla i), parar (letra p), reiniciar (letra r), seguir (letra s) y salir (letra q). Además debe tener una barra de asteriscos (en la parte inferior izquierda de la pantalla ) que represente los minutos y otra barra abajo de caritas que represente el numero de segundos. La verdad es que estoy empezando a programar y no se como hacer esto.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Programa en Pascal de un cronometro

Publicado por ramon (2072 intervenciones) el 25/04/2015 21:59:31
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
{A ver si esto ayuda }
program conometro;
  uses
      crt;
 
    var
       hor, min, seg, dec : Word;
       conome, sal : boolean;
       tecla : char;
 
    begin
       clrscr;
       gotoxy(3,3);write('iniciar =[I],parar =[P],reiniciar = [R],seguir =[S],',
                         'salir =[Q]');
       hor := 0;
       min := 0;
       seg := 0;
       sal := false;
       conome := false;
       gotoxy(20,12);write('         ');
       gotoxy(20,12);write(hor,':',min,':',seg);
     repeat
         if keypressed then
         begin
            tecla := upcase(readkey);
         end;
     if conome = true then
     begin
         delay(960);
         dec := 60;
         if dec = 60 then
         begin
            dec := 0;
            seg := seg + 1;
            if seg = 60 then
            begin
               seg := 0;
               gotoxy(3 + seg,21);clreol;
               min := min + 1;
               if min = 60 then
               begin
                  min := 0;
                  gotoxy(3 + min,24);clreol;
                  hor := hor + 1;
                  if hor = 23 then
                  hor := 0;
               end;
            end;
         end;
           gotoxy(20,12);write('         ');
           gotoxy(20,12);write(hor,':',min,':',seg);
           gotoxy(3 + min,24);write(chr(42));
           gotoxy(3 + seg,21);write(chr(1));
       end;
     if tecla = #73 then
     begin
        if conome = false then
        conome := true;
     end;
     if tecla = #80 then
     begin
        if conome = true then
        conome := false;
     end;
     if tecla = #82 then
     begin
        conome := true;
        hor := 0;
        min := 0;
        seg := 0;
        gotoxy(20,12);write('         ');
        gotoxy(20,12);write(hor,':',min,':',seg);
        gotoxy(3 + min,24);clreol;
        gotoxy(3 + seg,21);clreol;
        gotoxy(3 + min,24);write(chr(42));
        gotoxy(3 + seg,21);write(chr(1));
     end;
     if tecla = #83 then
     begin
        if conome = false then
        conome := true;
     end;
     if tecla = #81 then
     sal := true;
     until sal = true;
    end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Programa en Pascal de un cronometro

Publicado por Alessia (2 intervenciones) el 26/04/2015 03:14:54
Hola, tengo una duda,¿ cómo es que imprimiría en la pantalla los asteriscos y las caritas de los minutos y segundos respectivamente?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Programa en Pascal de un cronometro

Publicado por ramon (2072 intervenciones) el 26/04/2015 11:03:14
Lo esta imprimiendo esto son
gotoxy(3 + min,24);write(chr(42)); esterisco
gotoxy(3 + seg,21);write(chr(1)); carita
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar