Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу HELP me SOS
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Nimfetka Nimfetka вне форума
Новичок
 
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 19.12.2007
Question 24.12.2007, 12:12

1. Написать программу, осуществляющую поэлементное перемножение
соответствующих элементов двух исходных списков!

2. Написать программу разделения списка на 2 так, чтобы в первом
списке элементы, стояли на нечётных местах, а во втором- на чётных.

3. Записать новый файл, в котором i-ая строка (№ строки вводится с клавиатуры)
записана в обратном порядке.


(ТОЛЬКО НЕЛЬЗЯ ДЕЛАТЬ МЕТОДОМ ОТСЕЧЕНИЙ!!!) (((
Ответить с цитированием
  (#2 (permalink)) Старый
Nimfetka Nimfetka вне форума
Новичок
 
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 19.12.2007
Question 24.12.2007, 12:12

1. Написать программу, осуществляющую поэлементное перемножение
соответствующих элементов двух исходных списков!

2. Написать программу разделения списка на 2 так, чтобы в первом
списке элементы, стояли на нечётных местах, а во втором- на чётных.

3. Записать новый файл, в котором i-ая строка (№ строки вводится с клавиатуры)
записана в обратном порядке.


(ТОЛЬКО НЕЛЬЗЯ ДЕЛАТЬ МЕТОДОМ ОТСЕЧЕНИЙ!!!) (((
Ответить с цитированием
  (#3 (permalink)) Старый
Nimfetka Nimfetka вне форума
Новичок
 
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 19.12.2007
Question 24.12.2007, 12:12

1. Написать программу, осуществляющую поэлементное перемножение
соответствующих элементов двух исходных списков!

2. Написать программу разделения списка на 2 так, чтобы в первом
списке элементы, стояли на нечётных местах, а во втором- на чётных.

3. Записать новый файл, в котором i-ая строка (№ строки вводится с клавиатуры)
записана в обратном порядке.


(ТОЛЬКО НЕЛЬЗЯ ДЕЛАТЬ МЕТОДОМ ОТСЕЧЕНИЙ!!!) (((
Ответить с цитированием
  (#4 (permalink)) Старый
akvilon akvilon вне форума
Member
 
Сообщений: 135
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.09.2004
По умолчанию 24.12.2007, 14:33

Писал в Turbo Prolog 2.0
Задача 1
Код:
domains
    reallist = real*.
predicates
    ymn(reallist, reallist, reallist)

clauses
    ymn([H|T], [Xs|X], [G|L]) :- G = H*Xs, ymn(T, X, L).
    ymn([], _, []).
    ymn(_, [], []).
    ymn([], [], []).
goal
    ymn([1, 2, 3, 4, -5], [5, 6, 7, 8, 10, 100], X), 
    write(X), nl.
Задача 2
Код:
domains
    reallist = real*.
predicates
   lists(reallist, reallist, reallist, integer).
clauses
    lists([H|T], [H|A], B, 1) :- lists(T, A, B, 0).
    lists([H|T], A, [H|B], 0) :- lists(T, A, B, 1).
    lists([], [], [], _).
goal
    lists([1, 2, 3, 4, 5, 1, 6, 5, 4, 3], L, List, 1), write(L), nl, write(List), nl.
Третья задача тоже элементарная. Попытайтесь сделать сами.
Ответить с цитированием
Ads
  (#5 (permalink)) Старый
akvilon akvilon вне форума
Member
 
Сообщений: 135
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.09.2004
По умолчанию 24.12.2007, 14:33

Писал в Turbo Prolog 2.0
Задача 1
Код:
domains
    reallist = real*.
predicates
    ymn(reallist, reallist, reallist)

clauses
    ymn([H|T], [Xs|X], [G|L]) :- G = H*Xs, ymn(T, X, L).
    ymn([], _, []).
    ymn(_, [], []).
    ymn([], [], []).
goal
    ymn([1, 2, 3, 4, -5], [5, 6, 7, 8, 10, 100], X), 
    write(X), nl.
Задача 2
Код:
domains
    reallist = real*.
predicates
   lists(reallist, reallist, reallist, integer).
clauses
    lists([H|T], [H|A], B, 1) :- lists(T, A, B, 0).
    lists([H|T], A, [H|B], 0) :- lists(T, A, B, 1).
    lists([], [], [], _).
goal
    lists([1, 2, 3, 4, 5, 1, 6, 5, 4, 3], L, List, 1), write(L), nl, write(List), nl.
Третья задача тоже элементарная. Попытайтесь сделать сами.
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
akvilon akvilon вне форума
Member
 
Сообщений: 135
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.09.2004
По умолчанию 24.12.2007, 14:33

Писал в Turbo Prolog 2.0
Задача 1
Код:
domains
    reallist = real*.
predicates
    ymn(reallist, reallist, reallist)

clauses
    ymn([H|T], [Xs|X], [G|L]) :- G = H*Xs, ymn(T, X, L).
    ymn([], _, []).
    ymn(_, [], []).
    ymn([], [], []).
goal
    ymn([1, 2, 3, 4, -5], [5, 6, 7, 8, 10, 100], X), 
    write(X), nl.
Задача 2
Код:
domains
    reallist = real*.
predicates
   lists(reallist, reallist, reallist, integer).
clauses
    lists([H|T], [H|A], B, 1) :- lists(T, A, B, 0).
    lists([H|T], A, [H|B], 0) :- lists(T, A, B, 1).
    lists([], [], [], _).
goal
    lists([1, 2, 3, 4, 5, 1, 6, 5, 4, 3], L, List, 1), write(L), nl, write(List), nl.
Третья задача тоже элементарная. Попытайтесь сделать сами.
Ответить с цитированием
Ответ

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

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

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




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