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

@Saylar · Регистрация: 08.11.2009

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

Помогите пожалуйста, кто в этом шарит... Буду очень признателен и благодарен...
Задана строка. Определить, содержаться ли в строке буквы W, R, P, A, B, C, D и символ 'пробел'.

@pikusfikus · 22.01.2010, 00:52

Pascal

var
i:integer;
f:boolean;
s:string;
l:set of char;
begin
l:=['W','R','P','A','B','C','D',' '];
readln(s);
f:=false;
for i:=1 to length(s) do
if Upcase(s[i]) in l then begin
f:=true;
break;
end;
writeln(f);
end.

Добавлено через 16 секунд
только большие или маленькие тоже?

@Saylar · 22.01.2010, 01:02 **[ТС]**

Спасиба, только большие, а если маленькие... то просто их добавить?

@pikusfikus · 22.01.2010, 01:04

если только большие то замените Upcase(s[i]) на s[i],если большие и маленькие ничего не меняйте

@Saylar · 22.01.2010, 01:09 **[ТС]**

Благодарю

Добавлено через 2 минуты
Но как подправить так чтобы небыло такого...
К примеру чтоб если вводишь A и F он пишет True но буквы F нету...
Вот непонимаю как бы подправить...

@pikusfikus · 22.01.2010, 01:14

вам нужно чтобы были именно все буквы или одна из них?если именно все то ща переделаю

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

Pascal

var
i:integer;
f:boolean;
s:string;
l:set of char;
begin
l:=['W','R','P','A','B','C','D',' '];
readln(s);
f:=false;
for i:=1 to length(s) do
if s[i] in l then
l:=l-[s[i]];
if l=[] then f:=true;
writeln(f);
end.

@Saylar · 22.01.2010, 01:28 **[ТС]**

Всегда теперь выдает False)))
А можно сделать так, чтобы если я ввел A и F
и чтобы он вывел... если есть есть А тогда True если нету F тогда False
Такое Реально? провернуть в строках...

@pikusfikus · 22.01.2010, 10:27

а про пробел вы забили?слушайте надо было сразу писать что вам а не сейчас

@Saylar 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 28
		1
	Работа со строками 22.01.2010, 00:47. Показов 754. Ответов 7 Метки нет (Все метки) Помогите пожалуйста, кто в этом шарит... Буду очень признателен и благодарен... Задана строка. Определить, содержаться ли в строке буквы W, R, P, A, B, C, D и символ 'пробел'. 0

@Saylar 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 28
	22.01.2010, 01:02 [ТС]	3
	Спасиба, только большие, а если маленькие... то просто их добавить? 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	22.01.2010, 01:04	4
	если только большие то замените Upcase(s[i]) на s[i],если большие и маленькие ничего не меняйте 1

@Saylar 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 28
	22.01.2010, 01:09 [ТС]	5
	Благодарю Добавлено через 2 минуты Но как подправить так чтобы небыло такого... К примеру чтоб если вводишь A и F он пишет True но буквы F нету... Вот непонимаю как бы подправить... 0

@Saylar 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 28
	22.01.2010, 01:28 [ТС]	7
	Всегда теперь выдает False))) А можно сделать так, чтобы если я ввел A и F и чтобы он вывел... если есть есть А тогда True если нету F тогда False Такое Реально? провернуть в строках... 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	22.01.2010, 10:27	8
	а про пробел вы забили?слушайте надо было сразу писать что вам а не сейчас 0

Опции темы