![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 09.04.2011
Сообщений: 6
|
![]()
.Создать список слов.Вывести на екран все слова короче определенной длены и удалить их з списка.
|
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 08.01.2011
Сообщений: 226
|
![]()
Что сложного? Покажи, что уже сделано - подправим.
|
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 09.04.2011
Сообщений: 6
|
![]()
program sp;
uses crt; type spisok=^elem; elem=record data:char; next:spisok; end; var t:spisok; procedure AddElem(var current:spisok;elem:char); var x:spisok; begin new(x); x^.data:=elem; x^.next:=nil; current^.next:=x; current:=x; end; procedure St_spisok(var t:spisok); var p:spisok; n:integer; t:=nil; writeln('vvedit spusok sliv.#-kine:'); readln(n); while n<># do begin p:=t; while p^.next<>nil do p:=p^.next; AddElem(p,n); readln(n); end; end; procedure Del_elem(var current ![]() var x ![]() begin x:=current^.next; current^.next:=current^.next^.next; Dispose(x); end; procedure Vivod(var t:spisok); var p:spisok; begin for i:= Сделала токо половину,незнаю как длену записать и удаление елемента(нужно ли через специальную процедуру)? |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Список с заглавным звеном, из текстового файла получить список из записей и по нему уже сделать задание | Zigfried | Помощь студентам | 2 | 04.10.2010 20:29 |
связать список строк и список целых чисел | lirikoff | Помощь студентам | 5 | 31.08.2010 13:23 |
C++. Односвязный список. Уничтожить список | Olya90 | Помощь студентам | 2 | 10.06.2009 18:52 |
Данные-проверка-список (список на другом листе) | Inbox | Microsoft Office Excel | 7 | 26.12.2008 01:43 |