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

[tipilat]

Тут такое дело: весь год нас учили программировать на С++, а практику решили провести на паскале. Даже не знаю, что делать, я с ним вообще не знаком.. Элементарных вещей и тех не знаю
Очень нужна ваша помощь.. Правильнее будет необходима)..
В общем кто чем может...

Для заданного текста определить длину содержащимся в нем mах серии символов отличных от букв.

[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.

[tipilat]

ОгРоМнОе спасибо, реально от души..
вот только у меня парочка вопросов возникла..
length (s) - вот эта запись, в чём её функция?(ну в смысле что она делает)
inc (j) или inc (i) - это тоже если можно поясните..
Может это нагловато, но реально хочется разобраться..

[puporev]

Ну если у Вас есть на чем компилировать программу, то там есть встроенный Хелп, в котором есть описание всех процедур и функций, учитесь сами добывать информацию.

[SERG1980]

Ну например Length(tipilat) возратит 7

[puporev]

А inc(7) возвратит 8.

[bondik]

inc() инкремент ( аналог в Си - ++ ),length() возвращает размерность массива.

P.S. По моему зная хотябы немного один язык,к другому очень легко перейти,тем более в данном случае всеголишь издержки синтаксиса.

[tipilat]

На счёт перехода на другой язык ты прав, я уже кажется кое-что тут начал понимать, просто надо синтаксис подтянуть, всем больше СПАСИБО..
puporev(у) отдельное..

[tipson]

раз уж тему не закрыли, помогите сделать задачу из этого же раздела ПЛС

32. По заданному с клавиатуры слову построить все его анаграммы, т.е. слова (возможно, бес-смысленное), состоящее из всех букв исходного слова, но расположенных в произвольном порядке. Например «бук» и «куб» - анаграммы. В качестве разделителя при выводе исполь-зовать символ подчеркивания(«_» ). (Для простоты можно вводить слово, не содержащее повторяющиеся буквы.). Допустимые символы – прописные русские буквы.

у меня идея сделать из заданного слова новый массив, так чтобы в каждой ячейке была 1 буква, и как то перетосовать массив, да вот мозгов не хватает

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

[__STDC__]

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

32. По заданному с клавиатуры слову построить все его анаграммы, т.е. слова (возможно, бес-смысленное), состоящее из всех букв исходного слова, но расположенных в произвольном порядке. Например «бук» и «куб» - анаграммы. В качестве разделителя при выводе исполь-зовать символ подчеркивания(«_» ). (Для простоты можно вводить слово, не содержащее повторяющиеся буквы.). Допустимые символы – прописные русские буквы.

может что-то вроде такого

procedure change(s,new:string);
var
	t1,t2:string;
	i:byte;
begin
	t1 := s; t2 := new;
	if (length(t1) > 1) then
		for i:=1 to length(t1) do begin
			t2 := t2 + t1[i];
			delete(t1,pos(t1[i],t1),1);
			change(t1,t2);
			t1 := s; t2 := new;
		end
	else
		writeln(t2,t1);
end;

var
	s,new:string;
begin
	new := '';
	readln(s);
	change(s,new);
	readln;
end.

***
ну проверку на допустимость символов и вывод через "_" сами добавите..