Строки (PascalABC.NET): различия между версиями
Перейти к навигации
Перейти к поиску
| (не показано 8 промежуточных версий этого же участника) | |||
| Строка 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 Строки] | * [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.