[ Foro de Pascal ]
Por favor estoy atrancado en esta serie de ejercicios, si me pueden ayudar con alguno se lo agradeceria mucho :
20. Plantee e implemente un programa en PASCAL que permita almacenar en
memoria el nombre y las notas de una asignatura de una clase de 15 alumnos.
Muestre por pantalla el nombre y nota de los alumnos que han obtenido la peor
y la mejor calificación.
21. Diseñe la estructura de datos que permita almacenar en memoria las tareas a
realizar durante un año. Se debe de controlar la fecha, el día de la semana (si es
lunes, martes, etc.), las tareas a realizar cada día y su hora. Tenga en cuenta que
cada día no podrá tener más de 20 tareas.
22. Plantee e implemente un programa en PASCAL, a base de procedimientos y
funciones y gestionado por menú, para insertar las notas de los alumnos de
prácticas (20 como máximo), modificarlas si es necesario y mostrarlas por
pantalla agrupadas de N en N según desee el usuario.
23. Plantee e implemente un programa en PASCAL, a base de procedimientos y
funciones y gestionado por menú, para insertar las notas del primer parcial y del
segundo parcial de los alumnos de un grupo (como máximo 20 alumnos),
modificarlas si es necesario, mostrarlas por pantalla y mostrar una estadística
de las notas.
33. Implemente una función que reciba una matrícula, la edad y el nombre de un
conductor y devuelva TRUE si la suma de los números de la matrícula es igual
EJEMPLO DE EJECUCIÓN
Introduzca una frase de como máximo 100 caracteres:
Buenos días, vamos a comenzar. Encended los equipos.
Buenos 6
días 4
vamos 5
a 1
comenzar 8
Encended 8
los 3
equipos 76
a la edad del conductor y las letras de la matrícula coinciden con las iniciales del propietario del vehiculo
No esperes que nadie los resuelva completamente por ti.
Pon aquí el fuente con lo que has intentado, y te ayudaremos con las dudas (concretas) que tengas.
(*Plantee e implemente un programa en PASCAL para almacenar las
temperaturas (en ºC) registradas en una ciudad durante un día hora a hora (0-
23). Introduzca las temperaturas a partir de los datos proporcionados por el
usuario, visualice ordenadamente las temperaturas registradas y calcule y
muestre por pantalla la temperatura máxima, mínima y media alcanzadas.*)
CONST
N=24;
TYPE
tarray=array[1..N] of real;
VAR
temperaturas:tarray;
vord:=tarray;
PROCEDURE Insertar(temperaturas:tarray);
VAR i:integer;
BEGIN
FOR i:=1 TO N DO BEGIN
write('Introduzca la temperatura ' ,i,' : ');
readln(temperaturas[i]);
END;
END;
PROCEDURE Mostrar(temperaturas:tarray);
VAR i:integer;
BEGIN
FOR i:=1 TO N DO BEGIN
Mostrar(temperaturas[i]);
END;
END;
(***************************************************)
PROCEDURE Ordenar(temperaturas:tarray):tarray;
VAR i,j,mayor:integer;
aux:real;
BEGIN
for i:= 1 to N-1 do
begin
mayor:= i;
for j:= i+1 to N do
if (temperaturas [j+1]>temperaturas[j]) then
begin
if (temperaturas[j]>temperaturas[mayor]) then
mayor:=j;
aux:= temperaturas[i];
temperaturas[i]:=temperaturas[mayor];
temperaturas[mayor]:=aux;
end;
end;
END;
BEGIN
END.
Como llamo en el principal esos procedimientos, para insertarlos, mostrrar los datos y una vez mostrados, , mostrarlos ordenados.??
Como ya tienes una variable "VAR temperaturas:tarray;", basta con que llames a los tres procedimientos en orden:
BEGIN
Insertar(temperaturas);
Ordenar(temperaturas);
Mostrar(temperaturas);
END.
Eso sí, te queda algún error entre medias. Por ejemplo, "Mostrar" no hace un "WriteLn" sino que vuelve a llamar a "Mostrar" para cada dato, algo que no compilará porque no existe ese procedimiento "Mostrar" alternativo para un solo dato.
Hola hace días que estoy intentando publicar en el foro y la pagina me da un error y no puedo.. como puedo publicar mi consulta??
Si el error es que tu consulta es demasiado breve, prueba a detallarla un poco más.
Si se trata de algún otro tipo de error, prueba a eliminar símbolos extraños que pueda haber en el texto o en el correspondiente problema de ejemplo.
(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)