задача на turboprologe про жильцов - Помощь студентам

shiruku · 05.05.2012, 09:08

Сколько жильцов в доме ?
Сколько жильцов в нашем доме, состоящем из трех четырехэтажных корпусов, если известно, что
1) в корпусе А на 39 человек больше, чем в корпусе В, но на 77 человек меньше, чем в корпусе С;
2) из каждых 13 детей 7 учатся;
3) к 1 мая домоуправление закупило 1400 художественных открыток; более половины было передано другому домоуправлению; оставшиеся открытки были розданы жильцам нашего дома - каждому по одной;
4) взрослых на 20% больше, чем детей;
5) если в первые этажи приедет 17 новых жильцов, из вторых этажей в третьи переедет 11 жильцов, а из четвертых этажей уедет 15 жильцов, то во всех четырех этажах жильцов будет поровну.

shiruku · 05.05.2012, 09:09

вот собственно и код Prolog,только разобраться и перевести не могу
возможное_количество(A,A,_).
возможное_количество(I,A,B):-A<B,A1 is A+1,
возможное_количество(I,A1,B).

решение(N):-возможное_количество(КорпусА,1,700) ,
КорпусВ is КорпусА-39, КорпусС is КорпусА+77,
N is КорпусА+КорпусВ+КорпусС,N<700,
N mod 5 =:= 0,КоличествоДетей is N*2/5,
КоличествоДетей mod 13 =:= 0,
возможное_количество(Жильцов1,1,700 ),
Жильцов2 is Жильцов1+28,Жильцов3 is Жильцов2+22,
Жильцов4 is Жильцов1+32,
Жильцов1+Жильцов2+Жильцов3+Жильцов4 =:= N.

05.05.2012, 09:08	#1
shiruku Новичок Джуниор Регистрация: 05.05.2012 Сообщений: 2	задача на turboprologe про жильцов Сколько жильцов в доме ? Сколько жильцов в нашем доме, состоящем из трех четырехэтажных корпусов, если известно, что 1) в корпусе А на 39 человек больше, чем в корпусе В, но на 77 человек меньше, чем в корпусе С; 2) из каждых 13 детей 7 учатся; 3) к 1 мая домоуправление закупило 1400 художественных открыток; более половины было передано другому домоуправлению; оставшиеся открытки были розданы жильцам нашего дома - каждому по одной; 4) взрослых на 20% больше, чем детей; 5) если в первые этажи приедет 17 новых жильцов, из вторых этажей в третьи переедет 11 жильцов, а из четвертых этажей уедет 15 жильцов, то во всех четырех этажах жильцов будет поровну.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача про гиперкуб	Артём С.	Общие вопросы C/C++	0	01.04.2012 14:37
Задача про списки	Алекс12345	Паскаль, Turbo Pascal, PascalABC.NET	2	20.08.2011 19:33
Задача про рыбалку	Dj Troy	Паскаль, Turbo Pascal, PascalABC.NET	8	06.04.2011 08:53
ЗАДАЧА ПРО КИНОТЕАТР	NatawaB	Паскаль, Turbo Pascal, PascalABC.NET	3	10.01.2011 20:09

05.05.2012, 09:09	#2
shiruku Новичок Джуниор Регистрация: 05.05.2012 Сообщений: 2	вот собственно и код Prolog,только разобраться и перевести не могу возможное_количество(A,A,_). возможное_количество(I,A,B):-A<B,A1 is A+1, возможное_количество(I,A1,B). решение(N):-возможное_количество(КорпусА,1,700) , КорпусВ is КорпусА-39, КорпусС is КорпусА+77, N is КорпусА+КорпусВ+КорпусС,N<700, N mod 5 =:= 0,КоличествоДетей is N*2/5, КоличествоДетей mod 13 =:= 0, возможное_количество(Жильцов1,1,700 ), Жильцов2 is Жильцов1+28,Жильцов3 is Жильцов2+22, Жильцов4 is Жильцов1+32, Жильцов1+Жильцов2+Жильцов3+Жильцов4 =:= N.