VPF::[TP7] Set of char & Write() - Форум программистов

MuForum

Дата 15.6.2009, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 427
Регистрация: 13.6.2007
Где: Молдова, Кишинев

Репутация: нет
Всего: 4

Доброе время суток.
Работаю на "Turbo Pascal 7.1".

# Задача: Вывести на экран содержимое множества символов (set of char)
- Не могу сообразить как это сделать.

Код


Program a01;
Uses CRT;
var
    s, q: string;
    a, b, c: set of char;
    i: integer;
begin
    ClrScr;
    s := '1236asdg';
    q := 'asfd vxcvxcvba';
    a := [];
    for i := 1 to length(s) do a := a + [s[i]];
    b := [];
    for i := 1 to length(q) do b := b + [q[i]];
    c := a * b;
    WriteLn('s: ', s);
    WriteLn('q: ', q);
    Write('c: ');
    for i := 1 to sizeof(c) do Write(c[i]); {Проблемы с выводом содержимого множества}
    WriteLn;
    ReadLn;
end.

P.S. -> Пробовал и через строчку делать, но полюбому не получается. Прошу подсказать.

Это сообщение отредактировал(а) MuForum - 15.6.2009, 15:49

--------------------

"Чтобы правильно задать вопрос, нужно знать большую часть ответа!" (Р. Шекли)

volvo877

Дата 15.6.2009, 16:44 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Код

var ch: char;
...
for ch := low(c) to high(c) do
  if ch in c then write(ch:2);

MuForum

Дата 15.6.2009, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 427
Регистрация: 13.6.2007
Где: Молдова, Кишинев

Репутация: нет
Всего: 4

#2, volvo877 - Благодарю за ответ, однако компилятор ругается.

Код


Program a01;
Uses CRT;
var
    s, q: string;
    a, b, c: set of char;
    i: integer;
    ch: char;
begin
    ClrScr;
    s := '1236asdg';
    q := 'asfd vxcvxcvba';
    a := [];
    for i := 1 to length(s) do a := a + [s[i]];
    b := [];
    for i := 1 to length(q) do b := b + [q[i]];
    c := a * b;
    WriteLn('s: ', s);
    WriteLn('q: ', q);
    Write('c: ');
    for ch := low(c) to high(c) do if ch in c then write(ch:2);
    WriteLn;
    ReadLn;
end.

Цитата

Error 29: Ordinal type expected.

- Это выдаёт при попытки вызвать функцию low()

--------------------

"Чтобы правильно задать вопрос, нужно знать большую часть ответа!" (Р. Шекли)

ФедосеевПавел

Дата 15.6.2009, 18:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

Замени low© на low(ch), ну и high(ch) - цикл то с переменной ch

volvo877

Дата 15.6.2009, 21:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата

однако компилятор ругается.

FPC-шный не ругается... Странно.

MuForum

Дата 15.6.2009, 22:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 427
Регистрация: 13.6.2007
Где: Молдова, Кишинев

Репутация: нет
Всего: 4

# for all - Задача решена, благодарю всех, кто принимал участие.

Код


Program a01;
Uses CRT;
var
    s, q: string;
    a, b, c: set of char;
    i: integer;
    ch: char;
begin
    ClrScr;
    s := '1236asdg';
    q := 'asfd vxcvxcvba';
    a := [];
    for i := 1 to length(s) do a := a + [s[i]];
    b := [];
    for i := 1 to length(q) do b := b + [q[i]];
    c := a * b;
    WriteLn('s: ', s);
    WriteLn('q: ', q);
    Write('a: ');
    for ch := Low(char) to High(char) do if ch in a then write(ch:2);
    WriteLn;
    Write('b: ');
    for ch := Low(char) to High(char) do if ch in b then write(ch:2);
    WriteLn;
    Write('c: ');
    for ch := Low(char) to High(char) do if ch in c then write(ch:2);
    WriteLn;
    ReadLn;
end.

--------------------

"Чтобы правильно задать вопрос, нужно знать большую часть ответа!" (Р. Шекли)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »