(Set! nums (find_sym ill * it_is *))
(Set! * it_is * (delete! (list ill nums) * it_is *))
(Set! * it_is * (append * it_is * (list (list ill1 nums)))))
В
; Редагування симптому
(define (Red_sym)
(Define n1)
(Define nums)
(Define sym1)
(Window-set-cursor! redsw 1 січня)
(Display "Введіть ХВОРОБА, СИМПТОМ якої хочете" redsw)
(Newline redsw)
(Display "ВИПРАВИТИ:" redsw)
(Set! ill (read-line redsw))
(Newline redsw)
(Display "Введіть СИМПТОМ, який хочете" redsw)
(Newline redsw)
(Display "ВИПРАВИТИ:" redsw)
(Set! sym (read-line redsw))
(Display "Введіть виправлення значення:" redsw)
(Set! sym1 (read-line redsw))
(Set! nums (find_sym ill * it_is *))
(Set! n1 (sub sym * symptom * nums))
(Set! * symptom * (delete! (list n1 sym) * symptom *))
(Set! * symptom * (append * symptom * (list (list n1 sym1)))))
(define (Sub x spis spis_x)
(Let ((n (find_index x spis)))
(Cond ((memb? N spis_x) n)
(T (sub x (cdr spis) spis_x)))))
В
(define (Find_index x spis)
(Cond ((equal? ​​(Cadar spis) x) (caar spis))
(T (find_index x (cdr spis)))))
В
(define (Memb? A l)
(Cond ((null? L) nil)
((Equal? ​​A (car l)) t)
(T (memb? A (cdr l)))))
; Видалення
(define (Deleting)
(Define ch)
(Submenu)
(Window-Set-Cursor! mainw 22 30)
(Display "ВАШ ВИБІР:" mainw)
(Set! ch (read-char mainw))
(Window-Set-Cursor! mainw 22 30)
(Display "" mainw)
(Window-delete submenuw)
(Cond ((eq? Ch # 1) (Window-Set-Position! deliw 11 10)
(Window-Set-Size! deliw 4 57)
(Window-Clear deliw) (del_ill)
(Window-delete deliw))
((Eq? Ch # 2) (Window-Set-Position! delsw 6 жовтня)
(Window-Set-Size! delsw 17 57)
(Window-Clear delsw) (del_sym)
(Window-delete delsw))
((Eq? Ch # ESCAPE))
(T (deleting))))
; Видалення хвороби
(define (Del_ill)
(Define nums)
(Window-set-cursor! deliw 1 2)
(Display "Введіть назву ХВОРОБИ, яку хочете" deliw)
(Newline deliw)
(Display "ВИДАЛИТИ:" deliw)
(Set! ill (read-line deliw))
(Set! nums (find_sym ill * it_is *))
(Set! * it_is * (delete! (list ill nums) * it_is *))
(Delsyms nums))
(define (Delsyms spis_nums)
(Cond ((null? Spis_nums) t)
(T (set! * symptom * (delete!
(List (car spis_nums)
(Find_sym (car spis_nums) * symptom *))
* Symptom *))
(Delsyms (cdr spis_nums)))))
В
; Видалення симптомів
(define (Del_sym)
(Define nums)
(Window-set-cursor! delsw 1 2...
