Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program ficha5 ;
- Var
- IdAlt : array [1..2,1..30] of Integer ;
- idade , altura , op , n , ret , somamed , somamedd , conta , max , aux: Integer ;
- totalmed, totalmedd : Real ;
- Procedure LerDados ;
- Begin
- Writeln('Introduza o número de alunos');
- Readln(n);
- For idade := 1 To n Do
- Begin
- Writeln('Introduza a idade e altura do ', idade ,' aluno');
- For altura := 1 To n Do
- Begin
- Readln(IdAlt[idade,altura]);
- End ;
- End ;
- ClrScr;
- End ;
- Procedure VerDados ;
- Begin
- aux := 0 ;
- Writeln('Nr Id Alt');
- For idade := 1 To n Do
- Begin
- aux := aux + 1 ;
- Write(aux);
- For altura := 1 to n Do
- Begin
- Write(' ');
- Write(IdAlt[idade,altura]);
- End ;
- Writeln ;
- End ;
- ClrScr;
- End ;
- Procedure RetificarDados ;
- Begin
- Writeln('Introduza o número do aluno que pretende retificar');
- Readln(ret);
- For idade := 1 To n Do
- Begin
- For altura := 1 To n Do
- Begin
- If idade = ret Then
- Writeln('Introduza a idade do aluno');
- Readln(IdAlt[ret,ret]);
- Writeln('Introduza a altura do aluno');
- Readln(IdAlt[ret,ret]);
- End ;
- End ;
- ClrScr;
- End ;
- Procedure MediaIdades ;
- Begin
- Writeln('Média de idades da turma: ');
- For idade := 1 To n Do
- Begin
- For altura := 1 To n Do
- Begin
- Somamed := Somamed + IdAlt[idade,altura];
- End ;
- End ;
- totalmed := somamed / n ;
- Writeln(totalmed:3:2);
- End ;
- Procedure MediaAlturas ;
- Begin
- Writeln('Média de alturas da turma: ');
- For altura := 1 To n Do
- Begin
- For idade := 1 To n Do
- Begin
- Somamedd := Somamedd + IdAlt[idade,altura];
- End ;
- End ;
- totalmedd := somamed / n ;
- Writeln(totalmedd:3:2);
- End ;
- Procedure Mais16AlturaInferior ;
- Begin
- For idade := 1 To n Do
- Begin
- For altura := 1 To n Do
- Begin
- End ;
- End ;
- End ;
- Procedure IdadeSuperiorMedia ;
- Begin
- For idade := 1 To n Do
- Begin
- For altura := 1 To n Do
- Begin
- If IdAlt[idade,altura] > totalmed Then
- conta := conta + 1 ;
- End ;
- End ;
- Writeln('Existem ',conta,' alunos com idade superior à media');
- End ;
- Procedure AlunoMaisAlto ;
- Begin
- For idade := 1 To n Do
- Begin
- For altura := 1 To n Do
- Begin
- If IdAlt[idade,altura] > max Then
- max := IdAlt[idade,altura] ;
- End ;
- End ;
- Writeln('O aluno mais alto é o aluno número ', altura) ;
- End ;
- Begin
- Somamed := 0 ;
- Somamedd := 0 ;
- Conta := 0 ;
- max := 0 ;
- Repeat
- Writeln('____________________________ MENU ____________________________');
- Writeln('1 - Introduzir dados');
- Writeln('2 - Visualizar dados');
- Writeln('3 - Retificar a idade/altura dado o número do aluno');
- Writeln('4 - Média de idades da turma');
- Writeln('5 - Média de alturas da turma');
- Writeln('6 - Número de alunos com mais de 16 anos com altura inferior à média');
- Writeln('7 - Número de alunos com idade superior à media de idades');
- Writeln('8 - Aluno mais alto');
- Writeln('9 - Sair');
- Readln(op);
- Case op of
- 1 : LerDados ;
- 2 : VerDados ;
- 3 : RetificarDados ;
- 4 : MediaIdades ;
- 5 : MediaAlturas ;
- 6 : Mais16AlturaInferior ;
- 7 : IdadeSuperiorMedia ;
- 8 : AlunoMaisAlto ;
- End ;
- Until op = 9 ;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement