From 3a5f406ff59a05c0eddda191127d58b39cb8049b Mon Sep 17 00:00:00 2001 From: cassiopc Date: Wed, 24 Oct 2012 09:56:07 +0200 Subject: open dir for 1.5.2. I still must split devel and master in different branches to properly use git... --- boca-1.5.2/doc/tests/fontes/bits-runtime.pas | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 boca-1.5.2/doc/tests/fontes/bits-runtime.pas (limited to 'boca-1.5.2/doc/tests/fontes/bits-runtime.pas') diff --git a/boca-1.5.2/doc/tests/fontes/bits-runtime.pas b/boca-1.5.2/doc/tests/fontes/bits-runtime.pas new file mode 100644 index 0000000..ed496c0 --- /dev/null +++ b/boca-1.5.2/doc/tests/fontes/bits-runtime.pas @@ -0,0 +1,27 @@ +program bits; +var i, inst, max, n: Longint; + v: array[0..1] of Longint; +begin + while true do + begin + read(n); + if n=0 then break; + max := 1; + for i:=0 to n-1 do + begin + read(v[i]); + if v[i]>max then max:=v[i] + end; + i:=0; + while max>0 do + begin + max := max div 2; + i := i + 1 + end; + write('Instancia '); + inst := inst + 1; + writeln(inst); + writeln(i*n); + writeln() + end +end. -- cgit v1.2.3