Создан заказ №2978291
7 мая 2018
чисел треугольник и формирует список площадей maxlist(rlist real)% находит максимальный элемент в списке side(integer
Как заказчик описал требования к работе:
Нужен аспирант или преподаватель, чтобы помочь сделать решение задач по программированию, сроки очень сжатые. Отзовитесь, пожалуйста!
Фрагмент выполненной работы:
чисел треугольник и формирует список площадей
maxlist(rlist,real)% находит максимальный элемент в списке
side(integer,integer,integer,real) % определяет - является ли треугольником и находит его площадь
nelement(real,rlist,integer) % определяет номер элемента в списке
element(integer,llist,list)% определение элемента списка по номеру
max(real,real,real)%максимальное из 2 чисел
clauses
start:- vvod([],L,'д'),traingl(L,S),maxlist(S,M),nelement(M,S,N),element(N,L,A),
write("максимальная площадь ",M, " у треугольника ",A),nl .
traingl([],[]).
traingl([[A,B,C]|L],[S1|S]):- side(A,B,C,S1), traingl(L,S).
side(A,B,C,S):-A<B+C,
B<A+C,
C<A+B,!,
P=(A+B+C)/2,
write(A," ",B," ",C, " образуют треугольник"),nl,
S=sqrt(P*(P-A)*(P-B)*(P-C)).
side(A,B,C,0.0):-write(A," ",B," ",C, " НЕ образуют треугольник"),nl.
maxlist([],0.0):-!.
maxlist([H|L],M):-
maxlist(L,M1),
max(M1,H,M).
max(A,B,A):-A>B,!.
max(_,B,B).
nelement(E,[E|_],1):-!.
nelement(E,[_|L],N):-nelement(E,L,N1),N=N1+1,write(N).
element(1,[A|_],A):-!.
element(N,[_|L],A):-N1=N-1,element(N1,L,A).
append([],L,L).
append([H|L1],L2,[H|L3]):-append(L1,L2,L3).
vvod(L0,L,'д'):- write("введите первое число -"),readint(A1),
write("введите второе число -"),readint(A2),
write("введите третье число -"),readint(A3),
append([[A1,A2,A3]],L0,L1),
write( "проложить - д/н"),
readchar(C),nl,
vvod(L1,L,C).
vvod(L,L,'н'):-!.
goal
start. (работа была выполнена специалистами author24.ru)
Копия экрана с примером работы программы
1314451435100
\
Иван, Петр, Михаил и Сергей посвящали свое свободное время чтению книг. Один читал о путешествиях, другой –о войне, третий – о спорте, четвертый – детектив. Кто о чем читал, если:
– Иван и Петр не читали о войне;
– Михаил и Сергей не читали о спорте;
– Петр и Михаил не читали детектив;
– Иван, Петр и Сергей не читали о путешествиях.
Решение:
Запуск программы предикатом start
Описание предикатов и правил в комментариях в тексте программы
Текст программы
domains
list=symbol*
predicates
nondeterm member(symbol,list)
nondeterm start
clauses
start:-L=[путешествиях, войне, спорте, детективы], %список жандров книг
member(Ivan,L),%что читает Иван
member(Petr,L), not (Ivan=Petr), % Петр и Иван читают разные книги
member(Maikle,L), not (Ivan=Maikle), %Михаил читает не тто что читают Иван и Петр
not (Petr=Maikle),
member(Serg,L), not (Ivan=Serg), %Сергей читает не тто что читают Иван, Петр и Михаил
not (Petr=Serg),not (Maikle=Serg),
not(Ivan=war),not(Petr=war),% условие 1
not(Maikle=sports),not(Serg=sports), %условие 2
not(Ivan=traveling),not(Petr=traveling...Посмотреть предложения по расчету стоимости
Заказчик
заплатил
заплатил
20 ₽
Заказчик не использовал рассрочку
Гарантия сервиса
Автор24
Автор24
20 дней
Заказчик принял работу без использования гарантии
8 мая 2018
Заказ завершен, заказчик получил финальный файл с работой
5
чисел треугольник и формирует список площадей
maxlist(rlist real)% находит максимальный элемент в списке
side(integer.jpg
2020-05-14 15:45
Последний отзыв студента о бирже Автор24
Общая оценка
5
Положительно
Спасибо большее! Работа была сдана раньше срока . Всё было выполнено очень качественно. Рекомендую.
Хочешь такую же работу?
300 ₽
