Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Помогите дописать программу.Списки.Турбо Пролог
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Irina0706 Irina0706 вне форума
Member
 
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 07.12.2010
По умолчанию Помогите дописать программу.Списки.Турбо Пролог - 07.01.2011, 22:03

Дан список целых чисел. Получить сумму всех положительных элементов данного списка.

Я нашла сумму всех элементов списка.Не знаю,как и куда условие вставить,чтобы находилась сумма только положительных элементов.Если задается отрицательный элемент,программа не работает.Пробовала по-разному,не получается!Помогите пожалуйста! Вот код:
Domains
List=integer*
PREDICATES
spisok(integer,List,integer).
vvod(integer).
CLAUSES
vvod(N):-
write("N="),
readint(N),
N>0.
vvod(N):-
write("N>0!!! "),
vvod(N).
spisok(0,[],0):-!.
spisok(N,[X|L],Z):-
write("ќ«Ґ¬Ґ*в:"),
readint(X),
N1=N-1,
spisok(N1,L,Z1),
X>=0,
Z=Z1+X.
GOAL
vvod(N),
spisok(N,L,Z),
write(L),nl,
write("Сумма:",Z).
Ответить с цитированием
  (#2 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,979
Сказал(а) спасибо: 2
Поблагодарили 303 раз(а) в 303 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 08.01.2011, 19:53

сумма([Ч|Л],Сум) :- Ч>=0,!, сумма([Ч|Л],Сум1), Сум = Сум1+Ч.
сумма([Ч|Л],Сум) :- сумма(Л,Сум).
сумма([],0).
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ЭС про животных. Турбо Пролог. suslic Prolog 28 31.01.2012 22:56
Циклы. Чистка стека Турбо Пролог 2.0 kaarb Prolog 3 20.12.2011 15:41
Мінімум Турбо Пролог golden_mouse Prolog 8 24.04.2010 00:46
Потребуй статті про РЕКУРСІЇ В МОВІ ТУРБО ПРОЛОГ golden_mouse Prolog 0 07.04.2010 23:45
Помогите доделать программу по Турбо Прологу. Списки Midous Prolog 4 10.01.2010 18:51
Помогите решить 2 лабы по турбо пролог 2.0 за wmr kurtds Prolog 3 05.01.2010 15:22
Турбо пролог, помогите со списками Midous Prolog 5 25.12.2009 13:28
ЭC с ЕЯ-интерфейсом (Турбо-Пролог) пожалуйста! Jaane Prolog 4 22.11.2008 10:44
Помогите пожалуйста написать программу на Турбо прологе Angel's Prolog 1 20.11.2008 15:39
турбо пролог 2.0 {qwerty} Задания за деньги 1 13.12.2007 23:15
Турбо Пролог 2.0 и русская раскладка клавиатуры Dederko Prolog 6 14.12.2006 18:04
Турбо-Пролог в сельской школе Татьяна Викторовна Prolog 3 13.09.2005 15:28



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов