Сформировать список из случайных строковых значений на Паскале. В общем этот список можно занести в массив или сохранить в текстовый документ (что мне и нужно было сделать) На самом деле по хорошему фамилий с мягкими знаками и другими символами не существую. Так же первую букву надо привести в верхний регистр. Но это уже по вашему желанию. Главное рецепт короткий.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
var c:char; b:string; i,j:integer; begin for j:=1 to 10 do //Первый цикл отвечает за количество фамилий begin for i:=1 to random(5)+5 do //длина фамилии так же генерируется рандонмно begin c := chr(random(32)+ord('а')); //Символ а русскими буквами в нижнем регистре b := b + c; //склеиваем случайные текстовые символы end; writeln(c,' = ',b); b := ''; //после формирования очередного слова сбрасываем значение переменной end; end. |
| Категория: Pascal
| Тэги: random