Download Solidword 2015 Full
Morbi sit amet hendrerit ligula. Maecenas bibendum nulla sed erat eui...
Pengen bisa itu ternyata tidak mudah. Baru kmarin blajar pascal skrg tambah lagi yang bru yaitu bahasa pemrograman C++. bahasa pmrograman dgn C++ lbih sulit mnurut gue krna gue lbh dulu kenal pascal. Baru ja kmarin gue ngrjain tugas disuruh dosen bikin program bilangan genap positif. MUngkn programnya tidak sebagus yg dibuat orang ahli ! tpi mudah2an bisa bermanfaat. malum gue jga mash blajar. Selamat mencoba.
Programnya seperti ini :
#include
#include
void main()
{
clrscr();
int bilangan;
cout<<"masukan bilangan:"<
if (bilangan%2==0)
cout<<"bilangan genap"<
cout<<"bilangan ganjil"<
}
Selamat Mencoba
Sungguh Sangat-sangat pusing saat Dikasih tugas sama dosen disuruh bikin program dari Biner ke Desimal. Yang paling membingungkan saat bagaimana cara mempangkatkannya agar bisa perkalian 2. Ma'lum gue baru pemula baru kenal komputer semenjak pertama kuliah., pertama kuliah disuruh bikin e-mail pun gue ga bisa. Apalagi saat disuruh sebutin komponen-komponen apa aja yang ada di komputer dalam pikiran gue kosong ga tau apa-apa. yang gue tau hanya colokan buat ke listrik.
Tapi dengan banyak mencoba akhirnya selesai juga Program Konversi dari Biner ke Desimal.
Hasilnya Bisa dilihat dibawah ini!!!!
program biner_ke_desimal;
type input=string[16];
procedure bin2dec(s:input;var k:word);
var i,j,a:integer;
begin
if s[length(s)]='1' then k:=1;
for i:=length(s)-1 downto 1 do
if s[i]='1' then
begin
a:=1;
for j:=i to length(s)-1 do a:=a*2;
k:=k+a;
end;
end;
var
hasil : word;
data : input;
begin
readln(data);
bin2dec(data,hasil);
writeln(hasil);
readln;
end.
Selamat Mencoba!!!
Tugas berikutnya masih menunggu....."?!
Tapi dengan banyak mencoba akhirnya selesai juga Program Konversi dari Biner ke Desimal.
Hasilnya Bisa dilihat dibawah ini!!!!
program biner_ke_desimal;
type input=string[16];
procedure bin2dec(s:input;var k:word);
var i,j,a:integer;
begin
if s[length(s)]='1' then k:=1;
for i:=length(s)-1 downto 1 do
if s[i]='1' then
begin
a:=1;
for j:=i to length(s)-1 do a:=a*2;
k:=k+a;
end;
end;
var
hasil : word;
data : input;
begin
readln(data);
bin2dec(data,hasil);
writeln(hasil);
readln;
end.
Selamat Mencoba!!!
Tugas berikutnya masih menunggu....."?!