Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.02.2013, 15:10   #1
MisterDie
1100001001
Пользователь
 
Аватар для MisterDie
 
Регистрация: 25.01.2013
Сообщений: 49
Сообщение Заполнение пустой области в строке (String)

Всем доброго времени суток.
Писал программу и наткнулся на одну проблему:
Код:
//Это не сама программа, а лишь её пример
var
  s: string;
  i: byte;

begin
  read(s);
  for i := 64 downto 1 do 
  begin
    if s[i] = '1' then writeln('ура');
  end;
end.
Дело в том, что у меня строка не обязательно должна иметь длину 64 символа. Как сделать так, чтобы если в строке, к примеру, 14 символов, то остальные 50 заполнялись нулями? Заранее спасибо!
МаГиЯ
мАгИя
МаГиЯ
MisterDie вне форума Ответить с цитированием
Старый 27.02.2013, 15:30   #2
MisterDie
1100001001
Пользователь
 
Аватар для MisterDie
 
Регистрация: 25.01.2013
Сообщений: 49
По умолчанию

Извините, если кого побеспокоил, но я разобрался сам:
Код:
var
  s: string;
  i: byte;

begin
  read(s);
s:=s+'00000..сюда 64 нуля..00000';
  for i := 64 downto 1 do 
  begin
    if s[i] = '1' then writeln('ура');
  end;
end.
МаГиЯ
мАгИя
МаГиЯ
MisterDie вне форума Ответить с цитированием
Старый 27.02.2013, 16:20   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Код:
for i := Length(s) downto 1 do
и 00000..сюда 64 нуля..0000 не надо
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 27.02.2013, 18:04   #4
MisterDie
1100001001
Пользователь
 
Аватар для MisterDie
 
Регистрация: 25.01.2013
Сообщений: 49
Хорошо

Спасибо!Набранное вами сообщение слишком короткое. Увеличьте ваше сообщение до 10 символов.
МаГиЯ
мАгИя
МаГиЯ
MisterDie вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка на заполнение ячеек в строке Uralmaster Microsoft Office Excel 3 10.02.2013 14:24
string поиск слов в строке SAMOUCHKA Общие вопросы C/C++ 1 18.05.2012 01:15
Вытащить данные с второй таблицы если в первой таблице в колонке X значение равно пустой строке Vistar SQL, базы данных 3 14.10.2011 00:48
Графика.Заполнение замкнутой области. Leshii Паскаль, Turbo Pascal, PascalABC.NET 1 10.10.2011 00:16
Заполнение пустой ячейки в строке предидущим значением 1134 Microsoft Office Excel 2 21.01.2010 16:26