Introdução a Computação

Soluções da aula prática 2

Programa 4

PROGRAM TresErros;             (* Indentifier não pode começar com um dígito *)

begin
  write('Este e ');
  write('o meu ');             (* faltava ; *)
  write('primeiro ');
  writeln('programa');
end.                           (* A última end do ficheiro é finalizada com . *)

Programa 5

var x10, a35, soma: real;

begin
  write('Introduza um número: ');
  readln(x10);
  write('Introduza um número: ');
  readln(a35);
  soma := x10 + a35;
  writeln('A soma de ',x10,' e ',a35,' e ',soma);
end.

Programa 6

PROGRAM MyNameAndAge;

Var nome: string;
    start, end, idade: integer              (* compile-time error: faltava ; *)

begin
  write('O seu nome: ');
  readln(nome);
  write('o ano do seu nascimento: ')        (* compile-time error: faltava ; *)
  readln(start)                             (* compile-time error: faltava ; *)
  write('O ano actual: ');
  readln(end);
  writelnn('Exmo. ',nome,'  voce tem agora ',(end-start),' anos');
      (* run-time error: division by zero *)
      (* erro no desenho do programa: trocar "(end-start)" com "nome" *)
end.