Pascal/Turbo Pascal - Codificación en Pascal (Duda)

   
Vista:

Codificación en Pascal (Duda)

Publicado por wind (26 intervenciones) el 21/04/2014 19:05:05
Saludos.

Realmente he tenido problemas para mostrar los tildes en pantalla. Para solucionar mi problema utilicé ASCII.
Si tienes tiempo compila el siguiente programa en tu PC, ¿Se ven correctamente los caracteres en pantalla?.
¿Existe otra solución mejor? Por ejemplo transformar todo mi programa a UTF-8. Espero ejemplos con dicha implementación. Realmente no quiero dejar de usar pascal.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program infinito;
uses crt;
var
n,n1,c:real;
respuesta:char;
begin
textcolor(white);
gotoxy(1,1);
writeln('Programa creado por Benjam',#161,'n C.');
REPEAT
gotoxy(1,3);
write('Ingrese un n',#163,'mero: ');
readln(n);
write('Ingrese otro n',#163,'mero: ');
readln(n1);
c:=n+n1;
gotoxy(1,6);
writeln('El resultado es: ',c:2:2);
gotoxy(1,8);
write(#168,'Desea ingresar m',#160,'s n',#163,'meros? (S/N): ');
readln(respuesta);
gotoxy(1,3); (*Borra solo la coordenada 1,3 *)
CLREOL;
gotoxy(1,4);
CLREOL;
gotoxy(1,6);
CLREOL;
gotoxy(1,8);
CLREOL;
until (respuesta='n') or (respuesta='N');
gotoxy(1,3);
writeln('Presione un tecla para finalizar el programa.');
readkey;
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Codificación en Pascal (Duda)

Publicado por ramon (2072 intervenciones) el 22/04/2014 11:11:50
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
{Mira esto tu código escrito directo para poder escribir las tildes tienes que poner el teclado en español pero
el teclado del dos no de windows que ese ya lo tienes mira la forma a qui abajo}
 
program infinito;
uses crt;
var
n,n1,c:real;
respuesta:char;
begin
clrscr;
textcolor(white);
gotoxy(1,1);
writeln('Programa creado por Benjam¡n C.');
REPEAT
gotoxy(1,3);
write('Ingrese un n£mero: ');
readln(n);
write('Ingrese otro n£mero: ');
readln(n1);
c:=n+n1;
gotoxy(1,6);
writeln('El resultado es: ',c:2:2);
gotoxy(1,8);
write('¨Desea ingresar m s n£meros? (S/N): ');
repeat
   respuesta := upcase(readkey);
until respuesta in['S','N'];
gotoxy(1,3); (*Borra solo la coordenada 1,3 *)
CLREOL;
gotoxy(1,4);
CLREOL;
gotoxy(1,6);
CLREOL;
gotoxy(1,8);
CLREOL;
until (respuesta='n') or (respuesta='N');
gotoxy(1,3);
writeln('Presione un tecla para finalizar el programa.');
readkey;
end.
 
{Sige estos datos para poner para pascal el teclado en espa¤ol.
pulsa en [ iniciar luego en buscar programas y archivos entra Regedit ]
Ejecutalo  [ Busca HKEY_CURRENT_USER ]
[Busca Keyboard Layout]
pulsa en [ predeterminado ] en la ventana entra [ 40a ] y sal.
 
Ve a iniciar todos los programas accesorios simbolo del sistema entra
en la ventana del dos escrive  [ kb16 sp ] y enter
sal del dos con [ exit ] y enter.
 
ejecuta este programa y esta teclado pascal en epa¤ol.}
 
 program cambiateclado;
 {$M $4000,0,0}
 uses
   crt,dos;
 var
   f : text;
  begin
     assign(f,'c:\windows\system32\autoexec.nt');
  {$I-} reset(f); {$I+}
     if ioresult = 0 then
     begin
        close(f);
        append(f);
        write(f,'REM Install keyboard language lh kb16 sp');
        write(f,#10);
        close(f);
     end;
 
  {Puedes acerlo manual mente entrando en [ c:\windows\system32 ]
  y en la zona final del archivo autoexec.nt escrive esto con bloc de notas
  [ REM Install keyboard language lh kb16 sp ]}
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar