Ограничения ввода в строках

@Алесан · Регистрация: 26.01.2019

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

Заимствовал код, появился вопрос как реализовать ограничения слова в 5 символов и именно латинскими бувами
Сам код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program stroki;
 
uses crt;
 
var
  c: char;
  s, w: string;
begin
  write('Введите слова разделяя запятой и завершая точкой: ');
  s := '';
  repeat
    w := '';
    repeat
      c := readkey;
      Write(c);
      if c in ['.', ','] then
        break;
      w := w + c;
    until False;
    s := w + ',' + s;
  until c = '.';
  s[length(s)] := '.';
  writeln;
  writeln(s);
end.

@Алесан · 29.01.2019, 11:41 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program stroki;
 
uses crt;
 
var
  c,a: char;
  w: string[5];
  s:string;
  z:boolean;
begin
  write('Введите слова латинискими буквами в 5 символов разделяя запятой и завершая точкой: ');
  a:=readkey;
  if (a in ['a'..'z']) then z:=true;
  While z=true do
    begin;
    s := '';
    repeat
      w := '';
      repeat
        c := readkey;
        Write(c);
        if c in ['.', ','] then
          break;
        w := w + c;
      until False;
      s := w + ',' + s;
    until c = '.';
    s[length(s)] := '.';
    writeln;
    writeln(s);
    end;
  if z<>true then;
  begin
  write('English pls  ');
  end;
end.

Кому понадобится

@ZX Spectrum-128 · 29.01.2019, 13:24

32-я строка это нечто

@Sun Serega · 29.01.2019, 14:24

Да там хватает глупостей... Хотя бы тех же =true и <>true

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	29.01.2019, 13:24
	32-я строка это нечто 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	29.01.2019, 14:24
	Да там хватает глупостей... Хотя бы тех же =true и <>true 0