Pesquisa de alturas

TRABALHO 1 -
ALGORITMO DE CÁLCULO DE ALTURA

{ Elabore um Programa que solicite/receba o Nome e Altura de 10 Pessoas. Apos receber todos os dados, mostre-os na ordem inversa da sua entrada.

Calcule e mostre a Media das Alturas.

Usar Mapa de Tela.
}

Program Pesquisa_Alturas;
Uses CRT;

Var Qtd_Pesq : Byte; // Controla Repeticao (FOR) e Indice dos Vetores

Vet_Nomes : Array [1..10] OF String[30]; Vet_Alturas : Array [1..10] OF Real;

Ac_Alturas, Media_Alturas : Real;

Begin ClrScr; Gotoxy(15,03); Writeln('>'); Gotoxy(05,05); Writeln('Informe Nome do pesquisado:'); Gotoxy(05,07); Writeln('Informe Altura do pesquisado:');

// Entrada de dados da pesquisa

For Qtd_Pesq := 1 TO 10 Do Begin Gotoxy(37,05); Readln(Vet_Nomes[Qtd_Pesq]);

Gotoxy(37,07); Readln(Vet_Alturas[Qtd_Pesq]);

Gotoxy(37,05); ClrEol; Gotoxy(37,07); ClrEol;

Ac_Alturas := Ac_Alturas + Vet_Alturas[Qtd_Pesq]; End; // Fim do For [1]

Media_Alturas := Ac_Alturas / Qtd_Pesq;

// Saida de dados - Mostra dados do pesquisado e a Media das Alturas dos pesquisados

ClrScr; Gotoxy(15,03); Writeln('>'); Gotoxy(05,05); Writeln('Nome do Pesquisado'); Gotoxy(39,05); Writeln('Altura');

For Qtd_Pesq := 10 Downto 1 Do Begin Gotoxy(05,17-Qtd_Pesq); Writeln(Vet_Nomes[Qtd_Pesq]); Gotoxy(39,17-Qtd_Pesq); Writeln(Vet_Alturas[Qtd_Pesq]:0:2); End;

Gotoxy(05,20); Writeln('Altura Media entre pesquisados: ',Media_Alturas:0:2);

Gotoxy(01,24); Writeln(''); Gotoxy(05,07); Writeln('Informe Total das Vendas do Mes - R$'); Gotoxy(01,15); Writeln('Erro:');

// Entrada de dados

For Mes := 1 TO 6 Do Begin Gotoxy(37,07); Writeln(Vet_Mes[Mes]); Gotoxy(46,07); ClrEol; Readln(Val_Vendas_Mes[Mes]);