FC Barcelona

Pages

Sabtu, 11 November 2017

Program Pascal Menghitung Pangkat Dengan Fungsi (Function)

Bagi kalian yang ingin membuat program untuk mencari pangkat pada bilangan menggunakan fungsi, silahkan simak di bawah source code programnya. Berikut ini source code lengkapnya :

Program Menghitung_Pangkat;
Uses Crt;
Var Nilai, P, I, Hasil, Pang : Integer;
Function Pangkat(X,Y : Integer) : Integer;
Begin
         Pangkat := X*Y;
End;
Begin
         Clrscr;
         Writeln('      MENGHITUNG BILANGAN PANGKAT');
         Writeln('-----------------^^^-------------------^^^------------------');
         Write('Masukkan Nilai                           : '); Readln(Nilai);
         Write('Nilai yang akan di Pangkatkan : '); Readln(P);
         Writeln(Nilai, ' ^ ', P, ' = ');
          Hasil := 1;
          For I := 1 To P Do
          Begin
          If I <> P Then Write(Nilai, ' * ') Else
                Write(Nilai, ' = ');
          End;
          Pang := Pangkat(Hasil,Nilai);
          Write(Pang);
          Textcolor(6);
          GotoXY(3,9); Write('Program By SLEMANTO');
          Readln;
End.

Berikut ini hasil screenshot dari program tersebut diatas :


Hasil outputnya :


Sekian pembahasan dari Admin tentang cara pembuatan program menghitung bilangan pangkat dengan menggunakan fungsi pada program pascal. Semoga artikel ini dapat bermanfaat.

Program Pascal Membuat Berkas Data Dengan Array.

Pada artikel kali ini Admin akan membagikan list coding program sebagaimana sesuai judul di atas, yakni membuat program sederhana dengan menggunakan Array. Berikut ini source codingnya :

Program Isi_Berkas;
Uses Crt;
Const Jumlah_Mk = 5;
    Type B_Nilai = 1..100;
        Nilai               = Record
        Nama_Mhs   : String[25];
        No_Mhs        : String[5];
        Angkatan      : String[5];
        Nilai_Ujian    : Array [1..Jumlah_Mk] Of B_Nilai;
        Nilai_Rata      : Real;
    End;
D_Nilai = File Of Nilai;
Var  Daf_Nilai   : D_Nilai;
        Nilai_Mhs : Nilai;
        I, J               : Integer;
        Lagi            : Char;
