vlad/binary-pas
1
0
Fork 0
Code Pull Requests Releases Activity

Обновить 'bin.pas'

Browse Source
This commit is contained in:
vlad
2017-05-18 13:35:09 +03:00
parent 95397cd8f1
commit f0f0193c5c
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
bin.pas
View File

@@ -5,8 +5,8 @@ begin
Write(N mod 2); Write(N mod 2);
end; end;
function step(x:integer):longint; function step(x:integer):integer;
var i:integer; st:longint; var i:integer; st:integer;
begin begin
if x=0 then step:=1 else begin if x=0 then step:=1 else begin
st:=1; st:=1;
@@ -15,17 +15,16 @@ function step(x:integer):longint;
step:=st; step:=st;
end; end; end; end;
end; end;
var k,a,b,d,s:longint; var k,a,b,d,s:integer;
begin begin
s:=0; s:=0;
k:=0; k:=0;
writeln('выберите режим 1:Bintodec 2:Dectobin'k; writeln('Выберите режим 1:bin2dec 2:dec2bin');
readln(a); readln(a);
if a=1 then begin if a=1 then begin
writeln('Выбран режим bin2dec. Введите число');
readln(a); readln(a);
repeat repeat
b:=a mod 10; b:=a mod 10;
d:=a div 10; d:=a div 10;
@@ -34,7 +33,8 @@ repeat
a:=d; a:=d;
until d=0; until d=0;
writeln(s); writeln(s);
end; else begin end else begin
writeln('Выбран режим dec2bin. Введите число');
readln(a); readln(a);
dec2bin(a); dec2bin(a);
end; end;