FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Ayuda programa basico
Buenas noches, tengo el siguiente programa
Código:
program Project2; {$APPTYPE CONSOLE} uses SysUtils; Const NumEstudiante = 4; NumAsignatura = 4; Type IndiceEstudiantes = 1 .. NumEstudiante; IndiceAsignaturas = 1 .. NumAsignatura; TablaNotas = Array [IndiceEstudiantes,IndiceAsignaturas] of real; MediaAlumnos = Array [IndiceEstudiantes] of real; MediaAsignaturas = Array [IndiceAsignaturas] of real; var Notas : TablaNotas; M_Alumnos : MediaAlumnos; M_Asignatura : MediaAsignatura; Procedure LeerNotas (Var N: TablaNotas); Var E: 1 .. NumEstudiantes; A: 1 .. NumAsignaturas; Begin for E := 1 to NumEstudiantes do Begin Writeln ('Introduzca las ', NumAsignaturas,'calificaciones del alumno ',E,' en una sola linea'); for A := 1 to NumAlumno do read (N [E,A]); readln; end; End; Procedure MediaProAsignatura (Var N : TablaNotas; Var Medias : MediaAsignatura); Var E : 1 .. NumEstudiantes; A : 1 .. NumAsignaturas; Suma : Real; Begin for E := 1 to NumAsignaturas do Begin Suma := 0 ; for A := 1 to NumEstudiantes do Suma := Suma + N [E,A]; Medias [A] := Suma / NumEstudiantes ; end; End; Procedure MediaProEstudiante (Var N : TablaNotas; Var Medias : MediaAsignatura); Var E : 1 .. NumEstudiantes; A : 1 .. NumAsignaturas; Suma : Real; Begin for E := 1 to NumEstudiantess do Begin Suma := 0 ; for A := 1 to NumAsignaturas do Suma := Suma + N [E,A]; Medias [A] := Suma / NumEstudiantes; end; End; Procedure Resultados (var M : TablaNotas , Var Media_A : MediaAsignatura , Var Media_E : MediaEstudiante); Var E : 1 .. NumEstudiantes; A : 1 .. NumAsignaturas; Begin Writeln ('Estudiante' : 10 , 'Media' : 10 , ' ' : 25 , 'Asignaturas'); Writeln ('..........' : 10 , '.....' : 10 , ' ' : 25 , '...........'); for E := 1 to NumEstudiantes do Begin Writeln (E : 5 , Media_E [E] : 15 :2); for A := 1 to NumAsignaturas do Writeln (Notas [E,A] :14 :2 ); writeln; end; writeln; write ('Medias de las asignaturas', ' ' :3 ); for A := 1 to NumAsignaturas do do Writeln (Media_A [A] :3 :2 , ' ' : 10); writeln End; End; Begin try { TODO -oUser -cConsole Main : Insert code here } except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. Gracias ! |
#2
|
||||
|
||||
Hola agustingsz, bienvenido a Club Delphi
Como a todos los que se inician te invitamos a que leas nuestra guía de estilo. Por si precisaras incluir ambas acciones (buscar/ordenar), en estos enlaces tenes diferentes algorítmos de ordenamiento y búsqueda: Cita:
Una observación final, el método de la burbuja (bubble sort) no es de búsqueda sino de ordenamiento. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
agustingsz,
Cita:
Cita:
Nelson. |
#4
|
||||
|
||||
agustingsz,
Cita:
El código anterior implementa los métodos de ordenamiento BubbleSort, ShellSort, QuickSort y el método de búsqueda BinarySearch en un arreglo de enteros como ejemplo de su uso y contraste de rendimiento en diferentes conjuntos de datos creados de forma aleatoria. El ejemplo esta disponible en el link: http://terawiki.clubdelphi.com/Delph...rch%26Sort.rar Espero sea útil Nelson. Última edición por nlsgarcia fecha: 27-08-2013 a las 07:23:52. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda, programa muy básico para encontrar areas | Ale89 | Varios | 12 | 16-03-2008 16:27:04 |
Kit básico de aplicaciones | gatosoft | La Taberna | 3 | 30-01-2008 17:21:01 |
Aprendizaje basico PHP | Carlex | PHP | 6 | 26-09-2005 19:27:10 |
Problema Básico...o no? | hector_etv | Varios | 6 | 02-08-2005 20:06:18 |
Muy básico | mateamargo | Internet | 6 | 27-10-2003 15:41:23 |
|