Неужели никто не знает Паскаль?

[Varlan]

Уважаемые знатоки!
Помогите решить задачу на паскале.
Условие следующее:
"Дана произвольная строка символов. Отредактировать заданную строку, удалив из неё все слова встречающиеся более одного раза.
Распечатать внове полученное слово."

Вопросов по условию прошу не задавать.
Я просто разместил объяву (С)

[MoR]

Вопросов по условию прошу не задавать.
Я просто разместил объяву (С)

Тада будут предъявы
Чо надо распечатать в конце?

[Varlan]

Предлагаю распечатать все возможные варианты

[Kolin]

а тебе на матричном принтере, на струйном или на лазерном? и на какой бумаге будет идти печать(это очень важно)

[Varlan]

Прошу отнестись к теме серьёзно.

[Lermontov]

Kolin, жжошь с распечаткой +1
P.S. У меня такая ж лаба была по С++

[-Mihail]

выкладывай! афтар переделает под паскаль!

[Dodge]

Паскаль мёртвый язык, зайди на какойнить делфёвый форум и задай вопрос тама, код будет одинаковый.
На счёт С/С++ могу написать...

[MoR]

Паскаль мёртвый язык, зайди на какойнить делфёвый форум и задай вопрос тама, код будет одинаковый.
На счёт С/С++ могу написать...

Нихрена не одинаковый
На дельфи эт пишется почти 1 строчкой -

myList := TStringList.Create();
myList.Sorted := true;
myList.IgnoreDuplicates := true;
while s = read(srcString) myList.Add(s);
Console.Writeln(myList.Text);

Мля эт уже сишарп получился )) ну короче идея ясна.
В дельфи есть специализированные классы.
А на паскале нада делать какой то алгоритм шоб отслеживать в наличие строки в списке.

P.S. Ваще ни на чем не могу писать после сишарпа

[Dodge]

бла бла бла

В С/С++ тоже есть классы предназначенные для работы со строками и списками, причём тут это, ты реализацию той или иной функции в классе посмотри...тот же паскаль.

З.Ы. Делфи это грубоговоря некое расширение языка Паскаль, ещё, кто не в курсе, делфи называют - Object Pascal.
=))

[MoR]

З.Ы. Делфи это грубоговоря некое расширение языка Паскаль, ещё, кто не в курсе, делфи называют - Object Pascal.
=))

Который действительно назывался Object Pascal, а кхм после седьмой версии так и называется - Delphi

В С++ нет классов для работы со строками, там вообще нихрена нет по определению. По стандарту
Они есть в библиотеках. Нету в С++ контейнеров и итераторов, зато они есть в STL. На которую есть свой стандарт.

На классическом паскале, придется писать существенно больше кода нежели на дельфи. Именно потому тчо в классическом паскале нет VCL.

Все сука, много написал, хватит, но блаблабла задело

[Dodge]

...

сори за "блаблабла", не созла...

Мя тоже чёт строчить парит, я те одно напишу, поймёшь 100 %

VCL ~= STL
тока тсс! STL (Standart Template Library)
тока STL - это часть стандартной библиотеки С++. Про С ты прав нету там шаблонов. А вот С++ есть! и это стандарт!

[Varlan]

Хватит выпендриваться, раз такие умные решите лучше задачу.

[-=Sticky Fingaz=-]

а тебе на структурном или обьектном паскале?

[Trojan]

turbo pascal 6.0
без turbovision

[Eidolon]

А чё там писать-то?
Посимвольно по строке идёшь, как встречаешь не букву - вырезаешь до этой позиции слово, заносишь в массив, с проверокой, что подобные слова уже есть... Дальше идёшь, как встречаешь букву - запоминаешь, как начало нового слова и т.д. Это если совсем просто...

[Trojan]

пузырек прошлый век

[Varlan]

а тебе на структурном или обьектном паскале?

На том, где пишешь "var: i,j". И т.д.

[Eidolon]

пузырек прошлый век

Подобные задачки - тоже %)

[-Mihail]

общий тип на бейсике:

sub main(text)
#выдавалка слов
var i, n, k
text=' '+text+' '
for i=0 to len(text)
if mid(text,i,1)==' ' then
n=0
else
n=1
end if
if n==1 then
k=k+mid(text,i,1)
print(k) # << слово
else
k=''
end if
next
end sub



sub del(word,string)
#удалялка слова
var i, n=0, text=''
if wqty(word,string)>1 and not word=='' then
for i=0 to len(string)
text=text+mid(string,i,1)
if right(left(string,i),len(word))==word then
text=left(text,i-len(word))
end if
next
return trim(text)
end if
end sub


sub wqty(word,string)
#кол-во заданного слова в строке
var i, n=0
for i=0 to len(string)
if mid(string,i,1)==' ' and mid(string,i+1,len(word))==word then
n=n+1
end if
next
return n
end sub