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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2017, 18:16   #1
_Makaron_
Новичок
Джуниор
 
Регистрация: 20.05.2017
Сообщений: 3
Печаль Паскаль рандом слов

Нужна программа по типу такой
program 12;
uses crt;
var a:integer;
begin
clrscr;
randomize;
repeat
a:=random(1000);
writeln(a);
until a=256;
readln
end.
только вместо чисел в ней должны быть букв я сдлеал только рандом слов
Вот
uses crt;
var i:byte;
a:char;
begin
randomize;
for i:=0 to 6 do
write(chr(ord('a')+random(26)));
end.
Помогите кто знает как
_Makaron_ вне форума Ответить с цитированием
Старый 20.05.2017, 18:37   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Непонятно, что надо.
- вывод случайных букв ?
- вывод случайных наборов букв (любой белиберды) ?
- вывод случайных слов (осмысленных ) ?
Белиберду вы вроде сделали. Латинскими букафками, как оказалось.

Если надо осмысленные слова, то лучше так:
Код:
program Makaron_;

const 
 MNOGO=10;
 MNOGO_SLOW:array[0..MNOGO-1]of string=('gray ','white ','red','green',
                      'blue','black','pascal','makaron','or','and');

begin
 Randomize;
 WriteLn(MNOGO_SLOW[Random(MNOGO)]);
 ReadLn;
end.

Последний раз редактировалось type_Oleg; 20.05.2017 в 19:02.
type_Oleg вне форума Ответить с цитированием
Старый 20.05.2017, 22:22   #3
_Makaron_
Новичок
Джуниор
 
Регистрация: 20.05.2017
Сообщений: 3
По умолчанию

Нет мне нужна программа который задаешь набор букв а она его ишет
_Makaron_ вне форума Ответить с цитированием
Старый 20.05.2017, 22:26   #4
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Цитата:
Сообщение от _Makaron_ Посмотреть сообщение
Нет мне нужна программа который задаешь набор букв а она его ишет
Но у вас программа ничего не ищет, а сама выводит на экран кучу букаф.

И где должна искать, в текстовом файле, или еще где ?
Какой у вас источник данных ?
type_Oleg вне форума Ответить с цитированием
Старый 21.05.2017, 08:44   #5
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

type_Oleg, а может опечатка не "иЩет" а "Пишет"? Т.е. с набора букв билеберду пишет разную по длине
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 23.05.2017, 06:29   #6
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
function SlowoRandom(dlina:integer):string;
var i,n:integer;
begin
   Randomize;
   Result:='';
   For i:=1 to dlina do
   begin
      n:=65+Random(26);
      Result:=Result+Char(n);
   end;
end;

begin
   Writeln(SlowoRandom(80));
   Readln;
end.
Для выбора прописных/строчных русских/английских букв: http://newerow1989.narod.ru/publ/slu..._slov/1-1-0-15
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль. Строки.Перестановка слов. Анастасия*** Помощь студентам 0 09.01.2012 01:40
Замена слов в строке (Паскаль) Лесная Эльфийка Помощь студентам 3 09.12.2010 11:17
Вывод слов с удвоенными согласными. Паскаль Svetik2252 Помощь студентам 7 11.12.2009 13:15
подсчет символов и слов в тексте(паскаль) Noven'kii Помощь студентам 4 16.05.2009 10:10
Паскаль,программа ввода слов. Flexo Помощь студентам 3 20.12.2008 18:51