Помогите доделать задачку, Последовательность символов Опции

[Замарочка]

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

Решение...

uses crt;
const symbol=[';',',','.',':','!','?'];
      bol=['T','U','V','W','X'];
var
      g:set of 'T'..'X';
      b:set of ';'..'?';
      i,d:char;
begin
      g:=[ ];
      b:=[ ];
repeat
begin
      read(d);
if d in symbol then
      g:=g+[d];
if d in bol then
      b:=b+[d];
end;
until d:='@';
      readln;
for i:='T' to 'X' do
if i in g then
      write(i);
end;
for i:=';' to '?' do
if i in b then
      write(i);
end;
      readln;
end.

На прикрепленном скрине видно на что ругается, помогите исправить!! Пожалуйста!!

Сообщение отредактировано: Altair - 22.01.2006 18:24

[volvo]

var
  g:set of 'T'..'X';  
  b:set of ';'..'?'; { Что здесь имелось в виду? }

Дело в том, что элементами множества B могут быть только следующие 5 символов (исходя из твоего описания):
";", "<", "=", ">", "?"
ибо они именно в таком порядке расположены в таблице Ascii... Аккуратнее с этим. Так делать нужно очень осторожно...

А насчет ошибки - так в Until должно быть не присваивание, а сравнение:

Until d = '@';

Но программа все равно будет работать неверно (см. выше, почему)...

[Замарочка]

Вот это ты имел ввиду symbol=[';','.',',',':','!','?']; ща последовательность правильная??
Но программка всё равно как то неправильно работает, не выводит результат.
А тут есть что нибудь наподобии этой проги? Или помогите доделать плиз!

Код

uses crt;
const symbol=[';','.',',',':','!','?'];
      bol=['T','U','V','W','X'];
var
      g:set of 'T'..'X';
      b:set of ';'..'?';
      i,d:char;
begin
      g:=[ ];
      b:=[ ];
repeat
begin
      read(d);
if d in symbol then
      g:=g+[d];
if d in bol then
      b:=b+[d];
end;
until d='@';
      readln;
for i:='T' to 'X' do
begin
if i in g then
      write(i);
end;
for i:=';' to '?' do
begin
if i in b then
      write(i);
end;
      readln;
end.

Сообщение отредактировано: volvo - 22.01.2006 20:41