Добавить несколько значений в список

@anikev123 · Регистрация: 04.04.2013

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

Здравствуйте, уважаемые форумчане! Подскажите пожалуйста, как мне можно организовать список? У меня есть список, но он только добавляет только одно значение, то есть по одной строке. А можно ли мне добавлять несколько значений? Допустим, ФИО и ПОЛ. Понял, что делается это помощью Массива, но как его реализовать в этом листинге. Подскажите пожалуйста.

Pascal
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
Program spisok_1;
Uses Crt;
Type  
   t_name=string[20];{значением элемента списка является строка}
   ref_elem=^t_elem;
   t_elem=record name:t_name;
                 next:ref_elem  
          end;
Var
   list:ref_elem; 
   st:t_name; 
   c:char;
{       Операция "создать список"       }
Procedure CreateList(var head:ref_elem);
var 
 c:t_name; 
 p,r:ref_elem;
begin
 writeln('Строится список строк ');
 writeln('Вводите строки длиной <=20, признак конца – пустая строка');
 write('Введите строку=');   readln(c);
 if c='' then begin head:=nil else
 begin
  new(p);
  p^.name:=c;    {   список строится "с начала"   }
  head:=p;
  write('Введите строку=');  readln(c);
  while c<>'' do begin
                  r:=p;
                  new(p);
                  p^.name:=c; 
                  r^.next:= p;
                  write('Введите строку=');  readln(c);
                 end;
  p^.next:=nil
 end;
end;{end of CreateList}
{    Операция "найти элемент с заданным значением" }
Function FindElem(head : ref_elem; str:t_name):ref_elem;
var 
 p:ref_elem;
begin 
 p:=head;
 while (p<>nil) and (str<>p^.name) do p:=p^.next;
 FindElem:=p
end;{end of FindElem}
{    Операция "напечатать значения элементов списка"  }
Procedure PrintList(head:ref_elem);
var 
  p:ref_elem;
begin
 p:=head;
 while p<>nil do 
 begin
  writeln(p^.name);
  p:=p^.next 
 end;
end;{end of PrintList}
 
{   Операция "сортировка списка"       }
{    элементы списка не переставляются, меняются их значения    }
Procedure SortList(head:ref_elem);
var 
 a,b,d : ref_elem;
 c:t_name;
begin 
 a:=head;
 while a<>nil do
 begin 
  c:=a^.name; d:=a; b:=a;
  while b<>nil do
  begin
   if b^.name<c then 
   begin c:=b^.name; d:=b; end;
   b:=b^.next 
  end;
  d^.name:=a^.name;
  a^.name:=c;
  a:=a^.next;
 end
end;{end of procedure SortList}
{     Главная программа.  Меню операций   }
Begin
 list:=nil;
 while true do begin
  clrscr;
  writeln('    Операции с  однонаправленным  списком строк  ');
  writeln(' ____________ЗАДАЙТЕ НОМЕР ОПЕРАЦИИ_____________');
  writeln('|    1 : Создать список                         |');
  writeln('|    2 : Сортировать список                     |');
  writeln('|    3 : Найти элемент с заданным значением     |');
  writeln('|    4 : Напечатать значения элементов списка   |');
  writeln('|    5 : Завершить работу программы             |');
  writeln('|_______________________________________________|');
  c:=readkey;
  case c of
   '1': CreateList(list);
   '2': begin writeln('      Исходный список: '); PrintList(list);
              SortList(list);
              writeln('      Отсортированный список: ');
              PrintList(list)
        end;
   '3': begin write('Введите искомую строку='); readln(st);
           if FindElem(list,st)<>nil then writeln('Такая строка есть')
                     else writeln('Такой строки нет')
        end;
   '4': begin writeln(' Элементы списка :'); PrintList(list) end;
   '5': begin Exit; readln end;
   else  writeln('*** неверный номер операции');
  end;
  writeln('Для продолжения работы нажмите любую клавишу');
  c:=readkey;
 end;{while}
end.{ конец программы }

@Puporev · 07.04.2013, 08:55

Нужно информационное поле определить как запись с нужными полями, например

Pascal
1
2
3
4
t_name=record{значением элемента списка является запись}
            fam:strind[20];
            pol:char;
            end;

@anikev123 · 07.04.2013, 09:58 **[ТС]**

Спасибо, а можно ли мне теперь сделать отображение таким образом:
1. |Fam| |Pol|
2. |Fam| |Pol|
в процедуре PrintList

@Puporev · 07.04.2013, 10:05

Можно организовать вывод записей в виде таблицы, пример такого вывода можно посмотреть здесь

https://www.cyberforum.ru/pascal/thread172202.html

@anikev123 · 07.04.2013, 10:16 **[ТС]**

Фух, почти получилось... Только вот еще одна проблемка). Отображаются такие каракули, подскажите пожалуйста как это исправить?
Элементы списка :
1
Ён║AА‼ ╚─¶ ─¶
2
Ён║AА↨ ┼¶ H─¶

@Puporev · 07.04.2013, 10:19

Не понял откуда берутся каракули, чтения из файла не вижу...

@anikev123 · 07.04.2013, 10:25 **[ТС]**

{ Операция "напечатать значения элементов списка" }

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Procedure PrintList(head:ref_elem);
var
  p:ref_elem;
begin
 p:=head;
 while p<>nil do
 begin
  writeln(p^.name);
  writeln(p^.nomer);
  p:=p^.next
 end;
end;{end of PrintList}

@Puporev · 07.04.2013, 10:27

Я не понимаю откуда берутся каракули если вводим данные на русском.

