Pascal/Turbo Pascal - Necesito ayuda

 
Vista:

Necesito ayuda

Publicado por Alejandro (7 intervenciones) el 03/11/2012 23:36:59
Buenas. Miren necesito ayuda para la realizacion de un programa, en una de la partes se me pide que cree un programa que recoja dos horas diferentes en horas y minutos introducidos por el usuario y que realice la resta. El problema esta en que no se como recojer la hora como me la piden y es extrictamente que sea igual que en la siguiente interfaz:

Inserte hora de entrada (hh mm): 08 21
Inserte hora de salida (hh mm): 17 48

¿A alguien se le ocurre como puedo hacerlo? Tiene que ser exactamente igual.
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

Necesito ayuda

Publicado por ramon (2158 intervenciones) el 04/11/2012 17:22:38
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
{A ver si esto sirve}
 
program horas;
  uses
     crt;
  var
    shh, ehh : string[5];
    error : integer;
    ent, sal : real;
 
  begin
     clrscr;
     writeln(' Las entradas Seran [ hh.mm ] En Este Formato');
     writeln;
     write('  Inserte Hora De entrada : ');
     readln(ehh);
     write('  Inserte Hora de Salida  : ');
     readln(shh);
     val(ehh,ent,error);
     val(shh,sal,error);
     writeln('   La Entrada Fue A Las : ',ent:0:2,' H');
     writeln('   La Salida Fue A Las  : ',sal:0:2,' H');
     writeln('   El Resultado Es      : ',sal - ent:0:2,' H');
     readln;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Necesito ayuda

Publicado por Alejandro (7 intervenciones) el 04/11/2012 20:56:43
Muchas gracias. Tu programa me ha inspirado para intentar otra cosa. lamentablemente, el punto que divide las horas de los minutos me sobra ¿se puede quitar de algun modo?
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

Necesito ayuda

Publicado por ramon (2158 intervenciones) el 04/11/2012 21:23:31
Si pero entonces tendrias que poner 4 variavles y entrar las 4 ejemplo ;

var
shh, ehh, smm, emm : real;
ent, sal : real;

write(' Inserte Hora De entrada : ');
readln(ehh);
write(' Inserte Minutos De entrada : ');
readln(emm);
write(' Inserte Hora de Salida : ');
readln(shh);
write(' Inserte Minutos De salida : ');
readln(smm);

como podrás apreciar es mas lio.

Otra seria la misma cadena con la hora y minutos todo junto [ 1230 ] y separar por pares
o sea 12 y 30 pero observa si en vez de entrar [ 1230 ] entra [130 ] la operación fallaría puesto
que tomaría 13 y 0 mal.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Necesito ayuda

Publicado por Alejandro (7 intervenciones) el 04/11/2012 21:43:56
Muchas gracias por todo.Ya veo que es mas lio, pero esque necesito que sea asi. Espara un trabajo de la universidad, y en esto tenia la duda y sin solucionarla no podia continuar
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