Ответ в теме: Количество положительных элементов списка

      Комментарии к записи Ответ в теме: Количество положительных элементов списка отключены
#2223

Секция goal является в Turbo Prolog точкой входа, т.е. в ней содержится код, с которого начнется выполнение программы. Мы зададим в нем некоторый список, содержащий набор элементов, позволяющий проверить правильность работы программы, выведем его на экран, посчитаем количество положительных элементов вызовом функции, выведем на экран полученное значение, сформируем список положительных элементов, выведем его на экран:

goal
  List = [1,-22,3,345, -3], 
  print_list(List),
  list_count_positive(List, Count),
  write("positive count: "), write(Count), nl,
  positive_elements(List, PositiveElements),
  write("positive elements: "), print_list(PositiveElements).