User №848

Плохо.

Хочешь быть хорошим программистом? Меняй свою психологию. "Мельком" и "упустил" не нужны.

Всё вышло. Ошибка была, правильно делал, что искал, просто сосредоточился не на том месте. Заменил 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.

Так и думал, что кто-то это скажет. Нет, я это Спидмастеру, лол. Я сказал ему, почему Филькооо мог неправильно понять мой код. А тот оказывается даже не читал.

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

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

Ни черта подобного. Везде, где надо, знак ";" стоит. Иначе программа бы не запустилась даже. Она запускается, но отрисовывает только горизонтальные линии. Затем курсор правильно перемещается по первое строке, но ничего не рисует. Я знаю, что можно реализовать программу двумя циклами, что было бы в разы проще, но это слишком легко. Я решил обойтись одним циклом, для саморазвития канеш.

Привет ФЛУД. 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.Ошибка где-то есть, не могу найти.

Здрасте всем кароч.

Исчезновение Харухи Судзумии... Стало вторым аниме, которое как-то иначе прочувствовалось, чем остальные. Вообще, кроме того, что это аниме про Сулер-куна.... Скажу так, очень хорошее аниме. Даже захотелось книгу почитать.

Привет, Тупой Ишак!

Привет, лалочки.

А мне уже даже Харухи наскучила. Если вы понимаете, о ком я. Привет. ^-^

Наплыв школьников.Наплыв цисовцев. И ещё кого-то там.

Я думал об этом, но таки не нравится мне слово "деснота".А с аниме таки не знаком, да.

А о чём ты?

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

Просто ЗАТКНИСЬ! >=(Меня уже тошнит от того, как люди плются друг в друга. Школьнечки, если человек однажды накосячил, это не значит, что в него можно всё время нужно плеваться, ибо станет только хуже. Вообще, хватит друг друга ненавидеть. Злые школьники не нужны. (!) ^-^   Фильк, ты же не хочешь такого отношения? Ненавидь всех и всё молча, как я. (Олсо, это шутка, я никого не ненавижу, даже неприязнь у меня лишь к немногим, но всё равно: стоит сдерживать своё негативное мнение, ибо... Ну, ты сам видишь. )

Черт возьми, я же меняю значение s и m. Вот что значит головная боль и постороний шум. Спасибо!

А кого можно отвлечь с ЦИСа/Сканфа, не знаешь? Просто у меня в группе сейчас пока-что как программисты ребята вообще не очень.

Привет. Можешь помочь?Вводятся шесть чисел: 3 числа для текущего времени в формате (h m s) и три числа для изменения времени на (xh xm xs). После чего программа суммирует время и выдаёт получившееся. Program TimePlus; Var h, m, s, xh, xm, xs :integer; Begin; Read(h, m, s, xh, xm, xs); s:=(s+xs)mod 60; m:=(m+xm+(s+xs)div 60)mod 60; h:=(h+xh+(m+xm+(s+xs)div 60)div 60)mod 24; WriteLn('Time will be: ', h, 'h ', m, 'min ', s, 'sec '); ReadLn; End.Код выше ошибается. А вот эта программа вычисляет по другому алгоритму, но зато верно: Program TimePlus; Var t, h, m, s, xh, xm, xs :integer; Begin; Read(h, m, s, xh, xm, xs); t:= h*3600+m*60+s+xh*3600+xm*60+xs; s:=t mod 60; m:=(t div 60)mod 60; h:=t div 3600; WriteLn('Time will be: ', h, 'h ', m, 'min ', s, 'sec '); ReadLn; End.Мне нужно исправит первый вариант.