Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Обработка последовательностей целых чисел

84K
29 октября 2012 года
marmarina
4 / / 29.10.2012
Помогите пожалуйста! Нужно обеспечить вывод в компонент TMemo случайной последовательности из n целых чисел в диапазоне от 0 до m и подсчитать, сколько раз в ней встречалось число k.
247
30 октября 2012 года
wanja
1.2K / / 03.02.2003
 
Код:
nk:=0;
for i:=0 to n-1 do
   begin
   x:=random(m+1);
   if x=k then
       nk++;
   YourMemo.Lines.Add(IntToStr(x));
   end;
ShowMessage(IntToStr(nk)+' раз');
Примерно так...
84K
30 октября 2012 года
marmarina
4 / / 29.10.2012
Спасибо!

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог