![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Толян123 |
![]()
Сообщение
#1
|
|||
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: ![]() ![]() ![]() |
Program ds;
var s: string;
procedure doWork(var s: string);
var
i: integer;
l: integer;
begin
i := 1;
l := length(s);
while (i < l) and ((s[i] < 'z') and (s[i] > 'a') or (s[i] < 'Z') and (s[i] > 'A')) do
inc(i);
if (i > 1) and (i < l) then
begin
while (i < l) and ((s[i] < 'z') and (s[i] > 'a') or (s[i] < 'Z') and (s[i] > 'A')) do
inc(i);
if (i > 1) and (i < l) then
for i:=1 to l do
begin
if s[i] = '+' then
s[i] := '1';
if s[i] = '-' then
s[i] := '2';
if s[i] = '*' then
s[i] := '3'
end;
end;
end;
begin
readln(s);
doWork(s);
writeln(s);
end.
Сообщение отредактировано: Lapp - 17.06.2009 2:13 |
|||
![]() ![]() |
Archon |
![]()
Сообщение
#2
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 618 Пол: Мужской Репутация: ![]() ![]() ![]() |
А ты уверен, что задача решена правильно? Мне этот код кажется странным и с явными излишествами. Приведи задание, тогда можно будет точнее сказать.
-------------------- Close the World...txeN eht nepO
|
Толян123 |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: ![]() ![]() ![]() |
Вот и задание!!!!!!
Строковый тип данных дан текст.Если в данном тексте имеется не менее 2 групп букв,то каждый знак+ встерчающийся между двумя первыми по порядку группами букв заменить цифрой 1, знак - заменить цифрой 2,а знак * заменить цифрой 3.Иначе оставить текст без изменений |
Archon |
![]()
Сообщение
#4
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 618 Пол: Мужской Репутация: ![]() ![]() ![]() |
Тогда задача определенно решена не правильно. По заданию, строка "a+b" должна преобразоваться в "a1b", а строка "+++abc+-*bcd---cde***" должна превратиться в "+++abc123bcd---cde***". А теперь попробуй проверить свою программу на этих исходных данных.
Предлагаю следующий алгоритм решения: 1. Найти первую букву в строке. 2. Продолжая с найденной позиции найти первую небукву в строке. 3. Запомнить эту позицию (начиная с нее надо будет производить замену). 4. Продолжая с найденной позиции найти первую букву (это начало второй группы букв). 5. Запомнить предыдущую позицию (на ней надо будет закончить замену). 6. Если строка еще не закончилась, произвести замену с начальной позиции до конечной. Сообщение отредактировано: Archon - 17.06.2009 16:25 -------------------- Close the World...txeN eht nepO
|
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 2:27 |