Pascal/Turbo Pascal - necesito ayuda con este programa por favor. Necesito aplicar vector y burbuja

   
Vista:

necesito ayuda con este programa por favor. Necesito aplicar vector y burbuja

Publicado por henyerson (1 intervención) el 14/07/2015 03:48:31
Hola, buenas, por favor necesito de su gran ayuda para realizar este trabajo, es un trabajo que debo entregar el jueves y no se en lo absoluto como realizar esto y si no lo entrego voy a reprobar.

debo realizar un programa en turbo pascal donde almacene a cinco (5) alumnos ingresando la siguiente información de cada alumno:
-Nombre
-Cédula
-Edad
-Sexo
-Dirección
Y la nota definitiva de cinco (5) materias las cuales son:
-Informática
-Castellano
-Historia
-Biología
-Química
las notas deben organizarse de forma ascendente (de la menor a la mayor) mediante el procedimiento de burbuja.
al finalizar el programa debe imprimir la información completa de cada alumno.

Por Favor le agradezco toda su colaboración a quien me pueda ayudar a hacer este programa.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

necesito ayuda con este programa por favor. Necesito aplicar vector y burbuja

Publicado por dario (20 intervenciones) el 14/07/2015 06:45:50
Hola. Esto es lo que pides.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses crt;
type
	alumnos = record
		nombre:string;
		cedula:string;
		edad:byte;
		sexo:char;
		direccion:string;
	end;
	materias = record
		informatica:byte;
		castellano:byte;
		historia:byte;
		biologia:byte;
		quimica:byte;
	end;
var
	alumno:array[1..5] of alumnos;
	asignaturas:array[1..5] of materias;
	i:byte;
begin
	clrscr;
	for i:=1 to 5 do
	begin
		writeln('Alumno nro: ',i);
		with alumno[i] do
		begin
			write('Nombre: ');readln(nombre);
			write('cedula: ');readln(cedula);
			write('edad: ');readln(edad);
			write('sexo [M] o [F]: ');readln(sexo);
			write('direccion: ');readln(direccion);
		end;
		with asignaturas[i] do begin
			write('Nota informatica: ');readln(informatica);
			write('Nota castellano: ');readln(castellano);
			write('Nota historia:'); readln(historia);
			write('Nota biologia: ');readln(biologia);
			write('Nota quimica: ');readln(quimica);
		end;
	end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar