множественные типы данных

[deekey063]

Пожалуйста, помогите составить программу или же подсказать, что и как делать. Требуется построить и напечатать множество , элементами которого являются встречающиеся в последовательности: буквы от 'T' до 'X' и знаки препинания

[abit]

Поясните, речь идёт о латинице или кириллице? какие знаки препинания учитывать? там тоже знаете ли много нюансов - например тире и даже пробел знак препинания, кроме того, например (c), %, ~, § и т.д. короче их дофига, конкретизируйте свою задачу сперва о каких наборах входных данных мы говорим, желательно сформулируйте это в синтаксисе Pascal

[deekey063]

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

Поясните, речь идёт о латинице или кириллице? какие знаки препинания учитывать? там тоже знаете ли много нюансов - например тире и даже пробел знак препинания, кроме того, например (c), %, ~, § и т.д. короче их дофига, конкретизируйте свою задачу сперва о каких наборах входных данных мы говорим, желательно сформулируйте это в синтаксисе Pascal

Если честно, то и сам особо не знаю.Вот примечание к заданию. Программа должна работать для произвольного набора символов. Входная строка символов может быть длиннее строки экрана терминала, при этом программа работает не с функцией EOLN, а с признаком конца строки, который задается пользователем

[Stilet]

Мдя... Студенты обленились. Зимняя спячка что-ли?

program Project1;
var
  s:string;
  st:set of char;
  i:integer;
  c:char;
begin
 //readln(s);
 s:='TXHFVSJHLEJS,JFGEWTFCJM.';
 for i:=1 to Length(s) do
  if s[i] in ['T'..'X',',','.'] then include(st,s[i]);
 for c:=#0 to #254 do
  if c in st then write(c);
 readln;
end.

Надеюсь с вводом строки сам разберешься?

[deekey063]

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

Мдя... Студенты обленились. Зимняя спячка что-ли?

program Project1;
var
  s:string;
  st:set of char;
  i:integer;
  c:char;
begin
 //readln(s);
 s:='TXHFVSJHLEJS,JFGEWTFCJM.';
 for i:=1 to Length(s) do
  if s[i] in ['T'..'X',',','.'] then include(st,s[i]);
 for c:=#0 to #254 do
  if c in st then write(c);
 readln;
end.

Надеюсь с вводом строки сам разберешься?

Да, спасибо разбирусь, я ещё школьник, а не студент :С вот такие задания учитель даёт при подготовки к ЕГЭ

[Stilet]

вот такие задания учитель даёт при подготовки к ЕГЭ

И что? А работать ты как будешь? Тоже в инет Спаситепамагите?
Думаешь такого работника работодатели держать долго смогут?

[deekey063]

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

И что? А работать ты как будешь? Тоже в инет Спаситепамагите?
Думаешь такого работника работодатели держать долго смогут?

До работы ещё долго, ведь ещё даже школу не закончил и в институт не поступил.

[ZX Spectrum-128]

вот такие задания учитель даёт при подготовки к ЕГЭ

А по какому учебнику вы занимаетесь? Угринович (профильный уровень)?

[Stilet]

До работы ещё долго

Да ну )
Время пролетит - оглянуться не успеешь. Вчера школяр - завтра семья, дети, жена, ипотека и босс-барбосс, который с тобой чикаться не будет )
Привыкай - се ля ви ))