mrsanty Posted November 11, 2014 Report Share Posted November 11, 2014 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. Quote Link to comment Share on other sites More sharing options...
SeruX Posted November 11, 2014 Report Share Posted November 11, 2014 texto1:='La temperatura maxima del dia es:';str(temp;texto2); texto1:=('La temperatura maxima del dia es:';str(temp;texto2); texto1:=(' Quote Link to comment Share on other sites More sharing options...
mrsanty Posted November 11, 2014 Author Report Share Posted November 11, 2014 probé con el paréntesis. y me sigue saliendo el mismo error Quote Link to comment Share on other sites More sharing options...
FaBy Posted November 11, 2014 Report Share Posted November 11, 2014 texto3:= texto1 +texto2 +' grados') ; este parentesis sobra Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.