(→Delphi) |
(→Mumps) |
||
Linha 882: | Linha 882: | ||
F i=32:1:126 W !,"Caractere ",i,": ",$C(i) | F i=32:1:126 W !,"Caractere ",i,": ",$C(i) | ||
</source> | </source> | ||
aaaaaass ;/^^ | |||
==== Pascal ==== | ==== Pascal ==== |
Edição das 21h31min de 27 de fevereiro de 2014
Este artigo não cita fontes confiáveis. (Janeiro de 2014) |
ASCII (acrônimo para American Standard Code for Information Interchange, que em português significa "Código Padrão Americano para o Intercâmbio de Informação", mas comumente utilizamos a sigla em inglês para referencia direta) é uma codificação de caracteres de sete bits baseada no alfabeto inglês. Cada sequencia de códigos na tabela ASCII corresponde a um caractere, comumente representados pelos 8 bits (equivalente a um byte), sendo que o oitavo bit (da direita para a esquerda) serve como um bit de paridade, utilizado para detecção de erro. Os códigos ASCII representam texto em computadores, equipamentos de comunicação, entre outros dispositivos que trabalham com texto. Desenvolvida a partir de 1960, grande parte das codificações de caracteres modernas a herdaram como base.
A codificação define 128 caracteres, preenchendo completamente os sete bits disponíveis em 27=128 sequências possíveis. Desses, 33 não são imprimíveis, como caracteres de controle atualmente não utilizáveis para edição de texto, porém amplamente utilizados em dispositivos de comunicação, que afetam o processamento do texto.
Tabela ASCII
Caracteres não imprimíveis
Representados como a parte não imprimível da tabela ASCII, os caracteres de controle tiveram sua origem nos primórdios da computação, quando se usavam máquinas teletipo e fitas de papel perfurado.
Caracteres imprimíveis
|
|
|
Exemplo de código para gerar os caracteres acima em diferentes linguagens de programação
Assembly
..start:
mov cx,95 ;número de caracteres
mov dl,32 ;número decimal do primeiro caractere, equivalente a 20H
mov ah,02 ;função que imprime caractere na tela
ASCII:
int 21h
inc dl ;próximo caractere
loop ASCII ;repete mostra caractere
mov ax,4c00h ;encerra o programa e retorna ao sistema operacional
int 21h
Basic
10 FOR I = 32 TO 126
20 PRINT CHR$(I)
30 NEXT I
VB.NET
For A = 50 To 200
Console.WriteLine("Número " & Chr(A))
Next
C
#include <stdio.h>
int main() {
int i;
for ( i = 30; i < 129; i++ ) {
printf( "%c[%d]\n", i , i );
}
return 0;
}
C++
#include <iostream>
using namespace std;
int main() {
for ( char i = 32; i < 127; i++ ) {
cout << i << "[" << (int) i << "]" << endl;
}
return 0;
}
C# - C Sharp
using System;
static void Main(string[] args){
for(int i=32; i<=126; i++)
Console.WriteLine(i+" : "+(char) i);
}
Calc
32
m+
<<
repeat 94
m
sum
1
equ
m+
m
out
printc
<<
endrepeat
Delphi
procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
for i := 32 to 283 do
memo1.lines.add('#',inttostr(i),': ',chr(i));
end;
GML (Game Maker Language)
texto='';
for(i=32;i<=126;i+=1) {
texto+=chr(i)+chr(13); //adiciona o caractere e uma nova linha
}
show_message(texto); //mostra os caracteres
Java
public static void main(String args[]){
for (int i = 32; i <= 126; i++)
System.out.println(i + " : " + (char) i);
}
Javascript
for ( var i = 32; i < 127; console.log( String.fromCharCode( i++ ) ) );
Mumps
F i=32:1:126 W !,"Caractere ",i,": ",$C(i)
aaaaaass ;/^^
Pascal
program ASCII;
var i:integer;
begin
for i := 32 to 126 do
writeln('Caractere ',i,': ',chr(i));
end.
Perl
print chr for 32..126;
Python
for x in range(32, 126): print (chr(x))
Php
for ( $i=32; $i <= 126; $i++ ) {
echo chr($i);
}
Ruby
32.upto(126) do |x|
puts x.chr
end
OpenEdge (Progress)
def var cont as integer.
def var texto as character format "x(10)" EXTENT 255.
do cont = 1 to 255:
assign
texto[cont] = string(cont) + " - " + chr(cont).
end.
disp texto
with no-labels title "The book is on the Table ASCII "
scrollbar-vertical.
Visual FoxPro
FOR i=32 TO 126 STEP 1
? "Caracter " + CHR(i)
ENDFOR