0 / 0 / 0
Регистрация: 02.12.2022
Сообщений: 8
1

DATA1 (X,A) по заданной марке автомобиля A создает список номеров и фамилий владельцев автомобилей

02.12.2022, 17:07. Показов 933. Ответов 1
Метки нет (Все метки)

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

DATA1 (X,A) по заданной марке автомобиля A создает список номеров и фамилий владельцев автомобилей. Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Список X содержит сведения о нескольких автомобилях. Например,
> DATA1 ([["Toyota Camry" ,"X321AA", "Иванов"], ["Volvo", "A730BC", "Петров"],["Volvo", "A111OO", "Сидоров"]] ,"Volvo").
[["A730BC","Петров"],["A111OO","Сидоров"]]

Пытался что-то накодить по пример, да гайдам из инета, но не получается. Я думал что можно вот отделять отедльно 1ый элемент списка и проверять его на совпадение A, а оставшееся засовывать в аккумулятор, но это не работает)
Буду благодарен, если поможете разобраться с кодом.

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
info_cars() ->
    [["Toyota", "X321AA", "Ivanov"],
     ["Volvo", "A730BC", "Petrov"],
     ["Volvo", "A111OO", "Sidorov"]].
 
data([A|_],A,Acc) -> true;
data([],A,Acc) -> Acc;
data([Car|Rest],A,Acc) ->
    case Car andalso data(Car, A, Acc) of
        true -> data(Rest, A,[lists:nthtail(Car)|Acc]);
        false -> data(Rest, A, Acc)
    end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2022, 17:07
Ответы с готовыми решениями:

Найти и вывести на экран фамилии владельцев и номер автомобилей по заданной марке автомобиля
Дан массив записей,содержащий сведения об автомобилях:марка автомобиля;гос.номер,фамилия владельца....

По введенной марке автомобиля вывести на экран список владельцев и номерные знаки машин
Помогите пожалуйста В текстовом файле содержатся сведения о нескольких моделях автомобилей, их...

Определить фамилии владельцев и номера автомобилей по указанной марке
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий...

Файлы. Составить программу, выбирающую фамилии владельцев и номера автомобилей по указанной марке
Составить программу, выбирающую фамилии владельцев и номера автомобилей по указанной марке. Прошу...

Найти женщин-владельцев заданной марки автомобиля
Используя записи с полями: авто - с полями марка, регистрационный номер, пробег; анкета - с полями...

1
Модератор
5044 / 3273 / 526
Регистрация: 01.06.2013
Сообщений: 6,802
Записей в блоге: 9
02.12.2022, 17:44 2
Лучший ответ Сообщение было отмечено Scela как решение

Решение

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
-module(main).
-export([start/0]).
 
info_cars() ->
    [["Toyota", "X321AA", "Ivanov"],
     ["Volvo", "A730BC", "Petrov"],
     ["Volvo", "A111OO", "Sidorov"]].
 
data1(A,TN) -> [ [N,F] || [T,N,F] <- A, T == TN ].
 
start() ->
    io:fwrite("~p~n",[data1(info_cars(),"Volvo")]).
1
02.12.2022, 17:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2022, 17:44
Помогаю со студенческими работами здесь

Найти номера и владельцев автомобилей заданной марки
Сведения об автомобиле состоят из номера, марки, фамилии владельца, признака прохождения...

Определить фамилии владельцев и номера автомобилей заданной марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Создать файл, содержащий...

Найти фамилии владельцев и номера автомобилей заданной марки
Дан массив записей,содержащий сведения об автомобилях:марка автомобиля;гос.номер,фамилия владельца....

Найти фамилии владельцев и номера автомобилей заданной марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий...

Найти номера и фамилии владельцев автомобилей заданной марки
Сведения об автомобиле состоят из номера(четырехзначного), фамилии владельца и марки. Дан набор,...

Найти фамилии владельцев и номера автомобилей заданной марки
Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Дан файл f, содержащий...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru