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

Создать однонаправленный список

20.06.2019, 00:15. Показов 630. Ответов 1
Метки нет (Все метки)

Создать однонаправленный список, элементы списка - целые числа, признак окончания ввода элементов - число 0. Продублировать в списке все числа, равные введенному с клавиатуры числу
Заранее спасибо!)
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2019, 00:15
Ответы с готовыми решениями:

Однонаправленный список
Организовать однонаправленный список всех простых чисел, меньших n. Удалить из списка элементы,...

Однонаправленный список
не работают процедуры до и после добавления последнего элемента type tData = integer; ...

Сформировать однонаправленный список
Сформировать однонаправленный список . Вывести его на печать. Проверить, сколько есть в этом списе...

Однонаправленный список+типизированный файл
Добрый вечер. Очень нужна процедура, которая экспортирует с типизированного файла в...

1
4447 / 2187 / 2147
Регистрация: 10.12.2014
Сообщений: 8,350
20.06.2019, 04:28 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
type   
  tList = ^pList;
  pList = record
    n : Integer;
    x : tList;
  end;
    
var
  List, Cur, Dub : tList;
  n : Integer;
begin
  Cur := nil;
  repeat
    Read(n);
    if n <> 0 then
      if Cur = nil then
        begin New(Cur); Cur^.n := n; List := Cur; end
      else
        begin New(Cur^.x); Cur := Cur^.x; Cur^.n := n; end;
  until n = 0;
  if Cur <> nil then Cur^.x := nil;
  
  Write('Список:'); Cur := List; while Cur <> nil do begin Write(#32,Cur^.n); Cur := Cur^.x; end; WriteLn;
  
  Write('Число: '); Read(n);
  Cur := List; while Cur <> nil do if Cur^.n = n then begin New(Dub); Dub^.n := n; Dub^.x := Cur^.x; Cur^.x := Dub; Cur := Dub^.x; end else Cur := Cur^.x;
 
  Write('Список:'); Cur := List; while Cur <> nil do begin Write(#32,Cur^.n); Cur := Cur^.x; end; WriteLn;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2019, 04:28

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Однонаправленный список, не работает процедура очистки
неправильно работает процедура 'очистить' program UnidirectionalList; type tData = integer;...

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

Сформировать однонаправленный кольцевой список и провести удвоение буквы "Т" в нем
Сформировать однонаправленный кольцевой список и провести удвоение буквы &quot;Т&quot; в нем. Напечатать оба...

Создать однонаправленный список. ABC Pascal
Создать однонаправленный список, элементы списка - целые числа,отсортировать элементы по...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.