Работа со строками

@sabika · Регистрация: 05.10.2009

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

Пожайлуйста, очень прошу помочь в программе. Я не понимаю не только как составить ее, но и не могу понять само условие
Составьте программу так, чтобы она заменяла любые 2 различные символы, причем символы вводим сами. В случае, если таких символов в слове допустим нет, то выведет сообжение 'такких нет'. Заране е спасибо

@кот Бегемот · 21.11.2009, 19:38

Уточни, чем заменять эти 2 символа, без этого текст бесмысленный.

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

чтобы она заменяла любые 2 различные символы

@Inadequate · 21.11.2009, 19:40

Pascal

var
  s:string;
  sym1,sym2,temp:char;
  temp1,temp2:integer;
begin
  readln(s,sym1,sym2);
  if (pos(sym1,s)<>0) and (pos(sym2,s)<>0) then
  begin
    temp1:=pos(sym1,s);
    temp2:=pos(sym2,s);
    temp:=s[temp1];
    s[temp1]:=s[temp2];
    s[temp2]:=temp;
    writeln(s)
  end
  else
    writeln('Таких нет!')
end.

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

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

Уточни, чем заменять эти 2 символа, без этого текст бесмысленный.

alexevt, там всё осмысленно, надо просто ввести самому два символа и если такие есть поменять в тексте местами, а если нет то вывести "Таких нет!"

@sabika · 21.11.2009, 20:23 **[ТС]**

Так что программа правимльна верхняя, что такое temp.

@Inadequate · 21.11.2009, 20:42

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

что такое temp.

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

temp:char;

как Вы думаете откуда я это взял? Включите мозг.

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

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

Так что программа правимльна верхняя

кстати нижняя программа правильнее...

@кот Бегемот · 21.11.2009, 21:01

Да я ничего против не имею, не люблю неточностей просто. "Поменять местами" - это понятно, а заменить символы - неоднозначно. Да ещё любые.

@Inadequate · 21.11.2009, 21:14

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

Да я ничего против не имею

Не по теме:

так и я ничего не имею:). условие вроде для меня понятное было...:scratch:

@sabika · 22.11.2009, 11:13 **[ТС]**

я набрала программу, но она постоянно выводит таких нет. Как вообще она должна выглядет, когда запускаешь?

@Inadequate · 22.11.2009, 11:21

sabika, смотрите сначала Вы должны ввести строку(например: енот), нажать Enter, ввести подряд 2 символа (например: нт) , нажать Enter и программа должна выдать Вам результат: етон. Всё работает, только что проверил...

Добавлено через 1 минуту
если у Вас tp7, тогда в конце программы должно быть так:

Pascal

...
    writeln('Òàêèõ íåò!');
  readln
end.

@sabika · 22.11.2009, 11:25 **[ТС]**

под нт подразумевается н т

@Inadequate · 22.11.2009, 11:29

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

под нт подразумевается н т

да вы можете ввести енот нажать Enter можетете ввести н нажать Enter и ввести т и снова нажать Enter.

@sabika · 22.11.2009, 11:32 **[ТС]**

и что мы делаем в самой проге

@Inadequate · 22.11.2009, 11:43

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

и что мы делаем в самой проге

Не по теме:

sabika, картошку жарим. Только не забывайте помешивать, а то подгорит...

@sabika 158 / 1 / 0 Регистрация: 05.10.2009 Сообщений: 109
	22.11.2009, 11:32 [ТС]	12
	и что мы делаем в самой проге 0

@sabika 158 / 1 / 0 Регистрация: 05.10.2009 Сообщений: 109
		1
	Работа со строками 21.11.2009, 19:09. Показов 855. Ответов 12 Метки нет (Все метки) Пожайлуйста, очень прошу помочь в программе. Я не понимаю не только как составить ее, но и не могу понять само условие Составьте программу так, чтобы она заменяла любые 2 различные символы, причем символы вводим сами. В случае, если таких символов в слове допустим нет, то выведет сообжение 'такких нет'. Заране е спасибо 0

@кот Бегемот Платежеспособный зверь 8956 / 4382 / 1649 Регистрация: 28.10.2009 Сообщений: 11,624
	21.11.2009, 19:38	2
	Уточни, чем заменять эти 2 символа, без этого текст бесмысленный. Сообщение от sabika чтобы она заменяла любые 2 различные символы 0

@sabika 158 / 1 / 0 Регистрация: 05.10.2009 Сообщений: 109
	21.11.2009, 20:23 [ТС]	4
	Так что программа правимльна верхняя, что такое temp. 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	21.11.2009, 20:42	5
	Сообщение от sabika что такое temp. Сообщение от Inadequate temp:char; как Вы думаете откуда я это взял? Включите мозг. Добавлено через 55 секунд Сообщение от sabika Так что программа правимльна верхняя кстати нижняя программа правильнее... 0

@кот Бегемот Платежеспособный зверь 8956 / 4382 / 1649 Регистрация: 28.10.2009 Сообщений: 11,624
	21.11.2009, 21:01	6
	Да я ничего против не имею, не люблю неточностей просто. "Поменять местами" - это понятно, а заменить символы - неоднозначно. Да ещё любые. 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	21.11.2009, 21:14	7
	Сообщение от alexevt Да я ничего против не имею Не по теме: так и я ничего не имею:). условие вроде для меня понятное было...:scratch: 0

@sabika 158 / 1 / 0 Регистрация: 05.10.2009 Сообщений: 109
	22.11.2009, 11:13 [ТС]	8
	я набрала программу, но она постоянно выводит таких нет. Как вообще она должна выглядет, когда запускаешь? 0

@sabika 158 / 1 / 0 Регистрация: 05.10.2009 Сообщений: 109
	22.11.2009, 11:25 [ТС]	10
	под нт подразумевается н т 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	22.11.2009, 11:29	11
	Сообщение от sabika под нт подразумевается н т да вы можете ввести енот нажать Enter можетете ввести н нажать Enter и ввести т и снова нажать Enter. 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	22.11.2009, 11:43	13
	Сообщение от sabika и что мы делаем в самой проге Не по теме: sabika, картошку жарим. Только не забывайте помешивать, а то подгорит... 0