VPF::Ввод данных в список - Форум программистов

Agentum

Дата 15.4.2009, 17:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.12.2008

Репутация: нет
Всего: нет

Помогите.Как организовать ввод данных в список с клавиатуры неизвестное число раз(то есть без счетчика)?ну и вообще как организуется ввод данных в список с клавы?

volvo877

Дата 15.4.2009, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Вводить до тех пор, пока не будет введено какое-то спец. значение, сигнализирующее об окончании ввода данных. Скажем, пустая строка. Обычный цикл repeat .. until

Цитата(Agentum @ 15.4.2009, 17:27

)

ну и вообще как организуется ввод данных в список с клавы?

Поиск по форуму пробовал? Уже не один десяток раз были примеры, как вносить данные в список. В том числе и с клавиатуры.

Agentum

Дата 20.4.2009, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.12.2008

Репутация: нет
Всего: нет

Вот набрал...добавляет элемент перед предыдущем:
procedure sozd(var s:prec);
var
nov,cur:prec;
begin
cur:=s;
while not eof do
begin
new(nov);
read(nov^.int);
if cur=nil then
begin
cur:=nov;
nov^.ptr:=nil;
end
else
begin
nov^.ptr:=cur;
cur:=nov;
end;
s:=cur;
end;
end;
Как сделать,чтобы добавляло элементы по по порядку?пробовал переделать,но выводит только первый и последний элементы.подскажите пожалуйста.

Agentum

Дата 21.4.2009, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 10.12.2008

Репутация: нет
Всего: нет

Спасибо,сам разобрался.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »