Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Символы в Паскале

Автор: настюша 19.11.2006, 18:55

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

Автор: volvo877 19.11.2006, 19:05

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

Автор: настюша 19.11.2006, 19:25

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

Цитата

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

Код


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

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

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

Автор: volvo877 19.11.2006, 20:13

Цитата(настюша @ 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

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

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

Автор: volvo877 19.11.2006, 21:34

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

Автор: настюша 19.11.2006, 21:57

Вот так

Код


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

А так:

Код

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;