CODE TRI

berikut ini contoh gambar diagram ER sistem informasi akademik sebuah kampus yang pernah aku buat

kali ini aku coba posting program ganjil & genap menggunakan array dalam Turbo Pascal 7.1. ea sebenarnya sih aku buat ini saat masih semester 1 di mata kuliah algoritma dan pemrograman hehehe.. program ini cukup sederhana langsung aja cekidot.... :D tulis kayak gini ya... uses crt; var a,b:array [1..100] of integer; x,p,q:integer; begin clrscr; writeln; writeln('Tri yanto '); writeln('Sistim Informasi'); writeln('2117100423'); writeln('--------------------'); writeln; write('masukkan angka 1 :'); readln(p); write('masukkan angka 2 :'); readln(q); writeln; writeln('genap  ganjil'); writeln; for x := p to q do begin if x mod 2=0 then a[x]:=x else b[x]:=x; if a[x]<>0 then writeln(a[x]:3); if b[x]<>0 then writeln(b[x]:10); end; readln; end. bener2 sederhana kan..? nah kalo udah jadi seperti ini

Kali ini aku akan memmberikan contoh membuat program penjualan sederhana menggunakan if dengan Turbo Pascal 7.1. dulu aku membuat program ini buat tugas kuliah pemrograman terstruktur. :) ga' perlu banyak basa-basi karna emang udah basi sich.. :D let's do!! pertama tulis programnya kayak gini ya...   uses crt; var napem,nb:string[15] ;     hrg,jb,jh,disc,tot:real; begin clrscr; writeln; writeln('----------------------------------------'); writeln(' DATA PENJUALAN BUAH SEGAR /KG'); writeln('----------------------------------------'); writeln; write('Nama Pembeli     =  '); readln(napem); writeln; write('Buah Yang Dibeli =  '); readln(nb); writeln('.............................'); if nb='jeruk' then hrg:=5000 else if nb='mangga' then hrg:=7000 else if nb='apel' then hrg:=9000 else if nb='duren' then hrg:=11000; begin end; writeln; write('Harga Buah       =','Rp&#