Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Строки и задачки с ними

Автор: MapЫшKa 17.01.2005 16:00

И снова я, о, боги Паскаля. :molitva:
Сиду я тут и со своей женской логикой не могу врубиться в мужскую, а точнее в программистическую.

Дано: произвольная строка
Требуется:
1) проверить строку на наличие "{" и "}" символы заключенные между { и } удалить вместе со скобками
2) определить сколько различных русских букв содержит строка ( я ваще тут пас, говорят функция какая то есть специальная)
3) найти самое длинное слово в строке.

вот такая беда. Все бы было просто, вот тока вариантов строки моря, например:

vo sudu li v ogorode {v doline{na polane{v sadu?} ili za zana}ves}koj} hodat nes4astnie programmisti

сама придумала сама ее разобрать не могу, то ли надо удалять
{v doline{na polane{v sadu?} ili za zana}ves}koj}
или
{v doline{na polane{v sadu?} ili za zana}ves}
или
{v doline{na polane{v sadu?}

эх ну и назадают задачек....

Автор: Altair 17.01.2005 16:08

Цитата

со своей женской логикой

да что бы мы без вас делали, о прекрасные дамы! :molitva: :rose:

Цитата

проверить строку на наличие "{" и "}" символы заключенные между { и } удалить вместе со скобками

Код

var
i:byte;
s:string;
begin
readln(s);
If (Pos('{',s)<>0) and (Pos('}',s)<>0) then
begin
delete(s,pos('{',s),pos('}',s)-pos('{',s)+1);
end;
writeln(s);
end.

Автор: volvo 17.01.2005 16:12

MapЫшKa
Можно еще воспользоваться поиском по форуму, я где-то выкладывал программу для удаления комментариев из программы, написанной на Паскале (похоже на удаление текста из {}, правда?)

http://forum.pascal.net.ru/index.php?showtopic=2819&view=findpost&p=24718

Автор: MapЫшKa 17.01.2005 16:43

Oleg_Z
спасибки тебе огромное, чмооок!
но вот тока я че то не допоняла что значит Pos('{',s)<>0 это проверяет наличие { то есть есть она или нет? тоесть функция - pos выдает номер символа начала подстроки?

ЗЫ: ну как же я сама не додумалась
ЗЫЫ с русскими буквами ваще лол, не знала я что мож создать такоя массив rus:array ['А'..'Я'] of word

Автор: MapЫшKa 17.01.2005 16:50

volvo
спасибки , вот тока алгоритм похож на тот который Олег написал. А ваще я по форуму искала такое не нашла. Может просто не то в поиск вводила. Спасибки огромное!

Автор: Altair 17.01.2005 18:29

MapЫшKa
Pos('{',s) - вернет номер в строке в котором содержится элемент {
если ноль значит такого символа нет в строке.

Автор: Altair 17.01.2005 18:56

Цитата

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

Думаю вот красивое решение на Паскале...

Код

var
ZRus:set of char;
PRus:set of char;
a:set of char;
s:string;
i,k:byte;
begin
zRus:=['А'..'Я']; pRus:=['а'..'я'];
readln(s);
for i:=1 to length(s) do
If ((s[i] in ZRus) or (s[i] in PRus)) and NOT (s[i] in a) then
begin inc(k); INCLUDE(a,s[i]) end;
writeln(k);
end.

и 3 задача - найти слово макс. длинны.

Код

const
r=' '; {разделитель междду словами (пробел)}
var
s:string;
subs:string;
max:string;
i:byte;
begin
readln(s);
{удалим лишние разделители}
while s[1]=r do delete(s,1,1);
for i:=1 to ORD(s[0]) do if (s[i]=r) and (s[succ(i)]=r) then
begin
while s[succ(i)]=r do delete(s,succ(i),1)
end;
while pos(r,s)<>0 do
begin
subs:=copy(s,1,pos(r,s));
delete(s,1,pos(r,s));
If length(subs)>length(max) then max:=subs;
end;
writeln(max);
end.

Автор: MapЫшKa 18.01.2005 0:55

Oleg_Z
вот так бы и расцеловала а я тут сиду с циклами мучаюсь правдами и неправдами решение нахажу.
Солнце, было бы замечательно если ты мне маленькую лекцию про пару функций рассказал:
If ((s[i] in ZRus) or (s[i] in PRus)) and NOT (s[i] in a) then
begin inc(k); INCLUDE(a,s[i]) end; :
s[i] in zRus - ето что такое
INCLUDE (a,s[i]) ?????
ORD(s[0]) ????

нуц лузер я что тут поделаешь....

Автор: MapЫшKa 18.01.2005 0:56

а ваще :molitva: :molitva: :molitva: Oleg_Z :flowers:
и для
volvo :flowers:

великие боги паскаля! :molitva:

Автор: volvo 18.01.2005 1:13

MapЫшKa
А можно я вместо Oleg_Z ? :D
Смотри, что делается...

Здесь: s[i] in zRus - в программе zRus описано как множество символов, т.е. тип переменной, который может хранить только символы (причем только по одному каждого вида, т.е. в множестве может храниться ['a', 'б', 'г'], но не может ['a', 'a', 'a'] - потому что одинаковые значения как бы "накладываются" одно на другое...). Так вот для множеств есть специальная операция In, которая проверяет есть ли элемент указанный справа от нее во множестве указанном слева... То есть та строчка просто проверяет, есть ли уже во множестве zRus очередной символ строки (s[i])...

Здесь: INCLUDE (a,s[i]) - это как раз та самая процедура, которая добавляет значение в множество, т.е. здесь символ s[i] добавляется ко множеству A.

Здесь: ORD(s[0]) - это любимый трюк ОлегаZ, который заменяет функцию Length(s)... Просто длина строки хранится в ее нулевом символе, и этим Oleg_Z пользуется....

А вообще, если хочешь больше узнать о множествах, прочитай http://forum.pascal.net.ru/index.php?showtopic=3318 - все описано...

Автор: MapЫшKa 18.01.2005 1:22

Oleg_Z
че то перемудрил с разнообразностью русских символов он постоянно говорит нуль.. а как я поняла нада либо все символы вывести без повторов, либо количство этих разных символов.

Автор: MapЫшKa 18.01.2005 1:25

volvo
спасибо дорогой!
и ето все паскаль... жесть. Ужас. Ужасные задачки. А все решать и решать нада... Эх. Пойду дальше разберать и переделывать и баги искать.

Автор: MapЫшKa 18.01.2005 1:41

и еще баг в подсчете длинного слова... жесть надо сидеть, попробовать все через циклы и обычные функции провернуть длинно за то просто

Автор: volvo 18.01.2005 1:50

MapЫшKa
Я не знаю, какую строку ты вводишь, но у меня и первая и вторая программа ОлегаZ отработали без проблем...

Автор: MapЫшKa 18.01.2005 2:23

введи например:
сказочка была хорошая
была хорошая сказочка

в первом случае он выдаст тебе сказочка
а во втором хорошая

м?

а с длинной у меня почему то всегда 0

Автор: volvo 18.01.2005 2:29

MapЫшKa
Не принимается... Ты вводишь латинскими буквами, правда? И у этих 2-х слов количество латинских букв одинаково... Так программа выдает тебе первое встреченное !!! Вводи кириллицей, все будет в порядке.

То же самое и с длинной - в программе Oleg_Z символы сравниваются с
Кириллицей а ты вводишь Латинские буквы... Я угадал?

Автор: MapЫшKa 18.01.2005 2:33

нет! =))) я ввожу русскими! попробуй сам.
а с длинной симоволов я разобралась,я в одном месте не правильно заменила переменную. -)
но вот длиннное слово. ето еще тот фрукт.

