Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dato_ap_pat = space(10)
- input "ingresa apellido paterno""; dato_ap_pat
- Use alumno.DBF
- Go Top
- inicial = Recno()
- Go Bottom
- final = Recno()
- central = ENT((inicial+final)/2)
- go central
- dato_central = ap_pat
- while ( dato_ap_pat <> dato_central ) and ( inicial < final )
- if Dato_Central < dato_ap_pat
- inicial = central + 1
- else
- final = central - 1
- endif
- central = ENT((inicial+final)/2)
- go central
- dato_central = ap_pat
- endwhile
- if dato_ap_pat = dato_central
- gotoxy (1,1) print cod_alu
- gotoxy (2,1) print ap_pat
- gotoxy (3,1) print nombre
- codigo_alu = cod_alu
- endif
- Exit alumno.DBF
- Use notas.DBF
- Go Top
- while ( not notas.eof() )
- if codigo_alu = cod_alu
- codigo_curso = cod_cur
- codigo_carrera = cod_carrera
- codigo_profesor = cod_prof
- nota_curso = nota
- Use curso.DBF
- Go Top
- while ( not curso.eof() )
- if codigo_curso = cod_cur
- nombre_curso = nom_cur
- ciclo_curso = ciclo
- break
- else
- skip
- endif
- endwhile
- Exit curso.DBF
- Use carrera.DBF
- Go Top
- while ( not carrera.eof() )
- if codigo_carrera = cod_carrera
- nombre_facultad = facultad
- nombre_carrera = nom_carrera
- break
- else
- skip
- endif
- endwhile
- Exit carrera.DBF
- Use profesor.DBF
- Go Top
- while ( not profesor.eof() )
- if codigo_profesor = cod_prof
- nombre_profesor = nombre
- apellido_profesor = ap_prof
- break
- else
- skip
- endif
- endwhile
- Exit profesor.DBF
- gotoxy (5 + i, 1) print codigo_curso
- gotoxy (5 + i, 5) print nombre_curso
- gotoxy (5 + i, 15) print ciclo_curso
- gotoxy (5 + i, 25) print nombre_facultad
- gotoxy (5 + i, 30) print nombre_carrera
- gotoxy (5 + i, 40) print apellido_profesor,nombre_profesor
- gotoxy (5 + i, 50) print nota_curso
- i = i + 1
- Skip
- else
- Skip
- endif
- endwhile
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement