Дана строка S, удалить из нее все буквы (а), а буквы (о) заменить на 0

@atamanoova · Регистрация: 24.09.2014

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

Дана строка S, удалить из нее все буквы (а), а буквы (о) заменить на 0.

Сказали, что через insert делать нельзя, надо через присваивание. Помогите, как 🙏

@ZX Spectrum-128 · 08.10.2014, 09:11

Дана строка символов. Нужно заменить все буквы P на F
Как и просили, через присваивание.
Удаление символа из строки - delete()

@bormant · 08.10.2014, 09:17

ZX Spectrum-128,
плохой пример, в цикле for конечное значение считается один раз перед выполнением, при прямом проходе (to) если были удаления, цикл выбежит за конец строки.
При обратном (downto) все будет хорошо.

Pascal

for i:=Length(s) downto 1 do
  case s[i] of
  'a': Delete(s,i,1);
  'o': s[i]:='0';
  end;

@ZX Spectrum-128 · 08.10.2014, 09:25

bormant, спасибо! Если честно, то смотрел только замену, про удаление как-то и недодумал.

@atamanoova · 08.10.2014, 09:27 **[ТС]**

Мы операцию " case ", к сожалению, еще не прошли. Если делать через If, как можно сделать, чтобы сразу два уловив проходила с заменой и удалением. Если делать через 2 If, то в конце S не перезаписывается почему то
Помогите 🙏

@Puporev · 08.10.2014, 09:31

Pascal

1
2
3

for i:=Length(s) downto 1 do
if s[i]= 'a' then Delete(s,i,1)
else if  s[i]='o' then s[i]:='0';

@atamanoova 0 / 0 / 0 Регистрация: 24.09.2014 Сообщений: 10
		1
	Дана строка S, удалить из нее все буквы (а), а буквы (о) заменить на 0 08.10.2014, 07:21. Показов 4903. Ответов 5 Метки нет (Все метки) Дана строка S, удалить из нее все буквы (а), а буквы (о) заменить на 0. Сказали, что через insert делать нельзя, надо через присваивание. Помогите, как 🙏 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	08.10.2014, 09:11	2
	Дана строка символов. Нужно заменить все буквы P на F Как и просили, через присваивание. Удаление символа из строки - delete() 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	08.10.2014, 09:25	4
	bormant, спасибо! Если честно, то смотрел только замену, про удаление как-то и недодумал. 0

@atamanoova 0 / 0 / 0 Регистрация: 24.09.2014 Сообщений: 10
	08.10.2014, 09:27 [ТС]	5
	Мы операцию " case ", к сожалению, еще не прошли. Если делать через If, как можно сделать, чтобы сразу два уловив проходила с заменой и удалением. Если делать через 2 If, то в конце S не перезаписывается почему то Помогите 🙏 0

	08.10.2014, 09:31