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

@Katrinmueller · Регистрация: 03.12.2020

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

Помогите, пожалуйста, решить следующую задачу.
Пользователь вводит по очереди строки из различных символов (раскладка английская). Введение строк заканчивается, когда он введёт пустую строку.
Введенные строки сразу после ввода необходимо разбить на символы. Дальше надо работать только з буквами. Буквы ( большие и маленькие) нужно перевести в большой регистр в посимвольно добавлять в начало динамического линейного списка. В списке буквы не должны повторятся. Если например буква «D» уже есть в списке, то второй раз ее не добавлять.
Потом выдать на консоль длину списка и все элементы списка по алфавиту.
Спасибо!

@JuriiMW · 10.01.2021, 08:38

Pascal

type
  tLiter=^pLiter;
  pLiter=record
    c:Char;
    x:tLiter;
  end;
  
var s:String;c:Char;L,t:tLiter;i:Integer;
begin
  L:=nil;repeat ReadLn(s);if Length(s)> 0 then for i:=1 to Length(s) do begin
  c:=UpCase(s[i]);if c in ['A'..'Z'] then if L=nil then begin New(L);L^.c:=c;
  L^.x:=nil;end else begin t:=L;while(t<>nil)and(t^.c<>c)do t:=t^.x;if t=nil
  then begin t:=L;New(L);L^.c:=c;L^.x:=t;end;end;end;until Length(s)=0;while
  L<>nil do begin Write(L^.c);t:=L;L:=L^.x;Dispose(t);end;
end.

@Katrinmueller · 10.01.2021, 14:54 **[ТС]**

А как выдать все элементы и их количество на консоль? Я так понимаю, что их потом надо перевести в строку и тогда сортировать по алфавиту и выдавать?

@Katrinmueller 0 / 0 / 0 Регистрация: 03.12.2020 Сообщений: 24
		1
	Составить динамический линейный список из большых букв 10.01.2021, 02:06. Показов 698. Ответов 2 Метки нет (Все метки) Помогите, пожалуйста, решить следующую задачу. Пользователь вводит по очереди строки из различных символов (раскладка английская). Введение строк заканчивается, когда он введёт пустую строку. Введенные строки сразу после ввода необходимо разбить на символы. Дальше надо работать только з буквами. Буквы ( большие и маленькие) нужно перевести в большой регистр в посимвольно добавлять в начало динамического линейного списка. В списке буквы не должны повторятся. Если например буква «D» уже есть в списке, то второй раз ее не добавлять. Потом выдать на консоль длину списка и все элементы списка по алфавиту. Спасибо! 0

@Katrinmueller 0 / 0 / 0 Регистрация: 03.12.2020 Сообщений: 24
	10.01.2021, 14:54 [ТС]	3
	А как выдать все элементы и их количество на консоль? Я так понимаю, что их потом надо перевести в строку и тогда сортировать по алфавиту и выдавать? 0

Опции темы