Строки и символы. Тексты программ - История изменений

Mikst: /* Ссылки */

2010-01-19T12:52:24Z

Ссылки

← Предыдущая версия		Версия от 15:52, 19 января 2010
Строка 106:		Строка 106:

	== Ссылки ==		== Ссылки ==
	[[Программы для начинающих]]		*[[Программы для начинающих]]
			*[http://pascalabc.net/ru/programmyi-i-algoritmyi-dlya-nachinayuschih.html Сайт PascalABC.NET: Программы и алгоритмы для начинающих]

2010-01-19T12:20:17Z

Количество вхождений подстроки в строку

@@ Строка 87: / Строка 87: @@
 ===Количество вхождений подстроки в строку===
 == Ссылки ==
 [[Программы для начинающих]]

2010-01-19T12:12:23Z

Сумма записанных в строке чисел

← Предыдущая версия		Версия от 15:12, 19 января 2010
Строка 63:		Строка 63:

	===Сумма записанных в строке чисел===		===Сумма записанных в строке чисел===
	var		<source lang="Delphi">var
	s: string := '1 2 4 8 16 32 64 128 256 512';		s: string := '1 2 4 8 16 32 64 128 256 512';
	sum: integer;		sum: integer;
Строка 84:		Строка 84:
	writeln('Сумма чисел строки равна ',sum);		writeln('Сумма чисел строки равна ',sum);
	end.		end.
			</source>

	===Количество вхождений подстроки в строку===		===Количество вхождений подстроки в строку===

2010-01-19T12:11:59Z

Сумма записанных в строке чисел

@@ Строка 63: / Строка 63: @@
 ===Сумма записанных в строке чисел===
 ===Количество вхождений подстроки в строку===
 == Ссылки ==
 [[Программы для начинающих]]

2010-01-19T11:55:14Z

Замена всех маленьких английских букв в строке соответствующими большими

← Предыдущая версия		Версия от 14:55, 19 января 2010
Строка 53:		Строка 53:
	</source>		</source>
	===Замена всех маленьких английских букв в строке соответствующими большими===		===Замена всех маленьких английских букв в строке соответствующими большими===
	<source lang="Delphi">var		<source lang="Delphi">var s: string := 'Hello, World!';
	~~c: char;~~
	s: string;
	n: ~~integer~~;
	begin		begin
	~~n := 10;~~		var dist := Ord('a')-Ord('A');
	c := 'z';		for var i:=1 to s.Length do
	~~s :=~~ '';		if s[i] in ['a'..'z'] then
	for var i:=1 to n do		s[i] := Chr(Ord(s[i])-dist);
	s += c;
	writeln(s);		writeln(s);
	end.</source>		end.</source>

2010-01-19T11:48:19Z

Замена всех маленьких английских букв в строке соответствующими большими

@@ Строка 53: / Строка 53: @@
 </source>
 ===Замена всех маленьких английских букв в строке соответствующими большими===
 ===Сумма записанных в строке чисел===
 ===Количество вхождений подстроки в строку===

2010-01-19T11:47:14Z

Формирование строки из n одинаковых символов

← Предыдущая версия		Версия от 14:47, 19 января 2010
Строка 39:		Строка 39:

	===Формирование строки из n одинаковых символов===		===Формирование строки из n одинаковых символов===
	var		<source lang="Delphi">var
	c: char;		c: char;
	s: string;		s: string;
Строка 51:		Строка 51:
	writeln(s);		writeln(s);
	end.		end.
			</source>
	===Замена всех маленьких английских букв в строке соответствующими большими===		===Замена всех маленьких английских букв в строке соответствующими большими===
	===Сумма записанных в строке чисел===		===Сумма записанных в строке чисел===

2010-01-19T11:46:55Z

Формирование строки из n одинаковых символов

@@ Строка 39: / Строка 39: @@
 ===Формирование строки из n одинаковых символов===
 ===Замена всех маленьких английских букв в строке соответствующими большими===
 ===Сумма записанных в строке чисел===

2010-01-19T11:38:01Z

Преобразование числа в строку и обратно

@@ Строка 26: / Строка 26: @@
 ===Преобразование числа в строку и обратно===
 ===Формирование строки из n одинаковых символов===
 ===Замена всех маленьких английских букв в строке соответствующими большими===

2010-01-19T11:31:56Z

Преобразование цифрового символа в соответствующее однозначное число и обратно

@@ Строка 13: / Строка 13: @@
 ===Преобразование цифрового символа в соответствующее однозначное число и обратно===
 ===Преобразование числа в строку и обратно===
 ===Формирование строки из n одинаковых символов===