Aula 7: Matemática

`Read` e `ReadLn`

Nas aulas anteriores (veja aula 5 e aula 6) we aprendemos como mostrar os resultados dos nossos cálculos no ecrã. Com write e writeln os nossos programas podem haver output. Cada programa deve haver output, mas em muitos casos um programa também precisa de input. O utilizador dá o seu nome, ou dá números para processar. Ou mais simples, o utilizador quer haver controlo sobre o programa. Por exemplo, o utilizador pode parar a execução do programa com o botão 'escape'.

PASCAL: Com Read e ReadLn podemos obter informação via o teclado. Estas funções conseguem ler valores e caracteres do teclado e directamente armazenar-los nas variáveis. A forma geral das instruções é

Read(variable_list);

ReadLn(variable_list);

Aqui variable_list é uma lista de variáveis a ler, seperado pelas vírgulas. Por exemplo

Read(a, b, i);

Nota que as variáveis não são obrigatoriamente do mesmo tipo. No exemplo acima podem ser do tipo real, boolean e integer respectivamente (ou outros tipos). Como exemplo

PROGRAM ReadExample;

VAR n1, n2: integer;

begin
    WriteLn('Faz o favor de dar dois numeros seperados pelo espaco');
    Read(n1);
    Read(n2);
    WriteLn('n1 = ', n1 ,'    n2 = ', n2);
end.

Quando, corremos o programa o ecrã mostrará a mensagem
Faz o favor de dar dois numeros seperados pelo espaco
O programa para e o utilizador deve dar dois números
128 31<return>
(nota as convenções que nos vamos usar nestas aulas. O texto que o utilizador vai escrever aparece em verde cursivo, e <return> significa tocar o botão 'return', o botão de nova linha). Depois o programa continuará e mostrará
n1 = 128 n2 = 31

A diferença entre Read e ReadLn é que ReadLn põe do lado toda a outra informação até o botão 'return'. Se o utilizador deu mais informação na mesma linha, o programa vai por isto do lado e não vai utilizar esta informação. Read não faz isso. No exemplo acima, se substituimos as instruções Read com ReadLn, o progrma vai atribuir 128 a n1, depois não vai utilizar o valor 31 e consequentemente vai parar e esperar para o utilizador dar um valor para n2.

Matemática

Depois aprender como atribuir um valor a uma variável em aula 6, podemos ver como fazer cálculos. As operações mais basicas são adicionar, subtrair, dividir e multiplicar:

operator	operation
+	addition
-	subtraction
*	multiplication
/	division

Estes quatro operators (operadores), quando usado para cálculos, precisam dois operands. Em PASCAL fica um operador em ambas os lados. Exemplos:

bom mal

3 * a * a

a + b 3 a +

Estas instruções resultam em valores que podemos usar nas atribuições (aula 6). Exemplo:

c := 3 * a;

Outra veze nota a estrutura de atribuição: no lado esquerdo do símbolo := temos uma (só, unica, 1) variável e no outro lado pomos uma expressão que vai resultar num valor para a variável. Este valor deve ser do mesmo tipo do que a variável. Por exemplo, não faz sentido atribuir um valor inteiro a uma variável do tipo boolean: i := TRUE;

Matemática dos inteiros

Os operadores da secção anterior são usados para cálculos do tipo floating point (vírgula flutuante). Para cálculos do tipo inteiro (byte, word, integer, longint, etc), o operação divisidir não existe. Em vez, existem dois novos operadores. Imagine queremos calcular 7/3. Na escola primária aprendemos que isto é igual a 2 com um resto de 1 a dividir por 3:

7			1
------	=	2 +	------
3			3

Em PASCAL existem dois operadores Div e Mod que reproducem estes resultados. Exemplo:

expression	result
`7 Div 3`	`2`
`7 Mod 3`	`1`

Este operadores substituem o operdor / para números inteiros. Os outros operadores ficam iguais (*, +, -).

Prioridade

Em caso de mais de um operador numa só expressão, as regras de prioridade de matemática normal applicam-se. Os operações multiplicar e dividir têm mais alta prioridade. Por isso, quando escrevemos
a := 1 + 3 * 2;
O resultado será 7.
Se queremos mudar a ordem de execução, podemos sempre usar parênteses ( and ). Por exemplo
a := (1 + 3) * 2;
dá 8. Pôr parênteses nunca faz mal!
a := (1 + 3) - (4 + 5);

Exemplos

PROGRAM SimpleCalculations;

VAR x, y, sum, diff, divis: real;

begin
WriteLn('Da o valor da variavel x:');
ReadLn(x);
Writeln('Da o valor de variavel y:');
ReadLn(y);
sum := x + y;
Writeln('A soma de ', x:0:4, ' e ', y:0:4, ' e ', sum:0:4);
diff := x - y;
Writeln('A diferenca entre ', x:0:4, ' e ', y:0:4, ' e ', diff:0:4);
divis := x / y;
Writeln(x:0:4, ' dividir por ', y:0:4, ' da ', divis:0:4);
end.

will produce, when running:

Da o valor da variavel x:
3.4
Da o valor da variavel y:
1.8
A soma de 3.4000 e 1.8000 e 5.2000
A diferenca entre 3.4000 e 1.8000 e 1.6000
3.4000 dividir por 1.8000 da 1.8889

Nota o formato (:0:4), como explicado em aula 6.

PROGRAM IntegerCalculations;

VAR x, y, modd, divv: integer;

begin
WriteLn('Da o valor da variavel x:');
ReadLn(x);
Writeln('Da o valor de variavel y:');
ReadLn(y);
sum := x + y;
Writeln('A soma de ', x, ' e ', y, ' e ', sum);
diff := x - y;
Writeln('A differenca entre ', x, ' e ', y, ' e ', diff);
divv := x Div y;
modd := x Mod y;
Writeln(x, ' dividir por ', y, ' da ', divis, ' mais ', modd, '/', y);
end.

will produce, when running:

Da o valor da variavel x:
13
Da o valor da variavel y:
5
A soma de 13 e 5 e 18
A differenca entre 13 e 5 e 8
13 dividir por 5 da 2 mais 3/5

Mini teste:

Para testar o seu conhecimento, sobre o que aprendeu nesta aula, clique aqui para um teste on-line.

Peter Stallinga. Universidade do Algarve, 16 Maio 2002