Автор: volvo 18.01.2005 3:19

MapЫшKa
Я понимаю, что алгоритм очень похож, но попробуй вот эту программу для самого длинного слова. (это немного переработанная функция из ФАКа, которая разбивала текст на слова). Единственный недостаток (его впрочем легко исправить) - это то, что исходная строка уничтожается...

Код

Var
s, max, st: String;
p: Byte;
begin
ReadLn(s);
Repeat
p := Pos(' ', s);
If p > 0 Then Delete(s, p, 1)
Until p = 0;

If s[1] = ' ' Then Delete(s, 1, 1);
If s[Length(s)] = ' ' Then
Delete(s, Length(s), 1);

max := '';
Repeat
p := Pos(' ', s); {Inc(i);}
If p > 0 Then
Begin
st := Copy(s, 1, Pred(p)); Delete(s, 1, p)
End
Else st := s;

If Length(max) < Length(st) Then max := st
Until p = 0;
WriteLn(max);
end.

Автор: Altair 18.01.2005 19:05

Цитата

Здесь: ORD(s[0]) - это любимый трюк ОлегаZ

точно

он знает, он знает :D

Цитата

че то перемудрил с разнообразностью русских символов он постоянно говорит нуль..

нееет, я все проверил парежде чем выложить.
Проверял в BP7

