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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2011, 19:58   #1
Jone200991
Пользователь
 
Регистрация: 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.
Jone200991 вне форума Ответить с цитированием
Старый 31.05.2011, 20:03   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

А что должно выводить? а и б у вас же не инициализированы (точнее в Паскале их значение 0 в этом случае).
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 31.05.2011, 20:04   #3
Jone200991
Пользователь
 
Регистрация: 31.05.2011
Сообщений: 16
По умолчанию

Как исправить?Там же генератор случайных чисел, там же не должны быть одни нули?!

Последний раз редактировалось Jone200991; 31.05.2011 в 20:06.
Jone200991 вне форума Ответить с цитированием
Старый 31.05.2011, 20:14   #4
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
а и б у вас же не инициализированы (точнее в Паскале их значение 0 в этом случае).
Что написали, то и будет.
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
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 31.05.2011, 20:32   #5
Jone200991
Пользователь
 
Регистрация: 31.05.2011
Сообщений: 16
По умолчанию

Спасибо всё получилось!
Jone200991 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на Паскаль 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