programa de una boleta ayuda
Publicado por bob (8 intervenciones) el 15/02/2014 23:11:38
necesito crear una boleta en pascal mas o menos haci es el cuerpo del programa ayudenme a completarlo se tiene que hacer mas omenos al correrlo como un menu
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
program laescuela;
uses
crt;
type
materias= (esp,mat,his,cie,fce,art,tec,ori,dep);
datos = recordescuela:string;cveCentroT:string;nombre:string;apePatA:string;apeMatA:string;curp:string;grupo:string;turno:string;end;
calificacion = recordasignatura:materias;periodo:integer;inasistencias:integer;grado:integer;curp:string;end;
alumnos=Array [1..100] of datos;
boletas=array [1..10] of calificacion;
procedure capturalumno (var a:alumnos; var total:integer);
var
curp:string;curp1:string;i:integer;band:boolean;op:char;totalu:integer;begin
repeat
clrscr;
if total=0 thenbegin
totalu:=totalu+1;
write ('curp:');readln (a[totalu].curp);
write ('nombre');readln (a[totalu].nombre);
write ('escuela');readln (a[totalu].escuela);
write ('cveCentroT');readln (a[totalu].cveCentroT);
write ('apePatA');readln (a[totalu].apePatA);
write ('apeMatA');readln (a[totalu].apeMatA);
write ('grupo');readln (a[totalu].grupo);
write ('turno');readln (a[totalu].turno);
if band:=false
Then
Totalu:=totalu+1;
A [totalu].curp:=curp1;
Write ('nombre:'), readln (a[total].nombre);
Else
Writeln('el alumno ya existe');
Write ('desea ingresar otro alumno [s/n]; readln (o)');
Until (op='N') or (op='n');
End;
Procedure listar_alumnos (a:alumnos; totalu:integer);
Var
I:integer;Begin
For i:=1 to totalu do
Writeln (a[i].curp,' ',a[i].nombre,' ', a[i].ap pat,' ', a[i].ap mat,' ', a[i].escuela, ' ', a[i].cveCentroT, ' ', a[i].grupo, ' ', a[i].turno, ' ',);
Readln;
End;
Procedure leercalif (a:alumno; totalu:integer; var b:boletas;var totbol:integer);
Var
Band:Boolean;Mater:materias;X,i:integer
Curp1:string;Op:integer;Begin
If totalu=0 thenBegin
Write ('no hay alumnos escritos press any key to continue');
Readln;
End
Else
Begin
Write ('curp'); readln (curp1);
Band:= false;
For i:= to totalu do
If a[i]. curp =curp1
Then
Begin
Band:=true;
X:=i;
End;
If band:= true
Then
Totalu:=totalu+1
B [totalu].curp1;
For i:= 1 to totalbol do
If (b[i].curp=curp1) and (b[i].asignatura=mater)
Band=trueIf band=true thenWrite ('ya registraste esta materia.. press..');
Write ('quieres ingresas otra asignatura [s/n:');
Readln (op1)
Until (op1='N') or (op1 = 'n')
End;
Valora esta pregunta
-1
