daftar paypal segera dan dapatkan dolar dari internet

PayPal adalah sebagai alat terima pembayaran buat anda lewat internet (rekening di internet), dan bisa anda transfer ke Rekening Bank anda, segera buka Account Paypal gratis, klik dibawah ini (Logo Paypal) Daftar di PayPal, lalu mulai terima pembayaran menggunakan kartu kredit secara instan.

hanya klik saja anda dibayar

LinkGrand.com LinkGrand.com LinkGrand.com LinkGrand.com

readbud (cara dapet duit hanya dengan membaca artikel dan memberi rank)

readbud - get paid to read and rate articles

PELUANG USAHA LUAR BIASA! , KESEMPATAN EMAS MENUJU SUKSES ...!

Klik disini ====>

Minggu, 27 Desember 2009

contoh 1, program function (turbo pascal)

program fungsi;
uses wincrt;

var
hasil_tambah : integer;
hasil_kali : integer;
hasil_bagi : real;
hasil_kurang : integer;
hasil_gabungan : real;
a,b : integer;

function tambah(a,b : integer) : integer;
begin
tambah := (2+a+b) + (2+a+b);
end;

function kali(a,b : integer) : integer;
begin
kali := (2*a*b) + (2*a*b);
end;

function bagi(a,b : integer) : real;
begin
bagi := (2*a/b) + (2*a/b);
end;

function kurang(a,b : integer) : integer;
begin
kurang := (2*a-b) + (2*a-b);
end;

function gabungan(a,b : integer) : real;
begin
gabungan := (2*a-b) + (2*a/b);
end;

begin
writeln(' PROGRAM ARITMATIKA');
writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
write('input nilai a : ');readln(a);
write('input nilai b : ');readln(b);
writeln;

hasil_tambah := tambah(a,b);
hasil_kali := kali(a,b);
hasil_bagi := bagi(a,b);
hasil_kurang := kurang(a,b);
hasil_gabungan := gabungan(a,b);


writeln('Rumus = (2+a+b)+(2+a+b)');
writeln('Hasil penjumlahan (2+',a,'+',b,') + (2+',a,'+',b,'): ',hasil_tambah);
writeln;
writeln('Rumus = (2*a*b) + (2*a*b)');
writeln('Hasil perkalian (2*',a,'*',b,') + (2*',a,'*',b,'): ',hasil_kali);
writeln;
writeln('Rumus = (2*a/b) + (2*a/b)');
writeln('Hasil pembagian (2*',a,'/',b,') + (2*',a,'/',b,'): ',hasil_bagi:0:2);
writeln;
writeln('Rumus = (2*a-b) + (2*a-b)');
writeln('Hasil pengurangan (2*',a,'-',b,') + (2*',a,'-',b,'): ',hasil_kurang);
writeln;
writeln('Rumus = (2*a-b) + (2*a/b)');
writeln('Hasil rumus gabungan (2*',a,'-',b,') + (2*',a,'/',b,'): ',hasil_gabungan:0:2);
writeln;
writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');
readln;
donewincrt;
end.

Selasa, 15 Desember 2009

contoh 3, program prosedur (turbo pascal)

program prosedur;


uses

wincrt;

var

pilihan:integer;

ulang:string;

procedure judul;

begin

writeln('program anak putera batam 2009/2010');

writeln('===================================');

end;



procedure menupilihan;

begin

writeln('-----menu pilihan-----');

writeln(' 1. persegi panjang ');

writeln(' 2. segitiga ');

writeln(' 3. lingkaran ');

writeln(' 4. jajaran genjang ');

writeln(' 5. bujur sangkar ');



end;

procedure p_panjang;

var

pa,le,lu:integer;

begin

writeln('prosedur I');

writeln('program persegi panjang');

write('input panjang : ');readln(pa);

write('input lebar : ');readln(le);

lu:=pa*le;

writeln('luas persegi panjang = ',lu);

end;



procedure segitiga;

var

a,ti,lu:real;

begin

writeln('prosedur II');

writeln('program luas segitiga');

write('input alas: ');readln(a);

write('input tinggi : ');readln(ti);

lu:=a*ti/2;

writeln('luas segitiga = ',lu:0:2);

end;



procedure lingkaran;

var

jari,lu,ke:real;

begin

writeln('prosedur III');

writeln('program luas dan keliling lingkaran');

write('input jari-jari : ');readln(jari);

lu:=3.14*jari*jari;

ke:=2*3.14*jari;

writeln('luas lingkaran = ',lu:0:2);

