Advertisement
OnlyStiven

Untitled

Aug 15th, 2020
1,311
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 1.66 KB | None | 0 0
  1. ;;=================>>Contrato<<=================================
  2. ;;
  3. ;;Autor: Kahyberth Gonzalez
  4. ;;Fecha 15 de Agosto de 2020
  5. ;;Contrato:
  6. ;;Ejemplos:
  7. ;;Proposito:
  8. ;==================>>Ejercicio<<=================================
  9.  
  10.  
  11. ;Estructuras
  12. (define-struct asignatura (nombre creditos nota))
  13. (define-struct numero-asignaturas(asignatura1 asignatura2 asignatura3 asignatura4))
  14. (define-struct estudiante( nombre codigo asignatura1 asignatura2 asignatura3 asignatura4))
  15. (define estudianteA (make-estudiante 'Diego 141205 (make-asignatura 'Calculo1 4 3.8)
  16.                                                      (make-asignatura 'ITI 2 3.1)
  17.                                                       (make-asignatura 'FDP 4 3.8)
  18.                                                        (make-asignatura 'Ingles 3 4)))
  19. ;Materias
  20. (define Calculo1 (make-asignatura 'Calculo1 4 3.8))
  21. (define ITI (make-asignatura 'ITI 2 3.1))
  22. (define FDP (make-asignatura 'FDP 4 3.8))
  23. (define INGLES (make-asignatura 'Ingles 3 4))
  24.  
  25.  
  26.  
  27.  
  28. (define(calcular-ponderado estudiante)
  29.  
  30. (+
  31.  
  32. (asignatura-Ingles estudiante)
  33. (asignatura-FDP estudiante)
  34. (asignatura-ITI estudiante)
  35. (asignatura-calculo estudiante)
  36.  
  37.  
  38.  )
  39.   )
  40.  
  41.  
  42. ;Asignaturas
  43.  
  44.  
  45. (define(asignatura-calculo estudiante)
  46.  
  47. (*
  48.  
  49. (asignatura-creditos Calculo1)
  50. (asignatura-nota Calculo1)
  51.  
  52.  )
  53.  
  54.   )
  55.  
  56. (define(asignatura-ITI estudiante)
  57.  
  58. (*
  59.  
  60. (asignatura-creditos ITI)
  61. (asignatura-nota ITI)
  62.  
  63.  )
  64.  
  65.   )
  66.  
  67. (define(asignatura-FDP estudiante)
  68.  
  69. (*
  70.  
  71. (asignatura-creditos FDP)
  72. (asignatura-nota FDP)
  73.  
  74.  )
  75.  
  76.   )
  77.  
  78. (define(asignatura-Ingles estudiante)
  79.  
  80. (*
  81.  
  82. (asignatura-creditos INGLES)
  83. (asignatura-nota INGLES)
  84.  
  85.  )
  86.  
  87.   )
  88.  
  89.  
  90.  
  91.  
  92.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement