eXeLab
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 августа!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

Русский / Russian English / Английский

Сейчас на форуме: Adler, user99, hlmadip (+2 невидимых)
 · Начало · Статистика · Регистрация · Поиск · ПРАВИЛА ФОРУМА · Язык · RSS · SVN ·

 eXeL@B —› Оффтоп —› Задачка для ребенков
<< 1 ... 9 . 10 . 11 . 12 . 13 . 14 . 15 . 16 . 17 . 18 . 19 . >>
Посл.ответ Сообщение


Ранг: 199.3 (ветеран)
Статус: Участник

Создано: 23 ноября 2006 03:48 New!
Цитата · Личное сообщение · #1

Предлагаю кулхацкерам решить такую простенькую логическую задачку.
Продолжите последовательность:
736 - 1
308 - 3
144 - 0
240 - 1
835 - 2
...
688 - ?


Ранг: 296.9 (наставник)
Статус: Участник

Создано: 7 мая 2011 17:24 New!
Цитата · Личное сообщение · #2

add eax, -1 во всём аналогична dec eax, кроме CF и AF ))

Ранг: 114.8 (ветеран)
Статус: Участник

Создано: 7 мая 2011 19:37 · Поправил: _ruzmaz_ New!
Цитата · Личное сообщение · #3

SaNX пишет:
Дык и здесь меняеццо

ну если он не взведен был до выполнения, то да, а потом уже нет (если в цикле выполнять)
...по крайней мере у меня


Ранг: 296.9 (наставник)
Статус: Участник

Создано: 9 мая 2011 22:22 New!
Цитата · Личное сообщение · #4

О чём толкуете? Parity Flag - чётность числа взведённых битов младшего байта результата предыдущей команды.

Ранг: 114.8 (ветеран)
Статус: Участник

Создано: 9 мая 2011 23:09 New!
Цитата · Личное сообщение · #5

DenCoder пишет:
О чём толкуете? Parity Flag - чётность числа взведённых битов младшего байта результата предыдущей команды.

что это за флаг я знаю, просто у меня (в оле и в тестовой проге) приведенный выше кусок кода взводит pf вне зависимости от числа битов в al (в отличие от dec eax)

| Сообщение посчитали полезным: DenCoder



Ранг: 296.9 (наставник)
Статус: Участник

Создано: 10 мая 2011 11:55 · Поправил: DenCoder New!
Цитата · Личное сообщение · #6

_ruzmaz_, thx, сейчас проверим...

UPD. Да нет, всё ок - флаг когда надо сбрасывается, когда надо взводится.


Ранг: 296.9 (наставник)
Статус: Участник

Создано: 26 июля 2011 01:57 New!
Цитата · Личное сообщение · #7

Во дела, _ruzmaz_ нашёл ошибку в коде )) Из чего следует, что последовательность команд выше не соответствует полностью команде dec eax. Кто найдёт, тому почётное звание Умелый Багоискатель

Ранг: 440.8 (мудрец)
Статус: Участник

Создано: 30 июля 2011 15:18 New!
Цитата · Личное сообщение · #8

http://www.xakep.ru/post/24370/default.asp

подскажите дураку (то есть мне ) как решить задание №3


Ранг: 755.0 (! !)
Статус: Участник
Student

Создано: 30 июля 2011 20:47 New!
Цитата · Личное сообщение · #9

tihiy_grom 8655 думаю... за время около секунды прога находит

Ранг: 114.8 (ветеран)
Статус: Участник

Создано: 31 июля 2011 00:03 New!
Цитата · Личное сообщение · #10

что за прога?

Ранг: 189.9 (ветеран)
Статус: Участник

Создано: 31 июля 2011 02:24 New!
Цитата · Личное сообщение · #11

_ruzmaz_ пишет:
что за прога?

Code:
  1. const 
  2. MaxN = 500 ;
  3. N=500;
  4.  
  5. type 
  6. index = 1..MaxN ;
  7.  
  8. var 
  9. A: array [index] of integer ;
  10. m: integer ;
  11. var p: index ;
  12.  
  13. function Max(x, y: integer): integer ;
  14. begin if x > y then Max := x else Max := y end { Max } ;
  15.  
  16. var r, p: integer ; t: 0..999 ; v, w: integer ; {считывем данные из файла(inp)}
  17. begin 
  18. for p := 0 to N do A[p] := 0 ;
  19. for r := 1 to N do begin 
  20. := 0 ;
  21. for p := 1 to r do begin 
  22. read(inp, t) ;
  23. := A[p] ;
  24. A[p] := t + Max(v, w) ;
  25. := w 
  26. end;
  27. readln(inp) 
  28. end;
  29. end;
  30.  
  31. begin {считаем максимальную сумму} 
  32. := 0 ;
  33. for p := 1 to N do 
  34. := Max(m, A[p]) ;
  35. end ;


Ранг: 755.0 (! !)
Статус: Участник
Student

Создано: 31 июля 2011 13:47 · Поправил: Isaev New!
Цитата · Личное сообщение · #12

NikolayD забавно, даже переменные похоже обозвали )))
Code:
  1. Function Max(X,Y:LongInt):LongInt;
  2. Begin
  3.   If X>Y Then Max:=X
  4.          Else Max:=Y;
  5. End;
  6.  
  7. Procedure TForm1.Button1Click(Sender:TObject);
  8. Const
  9.   MaxN=121;
  10. Var
  11.   A:Array[1..MaxN,1..MaxN] Of LongInt;
  12.   R:Array[1..MaxN,0..MaxN] Of LongInt;
  13.   N,I,J:LongInt;
  14.   F:TextFile;
  15.   S:String;
  16. Begin
  17. {$I-}
  18.   AssignFile(F,'triangle1.txt');
  19.   Reset(F);
  20. {$I+}
  21.   If IOResult<>0 Then Exit;
  22.  
  23.   Button1.Enabled:=False;
  24.   N:=MaxN;
  25.  
  26.   For I:=1 To N Do
  27.     Begin
  28.       S:='';
  29.       For J:=1 To I Do
  30.         Begin
  31.           Read(F,A[I,J]);
  32.           S:=S+IntToStr(A[I,J]);
  33.           If J<>I Then S:=S+' ';
  34.         End;
  35.       Memo1.Lines.Append(S);
  36.     End;
  37.   CloseFile(F);
  38.   Memo1.Lines.Append('');
  39.  
  40.   R[1,1]:=A[1,1];
  41.  
  42.   For I:=2 To N Do
  43.     For J:=1 To I Do
  44.       R[I,J]:=Max(A[I,J]+R[I-1,J],A[I,J]+R[I-1,J-1]);
  45.  
  46.   For I:=1 To N Do
  47.     Begin
  48.       S:='';
  49.       For J:=1 To I Do
  50.         Begin
  51.           S:=S+IntToStr(R[I,J]);
  52.           If J<>N Then S:=S+' ';
  53.         End;
  54.       Memo1.Lines.Append(S);
  55.     End;
  56.   Memo1.Lines.Append('');
  57.  
  58.   J:=-MaxLongInt;
  59.   For I:=1 To N Do
  60.     If R[N,I]>J Then J:=R[N,I];
  61.  
  62.   Edit1.Text:=IntToStr(J);
  63.   Button1.Enabled:=True;
  64. End;


Ранг: 328.7 (мудрец)
Статус: Участник

Создано: 1 августа 2011 01:12 New!
Цитата · Личное сообщение · #13

может не совсем в тему - но почти детская задача:
Точки пересечения смежных трисектрис углов произвольного треугольника являются вершинами равностороннего треугольника.(Трисектриса угла — луч, делящий угол на три равные части.)
Кто-нить знает доказательство?


Ранг: 1986.5 (!!!!)
Статус: Модератор
retired

Создано: 1 августа 2011 10:11 New!
Цитата · Личное сообщение · #14

луч, делящий угол на 3 части-взорвало мозг
Гугл теорема Морлея?


Ранг: 755.0 (! !)
Статус: Участник
Student

Создано: 1 августа 2011 10:16 New!
Цитата · Личное сообщение · #15


Ранг: 328.7 (мудрец)
Статус: Участник

Создано: 1 августа 2011 10:59 New!
Цитата · Личное сообщение · #16

задачу эту давно видел - у Гарднера вроде
про Морлея впервые слышу
спасибо

