Найти сумму положительных элементов и заменить их противоположными

18.06.2012, 16:39. **Показов** 1268. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Привет всем. Помогите плиз решить задачу. Найти сумму положительных элементов и заменить их противоположными. Пытаюсь создать новый список но почемуто выдает ошибку на этапе A1=A+V.

Prolog
1
2
3
4
5
6
7
8
9
10
domains
spysokint=integer*
 
predicates
    spysok(spysokint,spysokint,spysokint,integer,integer)
 
clauses
    spysok([],A,A,C,C):-!.
    spysok([X|Y],A,B,C,W):-X>0,V=X*(-1),A1=A+V,C1=C+X,spysok(Y,V,B,C1,W);spysok(Y,A,B,C,W).
goal spysok([1,-2,3,-5,-8,9],[],B,0,W),nl,write("Ñóììà ïîëîæèòåëüíûõ ýëåìåíòîâ = ",W),nl,write(B).

@DENLED · 19.06.2012, 11:39

Это потомучто А1 не используется нигде в дальнейшем
Вторая ошибка не соответствие типов, вы сладываете integer и integer*

Добавлено через 5 минут

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
domains
    spysokint=integer*
 
predicates
    nondeterm spysok(spysokint,spysokint,integer)
 
clauses
    spysok([],[],0).
    spysok([H|T],[H|T1],Sum):-
        H<=0,
        spysok(T,T1,Sum).
    spysok([H|T],[H1|T1],NewSum):-
        H1=H*(-1),
        spysok(T,T1,Sum),
        NewSum=Sum+H.
           
goal 
    Spisik=[1,-2,3,-5,-8,9],
    spysok(Spisik,NewSpisik,Sum),!,
    write("Старый список = ",Spisik),nl,
    write("Сумма положительных элементов = ",Sum),nl,
    write("Новый список = ",NewSpisik),nl,nl.

Результат:

Старый список = [1,-2,3,-5,-8,9]
Сумма положительных элементов = 13
Новый список = [-1,-2,-3,-5,-8,-9]

Spisik=[1,-2,3,-5,-8,9], NewSpisik=[-1,-2,-3,-5,-8,-9], Sum=13

Новые блоги и статьи Все статьи Все блоги /
Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .	PowerShell и онлайн сервисы. Валюта (floatrates.com руб.) iNNOKENTIY21 11.11.2025 PowerShell функция floatrates-rub Примеры вызова: # Указанная валюта 'EUR' floatrates-rub -Code 'EUR' # Список имеющихся кодов валют floatrates-rub -Available function floatrates-rub {
PowerShell и онлайн сервисы. Погода (RP5.ru) iNNOKENTIY21 11.11.2025 PowerShell функция Get-WeatherRP5rss для получения погоды с сервиса RP5 Примеры вызова Get-WeatherRP5rss с указанием id 5484 — Москва (восток, Измайлово) и переносом строки:. . .	PowerShell и онлайн сервисы. Погода (wttr) iNNOKENTIY21 11.11.2025 PowerShell Функция для получения погоды с сервиса wttr Примеры вызова: Погода в городе Омск с прогнозом на день, можно изменить прогноз на более дней, для этого надо поменять запрос:. . .	PowerShell и онлайн сервисы. Валюта (ЦБР) iNNOKENTIY21 11.11.2025 # Получение курса валют function cbr (] $Valutes = @('USD', 'EUR', 'CNY')) { $url = 'https:/ / www. cbr-xml-daily. ru/ daily_json. js' $data = Invoke-RestMethod -Uri $url $esc = 27 . . .	И решил я переделать этот ноут в машину для распределенных вычислений Programma_Boinc 09.11.2025 И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .	Мысли в слух kumehtar 07.11.2025 Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.

Опции темы