быки и коровы

← →
jonin (2008-11-07 18:34) [0]

подскажите из за чего неправильно получаются ответы:
procedure TForm1.Button2Click(Sender: TObject); var i, j, a, b, x, y: integer; begin a:=StrToInt(Form1.Edit1.Text); // окно в котороерандомит комп y:=StrToInt(Form1.Edit2.Text); // окно куда вводить цифры for i:=1 to 5 do begin b:=a mod 10; a:=a div 10; ep:=ep+1; // порядковый номенр for j:=1 to 5 do begin x:=y mod 10; y:=y div 10; zp:=zp+1; // порядковый номенр if(x=b)and(ep=zp) then Form1.Memo1.Lines.Add("бык"); if(x=b)and(ep<>zp) then Form1.Memo1.Lines.Add("корова"); end; end; end;

← →
jonin (2008-11-07 18:42) [1]

понял почему))
но если что можете оставить коменты какие вы умные и подсказать как проблему убрать

← →
Anatoly Podgoretsky © (2008-11-07 18:48) [2]

Мы умные!

← →
jonin (2008-11-07 18:53) [3]

)
блин ошибку я похоже нетам нашел(
что где я неправильно делаю?

← →
Ega23 © (2008-11-07 19:21) [4]

> что где я неправильно делаю?

Вопрос задаёшь неправильно.

← →
jonin (2008-11-07 19:24) [5]

где у меня ошибка?

← →
Сергей М. © (2008-11-07 19:25) [6]

> ошибку я похоже нетам нашел

Т.е. там, где ошибки не было, ты её все-таки умудрился найти ?

Решпект тебе и уважуха !

← →
jonin (2008-11-07 19:36) [7]

)все конечно весело если бы не было так грустно(
подскажите как решить эту знаминитуб программу Быки и коровы(которую дают всем студентам)

> решить эту знаминитуб программу

Программу не решают, ее разрабатывают.

А решают
- уравнения, задачки и иже с ними
- куда пойти
- с кем выпить

> дают всем студентам

Мне не давали.
Я неправильный студент ?

← →
jonin (2008-11-07 19:45) [9]

Сергей М.
может быть так и есть))

ну дак что неправильно я пишу в коде?

Балаган закрываю.
Основание: хамство, кое прет из фразы «но если что можете оставить коменты какие вы умные и подсказать как проблему убрать».

быки и коровы Найти похожие ветки