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


 


Tema destacado: Deseas probar algunas mejoras a la interfaz del foro? Prueba cake! acerca de


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  Ejercicios
| | | |-+  problema con pascal (arrays)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: problema con pascal (arrays)  (Leído 435 veces)
claryortiz

Desconectado Desconectado

Mensajes: 1


Ver Perfil
problema con pascal (arrays)
« en: 29 Marzo 2017, 03:00 »

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


« Última modificación: 29 Marzo 2017, 03:04 por engel lex » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Arrays en Pascal
Ejercicios
Corso 4 21,093 Último mensaje 21 Diciembre 2005, 01:46
por Corso
Ayuda con Arrays en Pascal !!!
Programación General
Arkanoidy 4 1,532 Último mensaje 7 Enero 2006, 15:21
por Arkanoidy
PASCAL if then y arrays
Programación General
platero 6 1,392 Último mensaje 7 Enero 2007, 22:58
por jvchino
Triángulo de Pascal en C SIN arrays
Programación C/C++
Suckiesue 8 8,230 Último mensaje 14 Abril 2010, 22:04
por Littlehorse
Funcion RecomendarButacas Ayuda!! (Recorrer arrays de arrays)
Java
elenfatico 2 734 Último mensaje 7 Abril 2016, 00:44
por 50ShadesOfKenyi
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines