1 Tampilkan seluruh data
2 Tampilkan nostok, namastok, Hargabeli untuk data yg harga belinya antara 20.000 sd 55.000
3 Tampilkan semua data yang dibeli dari pemasok dari kota yang berawalan “S” , urut namastok dari besar ke kecil
4 Tampilkan semua data stok yang Unitstok nya kosong (tidak ada isi datanya)
5 Tampilkan data hargabeli max dan min untuk tiap-tiap pemasok
6 Tampilkan data harga beli rata-rata, jumlah item stok untuk masing-masing pemasok bagi stok yang unitnya kurang dari 30

Tambahkan 2 field....
7 isi dengan perintah "UPDATE" Untuk harga jual dengan ketentuan bahwa perusahaan ingin laba 15% dari harga beli
8 Isi potongan dengan nilai "1500" untuk semua stok yang memiliki harga lebih dari 75.000
9 Tampilkan semua data termasuk LabaKotor (harga jual - potongan - hargabeli) urut nama pemasok urut abjad
Jawabannya

nama tabel : tstok;
field-field: nostok, namastok, hargabeli, unitstok, pemasok, kotapemasok;

1. SELECT * FROM tstok;
2. SELECT nostok,namastok,hargabeli FROM tstok WHERE hargabeli>20000 And hargabeli<55000;
3. SELECT * FROM tstok WHERE kotapemasok LIKE 'S*' ORDER BY namastok DESC;
4. SELECT * FROM tstok WHERE unitstok Is Null;
5. SELECT MAX(hargabeli) AS maxharga, MIN(hargabeli) AS minharga FROM tstok GROUP BY pemasok;
6. SELECT AVG(hargabeli) AS rata2, COUNT (nostok) AS jumlahitem FROM tstok WHERE unitstok <30 GROUP BY pemasok;
7. UPDATE tstok SET hargajual = 1.15*hargabeli;
8. UPDATE tstok SET potongan = 1500 WHERE hargabeli>75000;
9. SELECT *, (hargajual-potongan-hargabeli) AS LabaKotor FROM tstok ORDER BY pemasok;


Filenya bisa didownload disini

Read more

Deret Fibonacci

1. Pseudo-Code
a.  Mulai
b.  Buat variabel a1,a2,a3,c=0,n
c.  Input bilangan pertama(a1),bilangan kedua(a2), jumlah deret(n)
d.  a3=a1+a2
e.  Cetak a1
f.  a1=a2
g.  a2=a3
h.  b=b+1
i.  Kembali ke d hingga c=n
j.  Selesai

2.    Flowchart
   





3. Script
uses crt;
var a1,a2,a3,c,n:integer;
begin
  clrscr;
  write('Masukan angka pertama : ');readln(a1);
  write('Masukan angka keduaa  : ');readln(a2);
  write('Masukan jumlah deret  : ');readln(n);
  c:=0;
  repeat
    a3:=a1+a2;
    write(a1,' ');
    a1:=a2;
    a2:=a3;
    c:=c+1;
  until c=n;
  readln;

end.

Read more

Hai teman-teman semua, khususnya teman-teman kelas KA-1A yang ganteng-ganteng dan cantik, baik-baik pula. Masih ingat sama tugas maata kuliah Logika Algoritma kann... ???
(lupa)
Haaa... apa?lupa? itu lho tugas yang disuruh buat bilangan fibonacci...
(oh iya ya, baru ingat aku)

Deret fibonacci bisa dipakai sebagai trik sulap,dengan cara yang sama yaitu membuat barisan hingga diperoleh 10 angka.Jika semua angka itu dijumlahkan hasilnya sama dengan angka ketujuh barisan itu yang dikalikan sebelas. Contoh/:
pilih dua buah angka(misal 6 n 3)
dijumlahkan menjadi 9
jumlahkan angka kedua(3) dgn angka sebelumnya(9)=12
jumlahkan lagi dua angka paling akhir(9+12=21)
teruskan hal yang sama(12+21=33)
lalu 21+33=54
lalu 33+54=87
lalu 54+87=141
lalu 87+141=228
terakhit suruh teman anda menjumlahkan semua angka tersebut dengan cepat
(6+3+9+12+21+33+54+87+141+228+369+597)
anda bisa menghitungnya dengan cepat dengan mengalikan angka ke7(54) dengan sebelas (54x11=594)
Barisan fibonacci adalah barisan angka khusus yang dibuat oleh fibonacci dengan menulis dua angka awal yang dijumlahkan. Kemudian angka kedua dijumlahkan dengan hasil penjumlahan sebelumnya hingga membentuk barisan angka.

oh ya teman-teman yang mau tau script tugas bilangan fibonacci dengan bahasa pascal bisa download disini dan password disini dan password FIB disini untuk password FIBRAHMA tanyarahma saja karena scriptnya dari rahma.
sekian semoga bermanfaat,

terima kasih... :)
Salam dan bahagia

