Pascal/Turbo Pascal - Necesito ayuda no compila

   
Vista:

Necesito ayuda no compila

Publicado por Antonetti Salome (4 intervenciones) el 24/04/2010 17:43:25
Bueno , el ejercicio es asi *Elaborar un algoritmo que una vez leida la hora en formato (horas,minutos,segundos) indique cual sera la hora un segundo despues..
El algoritmo esta bien hecho mi profesor ya melo ha dicho pero para este miercoles lo debo pasar a pascal y no me compila, tal vez la este errando en la anidacion de los if, necesito que alguien me ayude a comprender cual es mi error la verdad que hace 2 dias que me vengo quemando la cabeza y no me puedo dar cuenta en que es lo que estoy fallando.
Soy alumna de primer anio de Licenciatura en ciencias de la computacion ja no es de burra!!
Saludos y gracias a quien me pueda ayudar. Aqui les dejo el programa..

program SegundoDespues;
var
h, m, s:integer;
begin
writeln ('Ingrese hora');
read (h);
writeln ('Ingrese minutos');
read (m);
writeln ('Ingrese segundos');
read (s);
s := s+1;
if h>=24 or m>=60 or s>=60
then
writeln ('La hora es invalida')
else
if s=60
then begin
s := s-60;
m := m+1
end
else
if m=60
then begin
m := m-60;
h := h+1
end
else
if h=24
then
h := h-24
end;
writeln (h,':',m,':',s)
end.
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

RE:Necesito ayuda no compila

Publicado por Diego Romero (997 intervenciones) el 25/04/2010 02:12:54
Cada uno de los operandos del OR deben estar encerrados entre paréntesis:

if (h>=24) or (m>=60) or (s>=60) then ...

Sobra un end;

then
h := h-24;
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

RE:Necesito ayuda no compila

Publicado por juan (44 intervenciones) el 30/04/2010 14:22:35
Fijate ahi...

program SegundoDespues;
var
h, m, s:integer;
begin
writeln ('Ingrese hora');
read (h);
writeln ('Ingrese minutos');
read (m);
writeln ('Ingrese segundos');
read (s);
s := s+1;
if h>=24 or m>=60 or s>=60 then
writeln ('La hora es invalida')
else
if s=60 then begin
s := s-60;
m := m+1;
end
else
if m=60 then begin
m := m-60;
h := h+1;
end
else
if h=24 then
h := h-24;
end;
writeln (h,',',m,',',s)
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