Прекращение ввода при условии

25.06.2012, 13:26. **Показов** 1261. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Помогите в написании....
Осуществляется ввод с клавиатуры и запоминание в Memo-компоненте заранее неизвестного количества целых чисел из интервала 1 <= Х <= 999. Оператор должен прекратить ввод, если введет число, которое окажется равным константе, хранимой в Delphi-приложении и неизвестной оператору.

@SYSM · 25.06.2012, 13:45

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var N,M:Integer;
begin
Randomize;
Memo1.Clear;
N:=random(999)+1;
Caption:=IntToStr(N);// чтобы видеть
repeat
M:=StrToInt(InputBox('Ввод числа','Введите число от 1 до 999',''));
Memo1.Lines.Add(IntToStr(M));
if N=M then Memo1.Lines.Add('УГАДАЛ!!!');
until N=M;
end;

25.06.2012, 13:52

Спасибо огромное

MecteriO
		1
	Прекращение ввода при условии 25.06.2012, 13:26. Показов 1261. Ответов 2 Метки нет (Все метки) Помогите в написании.... Осуществляется ввод с клавиатуры и запоминание в Memo-компоненте заранее неизвестного количества целых чисел из интервала 1 <= Х <= 999. Оператор должен прекратить ввод, если введет число, которое окажется равным константе, хранимой в Delphi-приложении и неизвестной оператору.

	25.06.2012, 13:52

Прекращение ввода при условии

Решение