Если в тексте есть цифра "2", то каждый символ перед этой цифрой заменить на букву "а"

@Vasiliy1997 · Регистрация: 26.04.2015

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста с задачкой в Паскале. Дан текст. Если в нем есть цифра 2, то каждый символ перед этой цифрой заменить на букву а.

@JokeR.BY · 26.04.2015, 14:02

Pascal

var
    s: String;
    i: Byte;
begin
    Write('s: '); ReadLn(s);
    if (Length(s) > 1)
    then
    begin
        for i := 2 to Length(s) do
            if (s[i] = '2')
            then
                s[i - 1] := 'a';
    end;
    WriteLn(s);
end.

@Vasiliy1997 · 26.04.2015, 14:08 **[ТС]**

Большое спасибо!

@JokeR.BY · 26.04.2015, 14:26

стоп. строка вида

Код

qwert2y

должна стать

Код

aaaaa2y

или

Код

qwera2y

@droider · 26.04.2015, 15:22

Сообщение от Vasiliy1997

Дан текст. Если в нем есть цифра 2, то каждый символ перед этой цифрой заменить на букву а

Я бы сделал так

Pascal

  var
  s:string;
  i:integer;
begin
Writeln('Enter your text');
Readln(s);
if Pos('2', s)>0 then begin
for i :=1 to Pos('2', s)-1 do s[i] :='a';
Writeln(s);
end
else Writeln('"2" not found!');
Readln;
end.

Примеры.

На входе:

Mach2ine

На выходе:

aaaa2ine

На входе:

2Machine

На выходе:

2Machine. Без изменений

На входе:

Machine

На выходе:

"2" not found!

@JokeR.BY · 26.04.2015, 15:49

droider, вот об этом я и спросил позже)

Добавлено через 13 минут
тогда уж так нужно писать

Pascal

var
    s: String;
    i: Byte;
    state: Boolean;
begin
    Write('s: '); ReadLn(s);
    i := Length(s);
    repeat
        state := s[i] = '2';
        Dec(i);
    until ((i = 0) Or (state));
    if (state)
    then
    begin
        if (i > 1)
        then
            for i := i downto 1 do
                s[i] := 'a';
        WriteLn(s);
    end
    else
        WriteLn('"2" not found!');
end.

@Vasiliy1997 · 26.04.2015, 16:02 **[ТС]**

Сообщение от JokeR.BY

1
qwera2y

вот так

@JokeR.BY · 26.04.2015, 16:10

Vasiliy1997, ну тогда самый первый ответ.

Добавлено через 1 минуту
Vasiliy1997, а что должно выйти, например, в таком варианте?

Код

qwert22y

@Vasiliy1997 · 26.04.2015, 16:25 **[ТС]**

Сообщение от JokeR.BY

Vasiliy1997, а что должно выйти, например, в таком варианте?
Код Code
1
qwert22y

спасиб
по идее, qweraa2

@droider · 26.04.2015, 22:15

Vasiliy1997, я думаю, что Вы не поняли задачу. Уточняли?
Ведь сказано

Сообщение от Vasiliy1997

каждый символ перед этой цифрой заменить

а не " символ перед этой цифрой заменить". Чувствуете разницу?

Сообщение от JokeR.BY

тогда уж так нужно писать

у меня что-то не так? Или как бы свой вариант? Я проверял.

@JokeR.BY · 26.04.2015, 22:58

droider, в вашем варианте строка

Код

asd2asd2asd

примет вид

Код

aaa2asd2asd

@droider · 26.04.2015, 23:03

JokeR.BY, верно. Для нескольких двоек не учел.

@bormant · 27.04.2015, 08:48

Если нужно заменять от начала до последней 2, то

Pascal

i:=Length(s);
while (i>0) and (s[i]<>'2') do Dec(i);
Dec(i);
while i>0 do begin
  s[i]:='a'; Dec(i);
end;

Добавлено через 3 минуты
Или

Pascal

1
2
3

i:=Length(s); 
while (i>0) and (s[i]<>'2') do Dec(i); 
while i>1 do begin Dec(i); s[i]:='a'; end;

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	26.04.2015, 22:58	11
	droider, в вашем варианте строка Код asd2asd2asd примет вид Код aaa2asd2asd 0

@droider 4901 / 2771 / 851 Регистрация: 04.10.2012 Сообщений: 10,095
	26.04.2015, 23:03	12
	JokeR.BY, верно. Для нескольких двоек не учел. 0

@Vasiliy1997 0 / 0 / 0 Регистрация: 26.04.2015 Сообщений: 39
		1
	Если в тексте есть цифра "2", то каждый символ перед этой цифрой заменить на букву "а" 26.04.2015, 13:49. Показов 1809. Ответов 12 Метки нет (Все метки) Помогите пожалуйста с задачкой в Паскале. Дан текст. Если в нем есть цифра 2, то каждый символ перед этой цифрой заменить на букву а. 0

@Vasiliy1997 0 / 0 / 0 Регистрация: 26.04.2015 Сообщений: 39
	26.04.2015, 14:08 [ТС]	3
	Большое спасибо! 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	26.04.2015, 14:26	4
	стоп. строка вида Код qwert2y должна стать Код aaaaa2y или Код qwera2y 0

@Vasiliy1997 0 / 0 / 0 Регистрация: 26.04.2015 Сообщений: 39
	26.04.2015, 16:02 [ТС]	7
	Сообщение от JokeR.BY 1 qwera2y вот так 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	26.04.2015, 16:10	8
	Vasiliy1997, ну тогда самый первый ответ. Добавлено через 1 минуту Vasiliy1997, а что должно выйти, например, в таком варианте? Код qwert22y 0

@Vasiliy1997 0 / 0 / 0 Регистрация: 26.04.2015 Сообщений: 39
	26.04.2015, 16:25 [ТС]	9
	Сообщение от JokeR.BY Vasiliy1997, а что должно выйти, например, в таком варианте? Код Code 1 qwert22y спасиб по идее, qweraa2 0

@droider 4901 / 2771 / 851 Регистрация: 04.10.2012 Сообщений: 10,095
	26.04.2015, 22:15	10
	Vasiliy1997, я думаю, что Вы не поняли задачу. Уточняли? Ведь сказано Сообщение от Vasiliy1997 каждый символ перед этой цифрой заменить а не " символ перед этой цифрой заменить". Чувствуете разницу? Сообщение от JokeR.BY тогда уж так нужно писать у меня что-то не так? Или как бы свой вариант? Я проверял. 0

Опции темы

Если в тексте есть цифра "2", то каждый символ перед этой цифрой заменить на букву "а"

Решение