writeln('keliling lingkaran = ',ke:0:2);



end;

procedure jjrn_genjang;

var

alas,ti,luas:real;

begin

writeln('prosedur IV');

writeln('program jajaran genjang');

write('input alas : ');readln(alas);

write('input tinggi : ');readln(ti);

luas:=alas*ti;

writeln('luas jajaran genjang = ',luas:0:2);



end;



procedure bujur_sangkar;

var

sisi,luas:real;

begin

writeln('prosedur V');

writeln('program bujur sangkar');

write('sisi : ');readln(sisi);

luas:=sisi*sisi;



writeln('luas bujur sangakar = ',luas:0:2);



end;

begin

ulang:= 'YA';

while (ulang= 'YA') or (ulang= 'ya') do

begin

judul;

menupilihan;

write('silahkan anda pilih (1/2/3/4) dimenu pilihan: ');readln(pilihan);

case pilihan of

1:p_panjang;

2:segitiga;

3:lingkaran;

4:jjrn_genjang;

5:bujur_sangkar;

end;

write('mau mengulang lagi tekan YA: ');readln(ulang);

end;



readln;

donewincrt;

end.

contoh 2, program prosedur (turbo pascal)

program prosedur;


uses

wincrt;

var

pilihan:integer;

ulang:string;

procedure judul;

begin

writeln('program anak putera batam 2009/2010');

writeln('===================================');

end;



procedure menupilihan;

begin

writeln('-----menu pilihan-----');

writeln(' 1. persegi panjang ');

writeln(' 2. segitiga ');

writeln(' 3. lingkaran ');

end;

procedure p_panjang;

var

pa,le,lu:integer;

begin

writeln('prosedur I');

writeln('program persegi panjang');

write('input panjang : ');readln(pa);

write('input lebar : ');readln(le);

lu:=pa*le;

writeln('luas persegi panjang = ',lu);

end;



procedure segitiga;

var

a,ti,lu:real;

begin

writeln('prosedur II');

writeln('program luas segitiga');

write('input alas: ');readln(a);

write('input tinggi : ');readln(ti);

lu:=a*ti/2;

writeln('luas segitiga = ',lu:0:2);

end;



procedure lingkaran;

var

jari,lu,ke:real;

begin

writeln('prosedur III');

writeln('program luas dan keliling lingkaran');

write('input jari-jari : ');readln(jari);

lu:=3.14*jari*jari;

ke:=2*3.14*jari;

writeln('luas lingkaran = ',lu:0:2);

writeln('keliling lingkaran = ',ke:0:2);



end;

begin

ulang:= 'YA';

while (ulang= 'YA') or (ulang= 'ya') do

begin

judul;

menupilihan;

write('silahkan anda pilih (1/2/3) dimenu pilihan: ');readln(pilihan);

case pilihan of

1:p_panjang;

2:segitiga;

3:lingkaran;

end;

write('mau mengulang lagi tekan YA: ');readln(ulang);

end;



readln;

donewincrt;

end.

contoh 1, program prosedur (turbo pascal)

program prosedur;

uses
wincrt;

procedure p_panjang
var
pa,le,lu:integer;

begin
writeln('prosedur I');
writeln('program persegi panjang');
write('input panjang : ');readln(pa);
write('input lebar : ');readln(le);
lu:=pa*le;
writeln('luas persegi panjang = ',lu);
end;


procedure segitiga;
var
a,ti,lu:real;


begin
writeln('prosedur II');
writeln('program luas segitiga');
write('input alas: ');readln(a);
write('input tinggi : ');readln(ti);
lu:=a*ti/2;
writeln('luas segitiga = ',lu:0:2);
end;




procedure lingkaran;
var
jari,lu,ke:real;

begin
writeln('prosedur III');
writeln('program luas dan keliling lingkaran');
write('input jari-jari : ');readln(jari);
lu:=3.14*jari*jari;
ke:=2*3.14*jari;
writeln('luas lingkaran = ',lu:0:2);
writeln('keliling lingkaran = ',ke:0:2);
end;




begin
p_panjang;
writeln;
segitiga;
writeln;
lingkaran;

readln;
donewincrt;
end.

Sabtu, 12 Desember 2009

contoh 7, program nested_for (turbo pascal)

program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:char;
BEGIN
PILIHAN:='y';
WHILE (PILIHAN= 'y')OR (PILIHAN= 'y') do
BEGIN
clrscr;
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
   BEGIN
   FOR KOLOM:= 1TO BARIS DO
