Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.12.14;
Скачать: 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 вся ветка

Текущий архив: 2008.12.14;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.021 c
2-1225372647
Agent89
2008-10-30 16:17
2008.12.14
чтение LTP порта


15-1223957719
Slider007
2008-10-14 08:15
2008.12.14
С днем рождения ! 14 октября 2008 вторник


3-1211451730
FOX87
2008-05-22 14:22
2008.12.14
Совместное отображение данных ACCESS


15-1223653872
Terasbetoni
2008-10-10 19:51
2008.12.14
Посоветуйте модуль для работы с двумерными графиками


15-1223232390
Алексин
2008-10-05 22:46
2008.12.14
Что это за музыка?