Строки (PascalABC.NET): различия между версиями
Перейти к навигации
Перейти к поиску
(Новая страница: «== Строки == * [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Types/string.html Строки]») |
|||
(не показано 9 промежуточных версий этого же участника) | |||
Строка 1: | Строка 1: | ||
== Строки == | == Строки == | ||
− | * [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Types/string.html Строки] | + | * [http://pascalabc.net/downloads/pabcnethelp/index.htm?page=LangGuide/Types/string.html Строки (документация)] |
+ | * [http://pascalabc.net/downloads/OsipovBook/StudentChoice3.pdf Выбор школьника 3] | ||
+ | |||
+ | <syntaxhighlight lang="pascal" line> | ||
+ | Begin | ||
+ | var ch:char := '0'; | ||
+ | Writeln($'Код символа {ch} = {ord(ch)}'); | ||
+ | |||
+ | var code := 55; | ||
+ | Writeln($'Cимвол с кодом {code} = {chr(code)}'); | ||
+ | |||
+ | var str:string = 'Hello'; | ||
+ | Writeln($'Длина строки {str} = {str.Length}'); | ||
+ | |||
+ | var hasl := str.Contains('l'); | ||
+ | Writeln($'Строка {str} содержит букву l = {hasl}'); | ||
+ | |||
+ | var hasz := str.Contains('z'); | ||
+ | Writeln($'Строка {str} содержит букву z = {hasz}'); | ||
+ | |||
+ | var indexl := str.IndexOf('l'); | ||
+ | Writeln($'В строке {str} индекс буквы l = {indexl}'); | ||
+ | |||
+ | var indexz := str.IndexOf('z'); | ||
+ | Writeln($'В строке {str} индекс буквы z = {indexz}'); | ||
+ | end. | ||
+ | </syntaxhighlight> | ||
+ | |||
+ | == Задачник == | ||
+ | * [http://ptaskbook.com/ru/tasks/string.php Строки] | ||
+ | |||
+ | === 24 === | ||
+ | <syntaxhighlight lang="pascal" line> | ||
+ | Begin | ||
+ | var binStr := '101001'; | ||
+ | //var binStr := ReadString('Введите число в бинарной системе счисления:'); | ||
+ | |||
+ | var multiplier := 1; | ||
+ | var dec := 0; | ||
+ | |||
+ | for var i := binStr.Length downto 1 do | ||
+ | begin | ||
+ | if (binStr[i] = '1') then | ||
+ | dec += multiplier; | ||
+ | multiplier *= 2; | ||
+ | end; | ||
+ | |||
+ | Writeln(binStr); | ||
+ | Writeln(dec.toString()); | ||
+ | end. | ||
+ | </syntaxhighlight> |
Текущая версия на 16:46, 8 июня 2022
Строки
1 Begin
2 var ch:char := '0';
3 Writeln($'Код символа {ch} = {ord(ch)}');
4
5 var code := 55;
6 Writeln($'Cимвол с кодом {code} = {chr(code)}');
7
8 var str:string = 'Hello';
9 Writeln($'Длина строки {str} = {str.Length}');
10
11 var hasl := str.Contains('l');
12 Writeln($'Строка {str} содержит букву l = {hasl}');
13
14 var hasz := str.Contains('z');
15 Writeln($'Строка {str} содержит букву z = {hasz}');
16
17 var indexl := str.IndexOf('l');
18 Writeln($'В строке {str} индекс буквы l = {indexl}');
19
20 var indexz := str.IndexOf('z');
21 Writeln($'В строке {str} индекс буквы z = {indexz}');
22 end.
Задачник
24
1 Begin
2 var binStr := '101001';
3 //var binStr := ReadString('Введите число в бинарной системе счисления:');
4
5 var multiplier := 1;
6 var dec := 0;
7
8 for var i := binStr.Length downto 1 do
9 begin
10 if (binStr[i] = '1') then
11 dec += multiplier;
12 multiplier *= 2;
13 end;
14
15 Writeln(binStr);
16 Writeln(dec.toString());
17 end.