Read more

Awal mulanya saya bingung untuk membuatnya. setelah coba dan mencoba akhirnya gagal juga. entah berapa kali ku coba tetap saja gagal. tadi siang saya ketemu kakak kelas yang prodi kompak juga, ku tanya sama dia, terus di gambarin flowchartnya. setelah di gambar tuch flowchart ku ucapkan terima kasih pada kakaknya. tapi apa yang terjadi...

sesampainya di pondok ku coba terapkan flowchart yg di gambarkan kakaknya tadi...

eng ing eng...
al hasil gagal juga...

kemudian aku teringat sama kata-kata kakaknya tadi bahwa untuk membuat program ini bisa juga memnggunakan kondisi dan mod(sisa pembagian) jadi seperti inilah jadinya script nya.


dan hasilnya ketika kita run adalah sebagai berikut:


begitu lah tutor tentang pascal dari saya..
teima kasih...

jika ada yang mau lihat tutor videonya. monggo dipun tingali mawon.. :)



Read more

عَلَى رَأْسِ هٰذَا الْكَوْنِ نَعْلُ مُحَمَّدٍ     #    عَلَّتْ فَجَمِيْعُ الْخَلْقِ تَحْتَ ظِلاَلِهِ
لَدَى الطُّوْرَ مُوْسَى نُوْدِيَ اخْلَعْ وَأَحْمَدٌ   #    عَلَى الْعَرْشِ لَمْ يُؤْذَنْ بِخَلْعِ نِعَالِهِ
Di atas kepala alam semesta ini sandal Muhammad bertahta
Maka seluruh ciptaan berada di bawah naungannya.
Tatkala di gunung Thur, Musa dipanggil,: ‘Lepaslah sandalmu’, sedangkan  Nabi Muhammad
di atas Arsy tidak diperkenankan untuk melepas sandalnya (sebagai penghormatan)
مِثَـالٌ حَكَى نَعْلاً ِلأَفْضَلِ مُرْسَلِ   #   تَمَنَّتْ مَقَـامَ التُّرْبِ  مِنْهُ فَرَاقِدُ
ضَرَائِرُهَا السَّبْعُ السَّمٰوَاتِ  كُلُّهَا   # غِيَارَى وَتِيْجَانُ الْمُلُوْكِ حَوَاسِدُ
Inilah gambar yang melukiskan sandal utusan Alloh yang termulia
karenanya, bintang kutub utara berandai untuk menjadi tanah (tempat sandal itu berpijak).
Saingannya, seluruh langit tujuh cemburu
dan mahkota para raja pun mendengki.
مِثَالٌ لِنَعْلِ الْمُصْطَفَى مَا لَهُ مِثْلُ   #     لِرُوْحِيْ بِهِ رَاحٌ لِعَيْنِيْ بِهِ كُحْلُ
فَـأَكْرِمْ بِهِ  تِمْثَالَ نَعْلٍ كَرِيْمَةٍ    #     لَهَا كُلُّ رَأْسٍ وَدَّ لَوْ أَنَّهُ رِجْلُ
Inilah gambar sandal al Musthofa yang tiada bandingnya *
Karenanya ruhku memperoleh ketenangan dan mataku beroleh celak (yang mendinginkan).
Maka betapa mulia gambar sandal ini
Baginya seluruh kepala berkeinginan untuk menjadi kaki.
وَلَمَّا رَأَيْتُ الدَّهْرَ قَدْ حَارَبَ الْوَرَى   #   جَعَلْتُ لِنَفْسِيْ نَعْلَ سَيِّدِهِ حِصْنَا
تَحَصَّنْتُ مِنْهُ فِيْ بَـدِيْعِ مِثَـالِهَا   #   بِسُوْرٍ مَنِيْعٍ  نِلْتُ فِيْ ظِلِّهِ اْلأَمْنَا
Dan ketika kulihat masa telah memangsa manusia
Kujadikan sandal junjungannya sebagai benteng perisai diri.
Aku berlindung dari masa dalam keelokan gambarnya
Dengan pagar pencegah kuperoleh keamanan di bawah naungannya.
إِنِّيْ خَدَمْتُ مِثَالَ نَعْلِ الْمُصْطَفَى  #   ِلأَعِيْشَ فِي الدَّارَيْنِ تَحْتَ ظِلاَلِهَا
سَعِدَ ابْنُ مَسْعُوْدٍ بِخِدْمَةِ نَعْلِهِ  #   وَانَا السَّعِيْدُ بِخِدْمَتِيْ لِمِثَالِهَا
Sungguh aku mengabdikan diri pada gambar sandal al Musthofa
Agar aku hidup di dunia dan akhirat di bawah naungannya.
Sahabat Ibnu Mas’ud telah beruntung karena mengabdi pada sandal al Musthofa
Dan akulah orang yang beruntung karena pengabdianku pada gambarnya.

Read more

Read more