Ранг: 62.8 (постоянный)
Статус: Участник

Создано: 4 августа 2011 17:53 New!
Цитата · Личное сообщение · #17

Трисектриса угла — луч, образующий вместе со стороной или другой трисектрисой угол с мерой в 3 раза меньше исходного


Ранг: 199.3 (ветеран)
Статус: Участник

Создано: 7 октября 2011 22:25 New!
Цитата · Личное сообщение · #18

5 копеек = √25 копеек = √1/4 рубля = 1/2 рубля = 50 копеек


Ранг: 164.6 (ветеран)
Статус: Участник
Волшебник

Создано: 7 октября 2011 23:21 · Поправил: neomant New!
Цитата · Личное сообщение · #19

5 = √25 = √(1/4 * 100) = 1/2 * 10 = 5

Ранг: 287.7 (наставник)
Статус: Модератор
CrackLab

Создано: 8 октября 2011 21:23 New!
Цитата · Личное сообщение · #20

http://rghost.ru/24739891.view


Ранг: 164.6 (ветеран)
Статус: Участник
Волшебник

Создано: 8 октября 2011 22:30 New!
Цитата · Личное сообщение · #21

1.22 (м^3)

| Сообщение посчитали полезным: SReg


Ранг: 440.8 (мудрец)
Статус: Участник

Создано: 28 ноября 2011 03:48 · Поправил: tihiy_grom New!
Цитата · Личное сообщение · #22

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

Code:
  1. О    О    О
  2.  
  3. О    О    О
  4.  
  5. О    О    О

Ранг: 280.6 (наставник)
Статус: Участник
Destroyer of protectors

Создано: 28 ноября 2011 05:48 · Поправил: MasterSoft New!
Цитата · Личное сообщение · #23

тут было решение

Ранг: 440.8 (мудрец)
Статус: Участник

Создано: 28 ноября 2011 16:49 · Поправил: tihiy_grom New!
Цитата · Личное сообщение · #24

MasterSoft
читер

ещё одна задачка (не путать с задачей из шапки)

438 - 2
318 - 2
188 - 4
807 - 3
630 - 2
321 - 1
...
683 - ?

Ранг: 114.8 (ветеран)
Статус: Участник

Создано: 30 ноября 2011 01:08 New!
Цитата · Личное сообщение · #25

683 - 4
число справа = кол-во букв "с" в числе слева, записанном прописью на русском

Ранг: 440.8 (мудрец)
Статус: Участник

Создано: 30 ноября 2011 01:28 New!
Цитата · Личное сообщение · #26

маладца с тебя следующая задача

Ранг: 114.8 (ветеран)
Статус: Участник

Создано: 30 ноября 2011 18:21 New!
Цитата · Личное сообщение · #27

это не скоро, на ум одни бояны приходят


Ранг: 157.2 (ветеран)
Статус: Участник

Создано: 3 июля 2012 12:29 New!
Цитата · Личное сообщение · #28

Не знаю, было или нет (поиск молчит как партизан), но вот вам задачка:

Есть башня высотой 100 м. на высоте 50 м. есть балкончик. Вы находитесь на самом верху. У вас есть веревка, длиной 75 м. и нож. Как спуститься так, чтобы не разбиться и даже не ушибиться?


Статус: Пришелец

Создано: 3 июля 2012 17:33 New!
Цитата #29


Ранг: 157.2 (ветеран)
Статус: Участник

Создано: 16 июля 2012 10:39 New!
Цитата · Личное сообщение · #30

F_a_u_s_t

Хитрый, да?


Ранг: 469.0 (мудрец)
Статус: Участник
[www.AHTeam.org]

Создано: 11 октября 2012 19:44 New!
Цитата · Личное сообщение · #31

<< 1 ... 9 . 10 . 11 . 12 . 13 . 14 . 15 . 16 . 17 . 18 . 19 . >>
 eXeL@B —› Оффтоп —› Задачка для ребенков

У вас должно быть 20 пунктов ранга, чтобы оставлять сообщения в этом подфоруме, но у вас только 0


Оригинальный DVD-ROM: eXeL@B DVD !

Вы находитесь на форуме сайта EXELAB.RU
Проект ReactOS