WRITE(KOLOM, '  ');
WRITELN;
WRITELN;
END;
write('apakah anda mau mengulang (ya/no): ');readln(pilihan);
end;
READLN;
DONEWINCRT;
END.

contoh 6, program nested_for (turbo pascal)

program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:char;
BEGIN
PILIHAN:='y';
WHILE (PILIHAN= 'y')OR (PILIHAN= 'y') do
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
   BEGIN
   FOR KOLOM:= 1TO BARIS DO
WRITE(KOLOM, '  ');
WRITELN;
WRITELN;
END;
write('apakah anda mau mengulang (ya/no): ');readln(pilihan);
end;
READLN;
DONEWINCRT;
END.

contoh 5, program nested_for (turbo pascal)

program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
PILIHAN:STRING;
BEGIN
PILIHAN:='YA';
WHILE (PILIHAN= 'YA')OR (PILIHAN= 'ya') do
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
   BEGIN
   FOR KOLOM:= 1TO BARIS DO
WRITE(KOLOM, '  ');
WRITELN;
WRITELN;
END;
write('apakah anda mau mengulang (ya/no): ');readln(pilihan);
end;
READLN;
DONEWINCRT;
END.

contoh 4, program nested_for (turbo pascal)

program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=BARIS DOWNTO 1 DO
   BEGIN
   FOR KOLOM:= 1TO KOLOM DO
WRITE(KOLOM, '  ');
WRITELN;
WRITELN;
END;
READLN;
DONEWINCRT;
END.

contoh 3, program nested_for (turbo pascal)

program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=BARIS DOWNTO 1 DO
   BEGIN
   FOR KOLOM:= 1TO KOLOM DO
WRITE(BARIS, ' ');
WRITELN;
END;
END.

contoh 2, program nested_for (turbo pascal)

program nested_for;
USES
WINCRT;
var
BARIS,KOLOM:INTEGER;
BEGIN
WRITE('INPUT JUMLAH BARIS: ');READLN(BARIS);
WRITE('INPUT JUMLAH KOLOM: ');READLN(KOLOM);
FOR BARIS:=1 TO BARIS DO
   BEGIN
   FOR KOLOM:= 1TO BARIS DO
WRITE(BARIS, '  ');
WRITELN;
WRITELN;
END;
READLN;
DONEWINCRT;
END.

contoh 1, program nested_for (turbo pascal)

program nested_for;
USES
WINCRT;
var
I,K:INTEGER;
BEGIN
FOR I:=1 to 3 DO
   BEGIN
   FOR K:=1 TO 5 DO
WRITE(K, ' ');
WRITELN;
END;
END.

Selasa, 08 Desember 2009

contoh program while_do(turbo pascal)

program while_do;
uses wincrt;
var
i,n:integer;                                       

begin
write('input banyak perulangan:  ');readln(n);
i:=1;
while i<=n do
begin
writeln(i,  'batam');
i:=i+1;
end;
readln;               
donewincrt;
end.

contoh program while_do(turbo pascal)

program while_do;
uses wincrt;
var
i,n,jum:integer;                                      
rata:real;

begin
write('input banyak perulangan:  ');readln(n);
i:=1;
while i<=n do
begin
writeln(i,  'batam');
i:=i+1;
end;
i:=1;
jum:=0;
rata:=0;
while i<=n do
begin
jum:=jum+i;
rata:=jum/n;
i:=i+1;
end;
writeln('hasil penjumlahan deret perulangan    :  ',jum);
writeln('hasil rata-rata deret perulangan     :  ',rata:0:2);
readln;              
donewincrt;
end.

contoh program for_do(turbo pascal)

program for_do;
uses wincrt;
var
jum,i,n:integer;                                      
rata:real;
begin
jum:=0;
rata:=0;
write('input banyak perulangan ======> ');readln(n);
for i:=1 to n do
writeln ('urutan perulangan==========>'    ,i);
for i:=1 to n do
jum:=jum+i;
rata:=jum/n;
writeln('hasil penjumlahan bil ======> ',jum);
writeln('hasil rata-rata       ======> ',rata:0:2);
readln;              
donewincrt;
end.

contoh program for_do(turbo pascal)

program for_do;
uses wincrt;
var
a,b,c,d,n,e:integer;                                      
bagi:real;
begin
write ('input banyak perulangan :  ');readln(n);
writeln ('---------------------------------------------------------');
writeln ('    a        a*a       a*a*a     a*a*a*a        1/a      ');
writeln ('---------------------------------------------------------');
for a:=1 to n do
begin
b:=a*a;                     
c:=a*a*a;
d:=a*a*a*a;
bagi:=1/a;
writeln ( a:5,      b:10,      c:12,      d:11,         bagi:14:2);
end;
writeln ('--------------------------------------------------------');
readln;              
donewincrt;
end.

