HomeHome  PortalPortal  CalendarCalendar  GalleryGallery  FAQFAQ  SearchSearch  MemberlistMemberlist  UsergroupsUsergroups  RegisterRegister  Log inLog in  

Share | 
 

 program konversi pascal

View previous topic View next topic Go down 
AuthorMessage
GiEx D'HCKR
Newbie
Newbie


Jumlah posting : 15 Age : 25
Lokasi : unib

PostSubject: program konversi pascal   Thu Dec 02, 2010 7:40 pm

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
Back to top Go down
View user profile
Elank_kiRa
Anggota
Anggota


Jumlah posting : 162 Age : 28
Lokasi : Utama kamar 1

PostSubject: Re: program konversi pascal   Thu Dec 02, 2010 10:00 pm

: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:
Back to top Go down
View user profile
GiEx D'HCKR
Newbie
Newbie


Jumlah posting : 15 Age : 25
Lokasi : unib

PostSubject: Re: program konversi pascal   Fri Dec 03, 2010 12:41 pm

: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:
Back to top Go down
View user profile
Elank_kiRa
Anggota
Anggota


Jumlah posting : 162 Age : 28
Lokasi : Utama kamar 1

PostSubject: Re: program konversi pascal   Fri Dec 03, 2010 5:12 pm

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...
Back to top Go down
View user profile
Elank_kiRa
Anggota
Anggota


Jumlah posting : 162 Age : 28
Lokasi : Utama kamar 1

PostSubject: Re: program konversi pascal   Sat Dec 04, 2010 9:57 pm

TSnya mana ya? :bingung1:
Back to top Go down
View user profile
Sponsored content




PostSubject: Re: program konversi pascal   Today at 3:39 pm

Back to top Go down
 
program konversi pascal
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» TIPS TELP GRATIS BUAT HANDPHONE,,TERBUKTI NYATA BRO!!!

Permissions in this forum:You cannot reply to topics in this forum
 :: Kampus HIMATIF UNIB :: Software And Programming Room-
Jump to: