Esta página foi criada com o intuito de proporcionar aos alunos dos Bacharelatos de

Engª Mecânica, Engª Manutenção Industrial e Engª Mecânica de Transportes

as resoluções das provas práticas efectuadas na disciplina de

Introdução à Computação e Métodos Numéricos

Exercício nº 1

Escreva um programa em Turbo Pascal que mostre no écran a figura seguinte:

1

1 2 1

1 2 3 2 1

1 2 3 4 3 2 1

:

1 … n-2 n-1 n n-1 n-2 … 1

O programa deverá pedir ao utilizador o valor de n. Este valor deverá ser validado de forma a serem aceites apenas valores entre 1 e 9.

Resolução:

Program Ex01;

Uses Crt;

Var i, j, c: Integer;

n: Byte;

Begin

ClrScr;

Repeat

Write('Qual o valor de n? [1..9] ');

ReadLn(n);

Until n IN [1..9];

For i:=1 To n Do

Begin

c:=0;

For j:=1 To 2*i-1 Do

begin

if j<=i then c:=c+1 else c:=c-1;

GotoXY(40+2*(j-i), i);

Write(c:2)

end;

WriteLn;

End;

End.

Comentários para: Nuno Castro

1