Заменить каждый символ, отличный от ‘-’, ‘*’, ‘+’ и пробела на ‘/’.

@Элин · Регистрация: 30.11.2010

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

Заменить каждый символ, отличный от ‘-’, ‘*’, ‘+’ и пробела на ‘/’.
Помогите, пожалуйста. нужно как-то строки использовать..

@SuPeR XaKer · 30.11.2010, 22:35

Pascal

Uses
 CRT;
Var
 s:string;
 i:integer;
begin
ClrScr;
readln(s);
for i:=1 to length(s) do
if not(s[i] in ['-','*','+',' ']) then
begin
s[i]:='/';
end;
write(s);
end.

@Шутка · 30.11.2010, 22:35

Pascal

1 2	for i:=1 to length(s) do if (s[i]<>'-') or (s[i]<>'*') or (s[i]<>'+') or (s[i]<>' ') then s[i]:='/'

@Элин · 30.11.2010, 22:49 **[ТС]**

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

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

Сообщение от SuPeR XaKer

if not(s[i] in ['-','*','+',' ']) then

а как это можно выразить без части not?

@SuPeR XaKer · 30.11.2010, 23:04

Шутка
Вам написал это

@Элин · 30.11.2010, 23:18 **[ТС]**

тогда программа не работает. все символы выдаёт //////// этим.

@SuPeR XaKer · 30.11.2010, 23:23

Pascal

1	if (s[i]<>'-') and (s[i]<>'*') and (s[i]<>'+') and (s[i]<>' ') then

@Элин · 30.11.2010, 23:33 **[ТС]**

вот теперь работает.. ааа.. так бы и написали, что and надо)
Спасибо вам большое!

@Шутка · 01.12.2010, 00:22

Сообщение от SuPeR XaKer

Pascal

1	if (s[i]<>'-') and (s[i]<>'*') and (s[i]<>'+') and (s[i]<>' ') then

Не по теме:

ой и правда. извиняюсь, конечно and нужно =)

@Элин 0 / 0 / 0 Регистрация: 30.11.2010 Сообщений: 10
		1
	Заменить каждый символ, отличный от ‘-’, ‘’, ‘+’ и пробела на ‘/’. 30.11.2010, 22:30. Показов* 1616. Ответов 8 Метки нет (Все метки) Заменить каждый символ, отличный от ‘-’, ‘*’, ‘+’ и пробела на ‘/’. Помогите, пожалуйста. нужно как-то строки использовать.. 0

@Элин 0 / 0 / 0 Регистрация: 30.11.2010 Сообщений: 10
	30.11.2010, 22:49 [ТС]	4
	спасибо большое!) Добавлено через 11 минут Сообщение от SuPeR XaKer if not(s[i] in ['-','*','+',' ']) then а как это можно выразить без части not? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	30.11.2010, 23:04	5
	Шутка Вам написал это 0

@Элин 0 / 0 / 0 Регистрация: 30.11.2010 Сообщений: 10
	30.11.2010, 23:18 [ТС]	6
	тогда программа не работает. все символы выдаёт //////// этим. 0

@Элин 0 / 0 / 0 Регистрация: 30.11.2010 Сообщений: 10
	30.11.2010, 23:33 [ТС]	8
	вот теперь работает.. ааа.. так бы и написали, что and надо) Спасибо вам большое! 0

	01.12.2010, 00:22