Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 24.03.2013, 21:41   #11 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Only Посмотреть сообщение
Тоесть сейчас при вводе количества элементов =4 выдаёт 4 значения: 38.08 53.98 9.58 44.56
а дложно выводиться любые 4 числа из интервала от m до n.
Например если m=3, n=15, количество элементов=4 программа должна вывести числа нипример 4 9 13 5
Нет, сударь, извините, но это Вы не так понимаете условие задачи. Я руководствовался формулировкой и фрагментом Вашего же кода. Я понимаю задачу так:
1. Генерируется массив из k случайных чисел, например, в диапазоне 0-100.
2. Задаются два числа-границы интервала m и n.
3. Из исходного массива выбираются те числа, которые попадают в этот интервал, и они выводятся на экран.
Давайте вернемся к формулировке:
Цитата:
Заполнить одномерный вещественный массив случайными числами; найти такие из них, которые входят в интервал [m, n]
то есть, как я считаю, производится выборка.
А так, как Вы понимаете (по-моему, неправильно) - пожалуйста:
Код:
var
 a: array[1..100] of real;
 i,k,m,n:integer;
begin
 write('vvedite m ');
 readln(m);
 write('vvedite n>m ');
 readln(n);
 write('vvedite kol-vo elementov ');
 readln(k);
 Randomize;
 for i:=1 to k do
  begin
   a[i]:=n+random*(m-n);
   write(a[i]:8:2);
  end;
 readln
end.
Vladimir_S вне форума   Ответить с цитированием

Старый 24.03.2013, 21:41
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Рекомендую прочитать обсуждаемые темы, наверняка там вы найдете важную информацию

Нужна ваша помощь
Друзья, нужна ваша помощь

Старый 25.03.2013, 18:49   #12 (permalink)
Only
Member
 
Регистрация: 24.03.2013
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Да, вы оказались правы)), Спасибо)
Only вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 20:51.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.