fork download 
  1. program xpto;
  2. Uses crt;
  3. Type dados = record
  4.        nome:string;
  5.        disciplina:string;
  6.        nota:integer;
  7.       End;
  8. Var
  9.    aluno:array[1..20] of dados;
  10.    registos,i:integer;
  11.    op:string;
  12.    media:real;
  13.  
  14. Begin
  15. registos:=0;
  16. media:=0;
  17. 	repeat
  18. 	registos:=registos + 1;
  19. 		writeln('Nome');
  20. 		readln(aluno[registos].nome);
  21. 		writeln('Disciplina');
  22. 		readln(aluno[registos].disciplina);
  23. 		writeln('Nota');
  24. 		readln(aluno[registos].nota);
  25. 		writeln(' ');
  26. 		writeln('Deseja introduzir um novo aluno? (S/N)');
  27. 		readln(op);
  28. 		clrscr;
  29. 	until (upcase(op)='N') or (registos=20);
  30.  
  31. 	For i:=1 to registos do
  32.    	Begin
  33. 	writeln('Aluno ',i,': ',aluno[registos].nome);
  34. 	writeln('Disciplina: ',aluno[registos].disciplina);
  35. 	writeln('Nota: ',aluno[registos].nota);
  36. 	writeln(' ');
  37. 	media:=media+aluno[registos].nota;
  38. 	end;
  39. media:=media/registos;
  40. writeln('A média de notas dos ',registos,' alunos é de ',media:2:2);
  41. readln;
  42.  
  43. end.
Success #stdin #stdout 0.02s 304KB
comments (?)
stdin 
Standard input is empty
stdout 
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Nome
Disciplina
Nota
 
Deseja introduzir um novo aluno? (S/N)
Aluno 1: 
Disciplina: 
Nota: 0
 
Aluno 2: 
Disciplina: 
Nota: 0
 
Aluno 3: 
Disciplina: 
Nota: 0
 
Aluno 4: 
Disciplina: 
Nota: 0
 
Aluno 5: 
Disciplina: 
Nota: 0
 
Aluno 6: 
Disciplina: 
Nota: 0
 
Aluno 7: 

Disciplina: 

Nota: 0

 

Aluno 8: 

Disciplina: 

Nota: 0

 

Aluno 9: 

Disciplina: 

Nota: 0

 

Aluno 10: 

Disciplina: 

Nota: 0

 

Aluno 11: 

Disciplina: 

Nota: 0

 

Aluno 12: 

Disciplina: 

Nota: 0

 

Aluno 13: 

Disciplina: 

Nota: 0

 

Aluno 14: 

Disciplina: 

Nota: 0

 

Aluno 15: 

Disciplina: 

Nota: 0

 

Aluno 16: 

Disciplina: 

Nota: 0

 

Aluno 17: 

Disciplina: 

Nota: 0

 

Aluno 18: 

Disciplina: 

Nota: 0

 

Aluno 19: 

Disciplina: 

Nota: 0

 

Aluno 20: 

Disciplina: 

Nota: 0

 

A média de notas dos 20 alunos é de 0.00
https://ideone.com/F3UEn
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!