Скачать: CL | DM;

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

← →
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]

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

---

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

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


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

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


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


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

---

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

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

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

---

← →
Джо ©   (2008-11-08 00:37) [10]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c