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

В список записывается только последний элемент

15.01.2019, 20:33. Показов 553. Ответов 1
Метки нет (Все метки)

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

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
122
123
124
125
126
127
128
129
 uses crt;
type
  Pnode = ^Tnode;
  Tnode = record
    x: integer;
    y: Pnode;
  end;
 
var
  first, p1, p2: Pnode;
  f:file of integer;
  ch1:char;
  s:string;
 
 
 
function proverka(ch:char):boolean;
begin
  if ch in ['0'..'9']  then
    proverka := true
  else 
    proverka := false;
end;   
  
procedure delite(ch:char; var s1:string);
begin
  if ch=(#8) then 
  begin
    clearline;
    s1:=copy(s1,1,length(s1)-1);
    write(s1);
  end;
end;
 
procedure vvod(ch:char;var s1:string);
begin
  writeln('Cколько чисел записать в файл');
  repeat
  ch:=readkey;
    if proverka(ch) then 
    begin
      write(ch);
      s1:=s1+ch;
    end;
  delite(ch,s1);
  until (ch=(#13)) and (length(s1)<>0); 
  writeln;
end;
 
procedure sozd_spis(ch:char; s1:string; var first1, p11,p22:Pnode);
var j :integer;
begin
  vvod(ch,s1);
  first1:=nil;
  new(p11);
  for var i := 1 to StrToInt(s1) do
  begin
    p11^.x := random(10);
    if first1 = nil then 
    begin
      first1:=p11;
    end
    else 
    begin
      p22^.y:=p11;
    end;
    p22:=p11;
  end;
  p22^.y := nil;
end;
 
procedure filee(var f1:file of integer; var first1, p11 :Pnode); 
begin
  assign(f1,'ff');
  rewrite(f1);
  p11:=first1;
  while p11<>nil do 
  begin
    write(f, p11^.x);
    p11:=p11^.y;
  end;
  close(f1);
end;
 
procedure poisk(var first1, p11 ,p22:Pnode);
var j1:integer;
begin
  j1:=0;
  p11:=first1;
  p22:=p11^.y;
  while p11<>nil do
  begin
    while p22<>nil do
    begin
      if p11^.x = p22^.x then 
      begin
        write(' ',p22^.x,' ');
        writeln(p11^.x);
        inc(j1);
      end;;
      p22:=p22^.y;
    end;
  p11:=p11^.y;
  if p11<>nil then
    p22:=p11^.y;
  end;
  writeln('В списке ',j1,' пар одинаковых чисел');
  while p11 <> nil do
end;
 
procedure viv_spis(var  first1, p11:Pnode);
begin
  p11 := first1;
  while p11 <> nil do
  begin
    write(p11^.x, ' ');
    p11 := p11^.y;
  end;
  writeln;
end;
 
begin
  clrscr;
  sozd_spis(ch1,s,first,p1,p2);
  filee(f,first,p1);
  writeln('Составленный список');
  viv_spis(first,p1);
  poisk(first,p1,p2);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2019, 20:33
Ответы с готовыми решениями:

Записывается в файл только последний элемент массива.
Приветствую вас форумчане. Нужна помощь в массивах объекта. Есть класс. Класс делает, то что...

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

Почему на экран выводится 5 элементов массива, а в файл записывается 1 элемент (последний)
#include &lt;iostream&gt; #include &lt;cstdlib&gt; #include &lt;ctime&gt; #include &lt;fstream&gt; using namespace...

Список с указателем на последний элемент
Приветствую. Есть циклический односвязный список с зацикливанием через голову. Требуется:...

1
5018 / 2605 / 2332
Регистрация: 10.12.2014
Сообщений: 9,926
16.01.2019, 06:36 2
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
const fName = 'ff';
 
type
  tList = class
    n : Integer;
    x : tList;
    
    constructor (x : tList);
    begin
      n := Random(10);
      Self.x := x;
    end;
  end;
 
function CreateList : tList;
begin
  Result := nil;
  var n := ReadInteger('Cколько чисел записать в файл: n =');
  loop n do
    Result := New tList(Result);
end;
 
procedure ListToFile(L : tList);
begin
  var f : File of Integer;
  Rewrite(f, fName);
  while L <> nil do
    begin
      Write(f, L.n);
      L := L.x;
    end;
  Close(f);
end; 
 
procedure OutList(L : tList; msg : String := '');
begin
  if msg.Length > 0 then Write($'{msg}: ');
  if L = nil then
    Write('пуст.')
  else
    while L <> nil do
      begin
        L.n.Print;
        L := L.x;
      end;
  WriteLn;
end;
 
procedure FindRepeats(L : tList);
begin
  if L = nil then
    begin
      WriteLn('Спиок пуст!');
      Exit;
    end;
  
  // Для подсчёта количества воспользуемся двумя нашими списками
  // где будем хранить v - значения / с - количество
  
  // Первый просто заносим
  var(v,c) := (New tList(nil),New tList(nil));
  (v.n,c.n) := (L.n,1);
  // Остальные 
  while L.x <> nil do
    begin
      L := L.x;
      var(tv,tc):=(v,c);
      while (tv<>nil) and (tv.n<>L.n) do (tv,tc):=(tv.x,tc.x);
      if tv=nil then // такое значение не найдено
        begin
          (v,c) := (New tList(v),New tList(c));
          (v.n,c.n) := (L.n,1);
        end
      else // повторное значение
        tc.n += 1;
    end;
    
  // Каждое число списка сколько раз встречается
  while v <> nil do
    begin
      WriteLn($'{v.n} встречается раз {c.n}');
      (v,c) := (v.x,c.x);
    end;
end;
 
begin
  Randomize;
  var L := CreateList;
  ListToFile(L);
  OutList(L, 'Составленный список');
  FindRepeats(L);
end.
Добавлено через 1 минуту
См. статью на оффсайте: Связные списки - новый стиль
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2019, 06:36
Помогаю со студенческими работами здесь

Выводится только последний элемент массива
Здравствуйте. Имеется текстовый файл text.txt , где есть 4 строки разной длины. Я в своей программе...

В ListView выводится только последний элемент
Код метода, создающего список объектов: public void setListBooks (String arrBooks) { List...

Выводится только последний элемент массива
Приветствую, комрады! Прошу помощи! Есть код: $select_disk = mysql_query(&quot;SELECT * FROM...

Ошибка в программе. Запоминается только последний список файлов
Пытаюсь написать простую программу, которая перебирает папки и ищет файлы, полный путь которых...


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

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

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