Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.117.186.92] |
|
Сообщ.
#1
,
|
|
|
Помогите заменить рандомный список обычным вводом.
// Создаёт список из 20 элементов Randomize; var List := New tList(Random(-10,+10)); var Last := List; for var N := 2 to 20 do begin Last.Next := New tList(Random(-1,+10)); Last.Next.Pred := Last; Last := Last.Next; end; List.Pred := Last; Last.Next := List; WriteLn('Создан список'); OutList(List); |
Сообщ.
#2
,
|
|
|
>var List := New tList(Random(-10,+10));
Мама, какой это язык? (Не Паскаль, не С/C++, не JavaScript) Writeln('объяснение, чего вводить') и Readln(чего вводить) решат проблему |
Сообщ.
#3
,
|
|
|
Цитата MBo @ Закос Паскаля под Си++. Мама, какой это язык? |
Сообщ.
#4
,
|
|
|
Убери randomize; И у тебя каждый раз будет одна и та же последовательность "случайных" чисел.
Что вообще нужно? |