Необходимо добавить пробелы в строке
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Необходимо добавить пробелы в строке - 2007-10-19 17:17:45.083333
|
|
|
SunVelL
Сообщений: 19
Оценки: 0
Присоединился: 2007-10-17 15:44:43.293333
|
Подскажите plz каким образом это можно сделать. quote:
while LR <> nil do begin lStr := LR^.s; col := n - length(LR^.s); Rez := {col-пробелов + }ReverseString(LR^.s); writeln(Rez); LR := LR^.Next; end;
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-19 17:38:30.110000
|
|
|
sergeiprog
Сообщений: 302
Оценки: 0
Присоединился: 2007-04-24 10:02:27.956666
|
Подробнее расскажи, по каким правилом должен вставлять пробелы?
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-19 17:39:59.893333
|
|
|
sergeiprog
Сообщений: 302
Оценки: 0
Присоединился: 2007-04-24 10:02:27.956666
|
Rez:=''; for i:=1 to col do Rez:=Rez+' '; Rez:=Rez+….
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-19 17:43:46.710000
|
|
|
Inspektor
Сообщений: 143
Оценки: 0
Присоединился: 2007-08-31 11:37:20.710000
|
Опиши словестно что тебе надо, просто бейсик впервые вижу[sm=ah.gif]. Если я правильно понял, то человек вводит строку, а в ответ получает эту самую строку в обратном порядке, причём в итоговой строке определённое количество символов, и в случае если строка короче нужной длины надо добавить в начало пробелы.
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-19 17:47:20.230000
|
|
|
SunVelL
Сообщений: 19
Оценки: 0
Присоединился: 2007-10-17 15:44:43.293333
|
Нужен какой-нибудь вариант без использования цикла, функцию писать тоже не желательно. Возможно ли так сделать, или нет?
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-19 17:54:58.190000
|
|
|
SunVelL
Сообщений: 19
Оценки: 0
Присоединился: 2007-10-17 15:44:43.293333
|
Inspector это не Basic, а Delphi. Идею понял правильно. Просто мне нужен какой-нибудь компактный вариант.
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-19 18:39:11.133333
|
|
|
sergeiprog
Сообщений: 302
Оценки: 0
Присоединился: 2007-04-24 10:02:27.956666
|
без цикла и функции тут не как не справишся!!!!
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-19 19:03:26.970000
|
|
|
Inspektor
Сообщений: 143
Оценки: 0
Присоединился: 2007-08-31 11:37:20.710000
|
quote:
это не Basic, а Delphi А где объявление переменных? И из какого места ты класс вытащил? quote:
Нужен какой-нибудь вариант без использования цикла, функцию писать тоже не желательно. Если тебе нужно повторить какое-то действие неизвестное количество раз, то без цикла никак! А по поводу функций, я так понял, что ты хочешь использовать стандартные, а не писать свои? Самый разумный на мой взгляд вариант: два цикла. Первый цикл копирует введённый массив в конец нового в обратном порядке. Второй "забивает" оставшееся место пробелами. Думаю код тут не нужен, если ошибаюсь пиши. Что касается решения задачи без цикла, ты привёл общий вариант и тут без цикла никак, а вот если ты поставишь конкретную задачу, то исходя из её специфики можно подумать как это сделать без цикла(но это всё равно извращение).
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-20 08:16:13.103333
|
|
|
sergeiprog
Сообщений: 302
Оценки: 0
Присоединился: 2007-04-24 10:02:27.956666
|
Без циклов можно решить эту задачу только рекурсией А больше не как! Ну во всяком случае только на Дельфи
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-20 11:18:20.673333
|
|
|
5_nix
Сообщений: 231
Оценки: 0
Присоединился: 2007-02-26 00:43:17.386666
|
Напиши описание задачи.
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-20 11:47:14.846666
|
|
|
JD_WERT
Сообщений: 117
Оценки: 0
Присоединился: 2007-07-12 06:59:16.613333
|
quote:
col := n - length(LR^.s); Rez := {col-пробелов + }ReverseString(LR^.s); Я так понимаю, это нужно для форматированного вывода в консоль? Чтобы все было ровно? quote:
Без циклов можно решить эту задачу только рекурсией А больше не как! Ну во всяком случае только на Дельфи А вот и нет! :D
var
s: string;
begin
s := 'aaa';
writeln(s:8);
Sleep(500);
end.
Где после : - количество отступов. Работает как с числами, так и со строками
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-20 14:45:15.256666
|
|
|
Inspektor
Сообщений: 143
Оценки: 0
Присоединился: 2007-08-31 11:37:20.710000
|
JD_WERT, а если ему нужен именно массив, а не просто вывод?
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-20 14:54:21.360000
|
|
|
JD_WERT
Сообщений: 117
Оценки: 0
Присоединился: 2007-07-12 06:59:16.613333
|
Судя по его описанию - стандартная задачка из универа. Что он просил - то и есть quote:
ORIGINAL: SunVelL Подскажите plz каким образом это можно сделать. quote:
while LR <> nil do begin lStr := LR^.s; col := n - length(LR^.s); Rez := {col-пробелов + }ReverseString(LR^.s); writeln(Rez); LR := LR^.Next; end;
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-20 23:38:20.833333
|
|
|
Inspektor
Сообщений: 143
Оценки: 0
Присоединился: 2007-08-31 11:37:20.710000
|
JD_WERT! На экран выводится переменная Rez, которая в свою очередь получается так: quote:
Rez := {col-пробелов + }ReverseString(LR^.s);
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-21 09:45:47.070000
|
|
|
JD_WERT
Сообщений: 117
Оценки: 0
Присоединился: 2007-07-12 06:59:16.613333
|
quote:
ORIGINAL: Inspektor JD_WERT! На экран выводится переменная Rez, которая в свою очередь получается так: quote:
Rez := {col-пробелов + }ReverseString(LR^.s); quote:
var s: string; begin s := 'aaa'; writeln(s:8); Sleep(500); end. И какая разница? Одна лишняя строчка кода! quote:
var s: string; begin s := 'abc'; s := ReverseString(s); writeln(s:8); Sleep(500); end.
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-21 13:21:21.036666
|
|
|
SunVelL
Сообщений: 19
Оценки: 0
Присоединился: 2007-10-17 15:44:43.293333
|
Всем огромное спасибо, а отдельное JD_WERT. Проблема решена.
|
|
|
RE: Необходимо добавить пробелы в строке - 2007-10-22 12:01:55.113333
|
|
|
TeNbOK
Сообщений: 154
Оценки: 0
Присоединился: 2007-08-21 11:04:41.766666
|
JD_WERT если строка будет длиннее указанного тобой числа, то ее обрежет… там еще бы проверку вставить на длинну строки результата
|
|
|
|
|