Различия

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

--- subjects:programming:pascal:standard_functions [2018/06/19 12:12]
¶
+++ subjects:programming:pascal:standard_functions [2023/04/25 17:32] (текущий)
¶ [Пример замены]
@@ Строка 21: / Строка 21: @@
 ===== Целые и вещественные типы данных =====
 |Функция|Описание|Пример||
-^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>||
@@ Строка 28: / Строка 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**|
 ===== Функции и процедуры работы со строками =====
 |Функция|Описание|Пример||
@@ Строка 53: / Строка 57: @@
 ^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>
 ==== Преобразование типов ====
@@ Строка 60: / Строка 95: @@
 ^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|**Преобразование типов**: из числа в строку. \\ Не требуется знать начальный или конечный тип данных.|<code pascal>x:=2.73284;
+^Str|**Преобразование типов**: из числа в строку. \\ Не требуется знать начальный или конечный тип данных. \\ <del>**PascalABC.NET**</del>|<code pascal>x:=2.73284;
 Str(x:4:2,s8); //s8=’2.73′;</code>||
-^Val|**Преобразование типов**: из строки в число. \\ Не требуется знать начальный или конечный тип данных.|<code pascal>s8='2.73';
+^Val|**Преобразование типов**: из строки в число. \\ Не требуется знать начальный или конечный тип данных. \\ <del>**PascalABC.NET**</del>|<code pascal>s8='2.73';
 Val(s8,x,Osh); //x=2.73;</code>||

wiki.eduVdom.com

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

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

Различия

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

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