program konversi pascal

progaram koversi[b] dengan menggunakan pascal

berikut adalh listing ny :
program konversi_bilangan;
uses crt;
var
a,f,z,w:string;
b,d,n,m,i:longint;
c,j,k,e,g,h,x,y,o:integer;
pilihan :byte;
begin
clrscr;
textcolor (10);
gotoxy(10,2);writeln('masukkan pilihan konversi:');
gotoxy(10,4);writeln('1.hex to desimal');
gotoxy(10,6);writeln('2.oktal to desimal');
gotoxy(10,8);writeln('3.biner to desimal');
gotoxy(10,10);writeln('0.selesai');
pilihan:=9;
while(pilihan(0)or(pilihan)3)do
begin
gotoxy(10,20);write('masukkan piliha kamu:')readln(pilihan);
end;
clrscr;
case pilihan of
1:begin
write (' masukkan nilai hexadesimal=');
readln(a);
b:length(a);m:=0;e:=1;x:=34;y:=3;
for c:= b downto 1 do
begin
f:=copy(a,e,1);
if(f='a')or(f='a')then f:='10';
if(f='b')or(f='b')then f:='11';
if(f='c')or(f='c')then f:='12';
if(f='d')or(f='d')then f:='13';
if(f='e')or(f='e')then f:='14';
if(f='f')or(f='f')then f:='15';
val(f,j,k);
h:=c-1;i:=1;
for g:=h downto 1 do
begin
i:=i*16;
end;
write(' untuk konversi hexa to desimal tekan enter..............');readln;
clrscr;
write('nilai desimal=',m);
readln;
end;
2:begin
write('masukkan nilai oktal=');
readln(a);
b:length(a);m:=0;e:=1;x:=34;y:=3;
for c:=b downto 1 do
begin
f:=copy(a,e,1);
val (f,j,k);
h:=c-1;i:=1;
for g:=h downto 1 do
begin
i:i*8;
end;
d:=j*i;m:=m+d;e:=e+1;
end;
write(' untuk konversi oktal to desimal tekan enter..............');readln;
clrscr;
write('nilai desimal=',m);
readln;
end;
3:begin
write('masukkan nilai biner=');
readln(a);
b:length(a);m:=0;e:=1;x:=34;y:=3;
for c:=b downto 1 do
begin
f:=copy(a,e,1);
val (f,j,k);
h:=c-1;i:=1;
for g:=h downto 1 do
begin
i:=i*2;
end;
d:=j*i;m:=m+d;e:=e+1;
end;
write(' untuk konversi biner to desimal tekan enter..............');readln;
clrscr;
write('nilai desimal=',m);
readln;
end;
end;
end.

penjelasan
secara umum ini merupakan konversi merubah bilangan dari biner ke desimal ,oktal ke desimal dak hexa ke desimal mungkin disini saya tidak secara menyeluruh menjelaskan karena ini cuma buatan untuk tugas di ti lw untuk lebih sempurna ny kalian bisa menkopi n mengeditny di rumah selamat mencoba

:belajar3:
di bagian ini kurang ;

Code:

begin
gotoxy(10,20);write('masukkan piliha kamu:');readln(pilihan);
end;

:belajar3:
di bagian ini, mungkin ini maksudnya

Code:

if(f='A')or(f='a')then f:='10';
if(f='B')or(f='b')then f:='11';
if(f='C')or(f='c')then f:='12';
if(f='D')or(f='d')then f:='13';
if(f='E')or(f='e')then f:='14';
if(f='F')or(f='f')then f:='15';

:bingung2: sebaiknya kalau mau menulis code menggunakan. ['code']isi code ['/code'] (tanpa tanda petik)
maka hasilnya akan begini :

Code:

program konversi_bilangan;
uses crt;
var
a,f,z,w:string;
b,d,n,m,i:longint;
c,j,k,e,g,h,x,y,o:integer;
pilihan :byte;
begin
clrscr;
textcolor (10);
gotoxy(10,2);writeln('masukkan pilihan konversi:');
gotoxy(10,4);writeln('1.hex to desimal');
gotoxy(10,6);writeln('2.oktal to desimal');
gotoxy(10,8);writeln('3.biner to desimal');
gotoxy(10,10);writeln('0.selesai');
pilihan:=9;
while(pilihan(0)or(pilihan)3)do
begin
gotoxy(10,20);write('masukkan piliha kamu:');readln(pilihan);
end;
clrscr;
case pilihan of
1:begin
write (' masukkan nilai hexadesimal=');
readln(a);
b:length(a);m:=0;e:=1;x:=34;y:=3;
for c:= b downto 1 do
begin
f:=copy(a,e,1);
if(f='A')or(f='a')then f:='10';
if(f='B')or(f='b')then f:='11';
if(f='C')or(f='c')then f:='12';
if(f='D')or(f='d')then f:='13';
if(f='E')or(f='e')then f:='14';
if(f='F')or(f='f')then f:='15';
val(f,j,k);
h:=c-1;i:=1;
for g:=h downto 1 do
begin
i:=i*16;
end;
write(' untuk konversi hexa to desimal tekan enter..............');readln;
clrscr;
write('nilai desimal=',m);
readln;
end;
2:begin
write('masukkan nilai oktal=');
readln(a);
b:length(a);m:=0;e:=1;x:=34;y:=3;
for c:=b downto 1 do
begin
f:=copy(a,e,1);
val (f,j,k);
h:=c-1;i:=1;
for g:=h downto 1 do
begin
i:i*8;
end;
d:=j*i;m:=m+d;e:=e+1;
end;
write(' untuk konversi oktal to desimal tekan enter..............');readln;
clrscr;
write('nilai desimal=',m);
readln;
end;
3:begin
write('masukkan nilai biner=');
readln(a);
b:length(a);m:=0;e:=1;x:=34;y:=3;
for c:=b downto 1 do
begin
f:=copy(a,e,1);
val (f,j,k);
h:=c-1;i:=1;
for g:=h downto 1 do
begin
i:=i*2;
end;
d:=j*i;m:=m+d;e:=e+1;
end;
write(' untuk konversi biner to desimal tekan enter..............');readln;
clrscr;
write('nilai desimal=',m);
readln;
end;
end;
end.

mohon mimin atau momod untuk segera membuat petunjuk membuat postingan... :maaf1: :maaf1:

:hah1:
ini mungkin bahsa pascal secara umum
ada di sebagian bahasa pascal ada yg menggunakan tanda petik ada juga yang tidag
tapi tergantung kepada kita tuk mencobanya

lw listing di atas sudah berjalan dan tidag ada masalah tapi jika ada tambahan mohon sekirany tuk menambahkan

:ketawa1: :rokok2:

GiEx D'HCKR wrote:

:hah1:
ini mungkin bahsa pascal secara umum
ada di sebagian bahasa pascal ada yg menggunakan tanda petik ada juga yang tidag
tapi tergantung kepada kita tuk mencobanya

lw listing di atas sudah berjalan dan tidag ada masalah tapi jika ada tambahan mohon sekirany tuk menambahkan

:ketawa1: :rokok2:

:bingung1: :bingung1: :bingung1: nampaknya TS gak ngerti apa yang saya bicarakan.... coba lihat dulu...

TSnya mana ya? :bingung1: