И снова я, о, боги Паскаля. :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?}
эх ну и назадают задачек....
Полная версия: Строки и задачки с ними
Цитата
со своей женской логикой
да что бы мы без вас делали, о прекрасные дамы! :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.
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.
MapЫшKa
Можно еще воспользоваться поиском по форуму, я где-то выкладывал программу для удаления комментариев из программы, написанной на Паскале (похоже на удаление текста из {}, правда?)
Вот она
Можно еще воспользоваться поиском по форуму, я где-то выкладывал программу для удаления комментариев из программы, написанной на Паскале (похоже на удаление текста из {}, правда?)
Вот она
Oleg_Z
спасибки тебе огромное, чмооок!
но вот тока я че то не допоняла что значит Pos('{',s)<>0 это проверяет наличие { то есть есть она или нет? тоесть функция - pos выдает номер символа начала подстроки?
ЗЫ: ну как же я сама не додумалась
ЗЫЫ с русскими буквами ваще лол, не знала я что мож создать такоя массив rus:array ['А'..'Я'] of word
спасибки тебе огромное, чмооок!
но вот тока я че то не допоняла что значит Pos('{',s)<>0 это проверяет наличие { то есть есть она или нет? тоесть функция - pos выдает номер символа начала подстроки?
ЗЫ: ну как же я сама не додумалась
ЗЫЫ с русскими буквами ваще лол, не знала я что мож создать такоя массив rus:array ['А'..'Я'] of word
volvo
спасибки , вот тока алгоритм похож на тот который Олег написал. А ваще я по форуму искала такое не нашла. Может просто не то в поиск вводила. Спасибки огромное!
спасибки , вот тока алгоритм похож на тот который Олег написал. А ваще я по форуму искала такое не нашла. Может просто не то в поиск вводила. Спасибки огромное!
MapЫшKa 
Pos('{',s) - вернет номер в строке в котором содержится элемент {
если ноль значит такого символа нет в строке.
Pos('{',s) - вернет номер в строке в котором содержится элемент {
если ноль значит такого символа нет в строке.
Цитата
определить сколько различных русских букв содержит строка
Думаю вот красивое решение на Паскале...
Код
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.
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.
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.
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]) ????
нуц лузер я что тут поделаешь....
вот так бы и расцеловала а я тут сиду с циклами мучаюсь правдами и неправдами решение нахажу.
Солнце, было бы замечательно если ты мне маленькую лекцию про пару функций рассказал:
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]) ????
нуц лузер я что тут поделаешь....
а ваще :molitva: :molitva: :molitva: Oleg_Z :flowers:
и для
volvo :flowers:
великие боги паскаля! :molitva:
и для
volvo :flowers:
великие боги паскаля! :molitva:
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 пользуется....
А вообще, если хочешь больше узнать о множествах, прочитай здесь - все описано...
А можно я вместо 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 пользуется....
А вообще, если хочешь больше узнать о множествах, прочитай здесь - все описано...
Oleg_Z
че то перемудрил с разнообразностью русских символов он постоянно говорит нуль.. а как я поняла нада либо все символы вывести без повторов, либо количство этих разных символов.
че то перемудрил с разнообразностью русских символов он постоянно говорит нуль.. а как я поняла нада либо все символы вывести без повторов, либо количство этих разных символов.
volvo
спасибо дорогой!
и ето все паскаль... жесть. Ужас. Ужасные задачки. А все решать и решать нада... Эх. Пойду дальше разберать и переделывать и баги искать.
спасибо дорогой!
и ето все паскаль... жесть. Ужас. Ужасные задачки. А все решать и решать нада... Эх. Пойду дальше разберать и переделывать и баги искать.
и еще баг в подсчете длинного слова... жесть надо сидеть, попробовать все через циклы и обычные функции провернуть длинно за то просто
MapЫшKa
Я не знаю, какую строку ты вводишь, но у меня и первая и вторая программа ОлегаZ отработали без проблем...
Я не знаю, какую строку ты вводишь, но у меня и первая и вторая программа ОлегаZ отработали без проблем...
введи например:
сказочка была хорошая
была хорошая сказочка
в первом случае он выдаст тебе сказочка
а во втором хорошая
м?
а с длинной у меня почему то всегда 0
сказочка была хорошая
была хорошая сказочка
в первом случае он выдаст тебе сказочка
а во втором хорошая
м?
а с длинной у меня почему то всегда 0
MapЫшKa
Не принимается... Ты вводишь латинскими буквами, правда?
И у этих 2-х слов количество латинских букв одинаково... Так программа выдает тебе первое встреченное !!! Вводи кириллицей, все будет в порядке.
То же самое и с длинной - в программе Oleg_Z символы сравниваются с
Кириллицей а ты вводишь Латинские буквы... Я угадал?
Не принимается... Ты вводишь латинскими буквами, правда?
И у этих 2-х слов количество латинских букв одинаково... Так программа выдает тебе первое встреченное !!! Вводи кириллицей, все будет в порядке.То же самое и с длинной - в программе Oleg_Z символы сравниваются с
Кириллицей а ты вводишь Латинские буквы... Я угадал?
нет! =))) я ввожу русскими! попробуй сам.
а с длинной симоволов я разобралась,я в одном месте не правильно заменила переменную. -)
но вот длиннное слово. ето еще тот фрукт.
а с длинной симоволов я разобралась,я в одном месте не правильно заменила переменную. -)
но вот длиннное слово. ето еще тот фрукт.
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.
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.
Цитата
Здесь: ORD(s[0]) - это любимый трюк ОлегаZ
точно
он знает, он знает :D Цитата
че то перемудрил с разнообразностью русских символов он постоянно говорит нуль..
нееет, я все проверил парежде чем выложить.
Проверял в BP7
Цитата
введи например:
сказочка была хорошая
была хорошая сказочка
в первом случае он выдаст тебе сказочка
а во втором хорошая
сказочка была хорошая
была хорошая сказочка
в первом случае он выдаст тебе сказочка
а во втором хорошая
оЙ!!!!!! глюк следующий: если самое последнее слово последнее, то она не учитывается.
а все из-за этого:
Код
while pos(r,s)<>0 do
простое решение пробелммы - примисать разделитель в конец строки, что бы не пришлось переделывать алгоритм.
вот так все работает:
Код
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;
s:=s+r; {!!!!!!!!!!}
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.
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;
s:=s+r; {!!!!!!!!!!}
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.
да, есчтиь замечание по первой задаче...
вот пример строки:
fgfg{fgfghf{fgfgfg}dgffg}fgfg
здесь скорее всего надо удалить часть строки между первым { и последним } тогда для посика } надо использовать не POS (т.к. она ищет первое вхождение) а написать функцию для поиска последнего вхождения.
MapЫшKa, переделать?
:flowers:
Кстати вот что я нашел у меня (старая лаба еще из ФМШ) :
Программа выдает количество различных букв в строке....
Код
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.
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.
Программа выдает количество различных букв в строке....
Не стал создавать ещё одну тему. Результаты поиска дали ПОЧТИ то, но не то
Так вот: Существует фаил с текстом. Предположим, text.dat. В нём нужно найти самую длинную строку, выровнять весь текст по ней и записать в фаил, допустим, vxod.dat. Дело в том, что со строками особо не работал, а разобраться с функциями времени нет(ну как всегда у студентов "пока гром не грянет..." ). Помогите, пожалуйста.
Так вот: Существует фаил с текстом. Предположим, text.dat. В нём нужно найти самую длинную строку, выровнять весь текст по ней и записать в фаил, допустим, vxod.dat. Дело в том, что со строками особо не работал, а разобраться с функциями времени нет(ну как всегда у студентов "пока гром не грянет..."
). Помогите, пожалуйста.
Цитата(Diger @ 31.01.2006 9:09)
Не стал создавать ещё одну тему. Результаты поиска дали ПОЧТИ то, но не то
Вот и приведи ссылку на то, что ты нашел, с описанием того, ЧТО именно тебя не устроило... Или за тебя еще найти надо?
Кстати, ты думаешь в том, что кто-то из нас напишет, будет намного легче разобраться, чем в функциях/процедурах работы со строками?
Мы не изобретаем велосипеды заново, а активно пользуется готовыми наработками, и специально для тебя разжевывать алгоритм или переписывать рабочую функцию "чтобы без <этого> и вот <этого>" (нужное подставить) никому не нужно...
Цитата(volvo @ 31.01.2006 10:16) 
Вот и приведи ссылку на то, что ты нашел, с описанием того, ЧТО именно тебя не устроило... Или за тебя еще найти надо?
Кстати, ты думаешь в том, что кто-то из нас напишет, будет намного легче разобраться, чем в функциях/процедурах работы со строками?
Мы не изобретаем велосипеды заново, а активно пользуется готовыми наработками, и специально для тебя разжевывать алгоритм или переписывать рабочую функцию "чтобы без <этого> и вот <этого>" (нужное подставить) никому не нужно...1.) Доброе утро!
Любезно, конечно, но копировать сюда ссылки с подробными комментариями, на мой взгляд, лишнее.2.) Век открытий закончился вместе с концом 19ого и началом 20ого=) Все остальные "конструкции", в той или иной сфере, составлены из того, что уже под рукой имеется. И я прекрасно понимаю, что ничего нового не произойдёт, если мне помогут с этой программой. Единственное, чем поможет мой случай форуму - быть может, кто то наберёт в поиске ключевые слова этой задачки, найдёт её и не создаст тему, ответом на которую будет банальный копи-паст ссылки
3.) Я не сижу закинув ноги на стол с бутылкой пива и не жду, пока мне всё напишут. Я тоже сейчас работаю с примерами в то йили иной мере, касающихся моей задачки. Я же не потребовал, я попросил, сказал пожалуйста. Если это действительно так сложно что ты не знаешь, как сделать или так просто, что не хочется писать, я не заставляю, я прошу. Но опять таки, тебе может это и просто, а я вот не разобрался.
4.) ну и последнее: за мной не заржавеет.
Может это был намёк, на то, что такая тема есть? Щас попробую повнимательнее посмотреть.
Diger, вместо того, чтобы умничать, ты бы лучше свой же пост ВНИМАТЕЛЬНО перечитал, и сказал, ГДЕ ты подразумевал, что
Щас попробую повнимательнее посмотреть.Diger, вместо того, чтобы умничать, ты бы лучше свой же пост ВНИМАТЕЛЬНО перечитал, и сказал, ГДЕ ты подразумевал, что
Цитата
Результаты поиска дали ПОЧТИ то, но не то
... Если у нас на форуме, то мог дать ссылку, если на чужом - почему пошел против правил и НЕ воспользовался нашим поиском, прежде чем запостить вопрос?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.