elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


  Mostrar Mensajes
Páginas: [1]
1  Programación / Ejercicios / problema con pascal (arrays) en: 29 Marzo 2017, 03:00 am
necesito ayuda para arreglar un programa en pascal ayuda por favor es sobre arreglos y registros espero me puedan ayudar
Hola espero que esten bien,las indicaciones son: Escribir un programa en Pascal que almacene en un array de registros los nombres de los alumnos, sus notas parciales y finales. Hallar la nota media y mostrar un mensaje de APTO si el alumno supera o iguala la calificación de 5 o NO APTO si no lo alcanza. Hacerlo para un número de 5 alumnos.
el problema es que necesito que este programa me permite ingresar 3 calfificaciones y no 2 ¿como le hago para poder ingresar 3 calficaciones?

Código
  1. Program EJ009(Input, Output);
  2. Uses Crt;
  3. Const numalumnos = 5;
  4. Type tiponotas = record
  5. nombre: String;
  6. parcial, final: real
  7. end;
  8. notasclase = array [1..Numalumnos] of tiponotas;
  9. Var I3: notasclase;
  10. nota1, nota2: real;
  11. alumno: String;
  12. index: integer;
  13. Begin
  14. ClrScr;
  15. for index := 1 to numalumnos do
  16. begin
  17. write( Nombre de alumno( ,index, ):  );
  18. readln(alumno);
  19. write( Nota del examen parcial:  );
  20. readln(nota1);
  21. write( Nota del examen final:  );
  22. readln(nota2);
  23. writeln;
  24. with i3[index] do
  25. begin
  26. nombre := alumno;
  27. parcial := nota1;
  28. final := nota2
  29. end
  30. end;
  31. ClrScr;
  32. writeln( NOMBRE  :30, Parcial :10, Final :10, Media :10,  CALIFICACION );
  33. for index := 1 to 75 do write( - );
  34. writeln;
  35. for index := 1 to numalumnos do
  36. with i3[index] do
  37. begin
  38. {Escribir la lista con los resultados.}
  39. nota1 := (parcial+final)/2;
  40. {Se calcula la media.}
  41. write(nombre:30,parcial:10:2,final:10:2);
  42. write(nota1:10:2);
  43. {Si la nota media es superior a 5, el alumno est aprobado:}
  44. if nota1 >= 5 then writeln(  *** APTO ***  )
  45. else writeln(  NO APTO )
  46. end;
  47. readkey
  48. end.


· Los códigos deben ir en etiquetas GeSHi
· No se debe escribir en mayúsculas
>aquí las reglas del foro
-Engel Lex
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines