Заменить все "..." на "."

@дамир93 · Регистрация: 13.01.2010

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

Помогите пожалуйста решить задачу.
Дана строка, 1)оставить в ней только те символы которые входят в строку один раз
2)заменить все многоточия на одну точку. Со вторым пунктом я справился, а вот с первым ничего не получается.((((
Кстати массивы мы не проходили.
Заранее спасибо!

@кот Бегемот · 13.01.2010, 14:13

а строка по-любому будет массивом символов. Как ты к символу обратишься, если не как к элементу массива?

@mamedovvms · 13.01.2010, 14:21

Pascal

while i<=length(s)-1 do
begin
 j:=j+1;
 whilej<=length(s) do
  if s[i]=s[j] then   delete(s,j,1)
   else inc(j);
 inc(i);
end;

@Inadequate · 13.01.2010, 14:38

Сообщение от дамир93

оставить в ней только те символы которые входят в строку один раз

Pascal

var
  S:string;
  C:char;
  i:integer;
begin
  ReadLn(s);
  i:=1;
  repeat
    C:=S[i];
    if Pos(C,Copy(S,Pos(C,S)+1,Length(S)))<>0 then
      while Pos(C,S)<>0 do
        Delete(S,Pos(C,S),1)
    else
      Inc(i)
  until
    i>Length(S);
  WriteLn(S)
end.

Добавлено через 35 секунд

Не по теме:

ух... опоздал...

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

Сообщение от дамир93

заменить все многоточия на одну точку

Pascal

var
  S:string;
  i:integer;
begin
  ReadLn(s);
  i:=3;
  repeat
    if (s[i]='.') and (s[i-1]='.') and (s[i-2]='.') then
    begin
      Delete(S,i-2,2);
      Dec(i)
    end
    else
      Inc(i)
  until
    i>Length(S);
  WriteLn(S)
end.

@дамир93 · 13.01.2010, 14:42 **[ТС]**

а без char можно? мы это не проходили

@Artishok · 13.01.2010, 14:47

а из чего,по-вашему,состоит срока?из символов!

@дамир93 · 16.01.2010, 17:43 **[ТС]**

mamedovvms а ты не мог бы раписать свою задачу а то у меня че то не получается, только пожалуйста без типа данных char. Спасибо!

@Inadequate · 16.01.2010, 18:39

дамир93, повторю еще раз: почитайте литературку, чтобы не нести ерунду. Строка состоит из символов. То, что Вы этого не знаете Вас не красит. Препод Вам ничего не скажет, т.к. если он не дурак(как Вы пишете), то он-то знает из чего состоит строка. Чтобы показать преподу, что "это на самом деле писали Вы", достаточно почитать хэлп.
Роман Тольч, на первый раз ограничемся устным замечанием. Оставляйте такие посты в соответствующем разделе. Надеюсь, что мы с Вами не будем больше возвращаться к этому вопросу.

@дамир93 · 16.01.2010, 18:41 **[ТС]**

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

дамир93, повторю еще раз: почитайте литературку, чтобы не нести ерунду. Строка состоит из символов. То, что Вы этого не знаете Вас не красит. Препод Вам ничего не скажет, т.к. если он не дурак(как Вы пишете), то он-то знает из чего состоит строка. Чтобы показать преподу, что "это на самом деле писали Вы", достаточно почитать хэлп.

То что строка это одномерный массив нам рассказывали, но про тип данных char объясняли всего двум олимпиадникам

@Роман Тольч · 16.01.2010, 18:42

Мда, ВЦ! вы люди. Сами не помогаете и другим помочь не даете.

@Inadequate · 16.01.2010, 18:51

Роман Тольч, Вам кто-то запрещает писать в теме? Мне кажется, что никто Вас отсюда не гонит. Пишите если есть, что-то по теме.
дамир93, Вы ведь читать умеете (по крайней мере я на это надеюсь), а раз умеете, то возьмите и почитайте самостоятельно про char в хэлпе. Уверен, что Вам пойдет это только на пользу.

@Gepar · 16.01.2010, 18:53

Сообщение от дамир93

То что строка это одномерный массив нам рассказывали, но про тип данных char объясняли всего двум олимпиадникам

Это на первых же занятиях изучаеться , тип данных char это такой же тип как и остальные и он означает что у тебя будут в строке символы , как ты тогда предлагаешь

Сообщение от дамир93

без char

сделать ?

@WolfCF · 16.01.2010, 18:54

char для школьников
http://www.piter.com/attachmen... at=exc&n=0

@дамир93 · 16.01.2010, 19:23 **[ТС]**

Спасибо за ссылку. Прочитал, вроде бы все просто, но на первом задании мы этого не изучали!

Добавлено через 18 минут
Если у кого-то будут мысли, по поводу как можно решить задачу без char, пишите. Спасибо!

@Inadequate · 16.01.2010, 19:32

Давайте перестанем флудить, а то придется выдать всем по карточке. Спасибо.

@дамир93 · 22.01.2010, 16:19 **[ТС]**

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

Pascal

var
  S:string;
  C:char;
  i:integer;
begin
  ReadLn(s);
  i:=1;
  repeat
    C:=S[i];
    if Pos(C,Copy(S,Pos(C,S)+1,Length(S)))<>0 then
      while Pos(C,S)<>0 do
        Delete(S,Pos(C,S),1)
    else
      Inc(i)
  until   {";" expected}
    i>Length(S);
  WriteLn(S)
end.

В чем ошибка?

@Inadequate · 22.01.2010, 21:34

дамир93, в моей программе нет ошибок, там все написано верно.

@maladoy · 23.01.2010, 08:16

В чем ошибка?

Pascal

1	until i>Length(S);

должно быть в одну строчку

@lexus_ilia · 23.01.2010, 08:59

maladoy, нет, это какой вам компилятор так сказал ? Проверил, всё отлично скомпилировалось (В Turbo Pascal и во Free Pascal)

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	16.01.2010, 18:51	11
	Роман Тольч, Вам кто-то запрещает писать в теме? Мне кажется, что никто Вас отсюда не гонит. Пишите если есть, что-то по теме. дамир93, Вы ведь читать умеете (по крайней мере я на это надеюсь), а раз умеете, то возьмите и почитайте самостоятельно про char в хэлпе. Уверен, что Вам пойдет это только на пользу. 0

@Gepar 1186 / 542 / 78 Регистрация: 01.07.2009 Сообщений: 3,517
	16.01.2010, 18:53	12
	Сообщение от дамир93 То что строка это одномерный массив нам рассказывали, но про тип данных char объясняли всего двум олимпиадникам Это на первых же занятиях изучаеться , тип данных char это такой же тип как и остальные и он означает что у тебя будут в строке символы , как ты тогда предлагаешь Сообщение от дамир93 без char сделать ? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	16.01.2010, 19:32	15
	Сообщение было отмечено как решение Решение Давайте перестанем флудить, а то придется выдать всем по карточке. Спасибо. 3

@дамир93 1 / 1 / 0 Регистрация: 13.01.2010 Сообщений: 14
		1
	Заменить все "..." на "." 13.01.2010, 12:58. Показов 1497. Ответов 18 Метки нет (Все метки) Помогите пожалуйста решить задачу. Дана строка, 1)оставить в ней только те символы которые входят в строку один раз 2)заменить все многоточия на одну точку. Со вторым пунктом я справился, а вот с первым ничего не получается.(((( Кстати массивы мы не проходили. Заранее спасибо! 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	13.01.2010, 14:13	2
	а строка по-любому будет массивом символов. Как ты к символу обратишься, если не как к элементу массива? 0

@дамир93 1 / 1 / 0 Регистрация: 13.01.2010 Сообщений: 14
	13.01.2010, 14:42 [ТС]	5
	а без char можно? мы это не проходили 0

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	13.01.2010, 14:47	6
	а из чего,по-вашему,состоит срока?из символов! 1

@дамир93 1 / 1 / 0 Регистрация: 13.01.2010 Сообщений: 14
	16.01.2010, 17:43 [ТС]	7
	mamedovvms а ты не мог бы раписать свою задачу а то у меня че то не получается, только пожалуйста без типа данных char. Спасибо! 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	16.01.2010, 18:39	8
	дамир93, повторю еще раз: почитайте литературку, чтобы не нести ерунду. Строка состоит из символов. То, что Вы этого не знаете Вас не красит. Препод Вам ничего не скажет, т.к. если он не дурак(как Вы пишете), то он-то знает из чего состоит строка. Чтобы показать преподу, что "это на самом деле писали Вы", достаточно почитать хэлп. Роман Тольч, на первый раз ограничемся устным замечанием. Оставляйте такие посты в соответствующем разделе. Надеюсь, что мы с Вами не будем больше возвращаться к этому вопросу. 2

@дамир93 1 / 1 / 0 Регистрация: 13.01.2010 Сообщений: 14
	16.01.2010, 18:41 [ТС]	9
	Сообщение от Inadequate дамир93, повторю еще раз: почитайте литературку, чтобы не нести ерунду. Строка состоит из символов. То, что Вы этого не знаете Вас не красит. Препод Вам ничего не скажет, т.к. если он не дурак(как Вы пишете), то он-то знает из чего состоит строка. Чтобы показать преподу, что "это на самом деле писали Вы", достаточно почитать хэлп. То что строка это одномерный массив нам рассказывали, но про тип данных char объясняли всего двум олимпиадникам 1

@Роман Тольч 16 / 16 / 1 Регистрация: 10.01.2010 Сообщений: 46
	16.01.2010, 18:42	10
	Мда, ВЦ! вы люди. Сами не помогаете и другим помочь не даете. 1

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	16.01.2010, 18:54	13
	char для школьников http://www.piter.com/attachmen... at=exc&n=0 1

@дамир93 1 / 1 / 0 Регистрация: 13.01.2010 Сообщений: 14
	16.01.2010, 19:23 [ТС]	14
	Спасибо за ссылку. Прочитал, вроде бы все просто, но на первом задании мы этого не изучали! Добавлено через 18 минут Если у кого-то будут мысли, по поводу как можно решить задачу без char, пишите. Спасибо! 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	22.01.2010, 21:34	17
	дамир93, в моей программе нет ошибок, там все написано верно. 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	23.01.2010, 08:59	19
	maladoy, нет, это какой вам компилятор так сказал ? Проверил, всё отлично скомпилировалось (В Turbo Pascal и во Free Pascal) 1

Заменить все "..." на "."

Решение

Решение