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.

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.

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 Tugas	Perintah yang harus di ketik
About Windows	winver
Add a Device	devicepairingwizard
Add Hardware Wizard	hdwwiz
Advanced User Accounts	netplwiz
Authorization Manager	azman
Backup and Restore	sdclt
Bluetooth File Transfer	fsquirt
Calculator	calc
Certificates	certmgr
Change Computer Performance Settings	systempropertiesperformance
Change Data Execution Prevention Settings	systempropertiesdataexecutionprevention
Change Printer Settings	printui
Character Map	charmap
ClearType Tuner	cttune
Color Management	colorcpl
Command Prompt	cmd
Component Services	comexp
Component Services	dcomcnfg
Computer Management	compmgmt
Computer Management	compmgmtlauncher
Connect to a Network Projector	netproj
Connect to a Projector	displayswitch
Control Panel	control
Create A Shared Folder Wizard	shrpubw
Create a System Repair Disc	recdisc
Credential Backup and Restore Wizard	credwiz
Data Execution Prevention	systempropertiesdataexecutionprevention
Default Location	locationnotifications
Device Manager	devmgmt
Device Pairing Wizard	devicepairingwizard
Diagnostics Troubleshooting Wizard	msdt
Digitizer Calibration Tool	tabcal
DirectX Diagnostic Tool	dxdiag
Disk Cleanup	cleanmgr
Disk Defragmenter	dfrgui
Disk Management	diskmgmt
Display	dpiscaling
Display Color Calibration	dccw
Display Switch	displayswitch
DPAPI Key Migration Wizard	dpapimig
Driver Verifier Manager	verifier
Ease of Access Center	utilman
Encrypting File System Wizard	rekeywiz
Event Viewer	eventvwr
Fax Cover Page Editor	fxscover
File Signature Verification	sigverif
Getting Started	gettingstarted
IExpress Wizard	iexpress
Import to Windows Contacts	wabmig*
iSCSI Initiator Configuration Tool	iscsicpl
iSCSI Initiator Properties	iscsicpl
Language Pack Installer	lpksetup
Local Group Policy Editor	gpedit
Local Security Policy	secpol
Local Users and Groups	lusrmgr
Location Activity	locationnotifications
Magnifier	magnify
Malicious Software Removal Tool	mrt
Manage Your File Encryption Certificates	rekeywiz
Math Input Panel	mip*
Microsoft Management Console	mmc
Microsoft Support Diagnostic Tool	msdt
NAP Client Configuration	napclcfg
Narrator	narrator
New Scan Wizard	wiaacmgr
Notepad	notepad
ODBC Data Source Administrator	odbcad32
ODBC Driver Configuration	odbcconf
On-Screen Keyboard	osk
Paint	mspaint
Performance Monitor	perfmon
Performance Options	systempropertiesperformance
Phone Dialer	dialer
Presentation Settings	presentationsettings
Print Management	printmanagement
Printer Migration	printbrmui
Printer User Interface	printui
Private Character Editor	eudcedit
Problem Steps Recorder	psr
Protected Content Migration	dpapimig
Registry Editor	regedit
Remote Access Phonebook	rasphone
Remote Desktop Connection	mstsc
Resource Monitor	resmon
Resultant Set of Policy	rsop
Securing the Windows Account Database	syskey
Services	services
Set Program Access and Computer Defaults	computerdefaults
Share Creation Wizard	shrpubw
Shared Folders	fsmgmt
Snipping Tool	snippingtool
Sound Recorder	soundrecorder
SQL Server Client Network Utility	cliconfg
Sticky Notes	stikynot
Stored User Names and Passwords	credwiz
Sync Center	mobsync
System Configuration	msconfig
System Configuration Editor	sysedit (This command doesn't work in the 64-bit version of Windows.)
System Information	msinfo32
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 Restore	rstrui
Tablet PC Input Panel	tabtip*
Task Manager	taskmgr
Task Scheduler	taskschd
Trusted Platform Module (TPM) Management	tpm
User Account Control Settings	useraccountcontrolsettings
Utility Manager	utilman
Version Reporter Applet	winver
Volume Mixer	sndvol
Windows Activation Client	slui
Windows Anytime Upgrade Results	windowsanytimeupgraderesults
Windows Contacts	wab*
Windows Disc Image Burning Tool	isoburn
Windows DVD Maker	dvdmaker*
Windows Easy Transfer	migwiz*
Windows Explorer	explorer
Windows Fax and Scan	wfs
Windows Features	optionalfeatures
Windows Firewall with Advanced Security	wf
Windows Help and Support	winhlp32
Windows Journal	journal*
Windows Media Player	wmplayer*
Windows Memory Diagnostic Scheduler	mdsched
Windows Mobility Center	mblctr
Windows Picture Acquisition Wizard	wiaacmgr
Windows PowerShell	powershell*
Windows PowerShell ISE	powershell_ise*
Windows Remote Assistance	msra
Windows Repair Disc	recdisc
Windows Script Host	wscript
Windows Update	wuapp
Windows Update Standalone Installer	wusa
WMI Management	wmimgmt
WMI Tester	wbemtest
WordPad	write
XPS Viewer	xpsrchvw
Access Screen Resolution page	desk.cpl
Access Mouse properties	main.cpl
Access Windows Action Center	wscui.cpl
Access Network Adapters	ncpa.cpl
Access Power Option	powercfg.cpl
Access the Programs and Features Window	appwiz.cpl
Access the System Properties	sysdm.cpl
Access the Windows Firewall	firewall.cpl