Вывести все различные слова, буквы которых упорядочены по алфавиту

@Valton · Регистрация: 04.12.2019

Составить программу для решение задачи. Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами - запятая, за последним словом - точка.

Печати все различные слова, буквы которых упорядочены по алфавиту

@ZX Spectrum-128 · 15.12.2019, 18:35

Сообщение от Valton

слова, буквы которых упорядочены по алфавиту

Упорядочены ли буквы по алфавиту

@bormant · 15.12.2019, 19:22

Сообщение от Valton

буквы которых упорядочены по алфавиту

Только по неубыванию или по неубыванию или невозрастанию?

Добавлено через 11 минут
В первом случае:

Pascal

function IsSorted(const w: String): Boolean;
var i: Integer;
begin
  IsSorted:=False;
  for i:=2 to Length(w) do if w[i-1]>w[i] then Exit;
  IsSorted:=True;
end;
 
const Delims=[#1..#32,',','.'];
var
  w: array [0..29] of String[5];
  t: String[5];
  s: String;
  i, j, k, n: Integer;
begin
  Write('Слова: '); ReadLn(s); s:=s+'.';
  n:=0;
  for i:=1 to Length(s) do
    if not (s[i] in Delims) then t:=t+s[i]
    else begin
      if IsSorted(t) then begin
        j:=n; Inc(n);
        while (j>0) and (t<=w[j-1]) do begin
          w[j]:=w[j-1]; Dec(j);
        end; w[j]:=t;
      end;
      t:='';
    end;
  i:=0;
  while i<n do begin
    j:=i+1; while (j<n) and (w[i]=w[j]) do Inc(j);
    if j-i-1=0 then WriteLn(w[i]);
    i:=j;
  end;
end.

Во втором:

Pascal

function IsSorted(const w: String): Boolean;
var i: Integer; a, d: Boolean;
begin
  a:=True; d:=True;
  for i:=2 to Length(w) do begin
    a:=a and (w[i-1]<=w[i]);
    d:=d and (w[i-1]>=w[i]);
  end;
  IsSorted:=a or d;
end;
 
const Delims=[#1..#32,',','.'];
var
  w: array [0..29] of String[5];
  t: String[5];
  s: String;
  i, j, k, n: Integer;
begin
  Write('Слова: '); ReadLn(s); s:=s+'.';
  n:=0;
  for i:=1 to Length(s) do
    if not (s[i] in Delims) then t:=t+s[i]
    else begin
      if IsSorted(t) then begin
        j:=n; Inc(n);
        while (j>0) and (t<=w[j-1]) do begin
          w[j]:=w[j-1]; Dec(j);
        end; w[j]:=t;
      end;
      t:='';
    end;
  i:=0;
  while i<n do begin
    j:=i+1; while (j<n) and (w[i]=w[j]) do Inc(j);
    if j-i-1=0 then WriteLn(w[i]);
    i:=j;
  end;
end.

@Valton · 15.12.2019, 19:25 **[ТС]**

bormant, большое спасибо)

@bormant · 15.12.2019, 19:27

В примерах выше "все различные" -- это те, которые встречаются только один раз.

@bormant · 16.12.2019, 16:51

Если нужно вывести без повторов, то есть если из ряда "a b c b" нужно вывести "a b c", а не "a c", то

Pascal

  while i<n do begin
    WriteLn(w[i]);
    j:=i+1; while (j<n) and (w[i]=w[j]) do Inc(j);
    i:=j;
  end;

Вывести все различные слова, буквы которых упорядочены по алфавиту

Решение

Решение

@Valton 0 / 0 / 0 Регистрация: 04.12.2019 Сообщений: 30
		1
	Вывести все различные слова, буквы которых упорядочены по алфавиту 15.12.2019, 18:20. Показов 2391. Ответов 5 Метки нет (Все метки) Составить программу для решение задачи. Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв; между соседними словами - запятая, за последним словом - точка. Печати все различные слова, буквы которых упорядочены по алфавиту __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@ZX Spectrum-128 6803 / 4562 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	15.12.2019, 18:35	2
	Сообщение от Valton слова, буквы которых упорядочены по алфавиту Упорядочены ли буквы по алфавиту 1

@Valton 0 / 0 / 0 Регистрация: 04.12.2019 Сообщений: 30
	15.12.2019, 19:25 [ТС]	4
	bormant, большое спасибо) 0

@bormant Модератор 7486 / 4358 / 2771 Регистрация: 22.11.2013 Сообщений: 12,490 Записей в блоге: 1
	15.12.2019, 19:27	5
	В примерах выше "все различные" -- это те, которые встречаются только один раз. 1

Опции темы