variables estructuradas homogeneas 1 (2015)

Apunte Español
Universidad Universidad Politécnica de Cataluña (UPC)
Grado Ingeniería Mecánica - 1º curso
Asignatura Informatica
Año del apunte 2015
Páginas 4
Fecha de subida 17/03/2015
Descargas 0

Vista previa del texto

Variables estructuradas homogéneas: 1) Diseñar un algoritmo en seudocódigo y realizar el correspondiente programa en pascal que almacene en un vector la nota de los alumnos de un grupo de prácticas y posteriormente calcule y visualice el número de notas que aparecen dentro de los siguientes apartados: • Entre O (incluido) y 5 (no incluido): suspenso • Entre 5 (incluido) y 7 (no incluido): aprobado • Entre 7 (incluido) y 9 (no incluido): notable • Entre 9 (incluido) y lO(incluido): excelente Tener en cuenta que aunque los grupos de prácticas suelen tener 20 alumnos puede tener un número diferente. El programa ha de servir para cualquier grupo (rector : r fccr^^to^ . , ; tí^ « - a <.
ere 3 CONST MAX =20; TYPE • „;••. J TVECTOR = ARRAY[1..MAX] OF INTEGER; VAR k l,N,A,B,C,D:INTEGER; V:TVECTOR; begín WRITELNCPRACTICA 7.1: NOTAS DE ALUMNOS'); WRITELNC '); v 1 WRITELN; REPEAT WRITEÍ'INTRODUZCA EL NUMERO DE ALUMNOS DE LA CLASE '); READLN(N); until (N>=1) AND (N<=20); l:=l; A:=0; B:=0; C:=0; D:=0; WRITELN; F0RI:=1T0ND0 BEGIN WRITELNCINTRODUZCA NOTA',!); READLN(V[I]); IF(V[l]<0) OR (V[l]>10) THEN BEGIN WRITECNOTA INCORRECTA, REINTRODUZCA LA NOTA ',1); READLN(V[I]) end; IF (V[l]>=0) AND (V[l]<5) THEN A:=A+1 ELSE IF (V[l]>=5) AND (V[l]<7) THEN B:=B+1 ELSE IF(V[I]>=7) AND {V[l]<9) THEN C:=C+1 ELSE IF (V[l]>=9) AND (V[l]<=10) THEN D:=D+1 end; WRITELN; WRITELNÍ'SUSPENSOS [0,5): ',A); WRITELNÍ'APROBADOS [5,7): ',B); WRITELNÍ'NORABLES [7,9): ',C); WRITELNÍ'SOBRESALIENTES [9,10]: •,D); READLN; end.
...