Aula prática 12



1. Faz um programa que determine quanto tempo leva dobrar o capital numa conta do banco. O utilizador deve dar os dados relevantes (por exemplo a taxa de juros).

2. Declare um array de 1000 elementos. Enche o array com números aleatórios e escreve o código para ordenar o array com o segundo algoritmo da aula teórica 22.

3. O programa que se segue deveria calcular o factorial e o somatório de um número introduzido pelo utilizador, no entanto tem alguns erros. Assinale e corrija os erros do programa para que realize o que é pretendido.
  Program Factorial;

  Var num, somatorio, factorial: integer;

  begin
    Writeln(‘Indique um numero inteiro’);
    ReadLn(num);
    while (num>0) do
      begin
        factorial := factorial * num;
        somatorio := somatorio + num;
      end;
    writeln(‘Factorial ‘, factorial, ‘Somatorio ‘,
            factorial);
  end.



4. Define um novo tipo de variável para guardar um coordenado ou vector (x, y, z). Depois escreve uma função que recebe um coordenado e devolve o comprimento do vector (a distância até o origem).

soluções