Ketika Seorang Wanita Bertanya pada Pria

Ketika Seorang Wanita Bertanya pada Pria
Seorang wanita bertanya pada seorang pria
tentang cinta dan harapan ……..
Wanita berkata ingin menjadi bunga terindah didunia
Dan pria berkata ingin menjadi matahari…
Wanita tidak mengerti kenapa pria ingin jadi
matahari, bukan kupu kupu atau kumbang yang bisa terus menemani bunga…
Wanita berkata ingin menjadi rembulan
Dan pria berkata ingin tetap menjadi matahari…
Wanita semakin bingung karena [...]

Langkah – langkah membuat penomoran halaman yang dinamis di microsoft word

1. pada laporan biasa nya > 10 halaman kan ?? (benerlah)
2. Pada halaman 5 di depan digunakan sebagai penomoran romawi (i, ii, iii, iv dst)
3. Pada halaman ke 5 kita putus dahulu dengan cara
3.a. klik menu insert – pilih Break
3.b. pada jendela break klik pilihan Next Page
3.c. Maka pointer akan jatuh di halaman ke 6.
4. [...]

fungsi goto pada pascal

uses wincrt;
var jml,a,b: integer;
nm,ket : array[1..40] of string;
hrg,jumlah,total,jumlahseluruh : array[1..40] of real;
begin
write(‘Jumlah Data : ‘); readln(jml);
writeln(”);
for a := 1 to jml do
begin
write(‘Nama Barang :’); readln(nm[a]);
write(‘Harga :’); readln(hrg[a]);
write(‘Jumlah :’);readln(jumlah[a]);
writeln(”);
end
;
clrscr;
gotoxy(5,2);write(‘—————————————————’);
gotoxy(5,3);write(‘Nama’);
gotoxy(20,3);write(‘Harga’);
gotoxy(30,3);write(‘Jumlah’);
gotoxy(40,3);write(‘Total’);
gotoxy(5,4);write(‘—————————————————’);
for b := 1 to jml do
begin
total[b]:=hrg[b]*jumlah[b];
gotoxy(5,5+b);write(nm[b]);
gotoxy(20,5+b);write(hrg[b]:8:0);
gotoxy(30,5+b);write(jumlah[b]:8:0);
gotoxy(40,5+b);writeln(total[b]:8:0);
end
;
writeln(‘ ====================================================’);
end.

gotoxy pada pascal

uses wincrt;
var jml,a,b: integer;
nm,ket : array[1..40] of string;
hrg,jumlah,total : array[1..40] of real;
begin
write(‘Jumlah Data : ‘); readln(jml);
for a := 1 to jml do
begin
write(‘Nama Barang :’); readln(nm[a]);
write(‘Harga :’); readln(hrg[a]);
write(‘Jumlah :’);readln(jumlah[a]);
writeln(”);
end
;
clrscr;
gotoxy(5,2);write(‘—————————————————’);
gotoxy(5,3);write(‘Nama’);
gotoxy(20,3);write(‘Harga’);
gotoxy(30,3);write(‘Jumlah’);
gotoxy(40,3);write(‘Total’);
gotoxy(5,4);write(‘—————————————————’);
for b := 1 to jml do
begin
total[b]:=hrg[b]*jumlah[b];
gotoxy(5,5+b);write(nm[b]);
gotoxy(20,5+b);write(hrg[b]:8:0);
gotoxy(30,5+b);write(jumlah[b]:8:0);
gotoxy(40,5+b);write(total[b]:8:0);
end
;
end.