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

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

Решение:

program String5;
var
  i:integer;
  S,Srez:string;
  rez,Num:real;
  mem:byte;

Procedure div2(var s:string; var mem:byte); //Деление на 2 числового значения записанного в строке. Вывод строка делёная на 2 и остаток от деления.
 var
  i:integer;
  s2:string;
begin
  mem:=0;
   S2:=S;
  for i:=1 to length(s) do
   begin
    s2[i]:= chr((((ord(s[i])-48)+10*mem) div 2)+48);
    if ((ord(s[i])-48) mod 2) = 1  then mem:=1
    else mem:=0;
   end;
   if s2[1]='0' then delete(s2,1,1);
   s:=s2;
end;


begin
 Write('S:');
 Readln (S);
 Srez:='';
 while (s<>'') do //делю на 2 остаток от деления запсываю в строку.
  begin
   div2(S,mem);
   Srez:=Srez+chr(mem+48);
  end;

//разворачиваю строку
 for i:=1 to Length(Srez) do S:=S+Srez[Length(Srez)-i+1];

 Writeln(S);
end.

program String5;

var

i:integer;

S,Srez:string;

rez,Num:real;

mem:byte;

Procedure div2(var s:string; var mem:byte); //Деление на 2 числового значения записанного в строке. Вывод строка делёная на 2 и остаток от деления.

var

i:integer;

s2:string;

begin

mem:=0;

S2:=S;

for i:=1 to length(s) do

begin

s2[i]:= chr((((ord(s[i])-48)+10*mem) div 2)+48);

if ((ord(s[i])-48) mod 2) = 1 then mem:=1

else mem:=0;

end;

if s2[1]='0' then delete(s2,1,1);

s:=s2;

end;

begin

Write('S:');

Readln (S);

Srez:='';

while (s<>'') do //делю на 2 остаток от деления запсываю в строку.

begin

div2(S,mem);

Srez:=Srez+chr(mem+48);

end;

//разворачиваю строку

for i:=1 to Length(Srez) do S:=S+Srez[Length(Srez)-i+1];

Writeln(S);

end.

Другие задачи из раздела String можно посмотреть здесь.

Комментарии 6

Newton

06.12.2016 в 22:40

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

<pre>

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.

</pre>

Ответить

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.

Ответить

Anton

07.12.2016 в 07:37

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

Ответить

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.

Ответить

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.

Ответить

Nurdana

27.10.2018 в 12:19

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

Ответить

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

Комментарии:

Комментарии 6

Добавить комментарий Отменить ответ