Rabu, 16 Mei 2012

contoh bahasa c volume kubus =s*s*s #include #include main() { int s,v=0; clrscr(); printf("menhitung volume kubus\n--------------------"); printf("\n masukkan sisi kubus:"); scanf("%d",&s); v=s*s*s; printf("nilai volume kubus:%d",v); } contoh bahasa c++ membuat volume kubus =s*s*s #include"iostream.h" #include"conio.h" void main() { int s,v=0; clrscr(); cout<<"menghitung volume kubus\n--------------"; cout<<"memasukkan sisi kubus:"; cin>>s; v=s*s*s; cout<<"nilai volume kubus:"<

Selasa, 08 Mei 2012

#memngkonversi bilangan* uses crt; var bilangan:integer; function decTOBin(desimal:integer):string; var hasilbagi, sisa : integer; bin:char; bilBiner:string; begin hasilBagi := desimal div 2; bilBiner :=''; {syarat prulangan :selama hasil bagi lebih besar sama dengan 1} while (hasilBagi >=1) do begin sisa :=desimal mod 2; if(sisa =0)then bin :='0' else if (sisa=1) then bin :='1'; {menggabung sisa pada setiap perulangan untuk membentuk digit biner} bilBiner := bin + bilBiner; desimal:=hasilBagi; hasilBagi := desimal div 2; end; deCTOBin :='1'+bilBiner; end; BEGIN bilangan :=200; write('bilangan binernya :', deCTOBin(bilangan)); readln; end. #program penjualan* uses crt; var b:string; h,y,u,by,tb:real; lagi:char; begin writeln('toko"laris manis" '); writeln ('__________'); tb:=0; lagi := 'y'; while lagi= 'y' do begin write ('barang :');readln(b); write ('harga:'); readln(h); write ('unit:'); readln(u); by:= h*u; writeln('bayar :',by:0:0); writeln ('coba lagi (y/t); ');readln(lagi); writeln; writeln; tb:= tb+by; end; writeln('total bayar :',tb:0:0); end.

Senin, 07 Mei 2012

blog

Setelah anda mengetahui cara membuat efek Kembang Api pada Blog dan beberapa waktu yang lalu kami juga pernah Share cara memasang 15 Animasi super keren dan membuat Spoiler pada blog maka kali ini kami akan menunjukkan pada anda cara memasang Animasi Meteor Jatuh.

Haaahhhh…Meteor??? Yaahh benar sekali, anda dapat mempercantik tampilan blog anda dengan memasang animasi Meteor Jatuh. Dengan adanya efek ini, diharapkan tampilan blog anda kelihatan lebih canggih dan menarik. Berikut ini cara membuatnya :
  • Silakan anda Login terlebih dahulu ke dalam Blogger
  • Kemudian klik menu Rancangan -> Add Widget (HTML/JavaScript)
  • Kemudian masukkan kode dibawah ini


  • Jika sudah, silakan Simpan dan lihatlah hasilnya.
Saat efek Meteor ini berjalan di blog anda, akan terdapat menu Close yang muncul di bagian sebelah kanan bawah. Itu artinya, anda dapat menutup atau mematikan efek Meteor ini jika sudah tidak diinginkan.

Senin, 13 Februari 2012

program hitung_diskon_harga;
uses crt;

var harga, diskon, total : real;


begin clrscr;

writeln ('MENGHITUNG DISKON DAN TOTAL HARGA BELANJA');
PROGRAM DAFTAR_PENGUNJUNG_KONSER;
USES CRT;
LABEL
Y,N;
CONST
H_TKT=300000;
VAR
N_PMBL,N_BAND,N_KLS :STRING;
J_BL,TH,DSK,TB,UB,UK :REAL;
NO :CHAR;
BEGIN

Jumat, 27 Januari 2012

kalakulator


Tutorial Pascal Membuat Kalkulator Sederhana

by admin on Oct.14, 2011, under Pascal
Pascal Calculator
Pascal Calculator
Tutorial Pascal untuk membuat kalkulator sederhana berguna untuk anda yang sedang mendapatkan tugas dari sekolah. Berikut adalah source code nya ..
[sourcecode language="pascal"]
program kalkulator;
uses crt;
var nil1,nil2,hasil : real;
a : char;
begin
clrscr;
write(‘angka pertama = ‘);
readln(nil1);
write(‘parameter + – * / = ‘);
readln(a);
write(‘angka kedua = ‘);
readln(nil2);
case a of
‘+’: hasil := nil1+nil2;
‘-’: hasil := nil1-nil2;
‘*’: hasil := nil1*nil2;
‘/’: hasil := nil1/nil2;
end;
write(‘hasil = ‘,hasil :12:2);
readkey;
end.
[/sourcecode]
Selamat datang di blog alpin, Terima kasih telah berkunjung di blog kami.. Semoga anda senang!!