Задана последовательность символов за которой следует точка,напечатайте текст удалив из него все знаки плюс за которыми идет цифра

@CjVladimir · Регистрация: 18.10.2010

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

Pascal

PROGRAM vlab9;
  VAR  X,y:CHAR;
  BEGIN
  READ(X,y); write(x);
  repeat
  if not ((x>='0') and (x<='9'))
  then write (y)
  else
  if  y<>'+' then write (y);
  x:=y;
  READ(y)
  until y='.';
 end.

вот сама прога,но тут одна заковырка.он удаляет + только после цифры.
как поменять?

@Dekio · 24.12.2010, 23:19

Pascal

for i:=1 to length(s)-1 do
if (s[i]='+') and (s[i+1] in ['0'..'9']) then
delete(s,i,1);
writeln(s);

@CjVladimir · 24.12.2010, 23:29 **[ТС]**

спасибо,но эт слишком сложно,сейчас покумекаю и выдам

@Dekio · 24.12.2010, 23:32

проще некуда.
там нечему кумекать

@MegaAce · 24.12.2010, 23:37

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

спасибо,но эт слишком сложно,сейчас покумекаю и выдам

Возможно немного проще

Pascal

p[10]:= ('0','1','2','3','4','5','6','7','8','9');
for i:=1 to length(s)-1 do
if (s[i]='+') then
for j:=1 to n do
if s[i+1] = p[i] then
begin
delete(s,i,1);
break;
end;
writeln(s);

Не проверял

@CjVladimir · 24.12.2010, 23:37 **[ТС]**

для того чему нас учили эт не просто

@Dekio · 24.12.2010, 23:41

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

s[i+1] = p[i] then

пропущен if

но мой всё-таки проще, нет лишних массивов и циклов

походу ещё и логическая ошибка

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

if (s[i]='+') then

допустим 3-й элемент +

@MegaAce · 24.12.2010, 23:44

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

пропущен if

но мой всё-таки проще, нет лишних массивов и циклов

Сорри.
Конечно проще, но может человек не учил множества

@Dekio · 24.12.2010, 23:46

я не успел дописать в посте

допустим 3-й элемент +

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

if (s[i]='+') then

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

for j:=1 to n do
if s[i+1] = p[i] then

тогда если 4 элемент строки равен 4 элементу массива (а именно числу 3) тогда удаляем.

там сказано про любое число после знака +

@MegaAce · 24.12.2010, 23:50

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

s[i+1] = p[i]

Ище раз сорри. Вроде так

Pascal

1	s[i+1] = p[j]

@сара93 · 29.11.2011, 22:16

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

if (s[i]='+') and (s[i+1] in ['0'..'9']) then delete(s,i,1);

скажите пожалуйста а что это значит и как она работает

@CjVladimir 0 / 0 / 0 Регистрация: 18.10.2010 Сообщений: 5
	24.12.2010, 23:29 [ТС]	3
	спасибо,но эт слишком сложно,сейчас покумекаю и выдам 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	24.12.2010, 23:32	4
	проще некуда. там нечему кумекать 0

@CjVladimir 0 / 0 / 0 Регистрация: 18.10.2010 Сообщений: 5
	24.12.2010, 23:37 [ТС]	6
	для того чему нас учили эт не просто 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	24.12.2010, 23:41	7
	Сообщение от MegaAce s[i+1] = p[i] then пропущен if но мой всё-таки проще, нет лишних массивов и циклов походу ещё и логическая ошибка Сообщение от MegaAce if (s[i]='+') then допустим 3-й элемент + 0

@MegaAce 332 / 306 / 155 Регистрация: 14.02.2010 Сообщений: 662
	24.12.2010, 23:44	8
	Сообщение от Dekio пропущен if но мой всё-таки проще, нет лишних массивов и циклов Сорри. Конечно проще, но может человек не учил множества 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,375 Записей в блоге: 1
	24.12.2010, 23:46	9
	я не успел дописать в посте допустим 3-й элемент + Сообщение от Dekio if (s[i]='+') then Сообщение от MegaAce for j:=1 to n do if s[i+1] = p[i] then тогда если 4 элемент строки равен 4 элементу массива (а именно числу 3) тогда удаляем. там сказано про любое число после знака + 0

@сара93 0 / 0 / 0 Регистрация: 01.11.2011 Сообщений: 29
	29.11.2011, 22:16	11
	Сообщение от Dekio if (s[i]='+') and (s[i+1] in ['0'..'9']) then delete(s,i,1); скажите пожалуйста а что это значит и как она работает 0

Опции темы