@anikev123 · 07.04.2013, 12:38 **[ТС]**

это все, что я натворил.

Кликните здесь для просмотра всего текста

{ Операция "напечатать значения элементов списка" }
Procedure PrintList(head:ref_elem);
var
p:ref_elem;
begin
p:=head;
while p<>nil do
begin
writeln(p^.name);
writeln(p^.nomer);
p:=p^.next
end;
end;{end of PrintList}

Добавлено через 29 минут
в чем может быть проблема?

Добавлено через 50 минут
Полный листинг

Pascal
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
Program Proba;
Uses Crt;
Type
   t_name=string[20];{значением элемента списка является строка}
   t_nomer=string[20];
   ref_elem=^t_elem;
   t_elem=record name:t_name;
                 nomer:t_nomer;
                 next:ref_elem
          end;
Var
   list:ref_elem;
   st:t_name;
   c:char;
{       Операция "создать список"       }
Procedure CreateList(var head:ref_elem);
var
 c:t_name;
 n:t_nomer;
 p,r:ref_elem;
begin
 writeln('Строится список строк ');
 writeln('Вводите строки длиной <=20, признак конца – пустая строка');
 write('Введите строку=');  readln(c);
 
 if c='' then  head:=nil else
 begin
  new(p);
  p^.name:=c;    {   список строится "с начала"   }
  head:=p;
  write('Введите строку=');  readln(c);
    write('Введите номер=');  readln(n);
  while c<>'' do begin
                  r:=p;
                  new(p);
                  p^.name:=c;
                  r^.next:= p;
                  write('Введите строку='); readln(c);
                   write('Введите номер=');  readln(n);
                 end;
  p^.next:=nil
 end;
end;{end of CreateList}
{    Операция "найти элемент с заданным значением" }
Function FindElem(head : ref_elem; str:t_name):ref_elem;
var
 p:ref_elem;
begin
 p:=head;
 while (p<>nil) and (str<>p^.name) do p:=p^.next;
 FindElem:=p
end;{end of FindElem}
{    Операция "напечатать значения элементов списка"  }
Procedure PrintList(head:ref_elem);
var
  p:ref_elem;
begin
 p:=head;
 while p<>nil do
 begin
  writeln(p^.name);
  writeln(p^.nomer);
  p:=p^.next
 end;
end;{end of PrintList}
 
{   Операция "сортировка списка"       }
{    элементы списка не переставляются, меняются их значения    }
Procedure SortList(head:ref_elem);
var
 a,b,d : ref_elem;
 c:t_name;
begin
 a:=head;
 while a<>nil do
 begin
  c:=a^.name; d:=a; b:=a;
  while b<>nil do
  begin
   if b^.name<c then
   begin c:=b^.name; d:=b; end;
   b:=b^.next
  end;
  d^.name:=a^.name;
  a^.name:=c;
  a:=a^.next;
 end
end;{end of procedure SortList}
{     Главная программа.  Меню операций   }
Begin
 list:=nil;
 while true do begin
  clrscr;
  writeln('    Операции с  однонаправленным  списком строк  ');
  writeln(' ____________ЗАДАЙТЕ НОМЕР ОПЕРАЦИИ_____________');
  writeln('|    1 : Создать список                         |');
  writeln('|    2 : Сортировать список                     |');
  writeln('|    3 : Найти элемент с заданным значением     |');
  writeln('|    4 : Напечатать значения элементов списка   |');
  writeln('|    5 : Завершить работу программы             |');
  writeln('|_______________________________________________|');
  c:=readkey;
  case c of
   '1': CreateList(list);
   '2': begin writeln('      Исходный список: '); PrintList(list);
              SortList(list);
              writeln('      Отсортированный список: ');
              PrintList(list)
        end;
   '3': begin write('Введите искомую строку='); readln(st);
           if FindElem(list,st)<>nil then writeln('Такая строка есть')
                     else writeln('Такой строки нет')
        end;
   '4': begin writeln(' Элементы списка :'); PrintList(list) end;
   '5': begin Exit; readln end;
   else  writeln('*** неверный номер операции');
  end;
  writeln('Для продолжения работы нажмите любую клавишу');
  c:=readkey;
 end;{while}
end.{ конец программы }

Добавлено через 36 минут
я выяснил, это из-за строки

Pascal
1
 writeln(p^.nomer);

. Подскажите пожалуйста, что я сделал нет так?

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@anikev123 0 / 0 / 0 Регистрация: 04.04.2013 Сообщений: 6
	07.04.2013, 09:58 [ТС]
	Спасибо, а можно ли мне теперь сделать отображение таким образом: 1. \|Fam\| \|Pol\| 2. \|Fam\| \|Pol\| в процедуре PrintList 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	07.04.2013, 10:05
	Можно организовать вывод записей в виде таблицы, пример такого вывода можно посмотреть здесь https://www.cyberforum.ru/pascal/thread172202.html 0

@anikev123 0 / 0 / 0 Регистрация: 04.04.2013 Сообщений: 6
	07.04.2013, 10:16 [ТС]
	Фух, почти получилось... Только вот еще одна проблемка). Отображаются такие каракули, подскажите пожалуйста как это исправить? Элементы списка : 1 Ён║AА‼ ╚─¶ ─¶ 2 Ён║AА↨ ┼¶ H─¶ 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	07.04.2013, 10:19
	Не понял откуда берутся каракули, чтения из файла не вижу... 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	07.04.2013, 10:27
	Я не понимаю откуда берутся каракули если вводим данные на русском. 0