Fdp - tec em comp ad1

[pic]

Fundação CECIERJ - Vice Presidência de Educação Superior a Distância
Curso de Tecnologia em Sistemas de Computação
Disciplina Fundamentos de Programação
AD1 2° semestre de 2012.

IMPORTANTE:
- As respostas (programas) deverão ser entregues em papel e em disquete, CD ou DVD para serem testados.
- A AD é um mecanismo de avaliação individual. As soluções podem ser buscadas por grupos de alunos, mas a redação final de cada prova tem que ser individual.
- Atenção: ADs enviadas pelo correio devem ser postadas cinco dias antes da data final de entrega estabelecida no calendário de entrega de ADs.

1a Questão (2,5 pontos)

Escreva um programa Pascal que leia do teclado um inteiro n, maior ou igual a 1, e que apresente no vídeo n linhas da forma abaixo.
Por exemplo, as seguintes linhas devem ser apresentadas se n = 5.

0 0 0 0 5
0 0 0 4 4
0 0 3 3 3
0 2 2 2 2
1 1 1 1 1

Se n < 1, uma mensagem de erro deve ser apresentada no vídeo.

program questao_01_AD1_Fund_Prog_2012_2(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 do if j >= i then write(output, i:4, ' '); end; writeln(output) end; var n: integer;

begin ler_valor_n(n); imprimir_linhas(n) end. 2a Questão (2,5 pontos)

Faça um programa Pascal que leia 100 números inteiros do teclado e informe:
(a) o menor valor lido,
(b) o maior valor lido,
(c) a média (md) dos valores lidos,
(d) o número de valores pares,
(e) o número de valores iguais ao valor imediatamente anterior.

program questao_02_AD1_Fund_Prog_2012_2(input{teclado}, output{vídeo});

const N = 100;

type