На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Название темы должно быть информативным !
Прежде чем задать вопрос, воспользуйтесь Поиском. и проверьте в FAQ (ЧАВО) Паскаля
Чтобы получить вразумительный ответ, подробно опишите проблему: что надо сделать, что не получается и номер ошибки (если есть), которую выводит компилятор.
Для вставки кода ваших программ используйте, пожалуйста, кнопку СODE=pas или выпадающий список СODE для других языков (подсветка синтаксиса).
[!] Как правильно задавать вопросы | Руководство по языку B.Pascal 7 & Objects/LR | Borland Pascal. Руководство пользователя
Модераторы: volvo877
  
> Как избавиться от рандома , Нужно заменить рандом обычным вводом
    Помогите заменить рандомный список обычным вводом.

    ExpandedWrap disabled
       // Создаёт список из 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);
    Сообщение отредактировано: Otclik -
      >var List := New tList(Random(-10,+10));

      Мама, какой это язык? (Не Паскаль, не С/C++, не JavaScript)

      Writeln('объяснение, чего вводить') и
      Readln(чего вводить)
      решат проблему
        Цитата MBo @
        Мама, какой это язык?
        Закос Паскаля под Си++. :)
          Убери randomize; И у тебя каждый раз будет одна и та же последовательность "случайных" чисел.

          Что вообще нужно?
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0196 ]   [ 15 queries used ]   [ Generated: 28.03.24, 23:24 GMT ]