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

@argossi · Регистрация: 13.04.2010

Сгенерировать случайным образом 7 латинских прописных букв. Если код буквы нечетный, то необходимо эту букву сделать прописной (использовать массив из символов).

@Inadequate · 13.04.2010, 18:56

Сгенерировать случайным образом 7 латинских прописных букв. Если код буквы нечетный, то необходимо эту букву сделать прописной

Это конечно просто замечательно... Сделал по-своему...

Pascal

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.

@argossi · 14.04.2010, 08:46 **[ТС]**

Если не сложно, можно объяснить что означает каждая строчка и что она делает, а именно 3,4 и 11-17.
Что такое chr, почему random(27)+97, что такое odd и ord, почему -32?

@argossi · 15.04.2010, 06:09 **[ТС]**

Сгенерировать случайным образом 7 латинских прописных букв. Если код буквы нечетный, то необходимо эту букву сделать прописной (использовать массив из символов).

Pascal

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?

@argossi · 29.04.2010, 20:20 **[ТС]**

Сгенерировать случайным образом 7 латинских прописных букв. Если код буквы нечетный, то необходимо эту букву сделать прописной (использовать массив из символов).
Программа есть, но кое-чего не хватает: тут она генерирует и сразу выводит ответ, а еще нужно вывести код буквы, чтобы посмотреть. Помогите плиз!!!.

Pascal

 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.

@argossi 0 / 0 / 0 Регистрация: 13.04.2010 Сообщений: 7
		1
	Сгенерировать случайным образом 7 латинских прописных букв 13.04.2010, 18:38. Показов 2564. Ответов 4 Метки нет (Все метки) Сгенерировать случайным образом 7 латинских прописных букв. Если код буквы нечетный, то необходимо эту букву сделать прописной (использовать массив из символов). 0

@argossi 0 / 0 / 0 Регистрация: 13.04.2010 Сообщений: 7
	14.04.2010, 08:46 [ТС]	3
	Если не сложно, можно объяснить что означает каждая строчка и что она делает, а именно 3,4 и 11-17. Что такое chr, почему random(27)+97, что такое odd и ord, почему -32? 0

Опции темы