Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 274
от 16.12.2006, 22:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 227, Экспертов: 47
В номере:Вопросов: 1, Ответов: 4


Вопрос № 66507: Привет! Вот кусок текста проги. Вводим вручную элементы матрицы. Вопрос! Как сделать чтоб по рандомайзу эти элементы делались, чтоб вручную не вводить? for i:=0 to n-1 do for j:=0 to m-1 do begin writeln('a',i+1,' ',j+1); read...

Вопрос № 66.507
Привет!
Вот кусок текста проги. Вводим вручную элементы матрицы.
Вопрос! Как сделать чтоб по рандомайзу эти элементы делались, чтоб вручную не вводить?
for i:=0 to n-1 do
for j:=0 to m-1 do begin
writeln('a',i+1,' ',j+1);
readln(a[i+1,j+1]);
end;

Заранее спасибо!
Отправлен: 11.12.2006, 12:19
Вопрос задал: Snatch (статус: Посетитель)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: sir henry
Здравствуйте, Snatch!
Ну что-нибудь типа так:
Randomize;
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i+1,j+1]:=Random(N);
Здесь N - это предельное число, которым нужно ограничить генерацию псевдослучайных чисел.
Единственное что, если генерируемые значения не должны повторятся, то нужно вести список уже готовых чисел и после каждой генерации сверяться с ним и если такое число уже есть, то генерировать заново.
Ответ отправил: sir henry (статус: Академик)
Россия, Красноярск
----
Ответ отправлен: 11.12.2006, 12:47

Отвечает: Gh0stik
Здравствуйте, Snatch!


const n=3;m=3;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize; {инициализация встроенного генератора случайных чисел}
for i:=0 to n-1 do
for j:=0 to m-1 do
begin
a[i+1,j+1]:=random(100); {случайное число из 100}
writeln('a[',i+1,',',j+1,']=',a[i+1,j+1]);
end;
end.


Good Luck!!!
---------
Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Практикант)
Ответ отправлен: 11.12.2006, 12:54

Отвечает: Nightman
Здравствуйте, Snatch!
В паскале есть такая фунция , как RANDOM(n)/

Приложение:

Ответ отправил: Nightman (статус: 1-ый класс)
Ответ отправлен: 11.12.2006, 18:01

Отвечает: Punk_UnDead
Здравствуйте, Snatch!
к вышеизложенному могу только добавить
что стоило бы оставлять отступы и использовать прямые, а не вычисляемые ссылки
и код будет оптимальнее и вам понятнее
---------
всё испытано на себе
Ответ отправил: Punk_UnDead (статус: 3-ий класс)
Ответ отправлен: 11.12.2006, 18:54


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.37 от 04.10.2006
Яндекс Rambler's Top100

В избранное