Introdução a Computação

Aula prática 2 (continuação)

Agora que já fizeste o teu primeiro programa, utiliza um editor da tua preferência e um compilador para escrever e compilar os programas apresentados em baixo. Lembra-te de que cada programa fica num ficheiro separado, cada qual com o seu nome. Compara os programas, executa-os, observa e comenta os resultados.

Programa 1

Um programa com uma instrução:

PROGRAM SingleLine;

begin
writeln('Este e o meu primeiro programa');
end.

Programa 2

Um programa com mais instruções:

PROGRAM MultiLine;

begin
write('Este e ');
write('o meu ');
write('primeiro ');
writeln('programa');
end.

Programa 3

Um programa mal estruturado, mas correrá sem erros. Experimente:

PROGRAM BadLayout; begin write('Este e '); write('o meu '); write('primeiro '); writeln('programa'); end.

Programa 4

Encontre os erros no programa seguinte (tem 3). Use o compilador para eliminar os erros:

PROGRAM 3Erros;

begin
write('Este e ');
write('o meu ')
write('primeiro ');
writeln('programa');
end;

em caso de dúvidas, consulte os apontamentos da aula 4.

Programa 5

O seguinte program soma dois números inteiros, mas está mal estruturado. Faz um melhoramento do mesmo (indentação, rebaptizar os indentifiers, introduz comentário, etc).

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

Programa 6

Elimina os erros do programa seguinte (compile-time erros e run-time erros!)

PROGRAM MyNameAndAge;

Var nome: string;
start, end, idade: integer

begin
write('O seu nome: ');
readln(nome);
write('o ano do seu nascimento: ')
readln(start)
write('O ano actual: ');
readln(end);
writelnn('Exmo. ',(end-start)/0,' voce tem agora ',nome,' anos');
end.