Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу Помогите пожалуйста решить задачу! Работа со списками
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
deletesd deletesd вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.11.2011
Exclamation Помогите пожалуйста решить задачу! Работа со списками - 17.11.2011, 19:51

Очень срочно, завтра сдать надо, а в прологе вообще не смыслю....
Суть задачи:
В списке содержится оценки студентов по информатике (10-12 оценок). Найти среднее арифметическое значение.
Ответить с цитированием
  (#2 (permalink)) Старый
deletesd deletesd вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.11.2011
По умолчанию 17.11.2011, 20:02

если можно с комментариями..
Ответить с цитированием
  (#3 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 7,987
Сказал(а) спасибо: 2
Поблагодарили 303 раз(а) в 303 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 19.11.2011, 16:50

На форуме решение есть. Ищите поисковиком. Тему завтра удалю.
Ответить с цитированием
  (#4 (permalink)) Старый
Ground Ground вне форума
Member
 
Сообщений: 22
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 05.04.2011
По умолчанию 19.11.2011, 17:17

Цитата:
Сообщение от deletesd Посмотреть сообщение
В списке содержится оценки студентов по информатике (10-12 оценок). Найти среднее арифметическое значение.
Второй предикат на входе получает список с оценками, на выходе выдает количество оценок и общую сумму. Первый предикат запускает подсчет оценок и находит среднее арифметическое.

prolog Код:
average([], 0).
average(List, Average) :-
    total(List, Sum, Count),
    Average = Sum / Count.

total([], 0, 0).
total([Element | List], Sum + Element, Count + 1) :-
    total(List, Sum, Count).
Ответить с цитированием
  (#5 (permalink)) Старый
aag aag вне форума
ушёл... не вернётся)))
 
Сообщений: 3,400
Сказал(а) спасибо: 0
Поблагодарили 82 раз(а) в 82 сообщениях
Регистрация: 29.11.2008
По умолчанию 19.11.2011, 20:14

Цитата:
Сообщение от Ground Посмотреть сообщение
Второй предикат на входе получает список с оценками, на выходе выдает количество оценок и общую сумму. Первый предикат запускает подсчет оценок и находит среднее арифметическое.
Сложновато как-то...

prolog Код:
av([A|B],C,D,E):- !, Cn=C+1, Dn=D+A, av(B,Cn,Dn,E).
av(_,A,B,C):- A>0, C=B/A.
Обращаться av(List,0,0,AvOut).
Ответить с цитированием
Ads.
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите сделать задачу. Работа с динамическими списками SnegovikON Pascal 0 26.12.2011 16:56
Помогите пожалуйста решить задачу на языке VB6.0. кнопка Visual Basic 0 18.12.2011 18:51
Пожалуйста, помогите решить задачу! (до 23 декабря) Novichokvcplusplus C++ Builder 11 17.12.2011 18:02
Помогите пожалуйста решить задачу в С++ samuelson Вопросы начинающих программистов 0 27.10.2011 11:19
Помогите пожалуйста решить задачу Hellin Prolog 4 29.09.2011 07:08
пожалуйста помогите решить задачу!!!! imported_Надюша Pascal 1 29.05.2011 02:24
Помогите пожалуйста решить задачу Алексей 7 Pascal 1 17.05.2011 19:15
пожалуйста помогите решить задачу. swetry Prolog 1 13.12.2010 13:24
Пожалуйста помогите решить задачу Токи Pascal 1 28.11.2009 20:11
помогите пожалуйста решить задачу Nimfetka Prolog 11 20.12.2007 19:18
Помогите братья решить задачу,пожалуйста? tattsar Pascal 5 31.05.2007 11:23
Помогите пожалуйста решить задачу tattsar Pascal 3 30.05.2007 11:58



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