contoh program pengulangan for_do(turbo pascal)

program pengulangan(for_do);
uses
wincrt;
var
jum,n,i:integer;
rata:real;
begin
writeln('input banyak perulangan: ');readln(n);
for i:=1 to n do
writeln(i);
for i:=1 to n do
jum:=jum+i;
rata:=jum/n;
writeln('hasil penjumlahan bil  ', jum);
writeln('hasil rata-rata  ',rata:0:2);
readln;
donewincrt;
end.

contoh program luas_ling(turbo pascal)

program luas_ling;
uses WinCrt;
const
phi=3.14;
var
jari_jari:real;
luas_lingkaran:real;
begin
write(' input nilai jari-jari = cm  ');readln(jari_jari);
luas_lingkaran:=phi*jari_jari*jari_jari;
writeln('luas lingkaran adalah = cm  ' ,luas_lingkaran:0:2);
readln;
donewincrt;
end.

contoh program bilangan_terbesar(turbo pascal)

program bilangan_terbesar;

uses
  WinCrt;
var
a,b,c:real;
begin
writeln('   Program Bilangan Terbesar');
writeln('   =========================');
write('input bilangan a: ');readln(a);
write('input bilangan b: ');readln(b);
write('input Bilangan c: ');readln(c);
if (a>b) and (a>c)then
writeln('bilangan terbesar',a:0:2)
else
if (b>a) and (b>c)then
writeln( 'bilangan terbesar',b:0:2)
else
if (c>a) and (c>b)then
writeln(' bilangan terbesar',c:0:2)
else
if (a=b) and (a=c) then
if (b=a) and (b=c) then
if (c=a) and (c=b) then
writeln('    nilai bilangan a,b,c sama');
readln;
donewincrt;
end.

contoh program operator_aritmatika(turbo pascal)

program operator_aritmatika;
uses WinCrt;
var
x,y:integer;
begin
write(' masukkan nilai x = ');readln(X);
write(' masukkan nilai y =');readln (y);
writeln;
writeln(' x > y = ',x > y);
writeln(' x >= y = ',x >= y);
writeln(' x < y = ',x < y);
writeln(' X <= y =',x <= y);
writeln(' x = y =',x = y);
writeln(' x <> y =',x <> y);
writeln;
readln;
donewincrt;
end.

contoh program operator_aritmatika(turbo pascal)

program operator_aritmatika;
uses WinCrt;
var
x,y:integer;
begin
write(' masukkan nilai x = ');readln(x);
write(' masukkan nilai y =');readln (y);
writeln;
writeln(' x + y = ',x + y);
writeln(' x - y = ',x - y);
writeln(' x / y = ',x / y:0:2);
writeln(' X div y =',x div y);
writeln(' x mod y =',x mod y);
readln;
donewincrt;
end.

contoh program logika_and(turbo pascal)

program logika_and;
uses WinCrt;
begin;
writeln('benar and benar =',true and true);
writeln('benar and salah =',true and false);
writeln('salah and benar =',false and true);
writeln('salah and salah =',false and false);
writeln;
writeln('benar or benar =',true or true);
writeln('benar or salah =',true or false);
writeln('salah or benar =',false or true);
writeln('salah or salah =',false or false);
writeln;
writeln('benar xor benar =',true xor true);
writeln('benar xor salah =',true xor false);
writeln('salah xor benar =',false xor true);
writeln('salah xor salah =',false xor false);
readln;
donewincrt;
end.

contoh program data pribadi(turbo pascal)

program nama_pribadi;
uses
  WinCrt;
  var
  nama:string[15];
  umur:string[3];
  tanggal_lahir:string[20];
  alamat:string[30];
begin
  Write('masukan nama anda         :  ');
  readln(nama);
  write('masukan umur              :  ');
  readln(umur);
  write('masukan tanggal_lahir     :  ');
  readln(tanggal_lahir);
  write('masukan alamat anda       :  ');
  readln(alamat);
  WRITELN;
  writeln;
  writeln('        <<>>');
  writeln;
  writeln('nama anda adalah           :  ',nama);
  write;
  write('umur SAYA adalah           :  ',umur);
  writeln;
  writeln('tanggal lahir saya adalah  :  ',tanggal_lahir);
  writeln('alamat saya adalah         :  ',alamat);
  readln;
  DONEWINCRT
  end.