| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

быки и коровы [D7, XP]

jonin ©   (2008-11-07 18:34:00) 

подскажите из за чего неправильно получаются ответы:

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;

---

Джо   (2008-11-08 00:37:00) [1]

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

---

jonin   (2008-11-07 19:45:00) [2]

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

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

---

Сергей М.   (2008-11-07 19:41:00) [3]

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


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

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


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


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

---

jonin   (2008-11-07 19:36:00) [4]

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

---

Сергей М.   (2008-11-07 19:25:00) [5]

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


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

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

---

jonin   (2008-11-07 19:24:00) [6]

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

---

Ega23   (2008-11-07 19:21:00) [7]

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


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

---

jonin   (2008-11-07 18:53:00) [8]

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

---

Anatoly Podgoretsky   (2008-11-07 18:48:00) [9]

Мы умные!

---

jonin   (2008-11-07 18:42:00) [10]

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

---

Наверх