Sabtu, Agustus 06, 2016

Program Pascal Mengubah Bilangan Desimal (Basis 10) ke Bilangan Ternari (Basis 3)

8/06/2016 05:58:00 PM  "sahabat informasi"  No comments

uses crt;
var
 a,b,d,e:integer;
 c:array [1..255] of integer;

begin
clrscr;
write('masukkan sebuah bilangan desimal! '); readln(a);
write('bilangan ternari (basis 3) dari bilangan desimal (basis 10) ',a,' adalah: ');

repeat
b:=b+1;
c[b]:=a mod 3;
d:=trunc(a/3);

if (d<=2) then
 begin
 b:=b+1;
 c[b]:=d;
 end;
a:=d;
until d<=2;

for e:=b downto 1 do
 begin
 write(c[e]);
 end;

readln
end.

silakan cek di http://www.convertworld.com/id/angka/Desimal.html

Posted in:

0 komentar:

Posting Komentar