VPF::Символы в Паскале - Форум программистов

настюша

Дата 19.11.2006, 18:55 (ссылка)

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

Загрузка ...

Новичок

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

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

Скажите пожалста, если кто-нибудь знает, как точно расшифровывается и для чего используется сочетание #32 в Паскале? Заранее благодарна за ответ. smile

volvo877

Дата 19.11.2006, 19:05 (ссылка)

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

Загрузка ...

Эксперт

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

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

#32 - это написание пробела (в виде #{код символа} символы тоже можно задавать...)

настюша

Дата 19.11.2006, 19:25 (ссылка)

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

Загрузка ...

Новичок

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

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

Дорогой volvo877, Ты постоянно меня выручаешь, я прямо слов не нахожу для описания того , как я Тебе благодарна!!!!!!! Просто препод прикопался про это сочетание : заладил точно-точно (как-будто сам сомнивается).
А можно тебя еще вопросиком озадачить (хотя во мне уже давно поселилась уверенность, что все задаваемые тут вопросы для тебя просты как 2*2)?
Вот в теме множества ты мне советовал:

Цитата

Никогда не привязывайся к конкретным значениям констант...

Код


for vid:=low(cars) to high(cars) do

(от начального значения до конечного значения типа) будет работать при любых изменениях типа Cars...

Но мне условие поставили делать все без FORа, поэтому я сначала с ним пишу (так мне удобней), а потом на WHILE/REPEAT переделываю. Ну вот а этот механизм чего-то не работает. Может с этими функциями так не-лзя или лзя, а просто я - такой плохой переделывальщик?

volvo877

Дата 19.11.2006, 20:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(настюша @ 19.11.2006, 18:25

)

а этот механизм чего-то не работает

Правда?

А если его хорошо попросить?

Код

type
  cars = (fiat, audi, volvo, vw, bmw);

var
  vid: cars;
  do_it: boolean;

begin
  do_it := true;

  vid := low(cars);
  while do_it do begin

    { ... Делаешь, что тебе нужно ... }

    {
      Поскольку применять Succ к последнему элементу перечисления
      (так же, как и Pred - к первому) запрещено, делаем обходной маневр
    }
    if vid = high(cars) then do_it := false { Последний? Выходим }
    else vid := succ(vid);                          { Есть еще? Продолжаем... }

  end;

end.

настюша

Дата 19.11.2006, 21:25 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо конечно все заработало, но появился встречный вопрос:
Можно ли передвигаться по экрану после вывода результата (если он не умещается на экране)?
Если нет, то встречная проблема: невозможно увидеть полностью результат (все стало печататься не строчками, а столбиками, причем сколько бы наименований машин не было в графе, все равно пропускается место под каждое наименование. Собственно поэтому каждый вывод результата получается занимает 6 строк и начало ответа не видно smile

. Что в этом случае делать?

volvo877

Дата 19.11.2006, 21:34 (ссылка)

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

Загрузка ...

Эксперт

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

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

Покажи, как выводишь (только процедуру печати), такого быть не должно...

настюша

Дата 19.11.2006, 21:57 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот так

Код


procedure Vivod (K:carsSet);
var
vid: cars;
do_it: boolean;
begin
do_it:=true;
if K=[] then
write('Нет в наличии');
else
vid:=low(cars);
while do_it do begin
  if (vid in K) then
  write(carsStr[vid]:15);
writeln;
  if vid=high(cars) then
  do_it:=false
  else vid:=succ(vid);
end;
end.

volvo877

Дата 19.11.2006, 22:45 (ссылка)

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

Загрузка ...

Эксперт

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

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

А так:

Код

procedure Vivod (K:carsSet);
var
  vid: cars;
  do_it: boolean;

begin

  if K=[] then writeln('Нет в наличии')
  else begin

    do_it:=true;
    vid:=low(cars);
    while do_it do begin

      if (vid in K) then write(carsStr[vid]:15);

      if vid=high(cars) then do_it:=false
      else vid:=succ(vid);

    end;
    writeln;

  end;

end;

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