Различия

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

--- subjects:programming:pascal:standard_functions [2018/06/05 03:38]
¶
+++ subjects:programming:pascal:standard_functions [2023/04/25 17:32] (текущий)
¶ [Пример замены]
@@ Строка 1: / Строка 1: @@
-====== Стандартные функции ======
+====== Стандартные функции и процедуры ======
 ===== Простые типы данных =====
@@ Строка 18: / Строка 18: @@
 ^TRUNC(X)|Получение целой части вещественного числа X|<code pascal>TRUNC(3.52);\\=3</code>||
 ^ROUND(X)|Округление до целого вещественного числа X|<code pascal>ROUND(3.52);\\=4</code>||
-^Целые и вещественные типы данных^^^^
-^ABS(NX)|Абсолютная величина NX|<code pascal>ABS(-3);//=3</code>||
+===== Целые и вещественные типы данных =====
+|Функция|Описание|Пример||
+^ABS(NX)|Абсолютная величина (''модуль'') NX|<code pascal>ABS(-3);//=3</code>||
 ^SQR(NX)|Квадрат числа NX|<code pascal>SQR(3);//=9</code>||
@@ Строка 26: / Строка 28: @@
 ^ARCTAN(X)|Арктангенс X|<code pascal></code>||
 ^COS(X)|Косинус X|<code pascal>COS(PI/3);//=0.5</code>||
-^EXP(X)|e<sup>x</sup>|<code pascal></code>||
+^EXP(X)|e<sup>x</sup>|<code pascal>exp(2); //=7.38905909893065</code>||
 ^FRAC(X)|Дробная часть X|<code pascal>FRAC(3.52);//=0.52</code>||
 ^INT(X)|Целая часть X|<code pascal>INT(3.52);//=3</code>||
 ^LN(X)|Натуральный логорифм (по основанию e)|<code pascal></code>||
 ^PI|Значение $\pi=3.1415926535897932385$|<code pascal></code>||
-^SIN(X)|Синус X|<code pascal></code>||
+^SIN(X)|Синус X|<code pascal>SIN(PI/6);//=0.5</code>||
 ^SQRT(X)|Квадратный корень из X|<code pascal>SQRT(9);//=3</code>||
+|Функция|Описание|Пример|Версия|
+^Power(x, y)|x<sup>y</sup> --- возводит число x в степень y|<code pascal>Power(2, 3); //=8
+Power(0.5, -2); //=4
+Power(81, 1/4); //=3</code>|**PascalABC.NET**|
+===== Функции и процедуры работы со строками =====
+|Функция|Описание|Пример||
+^''+''|Конкатенация строк|<code pascal>s1:='Мото'; s2:='роллер';
+s3:=s1+s2; //s3=’Мотороллер’;</code>||
+^Concat|:::|<code pascal>s1:='Мото'; s2:='роллер';
+s3:=Concat(s1,s2); //s3=’Мотороллер’;</code>||
+^Pos|Поиск начала подстроки в строке|<code pascal>s5:='Мотороллер';
+k:=Pos('рол',s5); //k=5;</code>||
+^Length|Длина строки|<code pascal>s3:='Мотороллер';
+l:=Length(s3); //l=10;</code>||
+^Copy|Копирование части строки|<code pascal>s3:='астроном';
+s4:=Copy(s3,3,4); //s4= ‘трон’;</code>||
+|Процедура^Описание^Пример||
+^Delete|Удаление части строки|<code pascal>s5:='Коробочка';
+Delete(s5,4,2); //s5=’Корочка’;</code>||
+^Insert|Вставка строки внутрь другой строки|<code pascal>s6:='Рука'; s7:='баш';
+Insert(s7,s6,3); //s6=’Рубашка’;</code>||
+==== Пример замены ====
+Можно самому написать функцию, которая бы заменяла подстроку в строе. Например, вот так:
+<code pascal strReplace.pas>
+function strReplaceOnce(s_txt, s_from, s_to :string): string;
+var
+	i_pos, len_from:integer;
+begin
+	i_pos := pos(s_from, s_txt); // Номер символа первого вхождения
+	len_from := Length(s_from); // Длинна строки для замены
+	if (i_pos > 0) and (len_from > 0) then begin
+		delete(s_txt, i_pos, len_from); // Удаляет строку
+		insert(s_to, s_txt, i_pos); // Вставляет нужную строку
+	end;
+	strReplaceOnce := s_txt; // Возвращает результат после всех действий
+end;
+function strReplaceAll(s_txt, s_from, s_to :string): string;
+begin
+	while (pos(s_from, s_txt) > 0) do begin
+		s_txt := strReplaceOnce(s_txt, s_from, s_to);
+	end;
+	strReplaceAll := s_txt;
+end;
+begin
+	writeln(strReplaceOnce ('2-3 0123456789-23-23', '23', 'aaaB')); // 2-3 01aaaB456789-23-23
+	writeln(strReplaceAll ('2-3 0123456789-23-23', '23', 'aaaB')); // 2-3 01aaaB456789-aaaB-aaaB
+end.
+</code>
+==== Преобразование типов ====
+|Функция|Описание|Пример||
+^StrToInt|string в integer|<code pascal></code>||
+^StrToFloat|получить число с плавающей точки из заданной строки|<code pascal></code>||
+^IntToStr|integer в string|<code pascal></code>||
+^FloatToStr|получить строку из числа с плавающей точки|<code pascal></code>||
+^byte|получить integer из boolean|<code pascal>
+var
+    x: real;
+    sign: integer;
+begin
+    readln(x);
+    sign:= byte(x>0)-byte(x<0);
+    writeln(sign);
+end.</code>||
+|Процедура^Описание^Пример||
+^Str|**Преобразование типов**: из числа в строку. \\ Не требуется знать начальный или конечный тип данных. \\ <del>**PascalABC.NET**</del>|<code pascal>x:=2.73284;
+Str(x:4:2,s8); //s8=’2.73′;</code>||
+^Val|**Преобразование типов**: из строки в число. \\ Не требуется знать начальный или конечный тип данных. \\ <del>**PascalABC.NET**</del>|<code pascal>s8='2.73';
+Val(s8,x,Osh); //x=2.73;</code>||
 ===== Логические операнды =====

wiki.eduVdom.com

Инструменты пользователя

Инструменты сайта

Различия

Инструменты страницы

Записаться на занятия