Código de Pascal/Turbo Pascal - Boleta de calificaciones en pascal

Imágen de perfil
Val: 32
Ha aumentado su posición en 130 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Boleta de calificaciones en pascalgráfica de visualizaciones


Pascal/Turbo Pascal

Publicado el 14 de Marzo del 2019 por melanie
161 visualizaciones desde el 14 de Marzo del 2019
El siguiente programa permite ingresar :
-numero de folio del alumno
-nombre del alumno
-materias
-calificaciones
-dar el promedio final
-decir si el alumno esta APROBADO O REPROBADO

1.0

Publicado el 14 de Marzo del 2019gráfica de visualizaciones de la versión: 1.0
161 visualizaciones desde el 14 de Marzo del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

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
59
60
Program Boletadecalif;
Uses Crt;
var nota:array [1..5] of real;
 var i:integer;
 prom:real;
 materias:array [1..5] of string;
  F:integer;
 promedio,folio:real;
 alumno: string;
 ins:string;
Begin
ClrScr;
Textcolor(white);
write('Inserte el nombre de la institución : ');readln(ins);
 write('FOLIO: ');
 readln(folio);
 write('Nombre de alumno: ');
 readln(alumno);
 writeln('======================================');
 writeln('HOJA DE LLENADO DE CALIFICACIONES');
 writeln('======================================');
 write('dame el nombre de la materia 1: ');
 readln(materias[1]);
 write('dame el nombre de la materia 2: ');
 readln(materias[2]);
 write('dame el nombre de la materia 3: ');
 readln(materias[3]);
 write('dame el nombre de la materia 4: ');
 readln(materias[4]);
 write('dame el nombre de la materia 5: ');
 readln(materias[5]);
 writeln(' ');
 write('dame la calificacion de :',materias[1],' :');
 readln(nota[1]);
 write('dame la calificacion de :',materias[2],' :');
 readln(nota[2]);
 write('dame la calificacion de :',materias[3],' :');
 readln(nota[3]);
 write('dame la calificacion de :',materias[4],' :');
 readln(nota[4]);
 write('dame la calificacion de :',materias[5],' :');
 readln(nota[5]);
 writeln(' ');
 writeln('-la materia de ',materias[1],'=',nota[1]:00:00);
 writeln('-la materia de ',materias[2],'=',nota[2]:00:00);
 writeln('-la materia de ',materias[3],'=',nota[3]:00:00);
 writeln('-la materia de ',materias[4],'=',nota[4]:00:00);
 writeln('-la materia de ',materias[5],'=',nota[5]:00:00);
 writeln('============================================');
 prom:=((nota[1]+nota[2]+nota[3]+nota[4]+nota[5])/5);
 textcolor(42);
 writeln(ins);
 writeln('El promedio es:',prom:00:00);
 writeln('El folio es:',FOLIO:00:00);
 writeln('El alumno es:',alumno);
 writeln('============================================');
 if prom >= 6 then writeln(' EL ALUMNO ESTA APROBADO ')
 else writeln('EL ALUMNO ESTA REPROBADO');
 readkey
end.



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5196
Revisar política de publicidad