Строки (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.