Последовательность слов одинаковой длины

@Армана · Регистрация: 17.09.2018

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

Задание: Дана последовательность, содержащая от 1 до n слов (n=10), в каждом из которых от 1 до k малых латинских букв (k=5); между соседними словами – запятая, за последним словом – точка. Вывести на экран:
а) эту же последовательность слов, но в обратном порядке;
б) все слова в алфавитном порядке.

по пункту б не знаю, как убрать запятую.
как поставить запрет на ввод длины слова более 5 букв
запрет на ввод более 10 слов
ввод:
Vvedite posledovatelnost:
beivoej,acre,cj,dfr,eot,rr,fg,ee,gtt,eew ,jyf,eww.

Resultat
eww,jyf,eew,gtt,ee,fg,rr,eot,dfr,cj,acre ,beivoej.
,acre,beivoej,cj,dfr,ee,eew,eot,eww.,fg, gtt,jyf,rr

Код:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
program slova;
var
 a: char;
 str, slovo, buf, res1: string;
 stroka: array[1..50] of string;
 i,m,p,t: integer;
 
begin
 writeln('Vvedenaya posledovatelnost slov doljna byt: ');
 writeln('ot 1 do 10 slov');
 writeln('ot 1 do 5 bukv.');
 writeln('Mejdu slovami zapyataya, za poslednim slovom - tochka');
 
writeln('Vvedite posledovatelnost: ');
str:=''; i:=0;
while (a<>'.') and (i<>50) do
  begin
    read(a);
    str:=str+a;
    i:=i+1;
  end;
 
res1:=''; slovo:='';
for i:=1 to length(str) do
  begin
    if (str[i]<>',')and(str[i]<>'.') then
      slovo:=slovo+str[i]
        else
          begin
            res1:=slovo+','+res1;
            slovo:='';
          end;
  end;
res1[length(res1)]:='.';
writeln;
writeln('Resultat');
writeln(res1);
 
begin
while pos(',',str)<>0 do
  begin
    inc(p);
    stroka[p]:=copy(str,1,pos(',', str)-1);
    delete(str,1,pos(',', str));
  end;
inc(p);
stroka[p]:=str;
  for t:=1 to p-1 do
    for m:=t+1 to p do
      if stroka[t]>stroka[m] then
        begin
          buf:=stroka[t];
          stroka[t]:=stroka[m];
          stroka[m]:=buf;
        end;
 
for t:=1 to p do
write(',',stroka[t]);
end;
end.

@Sun Serega · 23.12.2018, 20:32

Код надо выделять кнопкой PASCAL слева над окном ответа.

Добавлено через 9 минут

Pascal
1
2
3
4
5
begin
  var wds := ReadlnString.ToWords(' ,.'.ToCharArray());
  wds.Reverse.Println;
  wds.Order.Println;
end.

@Nikita110001 · 23.12.2018, 20:39

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
program slova;
 
var
  a: char;
  str, slovo, buf, res1: string;
  stroka: array[1..10] of string;
  i, m, p, t: integer;
 
begin
  writeln('Vvedenaya posledovatelnost slov doljna byt: ');
  writeln('ot 1 do 10 slov');
  writeln('ot 1 do 5 bukv.');
  writeln('Mejdu slovami zapyataya, za poslednim slovom - tochka');
  
  writeln('Vvedite posledovatelnost: ');
  str := ''; i := 0;
  while (a <> '.') and (i <> 50) do
  begin
    read(a);
    str := str + a;
    i := i + 1;
  end;
  
  res1 := ''; slovo := '';
  for i := 1 to length(str) do
  begin
    if (str[i] <> ',') and (str[i] <> '.') then
      slovo := slovo + str[i]
    else
    begin
      res1 := slovo + ',' + res1;
      slovo := '';
    end;
  end;
  res1[length(res1)] := '.';
  writeln;
  writeln('Resultat');
  writeln(res1);
  
  begin
    while pos(',', str) <> 0 do
    begin
      inc(p);
      stroka[p] := copy(str, 1, pos(',', str) - 1);
      delete(str, 1, pos(',', str));
    end;
    inc(p);
    stroka[p] := str;
    for t := 1 to p - 1 do
      for m := t + 1 to p do
        if stroka[t] > stroka[m] then
        begin
          buf := stroka[t];
          stroka[t] := stroka[m];
          stroka[m] := buf;
        end;
    
    for t := 1 to p do
      write(',', stroka[t]);
  end;
end.

@Sun Serega · 23.12.2018, 20:50

Уже не надо, я вам уже написал готовую программу. Это я на будущее сказал.

@Армана · 23.12.2018, 21:18 **[ТС]**

Исправление, как поняла здесь stroka: array[1..10] of string;
Но это не убирает запятую и
запрет на ввод длины слова более 5 букв

Добавлено через 4 минуты
Извините, не поняла, как этим пользоваться.

Добавлено через 1 минуту
Извините, не поняла, как этим пользоваться.

@Sun Serega · 23.12.2018, 22:40

В смысле пользоваться? Это уже готовая программа, её так и давать туда где у вас спрашивают.

Если хотите понять что в ней делает что - наводите мышку, там у всего описания.
Так же можно поставить курсор на то что не понятно и нажать F1, откроется справка на нужной странице.
А ещё можно зажать Ctrl и тыкнуть на то что не понятно, откроется его реализация.
Если всё это попробовали и всё ещё не понятно - спрашивайте, буду раз объяснить.

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого 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 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	23.12.2018, 20:50
	Уже не надо, я вам уже написал готовую программу. Это я на будущее сказал. 0

@Армана 0 / 0 / 0 Регистрация: 17.09.2018 Сообщений: 2
	23.12.2018, 21:18 [ТС]
	Исправление, как поняла здесь stroka: array[1..10] of string; Но это не убирает запятую и запрет на ввод длины слова более 5 букв Добавлено через 4 минуты Извините, не поняла, как этим пользоваться. Добавлено через 1 минуту Извините, не поняла, как этим пользоваться. 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	23.12.2018, 22:40
	В смысле пользоваться? Это уже готовая программа, её так и давать туда где у вас спрашивают. Если хотите понять что в ней делает что - наводите мышку, там у всего описания. Так же можно поставить курсор на то что не понятно и нажать F1, откроется справка на нужной странице. А ещё можно зажать Ctrl и тыкнуть на то что не понятно, откроется его реализация. Если всё это попробовали и всё ещё не понятно - спрашивайте, буду раз объяснить. 0