Строки (PascalABC.NET): различия между версиями

Материал из Информационная безопасностя
Перейти к навигации Перейти к поиску
Строка 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 Строки]
 +
<syntaxhighlight lang="pascal" line>
 +
Begin
 +
  var binStr := '101001'; 
 +
 
 +
  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>
  
 
== Задачник ==
 
== Задачник ==
 
* [http://ptaskbook.com/ru/tasks/string.php Строки]
 
* [http://ptaskbook.com/ru/tasks/string.php Строки]

Версия 09:58, 9 июня 2021

Строки

 1 Begin
 2   var binStr := '101001';  
 3   
 4   var multiplier := 1;
 5   var dec := 0;
 6   
 7   for var i := binStr.Length downto 1 do
 8   begin
 9     if (binStr[i] = '1') then
10       dec += multiplier;
11     multiplier *= 2;
12   end;
13   
14   Writeln(binStr);
15   Writeln(dec.toString());
16 end.

Задачник

Источник — http://isec.nayanovaacademy.ru/w/index.php?title=Строки_(PascalABC.NET)&oldid=1476