Простая задача с рандомом

@MicroProga · Регистрация: 26.09.2019

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

Можете подсказать/составить код для программы, который по нажатию кнопки выводит в эдит1 случайное значение от 200 до 500, а в эдит2 это же значение только уменьшенное на 100.

@yatrim · 24.06.2020, 13:30

Привет. Лови)

Delphi

procedure TfmMain.Button1Click(Sender: TObject);
var
  randValue: Integer;
begin
  Randomize;
  randValue := 200 + Random(301);
  Edit1.Text := IntToStr(randValue);
  Edit2.Text := IntToStr(randValue - 100);
end;

@MicroProga 0 / 0 / 0 Регистрация: 26.09.2019 Сообщений: 51
		1
	Delphi 6-7 Простая задача с рандомом 24.06.2020, 12:28. Показов 1055. Ответов 1 Метки делфи 7, легкий вопрос, простая задача, чайник (Все метки) Можете подсказать/составить код для программы, который по нажатию кнопки выводит в эдит1 случайное значение от 200 до 500, а в эдит2 это же значение только уменьшенное на 100. 0

	24.06.2020, 13:30

Простая задача с рандомом

Решение