Algoritmia - ALGORITMO

 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 9 puestos en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

ALGORITMO

Publicado por yohandys (2 intervenciones) el 22/08/2018 21:42:10
Control de registro de la universidad genios

LEER CEDULA NOMBRE MATERIA NOTA

TOTAL DE 150 REGRISTROS

IMPRIMIR TODOS LOS REGISTROS

CUANTOS ESTUDIANTES FRACASARON
CUANTOS ESTUDIANTES TIENEN A,B,C

IMPRIMIR TOTALES
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
sin imagen de perfil
Val: 303
Oro
Ha mantenido su posición en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

ALGORITMO

Publicado por dario (106 intervenciones) el 23/08/2018 16:27:26
Hola, te dejo este algoritmo en pascal, espero te sirva.
Salu2.

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
uses crt;
const
	TOPE = 150;
type
	alumnos = record
		cedula:integer;
		nombre:string;
		materia:string;
		nota:char;
	end;
var
	alum:array[1..TOPE] of alumnos;
	i:byte;
	pasa,fracasaron:integer;
begin
	clrscr;
	pasa:=0;
	fracasaron:=0;
 
 
	for i:=1 to TOPE do begin
		with alum[i] do begin
			write('Cedula del alumno: ');
			readln(cedula);
			write('Nombre del alumno: ');
			readln(nombre);
			write('Materia que cursa: ');
			readln(materia);
			write('Nota final: ');
			readln(nota);
		end;
	end;
 
	writeln;
	{mostrar registros}
	for i:=1 to TOPE do begin
		with alum[i] do begin
			writeln('Cedula del estudiante: ',cedula);
			writeln('Nombre del alumno: ',nombre);
			writeln('Materia que cursa: ',materia);
			writeln('Nota final: ',nota);
		end;
		writeln;
	end;
 
	writeln;
	for i:=1 to TOPE do begin
		with alum[i] do begin
			if (nota <> 'a') and (nota <> 'b') and (nota <> 'c') then
				inc(fracasaron);
			if (nota = 'a') or (nota = 'b') or (nota = 'c') then
				inc(pasa);
		end;
	end;
 
	writeln('Total de alumnos que fracasaron: ',fracasaron);
	writeln('Total de alumnos que pasaron: ',pasa);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

ALGORITMO

Publicado por yohandys (2 intervenciones) el 23/08/2018 16:54:51
Si me sirvio Muchas gracias te lo agradesco mucho amigo
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