;;=================>>Contrato<<=================================
;;
;;Autor: Kahyberth Gonzalez
;;Fecha 15 de Agosto de 2020
;;Contrato:
;;Ejemplos:
;;Proposito:
;==================>>Ejercicio<<=================================


;Estructuras
(define-struct asignatura (nombre creditos nota))
(define-struct numero-asignaturas(asignatura1 asignatura2 asignatura3 asignatura4))
(define-struct estudiante( nombre codigo asignatura1 asignatura2 asignatura3 asignatura4))
(define estudianteA (make-estudiante 'Diego 141205 (make-asignatura 'Calculo1 4 3.8)
                                                     (make-asignatura 'ITI 2 3.1)
                                                      (make-asignatura 'FDP 4 3.8)
                                                       (make-asignatura 'Ingles 3 4)))
;Materias
(define Calculo1 (make-asignatura 'Calculo1 4 3.8))
(define ITI (make-asignatura 'ITI 2 3.1))
(define FDP (make-asignatura 'FDP 4 3.8))
(define INGLES (make-asignatura 'Ingles 3 4))




(define(calcular-ponderado estudiante)

(+

(asignatura-Ingles estudiante)
(asignatura-FDP estudiante)
(asignatura-ITI estudiante)
(asignatura-calculo estudiante)


 )
  )


;Asignaturas


(define(asignatura-calculo estudiante)

(*

(asignatura-creditos Calculo1)
(asignatura-nota Calculo1)

 )

  )

(define(asignatura-ITI estudiante)

(*

(asignatura-creditos ITI)
(asignatura-nota ITI)

 )

  )

(define(asignatura-FDP estudiante)

(*

(asignatura-creditos FDP)
(asignatura-nota FDP)

 )

  )

(define(asignatura-Ingles estudiante)

(*

(asignatura-creditos INGLES)
(asignatura-nota INGLES)

 )

  )