Составить программу вычисления сопротивления электрических цепей

@Aquaris · Регистрация: 28.12.2014

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

Составить программу вычисления сопротивления электрических цепей:

Prolog

domains
soed=S(real,real,string).
predicates
soprotivlenie(soed,real).
soprot_smech(real,real,real,real,real).
clauses
soprotivlenie(S(R1,R2,"Последовательное"),R):-
R=R1+R2.
soprotivlenie(S(R1,R2,"Параллельное"),R):-
R=(R1*R2)/(R1+R2).
soprot_smech(R5,R6,R7,R8,R):-
soprotivlenie(S(R6,R7," Параллельное "),X1),
soprotivlenie(S(X1,R8," Последовательное "),X2),
soprotivlenie(S(X2,R5," Параллельное "),R).
goal soprotivlenie(S(5,3," Последовательное "),Y1),
write(Y1),nl,
soprotivlenie(S(8,11," Параллельное "),Y2),
write(Y2),nl,
soprot_smech(2,1,4,7,Y3),write(Y3).

В строке 7 , после запуска, ошибка 423 на S.
Подскажите,пожалуйста,что не правильно?

@Black Fregat · 09.12.2015, 02:23

Буква s в soed должна быть маленькая. Везде.

И с пробелами в строках разберитесь, а то они у Вас то есть, то нет.

@Aquaris · 09.12.2015, 09:34 **[ТС]**

Спасибо!

@Black Fregat Фрилансер 3704 / 2076 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	09.12.2015, 02:23	2
	Буква s в soed должна быть маленькая. Везде. И с пробелами в строках разберитесь, а то они у Вас то есть, то нет. 0

@Aquaris 0 / 0 / 0 Регистрация: 28.12.2014 Сообщений: 2
	09.12.2015, 09:34 [ТС]	3
	Спасибо! 0

Опции темы