|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.05.2011, 19:58 | #1 |
Пользователь
Регистрация: 31.05.2011
Сообщений: 16
|
Паскаль, задача!
Program xxx;
Var b,a:integer; r:Array [1..36] of integer; SrArif: real;k,z,i:integer; Begin Randomize; For i:=1 To 30 do r[i]:=random(b-a+1)+a; writeln('Ñôîðìóëèðîâàòü ìàññèâ öåëûõ ÷èñåë r[36] èç ñëó÷àéíûõ ÷èñåë'); For i:=1 to 36 do Write (r[i]:4); Writeln; Readln; k:=0; z:=0; for i:=1 to 36 do end. В генераторе случайных чисел выводит одни нули! как исправить? Там где ероглифи написано: Сформулировать массив целых чисел r[36] из случайных чисел Последний раз редактировалось Jone200991; 31.05.2011 в 20:01. |
31.05.2011, 20:03 | #2 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
А что должно выводить? а и б у вас же не инициализированы (точнее в Паскале их значение 0 в этом случае).
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
31.05.2011, 20:04 | #3 |
Пользователь
Регистрация: 31.05.2011
Сообщений: 16
|
Как исправить?Там же генератор случайных чисел, там же не должны быть одни нули?!
Последний раз редактировалось Jone200991; 31.05.2011 в 20:06. |
31.05.2011, 20:14 | #4 | |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Цитата:
http://delphid.dax.ru/www/doc/doc.php?key=Random http://www.cyberforum.ru/pascal/thread57532.html
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
|
31.05.2011, 20:32 | #5 |
Пользователь
Регистрация: 31.05.2011
Сообщений: 16
|
Спасибо всё получилось!
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача на Паскаль | WitaliG | Помощь студентам | 7 | 22.12.2010 18:05 |
задача паскаль | Голем | Помощь студентам | 2 | 17.07.2010 01:20 |
Задача Паскаль | rAbb1t | Помощь студентам | 7 | 26.05.2009 23:52 |
Паскаль-задача | Baby33 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 27.01.2009 14:40 |