Foros del Web - (Pascal) problema con read (char )

Foros del Web (http://www.forosdelweb.com/)

- Programación General (http://www.forosdelweb.com/f14/)

- - (Pascal) problema con read (char ) (http://www.forosdelweb.com/f14/pascal-problema-con-read-char-579874/)

(Pascal) problema con read (char )

el problema es que cuando ejecuto este programa en FreePascal(una calculadora), el ejecutor primero me da para leer la variable num 1 , despues cuando tendria que leer la variable car, de tipo char, dice en pantalla 'Teclee un caracter' y ahi no me deja elegir el char, directamente escribe 'Ingrese el segundo numero del calculo'y pasa a leer la variable num2.

podrian ayudarme con el problema? gracias

program Calculadora;
USES CRT;

var
num1,num2:real;
car:char;
begin
ClrScr;
car:='0';
writeln ('Ingrese el primer numero del calculo');
read (num1);

writeln ('Teclee un caracter');
read (car);

writeln ('Ingrese el segundo numero del calculo');
read (num2);

case (car) of

'+' : write (num1 + num2);
'-' : write (num1 - num2);
'*' : write (num1 * num2);
'/' : write (num1 / num2);

else
write ('error');

end;
end.

Re: (Pascal) problema con read (char )

prueba asi:

Código:

program Calculadora;

USES CRT;
 

var

num1,num2:real;

car:char;

begin

ClrScr;

car:='0';

writeln ('Ingrese el primer numero del calculo');

readln (num1);
 

writeln ('Teclee un caracter');

read (car);
 

writeln ('Ingrese el segundo numero del calculo');

read (num2);
 

case (car) of
 

'+' : write (num1 + num2);

'-' : write (num1 - num2);

'*' : write (num1 * num2);

'/' : write (num1 / num2);
 

else

write ('error');
 
 

end;

end.

ojala te sirva

Re: (Pascal) problema con read (char )

ok gracias me sirvio, la verdad deberia leer un poco mas acerca de read/readln, que es lo que tu has cambiado, saludos.