summaryrefslogtreecommitdiffhomepage
path: root/pt-br
diff options
context:
space:
mode:
authorRaul Gomes Pimentel de Almeida <haltsimog@gmail.com>2019-02-11 19:58:20 -0200
committerRaul Gomes Pimentel de Almeida <haltsimog@gmail.com>2019-02-11 19:58:20 -0200
commita689a8c7dbef6b6148ba10ebcf910fc77a98ccae (patch)
tree83ced17b720b30df993eaf41ae11f47fec5d99ab /pt-br
parentd5529d632ff29549db61296e9c21d195625037cc (diff)
Minor changes on line breaking for Pascal in pt-br
Diffstat (limited to 'pt-br')
-rw-r--r--pt-br/pascal-pt.html.markdown84
1 files changed, 57 insertions, 27 deletions
diff --git a/pt-br/pascal-pt.html.markdown b/pt-br/pascal-pt.html.markdown
index 3c6343ca..d6d675c3 100644
--- a/pt-br/pascal-pt.html.markdown
+++ b/pt-br/pascal-pt.html.markdown
@@ -2,7 +2,9 @@
language: Pascal
filename: learnpascal.pas
contributors:
- - ["Raul Almeida", "http://github.com/almeidaraul"]
+ - ["Ganesha Danu", "https://github.com/blinfoldking"]
+ - ["Keith Miyake", "https//github.com/kaymmm"]
+ - ["Raul Almeida", "https://github.com/almeidaraul"]
---
@@ -11,7 +13,8 @@ fonte : [wikipédia](https://pt.wikipedia.org/wiki/Pascal_(linguagem_de_programa
-Para compilar e executar um programa em Pascal, você pode usar o freepascal, um compilador gratuito. [Faça o download aqui](https://www.freepascal.org/)
+Para compilar e executar um programa em Pascal, você pode usar o freepascal,
+um compilador gratuito. [Faça o download aqui](https://www.freepascal.org/)
```pascal
//Corpo de um programa em Pascal
@@ -22,7 +25,8 @@ Para compilar e executar um programa em Pascal, você pode usar o freepascal, um
}
//cabeçalho do programa
-PROGRAM aprendendo_pascal; //<-- não esqueça o ponto e vírgula. O nome do programa deve começar com uma letra.
+PROGRAM aprendendo_pascal; //<-- não esqueça o ponto e vírgula. O nome do
+programa deve começar com uma letra.
CONST
{
@@ -40,8 +44,11 @@ VAR
//programa de fato
BEGIN
{
- aqui ficam todas as instruções que não pertencem nem a funções nem a procedimentos
- blocos de código começam com BEGIN e terminam com END (como as chaves em C)
+ aqui ficam todas as instruções que não pertencem nem a funções
+ nem a procedimentos
+
+ blocos de código começam com BEGIN e terminam com END
+ (como as chaves em C)
}
END. //o "end" no final do programa requer um ponto final.
```
@@ -65,16 +72,20 @@ PROGRAM Learn_More;
CONST
PI = 3.141592654;
GNU = 'GNU''s Not Unix';
- // a convenção é usar caixa alta para constantes
- // constantes têm valores fixos que só podem ser alterados antes da compilação
- // constantes podem ser de qualquer tipo nativo (integer, real, boolean, char, string)
+ { a convenção é usar caixa alta para constantes
+
+ constantes têm valores fixos que só podem ser alterados
+ antes da compilação
+
+ constantes podem ser de qualquer tipo nativo (integer, real, boolean,
+ char, string)
TYPE
vet_char : array [0..255] of CHAR;
- // isso declara um novo tipo de variável, vet_char, que tem 256 caracteres
+ // isso declara um novo tipo de variável, vet_char, com 256 caracteres
vet_multd : array of array of INTEGER;
// vetores de vetores são vetores multidimensionais
- // pode-se definir vetores de tamanho 0 (daí, usa-se alocação dinâmica)
+ // use vetores de tamanho 0 (daí, usa-se alocação dinâmica)
// vetores do tipo vet_multd são de duas dimensões
//declarando variáveis
@@ -91,14 +102,14 @@ VAR
// uma variável que guarda um caractere
// caracteres têm 8 bits
str : STRING;
- // esse tipo de variável não é padrão, mas é incluído na maioria dos compiladores
+ // STRING não é um tipo padrão, mas vem na maioria dos compiladores
// string é um vetor de caracteres com tamanho padrão de 255 elementos
s : STRING[50];
- // você pode especificar o tamanho de uma string desta maneira para otimizar o uso de memória
+ // especificar o tamanho de uma string assim otimiza o uso de memória
my_str: vet_char;
// aqui, uma variável de um tipo personalizado declarado acima
my_2d : vet_multd;
- // vetores de alocação dinâmica de memória precisam receber um tamanho antes de serem usados
+ // defina o tamanho de vetores dinâmicos antes de usá-los
// outros tipos de dados (pascal é uma linguagem fortemente tipada)
@@ -127,11 +138,12 @@ BEGIN
str := 'apple';
bool := true;
//pascal não é case-sensitive (não diferencia maiúsculas de minúsculas)
- //uma opção de organização é usar maiúsculas para termos da linguagem (BEGIN, END, INTEGER, etc) e constantes
- //aritmética
+ // uma opção de organização é usar maiúsculas para termos da linguagem
+ // (BEGIN, END, INTEGER, etc) e constantes
+ // aritmética
int := 1 + 1; // int deixa de ser 1 e passa a ser 2
int := int + 1; // int = 2 + 1 = 3;
- int := 4 DIV 2; //int = 2 (DIV é uma divisão inteira, ou seja, o resto é "jogado fora")
+ int := 4 DIV 2; //int = 2 (DIV é uma divisão inteira - ignora o resto)
int := 3 DIV 2; //int = 1
int := 1 DIV 2; //int = 0
@@ -145,7 +157,8 @@ BEGIN
c := str[1]; //acessando elementos de um vetor: vetor[índice do elemento]
str := 'hello' + 'world'; //concatenção de strings
- my_str[0] := 'a'; // só se pode atribuir valores a vetores elemento por elemento (não o vetor inteiro de uma vez)
+ my_str[0] := 'a'; { só se pode atribuir valores a vetores elemento
+ por elemento (não o vetor inteiro de uma vez) }
// LAÇOS
WHILE (ch != 'a') DO
@@ -155,10 +168,15 @@ BEGIN
writeln('ch é igual a c');
END;
- SETLENGTH(my_2d,10,10); // inicialização de um vetor com alocação dinâmica de memória; my_2d vira um 10x10
- FOR c := 0 to 9 DO // vetores começam em 0 e terminam em tamanho-1 (exceto se, na declaração do tipo, forem especificados valores diferentes)
- FOR d := 0 to 9 DO // a variável usada em um laço FOR deve ter sido declarada no cabeçalho do programa
- my_2d[c,d] := c * d; // acessam-se elementos de vetores multidimensionais com [dimensão1, dimensão2, dimensão3...]
+ SETLENGTH(my_2d,10,10);
+ // inicialização de um vetor com alocação dinâmica; my_2d vira um 10x10
+ FOR c := 0 to 9 DO
+ { vetores começam em 0 e terminam em tamanho-1
+ (exceto se, declarando o tipo, forem especificados valores diferentes) }
+ FOR d := 0 to 9 DO
+ // a variável usada em um laço FOR deve ter sido declarada no cabeçalho
+ my_2d[c,d] := c * d;
+ // acessam-se elementos de vetores multidimensionais com [d1, d2, d3...]
END.
@@ -184,7 +202,14 @@ FUNCTION fatorial_recursiva(CONST a: INTEGER) : INTEGER;
// local_a : INTEGER;
BEGIN
- // obs: o ELSE só funciona se não houver ponto e vírgula no bloco do IF (exemplo: IF a THEN writeln('a'); ELSE writeln('b') é um programa que não compila)
+ { O bloco ELSE só funciona se não houver ponto e vírgula no bloco do IF
+ exemplo:
+ IF a THEN
+ writeln('a');
+ ELSE
+ writeln('b');
+ Isso não permitiria que o programa compilasse }
+
IF a >= 1 THEN
// o valor de retorno é atribuído como se a função fosse uma variável
fatorial_recursiva := a * fatorial_recursiva(a-1)
@@ -196,8 +221,12 @@ END; // o END de funções e procedimentos recebe ponto e vírgula
PROCEDURE salvainteiro(VAR i : INTEGER; inutil : INTEGER);
{ recebe entrada do usuário e salva na variável i
passagem de valor:
- por referência - "VAR i: integer"; implica que alterações na variável i dentro da função são guardadas para o escopo de todo o programa
- por valor - "inutil: integer"; implica que o valor do argumento é copiado e alterações na variável inutil não são guardadas
+
+ POR REFERÊNCIA - "VAR i: integer"; implica que alterações na variável i
+ dentro da função são guardadas para o escopo de todo o programa
+
+ POR VALOR - "inutil: integer"; implica que o valor do argumento é copiado
+ e alterações na variável inutil não são guardadas
}
BEGIN
@@ -211,10 +240,11 @@ BEGIN // programa principal
salvainteiro(i, inutil);
// escrevendo i!
- WRITELN(i, '! = ', factorial_recursion(i)); // escreve e quebra linha; valores numéricos são automaticamente convertidos para texto na escrita
+ WRITELN(i, '! = ', factorial_recursion(i)); // escreve e quebra linha
+ // valores numéricos são automaticamente convertidos para texto na escrita
- // escrevendo o valor de inutil
- WRITELN('inutil = ', inutil); // sempre vai escrever 3, já que o valor de inutil não é alterado por salvainteiro
+ // escrever valor de inutil (sempre 3, já que salvainteiro não a altera)
+ WRITELN('inutil = ', inutil);
END.
```