summaryrefslogtreecommitdiffhomepage
path: root/pt-br/pascal-pt.html.markdown
blob: 72302695a4fce58f3cef2c077479244ed530973a (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
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
---
language: Pascal
filename: learnpascal-pt.pas
contributors:
    - ["Ganesha Danu", "https://github.com/blinfoldking"]
    - ["Keith Miyake", "https//github.com/kaymmm"]
    - ["Raul Almeida", "https://github.com/almeidaraul"]
translators:
    - ["Raul Almeida", "https://github.com/almeidaraul"]
lang: pt-br
---


>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
    80
        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, com 256 caracteres
    vet_multd : array of array of INTEGER;
        // vetores de vetores são vetores multidimensionais
        // 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
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;
           // 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];
           // 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;
           // defina o tamanho de vetores dinâmicos antes de usá-los

// 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 - ignora o resto) 
    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'; //concatenaçã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; 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.
```

```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
	{ 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)
    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

    // escrever valor de inutil (sempre 3, já que salvainteiro não a altera)
    WRITELN('inutil = ', inutil); 
END.

```