Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 13, средняя оценка - 5.00
argossi
0 / 0 / 1
Регистрация: 13.04.2010
Сообщений: 7
#1

Сгенерировать случайным образом 7 латинских прописных букв - Pascal

13.04.2010, 18:38. Просмотров 1663. Ответов 4
Метки нет (Все метки)


http://www.cyberforum.ru/pascal/thread83716.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2010, 18:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сгенерировать случайным образом 7 латинских прописных букв (Pascal):

В строке подсчитать количество прописных латинских букв
Дана строка. Подсчитать количество содержащихся в ней прописных латинских букв

В последовательности символов, заканчивающейся /, подсчитать количество цифр и прописных латинских букв.
Помогите пожалуйста В последовательности символов, заканчивающейся /,...

Подсчитать количество прописных букв
Пследовательно вводятся символы латинских прописных и строчных букв до ввода...

Замена заглавных (прописных) букв на маленькие
Помогите сообщение так, чтобы все заглавные буквы стали соответствующими...

Заполнить массив А (N) случайным образом
1) заполнить массив А (N) случайным образом целыми числами с диапазона ; 2)...

4
Inadequate
Retired
7709 / 2542 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
13.04.2010, 18:56 #2
Сгенерировать случайным образом 7 латинских прописных букв. Если код буквы нечетный, то необходимо эту букву сделать прописной
Это конечно просто замечательно... Сделал по-своему...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
  Crt;
const
  N = 7;
var
  s: string;
  i: byte;
begin
  ClrScr;
  Randomize;
  s := '';
  for i := 1 to N do
    s := s + chr(Random(27) + 97);
  WriteLn(s);
  for i := 1 to N do
    if odd(ord(s[i])) then
      s[i] := chr(ord(s[i]) - 32);
  WriteLn(s);
  ReadLn;
end.
1
argossi
0 / 0 / 1
Регистрация: 13.04.2010
Сообщений: 7
14.04.2010, 08:46  [ТС] #3
Если не сложно, можно объяснить что означает каждая строчка и что она делает, а именно 3,4 и 11-17.
Что такое chr, почему random(27)+97, что такое odd и ord, почему -32?
0
argossi
0 / 0 / 1
Регистрация: 13.04.2010
Сообщений: 7
15.04.2010, 06:09  [ТС] #4
Сгенерировать случайным образом 7 латинских прописных букв. Если код буквы нечетный, то необходимо эту букву сделать прописной (использовать массив из символов).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
  Crt;
const
  N = 7;
var
  s: string;
  i: byte;
begin
  ClrScr;
  Randomize;
  s := '';
  for i := 1 to N do
    s := s + chr(Random(27) + 97);
  WriteLn(s);
  for i := 1 to N do
    if odd(ord(s[i])) then
      s[i] := chr(ord(s[i]) - 32);
  WriteLn(s);
  ReadLn;
end.

Если не сложно, можно объяснить что означает каждая строчка и что она делает, а именно 3,4 и 11-17.
Что такое chr, почему random(27)+97, что такое odd и ord, почему -32?
0
argossi
0 / 0 / 1
Регистрация: 13.04.2010
Сообщений: 7
29.04.2010, 20:20  [ТС] #5
Сгенерировать случайным образом 7 латинских прописных букв. Если код буквы нечетный, то необходимо эту букву сделать прописной (использовать массив из символов).
Программа есть, но кое-чего не хватает: тут она генерирует и сразу выводит ответ, а еще нужно вывести код буквы, чтобы посмотреть. Помогите плиз!!!.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 uses
   Crt;
 const
   N = 7;
 var
   s: string;
   i: byte;
 begin
   ClrScr;
    Randomize;
    s := ' ';
    for i := 1 to N do
      s := s + chr(Random(27) + 97);
    WriteLn(s);
    for i := 1 to N do
      if odd(ord(s[i])) then
        s[i] := chr(ord(s[i]) - 32);
    WriteLn(s);
    ReadLn;
  end.
0
29.04.2010, 20:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2010, 20:20
Привет! Вот еще темы с решениями:

Сформировать случайным образом матрицу
Помоги пожалуйста решить несколько несложных задач, я сама никак не могу( 1)...

Случайным образом сформировать 5-ть чисел из 36
Случайным образом сформировать 5-ть чисел из 36

Ввести случайным образом массив с числами от 1 до 99
Ввести случайным образом массив с числами от 1 до 99. Добавлено через 1 час...

Заполнить двухмерный массив случайным образом
помогите пож, нужно заполнить двухмерный массив случайным образом, у меня...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru