[ Foro de Pascal ]

Tildes

saludos.

En Pascal, ¿Qué comando me permite escribir con tildes? La idea es que si llevo mi programa a otro computador, los caracteres se vean correctamente.

program bucle;
var
n:integer;
begin
(*Presentacion del programa*)
writeln('Programa creado por Wind');
writeln('Usando while do');
(*Recepcion de datos*)
write('Ingrese numero mayor que cero:');
readln(n);
while (n<=0) do
begin
  write('Por favor, usted debe ingresar un numero mayor que cero:');
  readln(n);
  end;
writeln('Correcto, el numero ingresado es mayor que cero');
readln;
end.   

En Pascal estándar, ninguno.

Cada sistema operativo tiene su codificación, y un programa que lleves de un MsDos a un Windows antiguo o a un Linux o Windows moderno, que tienen distintas codificaciones, necesariamente se verá con las tildes distorsionadas.

En un sistema operativo moderno, como Linux o los últimos Windows, lo habitual es usar la codificación UTF-8, con lo que no tendrías problemas de intercambio de información si usas un compilador moderno como Free Pascal.

Para este último, puedes forzar la codificación UTF-8 incluso en programas de consola, usando la orden "SetConsoleOutputCP(CP_UTF8);" (necesitarás "uses Windows;").

Pero insisto, depende del compilador y del sistema operativo, no hay un método universalmente fiable.

Por ejemplo, ¿Estaría bien lo que hice aquí?, Porque no me muestra el tilde. Utilizo lazarus, en windows.
Muchas gracias por tu respuesta.

program Project1;
uses Windows;
begin
setConsoleOutputCP(CP_UTF8);
write('Número');
readln;
end.   

Hay más detalles que mirar si aun así no funciona.

Por una parte, puedes probar a usar {$CODEPAGE UTF8}

Por otra parte, puede que la codificación de caracteres de consola no sea UTF-8 sino ISO-8859-1 (la "clásica" de Windows), y lo mismo puede ocurrir en el propio entorno de Lazarus (según la versión, puedes tener una opción para cambiar la codificación dentro del menú Herramientas).