Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.04.2016, 11:59   #11
serge-first
Пользователь
 
Регистрация: 27.02.2013
Сообщений: 66
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Смотри. Функция F возвращает числа от 0 до 1. А нужно от A до B (B > A). Расширяем (сжимаем) интервал F*(B-A) и сдвигаем его G=F*(B-A)+A. Теперь функция G возвращает числа в интервале от A до B. В твоем случае Random*3-1
StringGrid1.Cells[Col,Row]:=FloatToStr(random*3-1);
serge-first вне форума Ответить с цитированием
Старый 03.04.2016, 12:00   #12
serge-first
Пользователь
 
Регистрация: 27.02.2013
Сообщений: 66
По умолчанию

Вроде такое простое, а я застрял)
serge-first вне форума Ответить с цитированием
Старый 03.04.2016, 12:00   #13
serge-first
Пользователь
 
Регистрация: 27.02.2013
Сообщений: 66
По умолчанию

Код:
procedure TForm1.FormCreate(Sender: TObject);
var Col, Row, N, M: integer;
begin
  randomize;
  N:=6;
  M:=6;
  StringGrid1.ColCount:=N;
  StringGrid1.RowCount:=M;
  for Col:=0 to StringGrid1.ColCount-1 do
  for Row:=0 to StringGrid1.RowCount-1 do
  StringGrid1.Cells[Col,Row]:=FloatToStr(random*3-1);
  StringGrid1.Width := StringGrid1.DefaultColWidth * StringGrid1.ColCount;
  StringGrid1.Height := StringGrid1.DefaultRowHeight * StringGrid1.RowCount;
end;
 
end.
serge-first вне форума Ответить с цитированием
Старый 03.04.2016, 12:39   #14
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
при этом вывести случайные целые числа от -1 до 2
C целыми чуть по другому, там растягивает сам параметр
Код:
StringGrid1.Cells[Col,Row]:=IntToStr((random(4)-1);
А формула выглядит так: random(B-A+1)+A
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 03.04.2016 в 12:43.
Аватар вне форума Ответить с цитированием
Старый 03.04.2016, 12:47   #15
serge-first
Пользователь
 
Регистрация: 27.02.2013
Сообщений: 66
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
C целыми чуть по другому, там растягивает сам параметр
Код:
StringGrid1.Cells[Col,Row]:=IntToStr((random(4)-1);
А формула выглядит так: random(B-A+1)+A
Блин, я косяк) Спасибо, там только скобка одна лишняя
serge-first вне форума Ответить с цитированием
Старый 03.04.2016, 12:48   #16
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Ну и убери её
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 05.04.2016, 18:31   #17
serge-first
Пользователь
 
Регистрация: 27.02.2013
Сообщений: 66
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Ну и убери её
Да я и убрал)))

Спасибо всем за помощь, очень выручаете
serge-first вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Случайные числа Toa Microsoft Office Excel 6 30.11.2013 18:45
Случайные числа bogdan333 C++ Builder 9 12.04.2012 13:48
Случайные числа. Си. meta Помощь студентам 1 31.05.2011 01:48
случайные числа NeVerSS Общие вопросы Delphi 3 01.10.2010 22:22
Случайные числа severin Помощь студентам 8 02.02.2010 17:35