simbolos,urgente

[rdbp]

boas!gostava de saber como posso utilizar os simbolos em pascal?e se alguem me arranja uma tabela com os mesmos.

obrigado

[Gooden]

usas uma tabela de ascii... procura no tio google

[rdbp]

mas a mim disseram-me k bastava carregar no alt e escrever um numero dessa tabela que aprecia logo o simbolo,mas k nao dava em todos os pcs...

e ja agr explica-me melhor como se usa a tabela?eu queria que os simbolos aparecessem,mas sem usar o char,tipo fazer uma tabela entendes?

[mr.oculus]

pq vc não quer usar o char ?

[rdbp]

porque a outra maneira pareceu-me muito mais simples e rapida,e podes logo ver os simbolos e n necessitas de correr o programa

[JoaoRodrigues]

Mas queres um programa, ou algo que te diga os simbolos?

[rdbp]

nao eu quero saber se ha uma forma de usar um comando para escrver os simbolos e eles aparecerem logo na janela sem ter que correr o programa para ver se foram bem colocados

[passarito]

Boas,

tu e as tuas dúvidas existenciais.....

faz copy/paste do programa abaixo e corre-o no Pascal

Diz lá se é isso que tu queres?

USES CRT;

VAR CH:CHAR;
    cont,I:INTEGER;

PROCEDURE CARACTERES;
BEGIN
  clrscr;
  cont:=0;
  for I:=1 to 255 do begin
    cont:=cont+1;
    writeln(i,'->',chr(i));
    if cont=23 then begin
      cont:=0;
      readln;
      clrscr;
    end;
  end;
  readln;
end;

procedure codtec;
begin
clrscr;
repeat
  ch:=readkey;
  if ch=#0 then begin
    write('? -> #0 #');
    ch:=readkey;
  end
  else write(ch,' -> #');
  writeln(ord(ch));
until ch=#27;
end;

BEGIN
  WRITELN;
  WRITELN('1 - CARACTERES');
  WRITELN('2 - CODIGO TECLAS');
  REPEAT
    CH:=READKEY;
  UNTIL CH IN ['0'..'2'];
  CASE CH OF
    '1':CARACTERES;
    '2':CODTEC;
    '0':HALT;
  END;
END.

[passarito]

Obrigado pelo "colorido" Triton

[Triton]

Obrigado pelo "colorido" Triton

Sempre às ordens! 😉

[CrzB]

para usares os caracteres da tabela ascii, consultas a tabela ves o numero do simbolo que desejas e usas : "#(numero)"

Por exemplo : #219

Espero ter ajudado....