Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.04.2011, 10:48   #1
Маргоша1993
Новичок
Джуниор
 
Регистрация: 09.04.2011
Сообщений: 6
По умолчанию однозвязный список

.Создать список слов.Вывести на екран все слова короче определенной длены и удалить их з списка.
Маргоша1993 вне форума Ответить с цитированием
Старый 10.04.2011, 12:20   #2
VadikV
Форумчанин
 
Аватар для VadikV
 
Регистрация: 08.01.2011
Сообщений: 226
По умолчанию

Что сложного? Покажи, что уже сделано - подправим.
icq 223-630-454
e-mail vysotskiy@list.ru
сайт http://www.big-library.net/
VadikV вне форума Ответить с цитированием
Старый 10.04.2011, 12:37   #3
Маргоша1993
Новичок
Джуниор
 
Регистрация: 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 currenttr);
var xtr;
begin
x:=current^.next;
current^.next:=current^.next^.next;
Dispose(x);
end;
procedure Vivod(var t:spisok);
var p:spisok;
begin
for i:=
Сделала токо половину,незнаю как длену записать и удаление елемента(нужно ли через специальную процедуру)?
Маргоша1993 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Список с заглавным звеном, из текстового файла получить список из записей и по нему уже сделать задание 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