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

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

Студворк — интернет-сервис помощи студентам

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

@Inadequate · 13.04.2010, 18:56

Сгенерировать случайным образом 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.

@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
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?

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

Сгенерировать случайным образом 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.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@argossi 0 / 0 / 0 Регистрация: 13.04.2010 Сообщений: 7

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

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