Jump to content
mrsanty

problema de cinte sis con lazarus y pascal

Recommended Posts

 
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.

 

Share this post


Link to post
Share on other sites

 

 

texto1:='La temperatura maxima del dia es:';str(temp;texto2);

texto1:=('La temperatura maxima del dia es:';str(temp;texto2);

texto1:=('

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

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


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...