summaryrefslogtreecommitdiffhomepage
path: root/pt-br/pascal-pt.html.markdown
blob: 3c6343caf5617f559c870f56f7f04676570e9586 (plain)
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
---
language: Pascal
filename: learnpascal.pas
contributors:
    - ["Raul Almeida", "http://github.com/almeidaraul"]
---


>Pascal é uma linguagem de programação estruturada, que recebeu este nome em homenagem ao matemático e físico Blaise Pascal. Foi criada em 1970 pelo suíço Niklaus Wirth,tendo em mente encorajar o uso de código estruturado. 
fonte : [wikipédia](https://pt.wikipedia.org/wiki/Pascal_(linguagem_de_programa%C3%A7%C3%A3o))



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
//isso é um comentário
{
    isso também é um comentário,
    mas com várias linhas
}

//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.

CONST
    {
        aqui você declara valores constantes
    }
TYPE
    {
        aqui você declara tipos não nativos
    }
VAR
    {
        aqui você declara variáveis
    }

//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)
    }
END. //o "end" no final do programa requer um ponto final.
```

```pascal
//formas de declarar uma variável
VAR a:INTEGER;
VAR b:INTEGER;

VAR 
    a : INTEGER;
    b : INTEGER;

VAR a,b : INTEGER;
```

```pascal
PROGRAM Learn_More;
//agora, mais sobre tipos de dados e operações

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)

TYPE
    vet_char : array [0..255] of CHAR;
        // isso declara um novo tipo de variável, vet_char, que tem 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)
        // vetores do tipo vet_multd são de duas dimensões

//declarando variáveis
VAR
    int, c, d  : INTEGER;
           // três variáveis que guardam valores inteiros
           // inteiros têm 16 bits (vão de -32768 a 32767)
    r    : REAL;
           // uma variável que guarda um valor real
           // reais vão de 3.4E-38 a 3.4E38
    bool : BOOLEAN;
           // uma variável que guarda um valor booleano (verdadeiro ou falso)
    ch   : CHAR;
           // 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 é 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
    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

// outros tipos de dados (pascal é uma linguagem fortemente tipada)

    // tipos adicionais de inteiros
    b    : BYTE;     // faixa [0..255]
    shi  : SHORTINT; // faixa [-128..127]
    smi  : SMALLINT; // faixa [-32,768..32,767] (inteiro padrão)
    w    : WORD;     // faixa [0..65,535]
    li   : LONGINT;  // faixa [-2,147,483,648..2,147,483,647]
    lw   : LONGWORD; // faixa [0..4,294,967,295]
    c    : CARDINAL; // longword
    i64  : INT64;    // faixa [-9223372036854775808..9223372036854775807]
    qw   : QWORD;    // faixa [0..18,446,744,073,709,551,615]

    // tipos adicionais de reais
    rr   : REAL;     // faixa depende da plataforma (8 bits, 16 bits, etc)
    rs   : SINGLE;   // faixa [1.5E-45..3.4E38]
    rd   : DOUBLE;   // faixa [5.0E-324 .. 1.7E308]
    re   : EXTENDED; // faixa [1.9E-4932..1.1E4932]
    rc   : COMP;     // faixa [-2E64+1 .. 2E63-1]

BEGIN
    int := 1;// usa-se := para atribuir valores a variáveis
    r   := 3.14; 
    ch  := 'a';
    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
    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 := 3 DIV 2; //int = 1
    int := 1 DIV 2; //int = 0

    bool := true OR false; // bool = true
    bool := false AND true; // bool = false
    bool := true XOR true; // bool = false

    r := 3 / 2; // usa-se a "/" para divisões entre inteiros
    r := int; // um real pode receber um valor inteiro (mas não o contrário)

    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)

    // LAÇOS
	WHILE (ch != 'a') DO
		BEGIN
			writeln('ch é diferente de a');
			IF (ch = 'c') THEN
				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...]
	

END.
```

```pascal
PROGRAM programacao_com_funcoes;

VAR
    i, inutil : INTEGER;

{ OBS: diferença entre procedimento e função
	função: realiza operações e retorna valor
	procedimento: só realiza operações
} 
//declarando e descrevendo uma função
FUNCTION fatorial_recursiva(CONST a: INTEGER) : INTEGER;
{ calcula a! recursivamente }

// pode-se declarar variáveis locais para funções e procedimentos
// exemplo:
// VAR
//    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)
    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)
    ELSE
        fatorial_recursiva := 1;
END; // o END de funções e procedimentos recebe ponto e vírgula

//declarando e descrevendo um procedimento 
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
}

BEGIN
    WRITE('Insira um inteiro: '); //escreve sem quebrar linha
    READLN(i); //lê i com quebra de linha
    inutil := 4; // inutil não terá seu valor alterado fora do procedimento. 
END;

BEGIN // programa principal
    inutil := 3;
    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

    // escrevendo o valor de inutil
    WRITELN('inutil = ', inutil); // sempre vai escrever 3, já que o valor de inutil não é alterado por salvainteiro
END.

```