0 proposal penawaran kerja sama

contoh proposal penawaran barang atau kerjasama...maaf bila ada kesalahan....
http://www.4shared.com/document/s7nNo2SD/CONTOH_PROPOSAL_PENAWARAN_KERJ.html

Read More »

0 microsoft indonesia

ingin microsoft kamu jadi bahasa indonesia
nie TKP nya

http://www38.indowebster.com/56a3eddfe40b8ea8bcb3881f11e9d3b5.exe?

Read More »

0 program pemangkatan

program pangkat;

uses crt;

var x,x2,x3: integer;

begin

clrscr;

writeln('--------------');

writeln('x    x2     x3');

writeln('--------------');

for x:= 1 to 100 do

begin

x2:=x*x;

x3:=x2*x;

writeln(x: 1, x2 :5,x3:7);

end;

readln;

end.

program_pangkat 

Read More »

0 program length

program length;

uses crt;

varlength

s:string;

x:byte;

begin

clrscr;

write('nama anda ?'); readln(s);

x:=length (s);

writeln('panjang nama anda ' ,x,' karakter !!');

readln;

end.

Read More »

0 deklarasi array

program deklarasi_array;

uses crt;

var

npm:array[1..20]of string[10];

nama:array[1..20]of string[25];

nilai:array[1..20]of real;

umur:array[1..20]of byte;

banyak,i:integer;

begin

clrscr;

write('berapa banyak array :');readln(banyak);

for i:= 1 to banyak do

begin

write('npm :');readln(npm[i]);

write('nama:');readln(nama[i]);

write('nilai :');readln(nilai[i]);

write('umur :');readln(umur[i]);

end;

writeln(' npm    nama    nilai   umur');

for i := 1 to banyak do

begin

writeln(npm[i]:0,nama[i]:5,nilai[i]:5:3,umur[i]);

end;

readln;

end.

Read More »