Форум: "Начинающим";
Текущий архив: 2008.12.14;
Скачать: [xml.tar.bz2];
Внизбыки и коровы Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c