Перейти к содержимому

User №848

Пользователи
 Профиль  Активность

  • Публикации

    362

  • Зарегистрирован

  • Посещение

Сообщения, опубликованные пользователем User №848

  2. Опубликовано:

    Программа решения ребуса МУХА+МУХА+МУХА=СЛОН
    Версия два
    Добавлено 9 переменных, ибо автор замучался проверять
    Изменена скорость выполнения программы путем уменьшения диапазона поиска с (1023;9876) до (1023;3289)
    Option Explicit
Sub Rebus()
Dim c As Integer
Dim b As Integer
Dim m As Integer, u As Integer, h As Integer, a As Integer, s As Integer, l As Integer, o As Integer, n As Integer
Dim W As String
For c = 1023 To 3289
m = c  1000
u = (c  100) Mod 10
h = (c  10) Mod 10
a = c Mod 10
If (m <> u) And (m <> h) And (m <> a) And (u <> h) And (u <> a) And (h <> a) Then
For b = 1023 To 3289
s = b  1000
l = (b  100) Mod 10
o = (b  10) Mod 10
n = b Mod 10
If (s <> l) And (s <> o) And (s <> n) And (l <> o) And (l <> n) And (o <> n) Then
If (m = s) And (m = l) And (m = o) And (m = n) And (u = s) And (u = l) And (u = o) And (u = n) And (h = s) And (h = l) And (h = o) And (h = n) And (a = s) And (a = l) And (a = o) And (a = n) Then W = W
Else: If 3 * c = b Then W = W + "3*" + Str(c) + "=" + Str( + ", "
End If
Next
End If
Next
MsgBox W
End Sub
 
'2 =1 1=3 1 =4 2 = 3 2 = 4 3 = 4
    Очень интересно. Как второе число (b, после равно) она должна выводить только число, которое не имеет в составе одинаковых цифр. Лаал. Она делает всё с точностью до наоборот: ели в числе нет одинаковых- чисел, чертасдва она его тебе выведет.
    0

  4. Опубликовано:

    Немного опоздал с голосованием, но оказался прав. Freedom Planet, лучшая, да.

    Среди игр типа синего ежа эта явно лучшая. Интересно получилось: игра вышла от фанатов, а не от Сежки. Проходить за Лайлак было очень интересно, сюжетные повороты хороши, персонажи достаточно живые. Хорошая озвучка и почти без багов. ^_^

    Давайте ещё одну такую ^-^

    0

  5. Опубликовано:

    Наконец-то посмотрел серию про Гиффани. Она довольно неплоха...

    Ну ты хотел сказать, офигенна. Лучшая серия, как по мне. ^-^

    ...но аниматроники значительно её портят.

    Только из-за того, что есть одна игра?

    К тому же концовка странная, ведь раз Гиффани может перемещаться между устройствами, она могла сделать сколько угодно своих копий. И то, что все они стёрлись после уничтожения исходного диска - просто глупо.

    "Это магия, чувак." (с) Витя

    Чел, там гномы образуют одного огромного великана-гнома, который может стрелять гномами. Это тебя никак не смутило?

    Согласен, название ужасное, но и место ужасное. Поэтому название надо оставить.

    Полагаю, ты понял суть.

    Вдобавок непонятно, почему программисты сделали из романической академии вирусоподобный мозг невиданных масштабов, который умеет взаимодействовать с реальностью и даже "удалять" самих программистов.

    Они писали саморазвивающуюся программу. Не очевидно ли?

    Если такая игра и могла появиться, то только после долгих десятилетий разработок и бюджете в миллиарды долларов, да и то разве что в Пентагоне.

    Никого не волнует, видимо, что там были десятки программистов, явно профессионалов? И я не помню чегот ничего про время, ушедшее на её создание. Мало ли, вдруг ты прав, и она действительно

    ...вирусоподобный мозг невиданных масштабов, который умеет взаимодействовать с реальностью и даже "удалять" самих программистов, появившаяся после долгих десятилетий разработок и бюджете в миллиарды долларов в Пентагоне.

    Ну и да, почему люди возвращали диск и прикрепляли записку "Никому не брать!", когда они могли попросту уничтожить его или стереть на нём данные?

    Скорее всего тут виновата та же организация, что была замешана в делах стирания памяти. Да и там, видимо, вообще всем на всё наплевать.

    И ещё, такие диски ведь выпускают в огромных тиражах. Об них уже наверняка бы узнали СМИ, полиция и т.п.

    Гиффани убила всех программистов, кроме одного. Его она заставила записать себя на единственный диск и отнести в магазин. (один диск, чтобы она была единственной)

    Снова сюда организацию по стиранию памяти, не помню, как их там, Око Невидения? Ок.

    0

  10. Опубликовано:

    Всё вышло. Ошибка была, правильно делал, что искал, просто сосредоточился не на том месте. Заменил ClrEol; на ClrScr;.

    Первая функция стирает оставшуюся часть строки. (это было в первой версии алгоритма, когда я выводил закрашеные строки через одну)

    Сосредоточившись на извращении над циклом, забыл заменить ClrEol; на ClrScr;.

    Я не заметил это из-за того, что строки стирались исправно. Не удивительно ж.

    Сначала там и небыло окон Window, они понадобились только для вывода столбцов. Чтобы стереть столбец не предусмотренно функции, это делается заданием окна и последующей очисткой экрана.

    Теперь всё работает.

    Program Calc;
Uses CRT;
Var x,x1,y1:integer; b: boolean;
Begin
{Set BLUE background}
TextBackGround(black); ClrScr;
{Cycle for DRAWING SOMETHING}
For x:= 105 downto 0 do {40, cause of 80 columns}
begin
b := x>80;
x1 := x*ord(odd(x) AND NOT ;{Esli perviy prohod, to x1 := 0}
y1 := (x mod 80)*ord(odd(x) AND ;{Esli vtoroi prohod, to y1 := 0}
Window(x1+ord(, y1+ord(not , x1+80*ord(, y1+25*ord(not );
TextBackGround(blue);
ClrScr;
delay(40);
if KeyPressed then break
end;
{Wait for input, new only}
delay(100);
Repeat Until KeyPressed;
delay(100)
End.
    0

  12. Опубликовано:

    Такое чувство, словно ты это от балды написал, даже не посмотрев на код

    Комментарии подсвечиваются так, что их сразу и не различишь. Не знаю, как в BB Turbo Pascal выбрать. Pastebin можно было...

     

    Лол. Когда Норека наскучила, мне стало немного хреново, лол.

    0

  13. Опубликовано:

    Никогда не делай больше того, что просят.

    Сдай вариант с двумя циклами, а уже чисто для себя делай с одним.

    Так этого мне не задавали. Я сам поставил себе такую задачу. Считаю, что если вечно обходиться лёгкими решениями, не буду готов к сложным ситуациях, которых стандартными методами не решить.

    У нас была уже одна практическая, там всё легко было.

    Недавно прошли начали проходить введение в модуль CRT в текстовом режиме. Так как нам сказали, что с графическим режимом мы работать не будем, я решил  попрактиковаться с текстовым. Но всё равно, когда дочитаю до графического режима (в книге есть) буду уже там всё это делать.

    0

  14. Опубликовано:

    В каждой строчке же.

    Ни черта подобного. Везде, где надо, знак ";" стоит.

    Иначе программа бы не запустилась даже.

    Она запускается, но отрисовывает только горизонтальные линии.

    Затем курсор правильно перемещается по первое строке, но ничего не рисует.

    Я знаю, что можно реализовать программу двумя циклами, что было бы в разы проще, но это слишком легко.

    Я решил обойтись одним циклом, для саморазвития канеш.

    0

  15. Опубликовано:

    Привет ФЛУД.

    For x:= 105 downto 0 do
begin
b  := x>80;
x1 :=  x*ord(odd(x) AND NOT ;{Esli perviy prohod, to x1 := 0}
y1 := (x mod 80)*ord(odd(x) AND ;{Esli vtoroi prohod, to y1 := 0}
Window(x1+1*ord(, y1+1*ord(not , x1+80*ord(, y1+25*ord(not );
end;
    Задача такая. Пока параметр цикла x больше 80, функции Window передаются такие аргументы: (1, y1, 80, y1+1). Когда параметр цикла станет меньше 80, Window примет такие аргументы: (x1, 1, x1+1, 25)

    Следует отметить, что умножение на результат функции ord(odd(x))  не даёт присвоить x1 и y1 четные числа.

    Чтобы было понятнее, напишу это:

    Принимая значение либо true, либо false, переменная b попеременно обращает в ноль значение следующих выражений, соответственно цвету: (если выражение или переменная выделена красным, то она обращается в ноль при b = 0, т.е. при x<80; если выражение или переменная выделена зелёным, то она обращается в ноль при b = 1, т.е. при x>80)

    x1 := x*ord(odd(x) AND NOT B );

    y1 := (x mod 80)*ord(odd(x) AND B );

    Window(x1+1*ord( B ), y1+1*ord(not B ), x1+80*ord( B ), y1+25*ord(not B ));

    Так как мне надо бежать, оставлю это здесь. Код должен рисовать рештку в текстовом режиме. Не всё расписал.

    Program Calc;
Uses CRT;
Var x,x1,y1:integer; b: boolean;
Begin
{Set BLUE background}
TextBackGround(black); ClrScr;
{Cycle for DRAWING SOMETHING}
For x:= 105 downto 0 do {40, cause of 80 columns}
begin
b  :=  x>80;
x1 :=  x*ord(odd(x) AND NOT ;{Esli perviy prohod, to x1 := 0}
y1 := (x mod 80)*ord(odd(x) AND ;{Esli vtoroi prohod, to y1 := 0}
Window(x1+1*ord(, y1+1*ord(not , x1+80*ord(, y1+25*ord(not );
TextBackGround(blue);
ClrEol;
delay(40);
if KeyPressed then break
end;
{Wait for input, new only}
delay(500);
Repeat Until KeyPressed;
delay(500)
End.
    Ошибка где-то есть, не могу найти.
    0

  17. Опубликовано:

    Исчезновение Харухи Судзумии...

    Стало вторым аниме, которое как-то иначе прочувствовалось, чем остальные.

    Вообще, кроме того, что это аниме про Сулер-куна.... Скажу так, очень хорошее аниме. ^_^

    Даже захотелось книгу почитать.

    0

  24. Опубликовано:

    Хотя даже Фредди я не ненавижу, а просто испытываю неприязнь. Впрочем, к его фанатам тоже.

    А знаешь, к чему/кому у меня неприязнь?

    Я вообще никого не ненавижу, кроме Фредди.

    Я не думаю, что игра настолько ужасна. Хуже в любом случае есть. И фанаты хуже в любом случае есть.
    0

  25. Опубликовано:

    Мда...Фила скоро не будет. 

     

    А вот когда я стану фаном ФНАФА, так как уже видя у своих одноклассников эту игру я сразу: ДАЙ ПОИГРАТЬ!, то Фила в интернете больше не будет. 

    Просто ЗАТКНИСЬ! >=(

    Меня уже тошнит от того, как люди плются друг в друга. Школьнечки, если человек однажды накосячил, это не значит, что в него можно всё время нужно плеваться, ибо станет только хуже.

    Вообще, хватит друг друга ненавидеть. Злые школьники не нужны. (!) ^-^

     

    Фильк, ты же не хочешь такого отношения? Ненавидь всех и всё молча, как я. ^_^ (Олсо, это шутка, я никого не ненавижу, даже неприязнь у меня лишь к немногим, но всё равно: стоит сдерживать своё негативное мнение, ибо... Ну, ты сам видишь. ^_^)

    2

×