Сайт контента для разных нужд)))

Процедуры и функции для работы с символами и строками

bogdan-G — Mon, 26 Sep 2011 19:54:04 GMT

Процедуры и функции для работы с символами и строками

Code

(актуально для PascalABC.NET)

function Chr(a: byte): char;
Преобразует код в символ в кодировке Windows
function ChrUnicode(a: word): char;
Преобразует код в символ в кодировке Unicode
function OrdUnicode(a: char): word;
Преобразует символ в код в кодировке Unicode
function UpperCase(ch: char): char;
Преобразует символ в верхний регистр
function LowerCase(ch: char): char;
Преобразует символ в нижний регистр
function UpCase(ch: char): char;
Преобразует символ в верхний регистр
function LowCase(ch: char): char;
Преобразует символ в нижний регистр
function Pos(subs,s: string): integer;
Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0
function PosEx(subs,s: string; from: integer := 1): integer;
Возвращает позицию подстроки subs в строке s начиная с позиции from. Если не найдена, возвращает 0
function Length(s: string): integer;
Возвращает длину строки
procedure SetLength(var s: string; n: integer);
Устанавливает длину строки s равной n
procedure Insert(source: string; var s: string; index: integer);
Вставляет подстроку source в строку s с позиции index
procedure Delete(var s: string; index,count: integer);
Удаляет из строки s count символов с позиции index
function Copy(s: string; index,count: integer): string;
Возвращает подстроку строки s длины count с позиции index
function Concat(s1,s2,...: string): string;
Возвращает строку, являющуюся результатом слияния строк s1,s2,...
function Concat(s1,s2: string): string;
Возвращает строку, являющуюся результатом слияния строк s1 и s2
function LowerCase(s: string): string;
Возвращает строку в нижнем регистре
function UpperCase(s: string): string;
Возвращает строку в верхнем регистре
function StringOfChar(ch: char; count: integer): string;
Возвращает строку, состоящую из count символов ch
function ReverseString(s: string): string;
Возвращает инвертированную строку
function CompareStr(s1,s2: string): integer;
Сравнивает строки. Возвращает значение < 0 если s1 0 если s1>s2 и = 0 если s1=s2
function LeftStr(s: string; count: integer): string;
Возвращает первые count символов строки s
function RightStr(s: string; count: integer): string;
Возвращает последние count символов строки s
function Trim(s: string): string;
Возвращает строку с удаленными начальными и конечными пробелами
function TrimLeft(s: string): string;
Возвращает строку с удаленными начальными пробелами
function TrimRight(s: string): string;
Возвращает строку с удаленными конечными пробелами
function Format(fmtstr: string; params pars: array of object): string;
Возвращает отформатированную строку, построенную по форматной строке fmtstr и списку форматиуемых параметров pars
function StrToInt(s: string): integer;
Преобразует строковое представление целого числа к числовому значению
function StrToInt64(s: string): int64;
Преобразует строковое представление целого числа к числовому значению
function StrToFloat(s: string): real;
Преобразует строковое представление вещественного числа к числовому значению
function TryStrToInt(s: string; var value: integer): boolean;
Преобразует строковое представление s целого числа к числовому значению и записывает его в value. При невозможности преобразования возвращается False
function TryStrToInt64(s: string; var value: int64): boolean;
Преобразует строковое представление s целого числа к числовому значению и записывает его в value. При невозможности преобразования возвращается False
function TryStrToFloat(s: string; var value: real): boolean;
Преобразует строковое представление s вещественного числа к числовому значению и записывает его в value. При невозможности преобразования возвращается False
function TryStrToFloat(s: string; var value: single): boolean;
Преобразует строковое представление s вещественного числа к числовому значению и записывает его в value. При невозможности преобразования возвращается False
procedure Val(s: string; var value: integer; var err: integer);
Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
procedure Val(s: string; var value: shortint; var err: integer);
Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
procedure Val(s: string; var value: smallint; var err: integer);
Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
procedure Val(s: string; var value: int64; var err: integer);
Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
procedure Val(s: string; var value: byte; var err: integer);
Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
procedure Val(s: string; var value: word; var err: integer);
Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
procedure Val(s: string; var value: longword; var err: integer);
Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
procedure Val(s: string; var value: uint64; var err: integer);
Преобразует строковое представление s целого числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
procedure Val(s: string; var value: real; var err: integer);
Преобразует строковое представление s вещественного числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
procedure Val(s: string; var value: single; var err: integer);
Преобразует строковое представление s вещественного числа к числовому значению и записывает его в переменную value. Если преобразование успешно, то err=0, иначе err>0
procedure Str(i: integer; var s: string);
Преобразует целое значение i к строковому представлению и записывает результат в s
procedure Str(r: real; var s: string);
Преобразует вещественное значение r к строковому представлению и записывает результат в s
function IntToStr(a: integer): string;
Преобразует целое число к строковому представлению
function IntToStr(a: int64): string;
Преобразует целое число к строковому представлению
function FloatToStr(a: real): string;
Преобразует вещественное число к строковому представлению