Автор: Altair 18.01.2005 21:06

Цитата

введи например:
сказочка была хорошая
была хорошая сказочка
в первом случае он выдаст тебе сказочка
а во втором хорошая

оЙ!!!!!! глюк следующий: если самое последнее слово последнее, то она не учитывается.
а все из-за этого:

Код

while pos(r,s)<>0 do

простое решение пробелммы - примисать разделитель в конец строки, что бы не пришлось переделывать алгоритм.
вот так все работает:

Код

да, есчтиь замечание по первой задаче...
вот пример строки:
fgfg{fgfghf{fgfgfg}dgffg}fgfg
здесь скорее всего надо удалить часть строки между первым { и последним } тогда для посика } надо использовать не POS (т.к. она ищет первое вхождение) а написать функцию для поиска последнего вхождения.
MapЫшKa, переделать?

:flowers:

Автор: Altair 19.01.2005 3:21

Кстати вот что я нашел у меня (старая лаба еще из ФМШ) :

Код

var
s:string;
b:set of char;
c:char;
begin
readln(s); s[succ(ord(s[0]))]:=chr(0);
for c:=chr(1) to s[0] do if not(s[ord(c)] in b) then begin include(b,s[ord(c)]); inc(s[succ(ord(s[0]))]) end;
writeln(ord(s[succ(ord(s[0]))]))
end.

Программа выдает количество различных букв в строке....

Автор: Diger 31.01.2006 14:09

Не стал создавать ещё одну тему. Результаты поиска дали ПОЧТИ то, но не то
Так вот: Существует фаил с текстом. Предположим, text.dat. В нём нужно найти самую длинную строку, выровнять весь текст по ней и записать в фаил, допустим, vxod.dat. Дело в том, что со строками особо не работал, а разобраться с функциями времени нет(ну как всегда у студентов "пока гром не грянет..." ). Помогите, пожалуйста.

Автор: volvo 31.01.2006 14:16

Цитата(Diger @ 31.01.2006 9:09)

Не стал создавать ещё одну тему. Результаты поиска дали ПОЧТИ то, но не то

Вот и приведи ссылку на то, что ты нашел, с описанием того, ЧТО именно тебя не устроило... Или за тебя еще найти надо?

Кстати, ты думаешь в том, что кто-то из нас напишет, будет намного легче разобраться, чем в функциях/процедурах работы со строками?

Мы не изобретаем велосипеды заново, а активно пользуется готовыми наработками, и специально для тебя разжевывать алгоритм или переписывать рабочую функцию "чтобы без <этого> и вот <этого>" (нужное подставить) никому не нужно...

Автор: Гость 31.01.2006 14:37

Цитата(volvo @ 31.01.2006 10:16)

1.) Доброе утро!

Любезно, конечно, но копировать сюда ссылки с подробными комментариями, на мой взгляд, лишнее.
2.) Век открытий закончился вместе с концом 19ого и началом 20ого=) Все остальные "конструкции", в той или иной сфере, составлены из того, что уже под рукой имеется. И я прекрасно понимаю, что ничего нового не произойдёт, если мне помогут с этой программой. Единственное, чем поможет мой случай форуму - быть может, кто то наберёт в поиске ключевые слова этой задачки, найдёт её и не создаст тему, ответом на которую будет банальный копи-паст ссылки

3.) Я не сижу закинув ноги на стол с бутылкой пива и не жду, пока мне всё напишут. Я тоже сейчас работаю с примерами в то йили иной мере, касающихся моей задачки. Я же не потребовал, я попросил, сказал пожалуйста. Если это действительно так сложно что ты не знаешь, как сделать или так просто, что не хочется писать, я не заставляю, я прошу. Но опять таки, тебе может это и просто, а я вот не разобрался.
4.) ну и последнее: за мной не заржавеет.

Автор: Diger 31.01.2006 14:44

Может это был намёк, на то, что такая тема есть? Щас попробую повнимательнее посмотреть.

Diger, вместо того, чтобы умничать, ты бы лучше свой же пост ВНИМАТЕЛЬНО перечитал, и сказал, ГДЕ ты подразумевал, что

Цитата

Результаты поиска дали ПОЧТИ то, но не то

... Если у нас на форуме, то мог дать ссылку, если на чужом - почему пошел против правил и НЕ воспользовался нашим поиском, прежде чем запостить вопрос?