Jump to content

problema de cinte sis con lazarus y pascal


mrsanty

Mensajes recomendados

 
hola todos, les cuento, estoy asiendo un curso de programación en la escuela, y tengo como trabajo practico hacer un pequeño programa el cual 
yo tengo que poner diferentes valores y el programa me dice cual es la temperatura máxima del día. 
el lenguaje que estoy viendo es lazarus y pascal , debajo del código les envío una foto del error que me sale cuando lo ejecuto, según dice el programa es un " ; " 

este es el código. el lenguaje que estoy viendo es lazarus y pascal 
PROGRAM temperatura ;
function leer_temperatura(var temp:integer):integer;
var
  texto1, texto2 :string;
BEGIN
repeat
write ('Ingrese una temperatura ');
read (temp) ;
if (temp < -30) or (temp >100) then writeln ('Temperatura fuera de rango. Ingrese nuevamente');
until (temp <= -30) and (temp <= 100) ;
texto1:='La temperatura maxima del dia es:';str(temp;texto2);
texto3:= texto1 +texto2 +' grados') ;
readln;
{program principal}
 Var texto3 : string ;
   readln (temp);
   texto3:= leer_temprratura(texto3);
   writeln (texto3);
readln;
END.
 
Debes iniciar sesión para ver el contenido del enlace en esta publicación.

 

Enlace para comentar
Compartir en otros sitios

Unirse a la conversación

Puedes publicar ahora y registrarte más tarde. Si tienes una cuenta, regístrate para publicar con su cuenta.

Guest
Responder a este tema...

×   Has pegado contenido con formato .   Eliminar formato

  Only 75 emoji are allowed.

×   Tu enlace se ha incorporado automáticamente.   Mostrar un enlace en su lugar

×   Se ha restaurado el contenido anterior. .   Borrar editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recientemente navegando por este tema   0 miembros

    • No hay usuarios registrados visitando esta página.
×
×
  • Crear nuevo...