Библиотеки для MIDletPascal

bogdan-G — Fri, 19 Aug 2011 13:06:58 GMT

Давайте обсуждать здесь либы для Мидлет Паскаля
В архиве 2 либы для создания графического меню и своих графических шрифтоф(либы могут работать в паре)

Библиотеки для MIDletPascal

Строковые данные

bogdan-G — Thu, 03 Mar 2011 18:14:44 GMT

В языке Паскаль имеются два основных типа, предназначенных для работы с текстовыми данными: char и string. Данные типа char содержат один символ, тогда как данные типа string могут содержать набор символов, интерпретируемый как символьная (текстовая) строка. В Delphi Pascal и PascalABC.NET символьные строки могут содержать практически неограниченное кол-во символов (более 2 миллиардов).
Для определения символа по его коду и кода по его символу в Паскале предусмотрены стандартные функции Chr и Ord.
В языке Паскаль символы можно сравнивать с помощью любых операций отношения (=, <>, <, >, <=, >=), при этом меньшим считается символ, имеющий меньший код. Например:
'0'<'1'<...<'9'<...<'A'<'B'<'C'<...'Z'<...<'a'<'b'<'c'<...<'z'<...<'А'<'Б'<'В'<...<'Я'<'а'<'б'<...<'я'

Строковые данные (данные типа string) в Паскале могут рассматриваться как массива символов; при этом первый символ строки имеет индекс 1. Однако строковая переменная, в отличие от "обычного" массива, может изменять свой размер в зависимости от длины той строки, которая в данный момент в ней содержится. Для определения текущей длины строки предусмотрена функция Length. Таким образом, если строка S является непустой, то для доступа к её символам можно использовать индексы от 1 до Length(S): S[1], ..., S[Length(S)]. Попытка обратиться к символу с индексом, не лежащим в указанном диапазоне, приведёт к ошибке времени выполнения. В частности, это случится при использовании выражения S[Length(S)] для пустой строки S (поскольку в этом случае длина строки равна нулю).
Для строк определена единственная операция "+", называемая операцией сцепления (или операцией конкатенации). В качестве одного и даже обоих операндов можно использовать символьные данные (типа char), однако результат всегда будет иметь тип string.
Символьные выражения можно присваивать строковой переменной (напрмер, S:=C, где S имеет тип string, а C - тип char); при этом символ автоматически преобразуется в односимвольную строку. Обратное присваивание (C:=S) запрещено.
Процедура Val предназначена для преобразования строки в число. она имеет три параметра. В первом задаётся преобращуемое строковое выражение, во втором указывается числовая переменная, в которую будет записан результат преобразования. Тип второго параметра определяет, как должно интрепретироваться содержимое преобразуемой строки: если второй параметр имеет целый тип, то делается попытка преобразования строки к целому чмслу, а если параметр имеет вещественный тип то к вещественному.
Поскольку не всякую строку можно преобразовать в число, в процедуре Val предусмотрен дополнительный входной параметр целого типа, позволяющий проверить успешность подобного преобразования: если преобразование выполнено успешно, то этот параметр равен нулю.
Заметим, что процедура Val правильно распознаёт не только вещественные числа в формате с фиксированной точкой (например, '1.2345'), но также и числа в формате с плавающей точкой (например, '1.2345e+02). Запятую в качестве десятичного разделителя использовать нельзя.
Обратная функция преобразования, которая может быть выполнена всегда - Str.

Анализ слов в тексте

bogdan-G — Thu, 03 Mar 2011 18:09:52 GMT

[size=12]При выполнении заданий на анализ и преобразование слов главная Проблема заключается в выделении каждого слова из исходной строки. Будем предполагать, что строка не является пустой, не содержит начальных и конечных пробелов, и слова в ней разделяются одним или несколькими пробелами. Опишем для таких строк алгоритм выделения слов, использующий стандартные функции и процедуры для работы со строками.
Ищется первый пробел в строке; начало строки, вплоть до найденного пробела, представляет собой первое слово. После обработки этого слова оно удаляется из исходной строки вместе со следующими за ним пробелами. Если после этого строка не становится пустой, то описанная процедура повторяется (в результате выделяется второе слово, и т. д.). Для правильной обработки последнего слова необходимо, чтобы оно также оканчивалось пробелом (этот пробел надо добавить к исходной строке перед началом ее обработки).
Воспользуемся описанным алгоритмом для решения задачи, в которой требуется подсчитать количество слов в строке:[/size]

Quote

uses SysUtils; // в PascalABC.NET модуль SysUtils подключать к программе не следует//
var S: string;
N, К: integer;
begin
Readln(S);;
N:=0;
while S<>'' do
begin
K:=Pos(' ',S); //Ищем очередной пробел
Inc(N); //выполнение обработку очередного слова (в данном случае увеличивается счетчик на N)
Delete(S,1,K); //Удаляем слово и следующий за ним пробел
S:=TrimLeft(S); //Удаляем оставшиеся начальные пробелы
end;
WRiteln(N);
end.

Для удаления оставшихся начальных пробелов мы использовали функцию TrimLeft. В Delfi Pascal эта функция описана в модуле SysUtils, поэтому данный модуль необходимо указать в списке uses. В PascalABC.NET для использования функции TrimLeft не требуется подключать к программе дополнительные модули.
Заметим, что алгоритм легко модифицировать так, чтобы он правильно обрабатывал строки, имеющие начальные и конечные пробелы (а также пустые строки и строки, состоящие из одних пробелов). Для этого следует изменить оператор S:=S+'' следующим образом:
S:=TrimLeft(S+' ').

В нашей задаче обработка слов сводится к выполнению единственного оператора Inc(N). Если бы нам потребовалось выделить из строки найденное слово, то это было бы легко сделать с помощью выражения Copy(S,1,K-1).
Для поиска слов в строке можно также использовать посимвольный анализ строки, который, как правило, оказывается больее эффективным. В нашем случае достаточно воспользоваться тем фактом, что каждому слову в строке, кроме первого, предшествет пробел:

uses SysUtils;
var S: string;
N, I: integer;
begin
Readln(S);
N:=0;
S:=' '+S; //Теперь пробел есть перед каждым словом
for I:=2 to Length(S)
if (S[I-1]=' ') and (S[I]<>' ') then Inc(N);
WRite(N);
end.

При решении других задач на обработку слов с помощью посимвольного анализа обычно требуется так же распознавать конец каждого слова; для этого достаточно проверять, располагается ли пробел за анализируемым символом (при этом, как и в первом варианте решения задачи перед началом обработки исходной строки необходимо добавить в её конец дополнительный пробел). Приведём "универсальный" алгоритм выделения слов из строки S, основанный на её посимвольном анализе:

S:=' '+S+' ';
for I:=2 to Length(S)-1 do
begin
if (S[I-1]=' ') and (S[I]<>' ') then N:=I;
if (S[I+1]=' ') and (S[I]<>' ') then
begin
<обработка очередного слова, равного Copy(S,N,I-N+1)>
end;
end;

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

MIDlet Pascal

bogdan-G — Thu, 03 Mar 2011 17:54:11 GMT

Обсуждаем данную программу для написания приложения для телефона на языке Паскаль.

Простая прожка - скринсейвер - grafic.jar

Игра NIK - Нолики И Крестики. - nik.jar

MIDletPascal - 1_MPInstall202.exe

Справка по мидлет паскалю - 5_MPHelp_ru.chm

комент с аннимон.кон:
Народ выручайте!
Нарыл такую либу, для вывода длинных строк, которую хочу прикрутить к своим проектам. Внутри есть скоппилированный пример в jar, он отлично работает, есть и исходник самого примера, но не компилится...
В чём дело? Где эта дохлая собака зарыта?????
Прикрепляю архив, гляньте если не сложно и просветите меня

либа - Lib_text.zip

Delphi

bogdan-G — Thu, 03 Mar 2011 17:31:48 GMT

Delphe 7 (+keygen)

еще разные виды Delphe

лекция из универа по Делфе.

Turbo Pascal

bogdan-G — Thu, 03 Mar 2011 17:05:51 GMT

Обсуждаем этот язык программирования.

скачать Turbo Pascal 7.1

сайт на тему TP

скачать Borland Pascal 7.0

скачать Turbo Pascal for WINDOWS

Книги про ТР