Комментарии: Решаем задачи Абрамян на Паскале. String25

Автор: Nurdana

Nurdana — Sat, 27 Oct 2018 08:19:41 +0000

Дана строка, изображающая десятичную запись целого положительного числа. Вывести строку, изображающую двоичную запись этого же числа.
Можно ли на языке java

Автор: Bronislav

Bronislav — Sat, 23 Jun 2018 19:49:54 +0000

program string_25;//PascalABC.NET

begin
  var s := '10';
  var s2 := '';
  var num := s.ToInteger;
  var i := 1;
  
  while (i < num) do //побитово умножаем переменные i и num
  begin
    if (i and num) <> 0 then s2 += 1
    else s2 += 0;
    i *= 2;
  end;
  
  s2 := s2.Inverse;
  s2.Println; //1010
end.

program string_25;//PascalABC.NET

begin

var s := '10';

var s2 := '';

var num := s.ToInteger;

var i := 1;

while (i < num) do //побитово умножаем переменные i и num

begin

if (i and num) <> 0 then s2 += 1

else s2 += 0;

i *= 2;

end;

s2 := s2.Inverse;

s2.Println; //1010

end.

Автор: Kirk

Kirk — Tue, 16 May 2017 04:52:58 +0000

Program s25;

Var
 s,s1,s2: string;
 n,i,num,err: integer;
 
Begin
 Write('Enter your number: ');
 Readln(s);
 Val(s,n,err);
 s1:=' ';
 While n<>0 do
  Begin
   num:=n mod 2;
   writeln(num);
   Str(num,s2);
   s1:=s1+s2;
   n:=n div 2;
  End;
 s2:='';
 For i:=length(s1) downto 1 do s2:=s2+s1[i];
 Writeln(s2);
End.

Program s25;

Var

s,s1,s2: string;

n,i,num,err: integer;

Begin

Write('Enter your number: ');

Readln(s);

Val(s,n,err);

s1:=' ';

While n<>0 do

Begin

num:=n mod 2;

writeln(num);

Str(num,s2);

s1:=s1+s2;

n:=n div 2;

End;

s2:='';

For i:=length(s1) downto 1 do s2:=s2+s1[i];

Writeln(s2);

End.

Автор: Anton

Anton — Wed, 07 Dec 2016 03:37:40 +0000

В ответ на Newton. Мне не нравиться решение. Из за операции Val(LineDec, Decimal, Error);, на условие "строка, изображающая десятичную запись целого положительного числа." Накладывается очень сильные ограничения по длине строки. Упирающиеся в диапазон типа integer. Что я считаю не правильно. Таким же образом можно было бы конвертировать строку в тип boolean и выводить 1 года true, и 0 когда false.

Автор: Newton

Newton — Tue, 06 Dec 2016 18:42:01 +0000

program String25;

var
   LineDec, LineBin : string;
   Counter, Error   : byte;
   Decimal          : integer;
   
begin 
   repeat 
      write('Enter an integer: ');
      readln(LineDec);
      Val(LineDec, Decimal, Error);
   until (Error = 0);
   LineBin := '';
   while Decimal > 0 do
      begin
         LineBin := LineBin + chr((Decimal mod 2) + 48);
         Decimal := Decimal div 2;
      end;
   for Counter := Length(LineBin) downto 1 do
      write(LineBin[Counter]);
   writeln;
end.

program String25;

var

LineDec, LineBin : string;

Counter, Error : byte;

Decimal : integer;

begin

repeat

write('Enter an integer: ');

readln(LineDec);

Val(LineDec, Decimal, Error);

until (Error = 0);

LineBin := '';

while Decimal > 0 do

begin

LineBin := LineBin + chr((Decimal mod 2) + 48);

Decimal := Decimal div 2;

end;

for Counter := Length(LineBin) downto 1 do

write(LineBin[Counter]);

writeln;

end.

Автор: Newton

Newton — Tue, 06 Dec 2016 18:40:42 +0000

Еще один вариант — формально рабочий, но не самый красивый.


program String25;
var

LineDec, LineBin : string;

Counter, Error   : byte;

Decimal          : integer;
begin

repeat

write(‘Enter an integer: ‘);

readln(LineDec);

Val(LineDec, Decimal, Error);

until (Error = 0);

LineBin := »;

while Decimal > 0 do

begin

LineBin := LineBin + chr((Decimal mod 2) + 48);

Decimal := Decimal div 2;

end;

for Counter := Length(LineBin) downto 1 do

write(LineBin[Counter]);

writeln;

end.