Programa Em Pascal

Escreva um programa Pascal que leia do teclado um inteiro n,

maior ou igual a 1, e que apresente no video n linhas da forma abaixo.

Por exemplo, as seguintes linhas devem ser apresentadas se n = 5.

25

16 16

9 9 9

4 4 4 4

1 1 1 1 1

Se n < 1, uma mensagem de erro deve ser apresentada no video.

}

program Q1AD1(input{teclado}, output{video});

procedure ler_valor_n (var n{s}: integer);

begin

write(output, 'Informe valor de n: ');

readln(input, n);

if n < 1 then

writeln(output, 'O valor de n deve ser maior ou igual a 1.');

end;

procedure imprimir_linhas (n{e}: integer);

var

i,j: integer;

begin

for i:=n downto 1 do

begin

for j:=1 to (n-i)+1 do

write(output, i*i:4 , ' ');

writeln(output)

end;

end;

var

n: integer;

begin

ler_valor_n(n);

imprimir_linhas(n)

end.

{

Faca um programa Pascal que leia repetidamente strings do teclado e diga:

(a) Se a string lida possui apenas vogais;

(b) Se a string lida possui apenas digitos.

Seu programa deve terminar quando a string lida for vazia.

}

program AP1_Q3(input{teclado}, output{video});

const

vazia = '';

vogais = ['A', 'E', 'I', 'O', 'U', 'a', 'e','i','o','u'];

digitos = ['0' .. '9'];

function apenasVogais(x{e}:string): boolean;

begin

if x=vazia then

apenasVogais:= true

else

apenasVogais:= (x[1] in vogais) and apenasVogais(copy(x,2,length(x)-1));