Паскаль, работа с текстом

[tipson]

t1 Это массив так? а ты вроди описал как char ошибка или что?
вроди надо t1:array[1..x]

что значит new := '';
напиши плс с описанием.

[puporev]

Вообще-то это задача на генерацию перестановок, так что ищите в Гугле эту тему.

[__STDC__]

Сообщение от tipson

t1 Это массив так? а ты вроди описал как char ошибка или что?
вроди надо t1:array[1..x]

что значит new := '';
напиши плс с описанием.

t1 это строка.. массив char если будет угодно... new := '' - инициализация переменной new пустым значением...

***
Программа работает... что не так??

[tipson]

Сообщение от puporev

ищите

нас тут немного, точнее я 1
можешь говорить в единственном числе

Сообщение от __STDC__

Программа работает... что не так??

может и работает, просто я не понимаю как.
при защите нужно объяснить че к чему, плс напиши коменты

то что ты написал это вся прога или только процедура?

Сообщение от __STDC__

new := '' - инициализация переменной new пустым значением...

лучше бы я не спрашивал что такое new

Сообщение от puporev

Вообще-то это задача на генерацию перестановок, так что ищите в Гугле эту тему.

я нафорумах спрашиваю после безуспешного гугливания

[__STDC__]

вы можете пользоваться правкой? оО а не писать 4 поста подряд?
Напишу вечером каменты, если вам еще нужнл будет, а сейчас я ухожу.. или более профессиональные люди напишут.. я-то развожу флуд и говорю глупости.. так что...

***
можете на досуге подумать над словом "рекурсия", это вам понадобится, если будете использовать этот вариант программы... а написана там полная программа.. с процедурой..

[tipson]

программа действительно работает
только щас проверил
но разве программа не должна начинацца

program @name@;
uses crt;
и тд

[Вавел из ГМТУ]

Я уже не помню, но вроде работать всё должно и без этих строк.

[tipson]

я добавил к программе строку write('vvedite slovl na klave')
и все поломалось )))

[Вавел из ГМТУ]

Ты великий взломщик... Может ругается на отсутствие ";" в конце строки?

[tipilat]

Сообщение от puporev

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
Var s: string;
    j,i,len,max: integer;
Begin
clrscr;
write('s: ');
readln (s);
i:= 1;max:=0;
while i<=length (s) do
if not(s[i] in bk) then
  begin
    j:= i+1;
    while (j<=length(s)) and not(s[j] in bk) do inc (j);
    len:=j-i;
    if len>max then max:=len;
    i:=j+1;
  end
else inc (i);
writeln('Max dlina serii=',max);
readln;
end.

на счёт этой проги: Как процедуры в нее включить..?