Pascal/Turbo Pascal - no estoy entendiendo porque mi programa no complia

   
Vista:

no estoy entendiendo porque mi programa no complia

Publicado por tammara (5 intervenciones) el 15/08/2017 21:21:41
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
Program Hora;
var
   hh,mm,hh1,mm1,a,b,c,d,e: integer;
Begin
   read(a,b);
   hh:= a div 100;
   mm:= a mod 100;
   hh1:= b div 100;
   mm1:= b mod 100;
   c:= hh+hh1;
   e:= mm+mm1;
    if (c>=24) and (e>=60) then
     begin
          e:= e-60;
          c:= c-24;
          c:= c+1;
          d:= 1;
          writeln (d c e)
     end
      else if (c<24) and (e<60) then
             begin
                  d:= 0;
                  writeln(d c e)
             end
               else if (c>24) and (e<60) then
                      begin
                          c:= c-24;
                          d:= 1;
                          writeln (d c e)
                      end
                        else if (c<24) and (e>60) then
                               begin
                                    t:= true;
                                    e:= e-60;
                                    c:= c+1;
                                    d:= 0;
                                    witeln (d c e)
                               end
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

no estoy entendiendo porque mi programa no complia

Publicado por Yamil Bracho (1 intervención) el 15/08/2017 21:55:43
Y concretamente cual es el error que te da ? Vi un "witeln" en vez de un WriteLn...
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

no estoy entendiendo porque mi programa no complia

Publicado por Tammara (5 intervenciones) el 16/08/2017 00:50:22
El write ya lo arregle pero a la hora de compilarlo me salta syntax error "(" exepted but "identifier c" found y no se cual es el error porque para mi el codigo esta bien
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

no estoy entendiendo porque mi programa no complia

Publicado por ramon (2113 intervenciones) el 15/08/2017 22:28:54
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
{El programa ya funciona pero no se si como tu quieres }
 
 
Program Hora;
var
hh,mm,hh1,mm1,a,b,c,d,e: integer;
t : boolean;
Begin
write('   Entre hora    [a] : ');
readln(a);
write('   Entre minutos [b] : ');
readln(b);
hh:= a div 100;
mm:= a mod 100;
hh1:= b div 100;
mm1:= b mod 100;
c:= hh+hh1;
e:= mm+mm1;
if (c>=24) and (e>=60) then
begin
e:= e-60;
c:= c-24;
c:= c+1;
d:= 1;
writeln (d, c, e)
end
else if (c<24) and (e<60) then
begin
d:= 0;
writeln(d, c, e)
end
else if (c>24) and (e<60) then
begin
c:= c-24;
d:= 1;
writeln (d, c, e)
end
else if (c<24) and (e>60) then
begin
t:= true;
e:= e-60;
c:= c+1;
d:= 0;
writeln (d, c, e)
end
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
2
Comentar

no estoy entendiendo porque mi programa no complia

Publicado por Tamma (5 intervenciones) el 20/08/2017 02:24:31
Si, era asi, muchas gracias!!!
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
Imágen de perfil de Brais

no estoy entendiendo porque mi programa no complia

Publicado por Brais goldeabreu@gmail.com (2 intervenciones) el 20/08/2017 02:18:49
writeln (d c e)

así sin mirando por encima , ahí faltan comas.

cuando compiles dirá que está esperando que cierres el paréntesis pero encuentra una C.
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