Berikut listing progam entri data mengunakan pointer pada pascal:
program entriviapointer;
uses crt;
type psiswa=^tsiswa; {deklarasi pointer bertipe tsiswa}
tsiswa=record
nim:string[4];
nama:string[15];
umur:integer;
alamat:string[20];
kota:string[20];
end;
procedure tampilkanmenu(var pilihan:integer);
begin
clrscr;
writeln('pilih salah satu menu berikut.');
writeln('[1] tambah data');
writeln('[2] lihat...
Selasa, 21 Mei 2013
Penjualan Online
Kini metode penjualan tidak hanya mengunakan metode face to
face (dimana pembeli dan penjual saling bertemu untuk meperjualbelikan suatu
barang/jasa), melainkan juga mengunakan metode yang lebih mudah dan cepat yaitu
melalui jalur online. Dimana si penjual hanya mengambarkan, memaparkan
cuplikan-cuplikan/gambar-gambar atau keterangan lain yang di butuh kedalam
sebuah page website tertentu, dan mempersilahkan pengunjung web (pembeli) untuk
memilih...
Rabu, 01 Mei 2013
Program Perkalian pada Pascal
Berikut adalah contoh program perkalian tanpa mengunakan operator "*" pada pascal:
program kali;
uses crt;
var x,y,i,hasil: integer;
begin
clrscr;
write('masukkan bilangan ke-1: ');readln(x);
write('masukkan bilangan ke-2: ');readln(y);
if (x<0) and (y<0) then begin
x:=-x;
y:=-y;
i:=1;
while i<=x do
begin
hasil:=hasil+y;
inc(i);
end;
end else if (x<0) then
begin
x:=-x;
if (y<0) then
y:=-y;
i:=1 ;
while (i<=x) do
begin
...
A. Sejarah
Mark Zuckerberg menciptakan
Facemash, pendahulu Facebook, tanggal 28 Oktober 2003 ketika berada di Harvard
sebagai mahasiswa tahun kedua. Menurut The Harvard Crimson, situs ini mirip
dengan Hot or Not, dan menggunakan "foto yang diperoleh dari Facebook (buku
wajah) daring di sembilan asrama, menempatkan dua foto berdampingan pada satu
waktu dan meminta pengguna memilih yang mana yang paling seksi". Mark
Zuckerberg membantu...
Langganan:
Postingan (Atom)
