Строки (PascalABC.NET): различия между версиями
Перейти к навигации
Перейти к поиску
(→Строки) |
|||
| (не показаны 2 промежуточные версии этого же участника) | |||
| Строка 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> | <syntaxhighlight lang="pascal" line> | ||
Begin | Begin | ||
| Строка 10: | Строка 12: | ||
var str:string = 'Hello'; | var str:string = 'Hello'; | ||
| − | Writeln($' | + | Writeln($'Длина строки {str} = {str.Length}'); |
var hasl := str.Contains('l'); | var hasl := str.Contains('l'); | ||
Текущая версия на 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.