Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 21.11.2012
Сообщений: 4

В телефонном справочнике, заданном в виде одностороннего односвязного списка осуществить поиск

30.05.2013, 16:04. Показов 700. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В телефонном справочнике, заданном в виде одностороннего односвязного списка осуществить поиск абонентов с одинаковыми телефонными номерами и сформировать новый список из «двойников».

Я написал ее на C++, надо портировать на Паскаль.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
#include <string>
#include <iostream>
 
using namespace std;
const int n=20;
int p;
class queue
{
    struct node
    {
        long int number;
        string lastName;
        node *next;
    };
    node *begin;
    node *begin_twin;
    node *end;
    node *end_twin;
public:
    queue():begin(NULL),end(NULL),begin_twin(NULL),end_twin(NULL){};
    void push(long int, string);
    void push_dop(long int, string);
    void print();
    void print_dop();
    void al_sch();
};
 
void queue::push(long int i, string s)
{
 
    node *item = new node;
    item->number=i;
    item->lastName=s;
    item->next=NULL;
    if (begin==NULL)
        begin=end=item;
    else
    {
        end->next=item;
        end=item;
    }
}
 
void queue::push_dop(long int i, string s)
{
 
    node *item_dop = new node;
    item_dop-> number=i;
    item_dop-> lastName=s;
    item_dop-> next = NULL;
    if (begin_twin==NULL)
        begin_twin=end_twin=item_dop;
    else
    {
        end_twin->next=item_dop;
        end_twin=item_dop;
    }
}
 
void queue::al_sch()
{
    node *one, *two;
    one=begin;
    bool flag;
    while (one!=NULL)
    {
        flag=false;
        two=one->next;
        while (two!=NULL)
        {
            if (one->number==two->number)
            {
                if (!flag)
                {push_dop(one->number,one->lastName);push_dop(two->number,two->lastName);flag=true;}
                else push_dop(two->number,two->lastName);
            }
            two=two->next;
        }
        one=one->next;
    }
}
 
 
 
    void queue::print()
    {
        node *item = begin;
        do
        {
            cout<<"Фамилия: "<<item->lastName<<" номер: "<<item->number<<endl;
            item=item->next;
        }
        while(item!=NULL);
    }
 
    void queue::print_dop()
    {
        node *item_dop = begin_twin;
        do
        {
            cout<<"Фамилия: "<<item_dop->lastName<<" номер: "<<item_dop->number<<endl;
            item_dop=item_dop->next;
        }
        while(item_dop!=NULL);
    }
 
    int main(int argc, char *argv[])
    {
        queue och;
        setlocale(0,"rus");
        long int h;
        string m;
        cout<<"Введите количество элементов"<<endl;
        cin>>p;
 
        for (int i=1; i<=p; i++)
        {
            cout<<"Введите "<<i<<" фамилию и номер"<<endl;
            cin>>m>>h;
            och.push(h, m);
        }
        cout<<endl;
        och.al_sch();
 
        cout<<endl<<endl;
 
        och.print();
        cout<<endl;
        cout<<"Двойники:"<<endl;
        och.print_dop();
 
        char response;
        cin>>response;
        return 0;
    }
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
30.05.2013, 16:04
Ответы с готовыми решениями:

Поиск в телефонном справочнике
Написать программу, которая позволяет найти нужные сведения в телефонном справочнике (a:\phone.txt). Программа должна запрашивать фамилию...

Поиск в телефонном справочнике
Напишите программу, выполняющую поиск в телефонном справочнике, состоящем из 5 записей. Заранее спасибо!!!!!!

Организовать поиск в телефонном справочнике
Пишу обычный телефонный справочник. Сохраняет все txt. Помогите написать код для кнопки найти, чтобы в viewbox выводился только нужный нам...

2
 Аватар для Новичок
1682 / 1098 / 489
Регистрация: 17.07.2012
Сообщений: 5,360
30.05.2013, 16:51
Цитата Сообщение от - Fenix - Посмотреть сообщение
Я написал ее на C++
Остроумно,но С++ сложнее Паскаля.
0
0 / 0 / 0
Регистрация: 21.11.2012
Сообщений: 4
30.05.2013, 17:58  [ТС]
Не хочется сейчас спорить о сложности того или иного языка, а тем более какой "лучше" или "хуже". Хочется просто получить решение задачи. Не портировать, так помочь с написанием под Паскаль...
Курсач он такой)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
30.05.2013, 17:58
Помогаю со студенческими работами здесь

Бинарный поиск в телефонном справочнике
Программа телефонный справочник ввожу абонентов номера потом хочу сделать сортировку по возрастанию(фамилию) не получается почему? Далее...

Сделать поиск в телефонном справочнике
Мне надо сделать поиск в телефонном справочнике.Как сделать помогите!!!? У меня уже всьо сделано,все подключено к DBGridу,отображаютса...

Поиск в телефонном справочнике текстовом файле
вопрос в следующем = у меня внутри сборки лижит файл phone.txt. по запросу имени, хочу получать его данные. в файле храняться...

Как сделать поиск в телефонном справочнике
Что бы искало по фамилии и по городу!!!!Помогите пожалуста!)))

Распечатать многочлен, заданный в виде односвязного списка, в обычном виде
Люди помогите пожалуйста. Вообще не знаю как подступиться к задаче. Заранее спасибо! Многочлен от одной переменной Х можно представить...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru