Паскаль и строки

[Redrik Shuhart]

Народ, дайте список ВСЕХ процедур и функций для обработки строк(string ,char...) в паскале. надо СРОЧНО. пожалуйста.

знаю Copy(s,i,k);
delete(s,i,k);
insetr(s1,s,i);
+
concate(s,s1,s2,s3..Sn);
length(s);
к копи, конкате и + можно присваивать тип String, а к length(s) только числовой тип.

[nds]

хелп те в помощь
лучше б само задание выложил

[Redrik Shuhart]

прикол в том, что завтра экзамен(контроша) по теории, а я в тетради ничего не пишу-в голове все держу....забыл...надо помочь. задания писать(задачки решать) и я могу,и при чем отлично могу, но не помню всех процедур.

[ARV]

любую процедуру можно написать самостоятельно, работая со строками как с массивами для отлично пишущего на паскале это элементарно!

я помню только length(str), pos(substr, str) и delete(var str, from, count)

[Redrik Shuhart]

а че делат процедура Pos(s,i,k)? Вычесляет положения(номер символа) в строке?

[glacier]

Redrik Shuhart

у самого в следущую среду экзамен по паскалю

[Redrik Shuhart]

мы ище с 7 класа фапаем на паскале. нам дают премитивизм, по 20 задач на урок,а олимпиадникам дают еще больший примитивизм на 1-3 if'а и ставят автоматом 12 за семестры и годы...

[ARV]

а че делат процедура Pos(s,i,k)? Вычесляет положения(номер символа) в строке?

я вроде иначе эту функцию показал

функция pos(substr, str) возвращает номер позиции, с которой в строке str найдена целиком подстрока substr. если подстрока не найдена - функция возвращает ноль. это функция поиска подстроки в строке

[Redrik Shuhart]

АРВ, кажись понял, типо что то
...
var s,s1:=string;
begin
"тут пускаем цыклу, наверно for..."
s1:='Ololo';
if s=pos(s1,s) then write('сам ты ололо');
...

??

[ARV]

АРВ, кажись понял, типо что то
...
var s,s1:=string;
begin
"тут пускаем цыклу, наверно for..."
s1:='Ololo';
if s=pos(s1,s) then write('сам ты ололо');
...

??

вроде по-русски написал... а вышло "сам ты ололо"

Код: Выделить всё

var s1 : string;
begin
   s1 := 'Проверка поиска';
   if pos('рка',s1) <> 0
     then writeln('есть такая подстрока!')
     else writeln('сам ты ололо - нету такой подстроки');

[Redrik Shuhart]

пон.

и эт все процедуры? 7штук?

[ARV]

я назвал только три - откуда остальные?! я не помню больше - когда надо, просто заглядываю в help, а вообще чаще сам пишу или юзаю нестандартные библиотеки - там ассортимент функций получше будет

[Redrik Shuhart]

эээ в какую дверь хелпа лезть?

[beloff]

Мне хватает:

Код: Выделить всё

Pos(substr,s:string):byte {поиск подстроки в строке}
Length(s:string):integer {длина строки}
Copy(s:string; index:integer; count:integer):string {возвращает часть строки длиной count с номера index}
Delete(var s:string; index,count:integer) {удаляет часть строки длиной count с номера index}
Insert(source:string; var s:string;index:integer) {вставляет source в s}
Val(st: string; x: числовая переменная; var code: integer) {число в строку}
Chr(n: byte): char {чтобы найти символ по ASCII коду}
Ord(ch: char): byte; {наоборот}

З.Ы.
О, сюда загляни: http://levvol.ru/tp_14.php

[Муркиз]

А еще забыли +