• Announcements

    • Loader

      Разделы для авторов программ   08/18/16

      Внимание: Софтфорум открывает двери для разработчиков программного обеспечения! Разработчик может создать раздел поддержки его программы. Это позволяет не создавать свой форум поддержки (хостинг, настройка ресурса и т.п.) а получить сразу настроенный ресурс с возможностью авторизации через соцсети. Для создания раздела необходимо обратиться к @Loader
    • Loader

      Открыт новогодний раздел.   12/29/16

      На СофтФоруме открыт новогодний раздел!  Заходите.
    • Loader

      Внимание! Конкурс!   01/09/17

      Команда «NANO Антивирус» и администрация softboard.ru объявляет о проведении конкурса.
       

NatM

Moderators
  • Content count

    1492
  • Joined

  • Last visited

  • Days Won

    16

NatM last won the day on April 3 2015

NatM had the most liked content!

Community Reputation

120 10

About NatM

  • Birthday

Контакты

  • ICQ
    0

Информация

  • Пол
    Женский
  • Город
    Новочеркасск-столица Дон. казач. Россия

Recent Profile Visitors

14655 profile views
  1. Кстати, я последнее время покупаю технику. И компьютерную, и бытовую. Цены стали нормальными в отличие от двухгодичных.
  2. С Новым годом, друзья! Любви, волшебства в жизни и счастья, вам!
  3. Прошу прощения. Я перепутала: Rnd возвращает до 1, а не до 1,5 включительно.
  4. Так вам может вернуть 3. Функция Rnd возвращает от 0 до 1.5 включительно, как я поняла. И, уже не об ошибке, а программировании: не понимаю, зачем делать лишнюю операцию. Сложение с нулем ничего не дает.
  5. Таймер дает количество секунд с начала суток. Соответственно, умножать ничего не надо. Я проверяла, что работает как надо, прежде чем сюда писать. Ощущение, что вы наобум пишете сообщения. Троллите?
  6. А потому, вначале я предлагала плясать от таймера - там повторение через 3 секунды
  7. Не выдает. Проверила. И не может выдавать Остаток деления на 3 уж никак не может быть 3.
  8. Обеспечивает равную вероятность появления трех цифр. Псевдослучайно. Можно, конечно так: Randomize Int(Rnd () * 10) mod 3 Но на самом деле, это тоже псевдослучайное число.
  9. Function N_012() As Byte N_012 = Timer() Mod 3 End Function Так это выглядит программно
  10. Я бы попробовала, может замороченно, но так: сложить все цифры текущего времени включая секунды до одной цифры. Затем разделить на 3 и оставшееся число после деления будет либо 0, либо 1, либо 2. Повтор будет через 3 секунды. Первое, что пришло в голову.. .
  11. Французские журналисты не увидели в городе Кировск ужасов "Левиафана" Звягинцева
  12. Type Ukaz = ^v; v = Record Data : integer; Next : Ukaz; End;Procedure InitU(Var u : Ukaz);Var x, y : Ukaz; Digit : integer;Begin Writeln('Введите список '); u := Nil; Writeln ('Введите элементы списка. Конец ввода 0'); Read (Digit); while Digit<>0 do Begin New(y); y^.Next := Nil; y^.Data := Digit; if u=Nil then u := y else x^.Next := y; x := y; Read(Digit); End; Writeln;End;Procedure ReplaceU(Var u : Ukaz);var x:Ukaz;begin x:=u; while x<>Nil do begin if x^.Data<0 then x^.Data:=Abs(x^.Data); x:= x^.Next; end;end;Procedure WriteU(Var u : Ukaz);var x:Ukaz;begin x:=u; while x<>Nil do begin Writeln(x^.Data); x:= x^.Next; end;end;Procedure Main;var u:Ukaz;begin InitU(u); ReplaceU(u); WriteU(u);end; Основные функции, тип и вызов. Остальное уже самому: у меня нет возможности проверить компиляцию именно Паскаля (только Delphi).
  13. @Ckunsy, @Tiare, девочки, с Днём рождения! Здоровья, оптимизма и ласкового тепла в жизни!