Begin
        Assign(Daf_Nilai , 'Nilai.Dat');
        Rewrite (Daf_Nilai);
        I := 0;
        Repeat
        Inc (I);
        Clrscr;
        Writeln('MENGISI DATA PADA BERKAS "NILAI .DAT" ');
        Writeln(---------------------------------------------------------------------------');
        Writeln(MENGISI REKAMAN KE : ', I:2);
        Writeln('--------------------------------------------------------------------------');
        With Nilai_Mhs Do
        Begin
                 Nilai_Rata := 0.0;
                 Write('Nama Mahasiswa   : '); Readln(Nama_Mhs);
                 Write('Nomor Mahasiswa : '); Readln(No_Mhs);
                 Write('Angkatan                 : '); Readln(Angkatan);
                 For J := 1 To Jumlah_Mk Do
                 Begin
                         Write('Nilai MK ',J,'     : '); Readln(Nilai_Ujian[J]);
                          Nilai_Rata := Nilai_Rata + Nilai_Ujian[J];
                 End;
                 Nilai_Rata := Nilai_Rata/Jumlah_Mk;
                 Writeln('Nilai Rata-rata    : ', Nilai_Rata:2:0);
         End;
         Write(Daf_Nilai, Nilai_Mhs);
         GotoXY(1,20); Write('Akan Mengisi Lagi ? [Y/T] : ');
         Readln(Lagi);
         Until Not (Lagi In ['Y','y']);
         Close(Daf_Nilai);
End.


Dibawah ini hasil screenshot program :

Hasilnya :

          




Demikian artikel tentang pembuatan program pada pascal tentang Array. Semoga bermanfaat.


Sabtu, 30 September 2017

Kata-Kata Bijak


Berikut ini Admin ingin membagikan beberapa kata bijak hasil ciptaan sendiri dan juga beberapa kata bijak yang di kutip dari beberapa sumber, dari pada tak melakukan apa-apa dan membuang-buang waktu, berikut ini beberapa kata bijak tersebut :

Kehidupan :
  1. "Memang benar tidak ada tempat bagi orang bodoh di dunia ini, namun jika ada yang menganggap dirinya lebih baik dan meremehkan yang lainnya dia bahkan lebih rendah dari orang bodoh sekalipun." (Manto & Obito)
  2. "Jika ingin di hormati, maka kau harus lebih dahulu menghormati orang lain." (Manto)
  3. "Jika ingin maju, maka kau harus percaya pada diri sendiri, lakukan semampumu dan jangan selalu bergantung pada orang lain."(Manto)
  4. "Gunakanlah kemampuanmu untuk membantu mereka yang membutuhkan, karena itulah tujuan di berikannya kemampuan itu padamu." (Manto)
  5. "Kalau kau tidak bisa memahami bumi, maka kau tidak akan pernah bisa mencapai langit." (Manto)
  6. "Seseorang yang berharga ialah dia yang berbicara mewakili kepentingan banyak orang dan mengesampingkan kepentingannya sendiri." (Manto)
  7. "Jalan tersulit adalah melakukan sesuatu sendirian, tapi itu juga adalah jalan yang membuatmu lebih kuat." (Manto & Brightside)
  8. "Terkadang untuk mendapatkan sesuatu, kau harus rela memberikan sesuatu." (Manto & Tayuya)
  9. "Jangan pernah menyerah dengan sesuatu yang kau inginkan. Memang perlu waktu untuk bersabar, tapi jika kau mengabaikannya, akan ada penyesalan yang besar di akhir." (Manto)
  10. "Bekerja keras secara diam-diam, karena kesuksesanmu akan menjadi keributan." (Brightside)
  11. "Hal baik datang pada mereka yang percaya, hal yang lebih baik lagi datang pada mereka yang sabar, dan hal terbaik akan datang pada mereka yang tak pernah menyerah." (Manto)
  12. "Tidak akan sia-sia jika segala sesuatu di kerjakan dengan ikhlas dan sungguh-sungguh." (Manto)
  13. "Agar hidup menjadi mudah, jalani dulu yang susah, yang gampangan nanti belakangan." (Manto)
Romantis / Percintaan :
  1. "Karena yang tampan, cantik dan mulus akan kalah dengan yang tulus." (Manto)
  2. "Setiap jomblo adalah pahlawan bagi jodohnya. Mereka rela berkorban tak berbagi cinta demi menanti sang jodoh." (Anonymous)
  3. "Saya memang tidak tahu cara menyenangkan wanita, tapi saya tahu cara menghargai mereka, dan itu jauh lebih berarti." (Manto)

Demikian artikel saya, semoga dapat membawa perubahan dan memberi sudut pandang baru bagi para pembaca. Sekian dan terima kasih.

Kelebihan dan Kekurangan Sistem Operasi Linux




Setiap sistem operasi pada komputer tentu memiliki kelebihan dan kekurangannya masing-masing. Pada kesempatan kali ini Admin ingin mengulas beberapa kelebihan yang dimiliki oleh sistem operasi Linux dan juga kekurangan pada sistem operasi tersebut yang di kutip dari beberapa sumber.
Kelebihan sistem operasi Linux, diantaranya :

1  Gratis

 Ini yang menjadi pertimbangan bagi para pecinta OS apakah ia harus memilih Operating System yang berbayar (atau yang ingin menikmati OS berbayar secara gratis tetapi harus membutuhkan kerja keras untuk mem-patch). Sedangkan Linux dapat digunakan oleh semua kalangan masyarakat karena gratis. 


2  Open source
 Faktor ini juga yang menjadi pertimbangan bagi para pengembang (Developer) yang menjadikan Linux sebagai bahan proyek mereka. Linux yang bersifat Open source atau dapat diubah sesuai keinginan kita, bahkan yang paling menarik kita tidak perlu mengeluarkan sepeserpun untuk mendapatkan source codenya, tetapi hanya membutuhkan SKILL di bidang pemrograman.


3  Kompatibilitas semakin banyak di dukung (Support)

 Dewasa ini penggunaan Linux yang semakin besar menarik minat para perusahaan HARDWARE/SOFTWARE yang memberi dukungan yang penuh kepada Linux. Seperti yang diketahu i software, driver, dll makin banyak memberi kompatibilitas kepada Linux. Sehingga pemakai Linux tidak kebingungan saat baru migrasi OS.


4 Tahan virus
  Linux dikenal sebagi sistem operasi yang tahan dengan serangan virus. Bahkan menurut penelitian Linux sangat lama untuk diserang oleh Virus. Maka oleh sebab itu Linux dipercaya untuk menangani server-server. Karena itu Linux dari hari ke hari penggunanya bertambah.


 5   Banyak dipakai oleh para  Hacker.

  Linux juga identik dengan sistem operasi untuk para hacker. Disebabkan karena Linux menyediakan fasilitas mikrotik yang sangat handal untuk membobol suatu situs, server, password, dll yang berhubungan dengan security (keamanan).



6  Ringan,Tidak memerlukan Hardware yang tinggi (Light system)

  Linux dikenal sebagai OS yang sangat ringan bahkan persentase hang-nya sangat kecil. Oleh sebab itu Linux sering dipakai oleh komputer-komputer lawas yang ber-hardware rendah. Pemakaian RAM yang sangat kecil, Harddisk yang juga lumayan kecil inilah yang menjadi titik unggul Linux.



Kekurangan sistem operasi linux:


1  Developer enggan memberi dukungan untuk LINUX

  Developer enggan memberi dukungan untuk Linux dikarenakan Pasar Linux yang masih sangat kecil. Dan yang paling penting Linux hanya dipakai oleh orang-orang yang sudah mahir dengan komputer. Sedangkan newbie masih sedikit yang ingin memakai Linux.


 2 Terlalu banyak code perintah tanpa GUI

  Faktor inilah yang membuat newbie tidak migrasi ke Linux. Karena Linux hanya ada tampilan dengan code berbaris-baris.Tetapi pada dewasa ini Linux mulai menggunakan GUI (GRAPHIC USER INTERFACE) untuk tampilan GUI-nya.

Kamis, 31 Agustus 2017

Kumpulan Run Commands Pada Windows



Run Commands merupakan hal yang sangat berguna pada Windows. Setiap kali menginginkan sesuatu, cukup mengetik perintah, dan hanya sekitar dua detik kalian sudah mendapatkannya.Berikut ini beberapa daftar Run Command yang ada pada windows.
Perlu diperhatikan bahwa beberapa perintah hanya dapat dijalankan melalui "Run". Semua program yang dijalankan dengan perintah dapat diakses dari kotak "Run", kotak pencarian, atau command prompt. Dan juga kebanyakan perintah dapat berjalan pada Windows 8/8.1/10, dan beberapa hanya dapat berjalan pada Windows 7.  Salah satu cara mudah untuk mengaksesnya dengan menekan tombol Windows + R.

Nama TugasPerintah yang harus di ketik
About Windowswinver
Add a Devicedevicepairingwizard
Add Hardware Wizardhdwwiz
Advanced User Accountsnetplwiz
Authorization Managerazman
Backup and Restoresdclt
Bluetooth File Transferfsquirt
Calculatorcalc
Certificatescertmgr
Change Computer Performance Settingssystempropertiesperformance
Change Data Execution Prevention Settingssystempropertiesdataexecutionprevention
Change Printer Settingsprintui
Character Mapcharmap
ClearType Tunercttune
Color Managementcolorcpl
Command Promptcmd
Component Servicescomexp
Component Servicesdcomcnfg
Computer Managementcompmgmt
Computer Managementcompmgmtlauncher
Connect to a Network Projectornetproj
Connect to a Projectordisplayswitch
Control Panelcontrol
Create A Shared Folder Wizardshrpubw
Create a System Repair Discrecdisc
Credential Backup and Restore Wizardcredwiz
Data Execution Preventionsystempropertiesdataexecutionprevention
Default Locationlocationnotifications
Device Managerdevmgmt
Device Pairing Wizarddevicepairingwizard
Diagnostics Troubleshooting Wizardmsdt
Digitizer Calibration Tooltabcal
DirectX Diagnostic Tooldxdiag
Disk Cleanupcleanmgr
Disk Defragmenterdfrgui
Disk Managementdiskmgmt
Displaydpiscaling
Display Color Calibrationdccw
Display Switchdisplayswitch
DPAPI Key Migration Wizarddpapimig
Driver Verifier Managerverifier
Ease of Access Centerutilman
Encrypting File System Wizardrekeywiz
Event Viewereventvwr
Fax Cover Page Editorfxscover
File Signature Verificationsigverif
Getting Startedgettingstarted
IExpress Wizardiexpress
Import to Windows Contactswabmig*
iSCSI Initiator Configuration Tooliscsicpl
iSCSI Initiator Propertiesiscsicpl
Language Pack Installerlpksetup
Local Group Policy Editorgpedit
Local Security Policysecpol
Local Users and Groupslusrmgr
Location Activitylocationnotifications
Magnifiermagnify
Malicious Software Removal Toolmrt
Manage Your File Encryption Certificatesrekeywiz
Math Input Panelmip*
Microsoft Management Consolemmc
Microsoft Support Diagnostic Toolmsdt
NAP Client Configurationnapclcfg
Narratornarrator
New Scan Wizardwiaacmgr
Notepadnotepad
ODBC Data Source Administratorodbcad32
ODBC Driver Configurationodbcconf
On-Screen Keyboardosk
Paintmspaint
Performance Monitorperfmon
Performance Optionssystempropertiesperformance
Phone Dialerdialer
Presentation Settingspresentationsettings
Print Managementprintmanagement
Printer Migrationprintbrmui
Printer User Interfaceprintui
Private Character Editoreudcedit
Problem Steps Recorderpsr
Protected Content Migrationdpapimig
Registry Editorregedit
Remote Access Phonebookrasphone
Remote Desktop Connectionmstsc
Resource Monitorresmon
Resultant Set of Policyrsop
Securing the Windows Account Databasesyskey
Servicesservices
Set Program Access and Computer Defaultscomputerdefaults
Share Creation Wizardshrpubw
Shared Foldersfsmgmt
Snipping Toolsnippingtool
Sound Recordersoundrecorder
SQL Server Client Network Utilitycliconfg
Sticky Notesstikynot
Stored User Names and Passwordscredwiz
Sync Centermobsync
System Configurationmsconfig
System Configuration Editorsysedit (This command doesn't work in the 64-bit version of Windows.)
System Informationmsinfo32
System Properties (Advanced Tab)systempropertiesadvanced
System Properties (Computer Name Tab)systempropertiescomputername
System Properties (Hardware Tab)systempropertieshardware
System Properties (Remote Tab)systempropertiesremote
System Properties (System Protection Tab)systempropertiesprotection
System Restorerstrui
Tablet PC Input Paneltabtip*
Task Managertaskmgr
Task Schedulertaskschd
Trusted Platform Module (TPM) Managementtpm
User Account Control Settingsuseraccountcontrolsettings
Utility Managerutilman
Version Reporter Appletwinver
Volume Mixersndvol
Windows Activation Clientslui
Windows Anytime Upgrade Resultswindowsanytimeupgraderesults
Windows Contactswab*
Windows Disc Image Burning Toolisoburn
Windows DVD Makerdvdmaker*
Windows Easy Transfermigwiz*
Windows Explorerexplorer
Windows Fax and Scanwfs
Windows Featuresoptionalfeatures
Windows Firewall with Advanced Securitywf
Windows Help and Supportwinhlp32
Windows Journaljournal*
Windows Media Playerwmplayer*
Windows Memory Diagnostic Schedulermdsched
Windows Mobility Centermblctr
Windows Picture Acquisition Wizardwiaacmgr
Windows PowerShellpowershell*
Windows PowerShell ISEpowershell_ise*
Windows Remote Assistancemsra
Windows Repair Discrecdisc
Windows Script Hostwscript
Windows Updatewuapp
Windows Update Standalone Installerwusa
WMI Managementwmimgmt
WMI Testerwbemtest
WordPadwrite
XPS Viewerxpsrchvw
Access Screen Resolution pagedesk.cpl
Access Mouse propertiesmain.cpl
Access Windows Action Centerwscui.cpl
Access Network Adaptersncpa.cpl
Access Power Optionpowercfg.cpl
Access the Programs and Features Windowappwiz.cpl
Access the System Propertiessysdm.cpl
Access the Windows Firewallfirewall.cpl

Tipe Data Set Pada Pascal


SET
Pendahuluan
      Suatu set (himpunan) adalah suatu kumpulan dari obyek yang mempunyai urutan yang dianggap sebagai suatu kesatuan. Tiap-tiap obyek di dalam set disebut dengan anggota (member) atau elemen himpunan (elemen of the set). Anggota-anggota dari set harus mempunyai tipe yang sama dan disebut dengan base type dan base tye harus berbentuk tipe data sederhana yaitu bertipe ordinal (integer, boolean, char, skalar kecuali real).
Bentuk umum :
<nama variabel> = Set of  <tipe data / ordinal nilai> ;

Deklarasi tipe data set
Type data himpunan merupakan type yang unik dari PASCAL.  Type ini memungkinkan kita untuk mengadakan operasi himpunan.  Pembentukan type data himpunan dan variable bertype himpunan adalah :
-  Dalam Deklarasi Type

    Type

    NamaTypeData = Set Of TypeData;

    NamaTypeData :  adalah type himpunan yang didefinisikan.

    TypeData :  adalah data bertype ordinal.

-  Dalam Deklarasi Variabel
    Var
    NamaVar, NamaVar, … : NamaTypeDataHimpunan;


Pembentuk set
Pembentuk set (set constructor) ,menunjukkan elemen elemen yang digunakan di dalam ungkapan set. Set constructor terdiri dari satu atau lebih elemen jangkauan dari elemen yang dipisahkan dengan koma dan diletakkan diantara kurung bracket (‘[‘ dan ‘]’).


Memasukkan nilai tipe set ke variable

           Tipe Himpunan
          Tipe himpunan adalah kumpulan obyek yang mempunyai tipe data yang sama dan urutan penulisannya tidak diperhatikan.Setiap onyek di dalam suatu himpunan disebut dengan anggota atau elemen himpunan bentuk umum deklarasi himpunan adalah type pengenal = set of tipe_data ;  atau dapat juga langsung dideklarasikan dalam bagian deklarasi perubah seperti berikut :

    var pengenal = set of tipe_data;

      Keterangan :
      pengenal  : nama perubah atau pengenal yang akan dinyarakan sebagai tipe himpunan.
      tipe_data : tipe data dari anggota himpunan, harus bertipe ordinal.


      Contoh deklarasi himpunan adalah sebagai berikut :
      Type Irama  = (jazz, rock, blues, country, classic);
      Musik          = set of Irama);
      Nilai            = set of 0..10;  
      Untai          = set of char;
      Huruf          = set of  'A'.. 'Z';
      Sakit           = (pusing, mual, lemas, lesu, letih);
      Penyakit     = set of Sakit;

  

Operasi SET (Himpunan)
1.  Operasi Penjumlahan Disebut juga operasi penggabungan (UNION), Operatornya (+).
      Contoh :
       A:= [‘B’,’F’,’J’,’L’];
       A:= A + [‘a’,’B’,’b’,’c’,’d’,’e’,’f’,’j’,’k’,’l’]
       maka nilai A sekarang adalah [‘B’,’F’,’J’,’L’,‘a’,’b’,’c’,’d’,’e’,’f’,’j’,’k’,’l’].
2.  Operasi Pengurangan Disebut juga operasi selisih SET, operatornya (-).
      Contoh :
      A:=[1,2,3,4,5];
      B:=[4,5,6,7];
      W:=A-B;
      maka nilai W adalah [1,2,3].
3.  Operasi Perkalian Disebut juga operasi Intersection (irisan), operatornya (*).
      Contoh :
      A:=[1,2,3,4,5];
      B:=[1,3,5,6,7];
      C:=A*B;
      maka nilai C adalah [1,3,5].



Penyeleksian set

Hubungan antara satu set dengan set yang lainnya dapat di seleksi dengan menggunakan operator hubungan.
Set Equality (kesamaan Set) ialah set A dikatakan sama dengan set B (A=B) bila semua anggota dikedua set tersebut bernilai sama.

Operasi set
Operator untuk variable / data bertype himpunan adalah :
Jika A, B adalah variable bertype himpunan :
   =    :  A  =  B  bernilai TRUE jika set A sama dengan set B.
   <>  :  A <> B bernilai TRUE jika set A tidak sama dengan set B. 
   <=  :  A <= B bernilai TRUE jika set A adalah himpunan bagian set B.
   <>  :  A >= B bernilai TRUE jika set A adalah himpunan pemuat set B.
   in    :  keanggotaan.

 Contoh :
 Untuk variable yang didefinisikan diatas
 ‘A’ in Jawab bernilai TRUE
 2  in Pilih bernilai TRUE
 [‘A’, ‘a’] <= Jawab bernilai FALSE
 Jawab <= Vokal bernilai TRUE

 Yang harus diingat bahwa variable bertype Set tidak dapat dibaca  dan dicetak. Jika kita melakukan pembacaan atau penulisan akan muncul pesan “Cannot Read and Write Variable in This Type”.

Demikian artikel tentang tipe data set pada pascal, sekian dan terima kasih.


Jumat, 28 April 2017

Program Pascal Untuk Perhitungan Dasar Matematika

Bagi teman-teman yang baru belajar menggunakan Pascal, berikut ini salah satu dasar programming dalam Pascal untuk perhitungan matematis.
Langkah-langkah Pemrogramannya :
1.    Masukkan Judul Program seperti dibawah :
Program Modul2;
2.    Untuk mengambil kendali biar bisa menggunakan perintah Clrscr untuk membersihkan layar, masukan :
Uses Crt;
3.  Masukkan Procedure lalu deklarasikan parameternya, sesuai dengan jumlah operasi perhitungan yang akan digunakan.
Procedure Tugas (A, B : Integer);
Var
                    C, D, E : Integer;
                    F : Real;
Begin
                    C := A+B;
                    D := A*B;
                    E := A-B;
                    F := A/B;
                    Textcolor(1);
                    Writeln(‘Hasil Tambah : ‘,C);
                    Textcolor(2);
                    Writeln(‘Hasil Kali       : ‘, D);
                    Textcolor(3);
                    Writeln(‘Hasil Kurang  : ‘,E);
                    Textcolor(4);
                    Writeln(‘Hasil Bagi      : ‘,Round(F));
End;
4.    Setelah itu kemudian masuk ke program utamanya, namun deklarasikan program utama terlebih dahulu :
Var X, Y : Integer;
5.    Masukkan isi program utama :
Begin
Clrscr;
Textcolor(5);
Write(‘Nilai X ? ‘); Readln(X);
Textcolor(6);
Write(‘Nilai Y ? ‘); Readln(Y);
Tugas(X, Y);
Textcolor(8);
GotoXY(1,8); Write(‘Program By SLEMANTO’);
Readln;

End.

Lihat seperti gambar berikut ini :






















Setelah itu Run program dan masukkan nilai yang akan hitung (Nilai X dan Y). Hasilnya bisa di lihat pada gambar di bawah.



Demikian pemrograman Pascal untuk perhitungan. Sekian dan terima kasih.