Belajar Pemrograman Komputer Secara OTODIDAK

Home / Posts filed under Program Pascal

Tampilkan postingan dengan label Program Pascal. Tampilkan semua postingan

Contoh Program Pascal Perulangan

Contoh Program Pascal Perulangan - perulangan pascal yang paling mudah untuk dipakai adalah for.. to .. do atau for.. downto.. do dimana for to do dipakai untuk perulangan yang naik dan for.. downto do dipakai untuk perulangan yang nilainya menurun. dibawah ini saya akan mencoba membuat program pascal dengan perulangan yang sederhana agar gampang dimengerti oleh sobat semua.

script program pascal perulangan

program contoh_perulangan;
uses crt;
var a,b : integer;
begin
clrscr;
writeln('Masukkan Banyak Perulangan yang diinginkan : ');
readln(a);
for b:=1 to a do
begin
writeln('Belajar Pascal Sangat Menyenangkan');
end;
readln;

end.

Tampilan Output Program Perulangan Pascal

Penjelasan Script

inti dari program ini adalah program akan mencetak kalimat Belajar Pascal sangat menyenangkan sebanyak input yang diberikan oleh user. jika diberi nilai 5 maka akan dicetak kalimat belajar Pascal sangat menyenangkan sebanyak 5 kali. ini merupakan fungsi dari perulangan for b:=1 to a do yang ada di script. nilai b diset 1 dan a adalah nilai yang diberikan user. jadi jika a diberi nilai 10 maka perulangan akan terjadi dari 1 sampai 10. maka scirpt akan menjadi for b:=1 to 10 do dan program akan mengeksekusi kalimat ini sebanyak 10 kali.

mungkin ini dulu program sederhana yang bisa dibagikan. terima kasih telah menyediakan waktu untuk membaca program sederhana yang mungkin bisa membantu tugas-tugas kuliah ataupun sekedar menambah ilmu anda tentang bahasa pemrograman pascal.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Pascal Dengan Looping For To Do

Program Pascal Dengan Looping For To Do - program pascal yang akan dibuat kali ini adalah program sederhana dengan menggunakan looping yang nilai naik yaitu looping for to do. pengunaan looping ini sebenarnya cukup mudah diterapkan dalam program pascal dan sangat berguna untuk menghemat script program agar tidak terlalu panjang. misalnya akan ingin program menampilkan kata "saya anak IT" sebanyak 10 kali. tanpa looping pastinya anda harus menulis script dengan statement write atau writeln sebanyak 10 kali. tapi, dengan looping for to do anda cukup menuliskan statement write/writeln sebanyak 1 kali. sintaks umum dari looping ini adalah for ... to ... do. langsung aja dicoba program pascal sederhana dengan looping for to do

Script Program :

program loopingfortodo;

uses crt;

var a,b,c : integer;

begin

clrscr;

for a:=1 to 10 do

writeln('saya anak IT');

readln;

end.

Script hasil Screenshot :

Tampilan Output Program :

Penjelasan Script diatas saya rasa cukup mudah untuk dipahami dimana inti dari program adalah statement for a:=1 to 10 do yang akan melakukan looping atau perulangan statement dibawahnya yaitu write("saya anak IT"); sebanyak 10 kali. eksekusi program dimulai dari a=1, lalu diulang lagi dimana saat perulangan kedua nilai a=2 dan seterusnya sampai a=10. terima kasih telah membaca program pascal sederhana ini. jangan lupa mampir terus disini.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Pascal Luas Persegi Panjang

Kali ini program pascal yang akan dibuat adalah program luas persegi panjang, namun, karena ini adalah program mudah maka tipe data akan saya gunakan tipe data bulat ( integer ) sehingga setiap input yang dimasukkan harus bilangan bulat. tidak boleh bilangan pecahan/berkoma. namun, untuk yang akan datang saya akan usahakan untuk membuat program yang lebih baik lagi. bagi yang sudah penasaran silahkan dilihat script programnya dibawah ini.

versi gambar

script Program Pascal Luas Persegi Panjang

Program Luas Persegi Panjang

versi text

program luas_persegi_panjang;

uses crt;

var lebar,panjang : integer;

luas : real;

begin

clrscr;

writeln('Program Luas Persegi Panjang ');

writeln;

write('Masukkan Panjang (CM) : ');

readln(panjang);

write('Masukkan Lebar (CM) : ');

readln(lebar);

writeln;

luas:=panjang*lebar;

writeln('Luas Persegi Panjang = ',panjang,' X ',lebar, ' = ',luas);

readln;

end.

Tampilan Output Program

Tampilan program saat running

Penjelasan Script : tidak banyak yang akan dijelaskan dari script diatas, yang harus diingat saat menginputkan nilai panjang dan lebar tidak boleh menggunakan koma misalnya : 10.7 atau 5.1 karena tipe data yang digunakan adalah integer ( bilangan bulat ). jika anda menginput angka berkoma maka program akan langsung erorr dan kembali ke tampilan kode. saya rasa hanya itu saja dan saya rasa juga anda sudah bisa memahami script program yang sederhana ini. masih mencari program pascal lain ? silahkan klik disini untuk melihat program pascal yang lain.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Konversi Angka Negatif Ke Positif

Berbeda dengan postigan sebelumnya , kali ini kita akan belajar membuat Program Konversi Angka Negatif Ke Positif sederhana biar ngak mabuk. belajar pada intinya yang penting dapat sedikit mengerti dan memahami daripada melahap 1 buku tapi ngak ada yang didapatkan lebih baik hanya 1 kertas tapi ada yang bisa dimengerti dan langsung dipratekan. langsung aja cek script y di bawah.

Script Program Konversi Angka Negatif Ke Positif

Versi Gambar

Negatif Ke Positif

Versi Script

program konversi_negatif_ke_positif;

uses crt;

label input_ulang;

var a,b : integer;

begin

clrscr;

writeln('Program Pascal Konversi Negatif Ke Positif ');

writeln;

write('Masukkan Angka Negatif Yang Diinginkan : ');

readln(a);

b:=a-2*a;

writeln;

writeln('Bilangan Negatif ',a,' Setelah dikonversikan menjadi ',b);

readln;

end.

Tampilan Output Program

Negatif Ke Positif

Semoga artikel ini membantu anda semua dalam mepelajari bahasa pemrograman pascal.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Pengertian Pointer Dalam Pascal

Pointer digunakan untuk melakukan alokasi variabel yang dinamis. jadi untuk menjadi seorang programmer pascal sejati maka sangat penting untuk belajar pointer dalam pascal.

Pengertian Pointer Dalam Pascal

Pointer adalah variabel dinamis dimana nilai variabel tersebut berasal dari variabel lain, pointer harus dideklarasikan sebelum dapat digunakan dalam program

Sintaks Deklarasi Pointer :

type nama_pointer = ^tipe_data;

Pointer ditandai dengan tanda ^ yang diikuti oleh tipe data yang diinginkan dan setelah melakukan deklarasi pointer maka selanjutnya kita harus menggunakan deklarasi variabel untuk mendeklrasikan variabel pointer.

var nama1,nama2 : nama_pointer;

Mencetak Alamat Memory di Pascal

Pascal mengijinkan kita untuk menetapkan alamat dari variabel ke variabel pointer menggunakan operator alamat @, @ digunakan untuk memanipulasi dan bermain-main dengan variabel.

Contoh Program :

Versi gambar :

Program Pointer

Versi script :

program contoh;

uses crt;

var

nilai: integer;

score: ^integer;

besar: ^word;

begin

clrscr;

nilai := 500;

writeln('Nilai =: ', nilai);

score := @nilai;

writeln('Score Menuju Nilai = : ', score^);

score^ := 1000;

writeln('Nilai is: ', nilai);

writeln('Score Menuju Nilai = : ', score^);

besar := addr(score);

writeln('Besar = ',besar^);

readln;

end.

Tampilan Output :

Output Program Pointer

Pointer NIL

Pointer Nil diberikan jika tidak ada alamat yang tepat untuk pointer dan nilai dari pointer nil adalah 0.

Contoh Penggunaan :

program pointer_nil;

uses crt;

var

nilai: integer;

score: ^integer;

besar: ^word;

begin

clrscr;

score := nil;

besar := addr(score);

writeln('Nilai dari Score = ', besar^);

readln;

end.

Tampilan Program

Pointer Nil

Mungkin sampai disini dulu pembahasan tentang pointer, semoga membantu sobat sekalian yang lagi belajar pemrograman baik yang sedang kuliah maupun kerja. hehehehehhe.....

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Konversi Bilangan Positif Ke Negatif

kali ini program pascal yang akan dibuat adalah konversi bilangan positif ke negatif dimana algoritma perhitunganya bilangan positif yang diinputkan akan dikurangi 2 kali lipat hasil bilangan yang diinput. contoh jika input adalah 5 maka 5 akan dikurangi 2 kali lipat nilai dari 5 yaitu 10. maka 5 -10 = -5. algoritmanya cukup gampang dimengerti. baiklah sekarang langsung saja becoding riang.

Script Program Konversi Bilangan Positif Ke Negatif Pascal

Versi Gambar

Script Coding

Versi Notepad

program konversi_postif_ke_negatif;

uses crt;

label input_ulang;

var a,b,c,d : integer;

begin

clrscr;

writeln('Program Pascal Konversi Positif Ke Negatif ');

writeln;

write('Masukkan Angka Positif Yang Diinginkan : ');

readln(a);

b:=a-2*a;

writeln;

writeln('Bilangan Positif ',a,' Setelah dikonversikan menjadi ',b);

readln;

end.

Tampilan Output Program saat dijalankan

Tampilan Program

Bagi yang ingin download program ini bisa melalui link dibawah

Download Program Konversi Positif Ke Negatif

scriptnya ane gak bakal banyak jelasin abis ngak terlalu susah, oh iya ane tadi lupa buat label input_ulangnya jadi itu baris bisa dihapus dan tidak akan mempengaruhi program sehingga bisa juga scriptnya seperti ini

program konversi_postif_ke_negatif;

uses crt;

var a,b,c,d : integer;

begin

clrscr;

writeln('Program Pascal Konversi Positif Ke Negatif ');

writeln;

write('Masukkan Angka Positif Yang Diinginkan : ');

readln(a);

b:=a-2*a;

writeln;

writeln('Bilangan Positif ',a,' Setelah dikonversikan menjadi ',b);

readln;

end.

Silahkan mencoba program ini dan jika tidak berhasil disarankan untuk mendownload program ini lewat mediafire agar ada perbandingan buat anda untuk mempelajari program ini.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Pascal Sederhana

Menulis sebuah program dalam bahasa pemrograman pascal memang bukan hal yang mudah dan juga bukan hal yang susah jadi intinya menulis program dalam bahasa pascal itu gampang - gampang susah. kalau masih dalam lingkup program sederhana tentunya lebih mudah dimengerti dan ditulis dibanding program yang memiliki tingkat kesulitan yang tinggi. program pascal sederhana yang dibuat kali ini adalah 2 nilai yang diinput dan dilakukan operasi aritmatika pada kedua nilai ini seperti penjumlahan, perkalian, pembagian, pengurangan,sisa hasil bagi ( Modulo ).

Berikut Script Programnya :

Versi Gambar ( Screenshoot )

Program Pascal Sederhana

Versi Ketikkan Di Notepad

program sederhana;

uses crt;

var a,b,c,d,e,g,h : integer;

f : real;

begin

clrscr;

writeln('Program Pascal Sederhana ');

writeln('- - - - - - - - - - - -- - - - - ');

writeln;

write('Masukkan Angka Petama : ');

readln(a);

write('Masukkan Angka Kedua : ');
readln(b);

c:=a+b;

d:=a-b;

e:=a*b;

f:=a/b;

g:=a mod b;

h:=a div b;

writeln;

writeln('Hasil penjumlahan : ',c);

writeln('Hasil Pengurangan : ',d);
writeln('Hasil Perkalian : ',e);

writeln('Hasil Pembagian desimal : ',f:0:2);

writeln('Hasil Modulo : ',g);

writeln('Hasil Pembagian Bulat : ',h);

readln;

end.

Yang mau download program pascal sederhana silahkan download dari link di bawah :

Download Program Pascal Sederhana Via Ziddu

Tampilan Program Saat Dijalankan

Tampilan Program Saat DIjalankan

Penjelasan Script Pascal di atas :

program sederhana; << merupakan kepala program dimana kata program diikuti oleh nama program dalam hal ini sederhana diakhiri tanda titik koma >>

uses crt; << merupakan deklarasi pengaktifkan library yang berrhubungan dengan pengaturan layar dan dalam program ini salah satu perintahnya adalah clrscr untuk membersihkan layar >>

var a,b,c,d,e,g,h : integer;

f : real;

<< merupakan bagian deklarasi variabel yang akan digunakan dalam program dimana ada 2 tipe variabel yang digunakan yaitu integer ( bilangan bulat tidak berkoma ) dan real ( bilangan berkoma/desimal ) >>

begin < perintah awal dari program utama merupakan sintaks pascal >>

clrscr; << membersihkan layar sebelumnya sehingga layar menjadi bersih >>

writeln('Program Pascal Sederhana '); << writeln berfungsi mencetak ke layar lalu kursor dipindahkan ke bawah atau baris berikutnya >>

writeln('- - - - - - - - - - - -- - - - - '); << mencetak ke layar >>

writeln; << mencetak ke layar ( karena kosong maka berfungsi memindahkan kursor ke bawah ) >>

write('Masukkan Angka Petama : '); << mencetak ke layar ( meminta input )>>

readln(a); << menyimpan nilai/angka yang diinput ke dalam variabel a >>

write('Masukkan Angka Kedua : '); << mencetak ke layar ( meminta input ) >>
readln(b); << menyimpan nilai/angka yang diinput ke dalam variabel b >>

operasi aritmatika :

c:=a+b; << Penjumlahan >>

d:=a-b; << Pengurangan >>

e:=a*b; << Perkalian >>

f:=a/b; << Pembagian desimal / berkoma >>

g:=a mod b; << sisa hasil bagi >>

h:=a div b; << pembagian bulat >>

writeln;

writeln('Hasil penjumlahan : ',c); << mencetak ke layar >>

writeln('Hasil Pengurangan : ',d); << mencetak ke layar >>
writeln('Hasil Perkalian : ',e); << mencetak ke layar >>

writeln('Hasil Pembagian desimal : ',f:0:2); << :0:2 berfungsi membatasi 2 angka di belakang koma >>

writeln('Hasil Modulo : ',g); << mencetak ke layar >>

writeln('Hasil Pembagian Bulat : ',h); << mencetak ke layar >>

readln; << membaca program dan juga agar program tidak langsung keluar saat selesai dieksekusi atau dalam kata lain sebagai penahan program agar tidak langsung keluar/berakhir sehingga pengguna dapat membaca program yang telah dijalankan >>

end. << akhir dari program utama ( merupakan sintaks pascal ) >>

Demikianlah Program Pascal Sederhana Ini , Jika merasa masih ingin melihat program - program pascal yang lain silahkan melihat di postigan kumpulan program pascal dan selamat mempelajari pemrograman secara online di blog kami.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Pascal Negatif Dan Positif

Sore guys, program pascal bilangan negatif dan positif ini saya posting untuk memacu semangat becoding terus , kali ini saya akan membagikan script untuk menentukan bilangan positif atau negatif dan seperti yang kita ketahui bahwa setiap bilangan yang dibawah angka 0 adalah negatif dan lebih dari 0 adalah bilangan positif. program pascal ini mungkin masih kurang sempurna dan mungkin teman-teman dapat membuat program bilangan positif dan negatif ini menjadi lebih baik lagi. ok, langsung aja di cek sricpt pascal nya di bawah ini

program negatifpositif;
uses crt;
var
   a : integer;
begin
   clrscr;
   write('Masukkan Angka : ');
   readln(a);
   if a > 0 then
   write(a,' Adalah Bilangan Positif ');
   else if a < 0 then
   write(a,' Adalah Bilangan Negatif ');
   else
   write(a, ' Adalah Bilangan Nol ');
   readln;
end.

Tampilan Output Program :

Program Bilangan Positif Dan Negatif

Penjelasan script : pada program pascal ini saya menggunakan penyeleksian kondisi if-else if - else dan algoritmanya adalah sebagai berikut angka < (kurang dari ) 0 adalah bilangan negatif dan angka > 0 ( kurang lebih ) 0 adalah bilangan positif dan jika angka tersebut = 0 maka nilainya adalah bilangan 0 karena 0 adalah angka netral ( bukan negatif maupun positif ).

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Pascal Faktorial

Kali ini saya akan membagikan program faktorial pascal. program ini dibuat dengan perulangan (looping) dengan sedikit modifikasi dan pengaturan dan juga sebagai inspirasi bagi sobat untuk terus belajar pemrograman komputer,hehhehehe. langsung aja cek script program pascal ini dan silahkan dipelajari serta dipahami. hahahhaa....

program faktorial;
uses crt;
var
    a,b,c: longint;
begin
    clrscr;
    Writeln('      Program Faktorial         ');
    Writeln('       - - - - - - - - - -      ');
    writeln('Belajarcodingonline.blogspot.com');
    writeln;
    Write('Masukkan Angka Yang Ingin Dicari : '); readln(a);
    writeln;
    write('Hasil Dari ',a,'! = ');
    for b:=a downto 1 do
    if b=1 then write('1 = ')
    else
    write(b,' x ');
    c:=1;
    for b:=a downto 1 do
    c:= c*b;
    write(c);
    readln;
end.

Tampilan output program seperti ini :

Program Pascal Faktorial

Bagi Yang Mau Download silahkan download di link dibawah ini via ziddu.

Download Program Pascal Faktorial Gratis via ziddu

Ok, saya rasa cukup gitu aja and selamat belajar pascal.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Sudut Trigonometri Pascal

Malam guys, kali ini saya akan memposting program mencari nilai sudut dari trigonometri yaitu sinus, cosinus, tangen, dan contangen. program ini tidaklah terlalu sulit dan saya rasa jika anda melihat scriptnya akan sangat mudah memahaminya karena hanya mengunakkan rumus matematika yang telah disediakan dalam pascal sendiri. dan berikut script programnya.

program Mencari_Nilai_Trigonometri;
uses math,crt;
var
   sudut : integer;
   radian,s,c,t,con : real;
   mengulang : char;
const
   phi = 3.14;
begin
   mengulang:='Y';
   while mengulang <> 'T' do
   begin
   clrscr;
   writeln(' Program Menghitung Nilai Trigonometri ');
   Writeln(' - - - - - - - - - - - - - - - - - - - ');
   writeln('Besar Sudut Antara 0 Sampai 360 Derajat');writeln;
   writeln;
   write('Masukkan Besar Sudut Yang Anda Inginkan : ');
   readln(sudut);
   radian :=sudut/180*phi;
   writeln;
   writeln('Hasil Dari ',sudut, ' Derajat Sama Dengan Sebagai Berikut ');
   writeln;
   writeln('Nilai Sin ',sudut, ' Derajat = ',sin(radian):0:2); writeln;
   writeln('Nilai Cos ',sudut, ' Derajat = ',cos(radian):0:2); writeln;
   if sudut=90 then writeln('Nilai Tan ',sudut,' Derajat = Tidak Tentu')
   else if sudut=270 then writeln('Nilai Tan ',sudut,' Derajat = Tidak Tentu')
   else begin t:=sin(radian)/cos(radian);
   writeln('Nilai Tan ',sudut, ' Derajat = ',t:0:2); writeln;
   end;
   if sudut=0 then writeln('Nilai Contangen ',sudut,' Derajat = Tidak tentu')
   else if sudut=180 then writeln('Nilai Contangen ',sudut,' Derajat = Tidak tentu')
   else if sudut=360 then writeln('Nilai Contangen ',sudut,' Derajat = Tidak tentu')
   else begin con:=cos(radian)/sin(radian);
   writeln('Nilai Contangen ',sudut,' Derajat = ',con:0:2);
   end;
   writeln;
   writeln('- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -');
   writeln('Apakah Anda Ingin Mencoba Program Ini Lagi ? ');
   writeln('- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -');
   writeln;
   Writeln('Tekan Y Jika Ingin Mencoba Lagi Atau T Jika Anda Ingin Keluar');
   writeln;
   write('Masukkan Y atau T : ');
   readln(mengulang);
   end;
End.

Output Program

Program Sudut Trigonometri Pascal

Jika ingin mendownload file program yang sudah dikompilasi silahkan download via ziddu di link dibawah.

Download Program Sudut Trigonometri Pascal

Penjelasan script : untuk mencari nilai sin,cos,dan tan maka kita mengaktifkan library math dan merubah nilai sudut yang diinputkan dalam bentuk radian baru mencari besar sudutnya karena nilai sudut tan dari 90 dan 270 derajat tidak tentu maka kita mengunakkan penyeleksian kondisi dan juga untuk contangen karean nilai dari 1/0 = tak tentu maka kita menggunakkan penyeleksian kondisi dimana jika besar sudut yang dimasukkan itu 0,180, dan 360 maka nilainya tak tentu.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Pascal Data Mahasiswa

berhubung lagi gencar dan suka coding kali ini saya akan berbagi lagi program input data mahasiswa yang cukup sederhana namun ditambah sedikit variasi dengan perintah perulangan while..do dengan penyeleksian kondisi sehingga perulangan hanya akan terjadi sesuai dengan kondisi yang terpasang pada kode sumber program. silahkan dipelajarin kode sumber program data mahasiswa dibawah ini.

program data_mahasiswa;
uses crt;
var
   nama, nim : string;
   nilai,jurusan : integer ;
   ulang : char;
begin
   while upcase(ulang) <> 'T' do
   begin
   clrscr;
   writeln(' - - - - - - - - - - - - - - ');
   writeln('    Program Data Mahasiswa   ');
   writeln(' - - - - - - - - - - - - - - ');
   writeln;
   write('Masukkan Nama Mahasiswa : ');
   readln(nama);
   writeln;
   write('Masukkan NIM Mahasiswa : ');
   readln(nim);
   Writeln;
   writeln('Pilihan Jurusan Yang Tersedia : ');
   writeln('1. Teknik Sipil ');
   writeln('2. Teknik Elektro ');
   writeln('3. Teknik Arsitektur ');
   writeln('4. Teknik Mesin ');
   writeln('5. Teknik Perencanaan Wilayah & Kota ');
   writeln('6. Teknik Informatika ');
   writeln;
   write('Masukkan Nomor Jurusan Mahasiswa : ');
   readln(jurusan);
   writeln;
   writeln('Rentang Nilai : ');
   writeln('80 - 100 = A ');
   writeln('60 - 79 = B ');
   writeln('40 - 59 = C ');
   writeln('20 - 39 = D ');
   writeln('0 - 19 = E ');
   writeln;
   write('Masukkan Nilai Akhir Mahasiswa : ');
   readln(nilai);
   writeln;
   writeln;
   writeln('Data-Data Mahasiswa Yang Anda Telah Input Adalah ');
   writeln;
   writeln;
   writeln('Nama Mahasiswa Adalah ',nama);
   writeln;
   writeln('NIM Mahasiswa Adalah ',nim);
   writeln;
   case jurusan of
   1 : begin writeln('Jurusan Mahasiswa Adalah Teknik Sipil ') end;
   2 : begin writeln('Jurusan Mahasiswa Adalah Teknik Elektro '); end;
   3 : begin writeln('Jurusan Mahasiswa Adalah Teknik Arsitektur '); end;
   4 : begin writeln('Jurusan Mahasiswa Adalah Teknik Mesin '); end;
   5 : begin writeln('Jurusan Mahasiswa Adalah Teknik Perencanaan Wilayah Dan Kota '); end;
   6 : begin writeln('Jurusan Mahasiswa Adalah Teknik Informatika'); end;
   end;
   writeln;
   if nilai <=19 then writeln('Nilai Anda ',nilai,' Sama Dengan E ')
   else if nilai <=39 then writeln('Nilai Anda ',nilai, ' Sama Dengan D ')
   else if nilai <=59 then writeln('Nilai Anda ',nilai, ' Sama Dengan C ')
   else if nilai <=79 then writeln('Nilai Anda ',nilai, ' Sama Dengan B ')
   else if nilai <=100 then writeln('Nilai Anda ',nilai, ' Sama Dengan A ')
   else writeln('Anda Salah Memasukkan Nilai Mahasiswa ');
   writeln;
   writeln;
   writeln('Tekan Y untuk Mengiput Data Lagi & T untuk Keluar Dari Program ');
   write('Masukkan Y/T : ');
   readln(ulang);
   end;
end.

output dari program :

Program Pascal Data Mahasiswa

Jika anda langsung ingin mencoba program ini saya menyertakan file program yang sudah dikompilasi dan tentu saja akan running di sistem operasi windows. silahkan di download file program ini via ziddu.

Download Program Pascal Data Mahasiswa via ziddu

Ok, pada program ini mengunakan penyeleksian kondisi if..then..else yang sebenarnya dapat juga diganti dengan penyeleksian kondisi case..of tergantung dari kesukaan sobat, perulangan program dapat terjadi selama nilai input yang dimasukkan bukan T jadi jika kita memasukkan input berapapun kecuali bukan T maka program akan terus mengulang hal ini sesuai dengan kondisi yang dipasang dalam program dan input T (besar) ataupun t (kecil) tidak menjadi masalah karena adanya perintah upcase yang mengubah nilai input yang dimasukkan menjadi huruf besar. thankss for reading...

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Pascal Konversi Waktu

malam guys, malam ini gue bakal posting lagi sebuah program pascal yaitu program konversi waktu dimana input yang dimasukkan adalah jumlah detik dan output dari program akan menampilkan jam, menit dan detik dalam program ini perintahnya cukup sederhana. langsung aja cek it out.

program konversi_waktu;
uses crt;
var
   detik,menit,jam,sisa_detik : longint;
begin
    clrscr;
    writeln('program konversi_waktu');
    writeln('- - - - - - - - - - - -');
    writeln;
    write('Masukkan Jumlah detik = ');
    readln(detik);
    jam := detik div 3600;
    sisa_detik := detik mod 3600;
    menit := sisa_detik div 60;
    sisa_detik := sisa_detik mod 60;
    writeln;
    writeln(detik,' detik = ',jam, ' jam ',menit, ' menit ',sisa_detik, ' detik ');
    readln();
End.

output dari program seperti pada gambar dibawah ini :

Program Konversi Waktu

Silahkan download file program ini yang sudah dikompilasi via ziddu. klik link biru di bawah ini.

Download Program Pascal Konversi Waktu via ziddu

Saya rasa program ini cukup mudah untuk dipahami sehingga saya rasa ngak perlu buat dijelasin dan coba pahami dulu guys. thanks for visiting my blog.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Billing Pascal

Malam ini saya akan membahas tentang program billing pascal dimana tarif per jam dari billing dari Rp. 3000 dan setelah itu tarif akan bertambah secara otomatis sebesar Rp. 1500 per menit langsung saja cek codingnya.

Program Billing_warnet;
Uses crt;
var
     jam1,menit1,detik1,jam2,menit2,detik2,detik3 : integer ;
     jam3,jam4,jamtotal,jumenit,sisajam,sisamenit,sisadetik,harga : longint ;
begin
    clrscr;
    writeln('- - - - - - - - - - - - - - - - ');
    writeln('- - -Program Billing Warnet- - -');
    writeln('- - - - - - - - - - - - - - - - ');
    writeln('    Cyber Billing New Version   ');
    writeln('= = = = = = = = = = = = = = = = ');
    writeln('   Tarif Termurah Rp.3000/Jam   ');
    writeln('= = = = = = = = == = = = = == = ');
    writeln(' Tarif Bertambah 1500/15 menit   ');
    writeln('    Jika Lewat dari 1 Jam '      );
    writeln;
    writeln;
    writeln('Jam Yang Diinput Berkisar Antara 00 Sampai 23');
    writeln;
    writeln('Menit & Detik Yang Diinput Berkisar 0 Sampai 59');
    writeln;
    writeln;
    write('Masukkan Jam Login ( Jam Mulai ) : '); readln(jam1);
    write('Masukkan Menit Login ( Menit Mulai ) : '); readln(menit1);
    write('Masukkan Detik Login ( Detik Mulai ) : '); readln(detik1);
    writeln;
    write('Masukkan Jam Logout ( Jam Berhenti ) : '); readln(jam2);
    write('Masukkan Menit Logout ( Menit Berhenti ) : '); readln(menit2);
    write('Masukkan Detik Logout ( Detik Berhenti ) : '); readln(detik2);
    jam3 := jam1*3600+menit1*60+detik1;
    jam4 := jam2*3600+menit2*60+detik2;
    jamtotal := jam4-jam3;
    jumenit := jamtotal div 60;
    sisajam := jamtotal div 3600;
    sisamenit := jamtotal mod 3600 div 60;
    sisadetik := jamtotal mod 3600 mod 60;
    writeln;
    writeln('Lama Anda Bermain Adalah ',sisajam,' Jam ',sisamenit,' Menit ',sisadetik,' Detik ');
    writeln;
    if jumenit = 0 then writeln('Tarif Bermain Anda Rp. 0 ')
    else if jumenit <= 60 then writeln('Tarif Bermain Anda Rp. 3000 ')
        else if jumenit > 60 then

        begin
        harga := sisamenit div 15 *1500 + 3000*sisajam;
        writeln('Tarif Anda Bermain Adalah Rp. ',harga);

end;
readln;

End.

output dari program adalah sebagai berikut


Program Billing Pascal

jika anda malas mengetik dan ingin langsung mencoba program ini ataupun sekedar menambah koleksi program pascal anda, silahkan download file program ini yang sudah saya kompilasi.

Download Program Pascal Billing Warnet Sederhana

Penjelasan :

program akan mengubah setiap angka yang diinput dalam satua detik lalu mencari jamtotal dalam satuan detik selanjutnya program akan mengeksekusi instruksi perhitungan dimana lama jam bermain yaitu jam = jamtotal div 3600, sisamenit = jamtotal mod 3600 div 60, sisadetik = jamtotal mod 3600 mod 60 lalu dilanjutkan dalam penyeleksian kondisi jika jumenit = 0 maka tarif Rp.0 ,jika jumenit < 60 maka tarif Rp. 3000 dan jika keduanya tidak memenuhhi kondisi maka dilanjutkan ke kondisi jumenit > 60 maka akan masuk dalam rumus perhitungan harga = sisamenit div 15 *1500 + 3000*sisajam sehingga diperoleh tarif bermain.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Konversi Kalimat Pascal

Malam guys, kali ini saya akan membagikan program mengonversikan kalimat di pascal dimana dalam satu kali input kalimat akan dikonversikan dari kata-kata dari huruf kecil diubah ke besar dan kata-kata dari huruf besar diubah ke huruf kecil. program ini mengunakkan kode desimal dari huruf sesuai dengan ASCII ( American Standar Code For Information Interchange). Langsung aja cek source code y.

Program Konversikalimat;
Uses Crt;
Var
   i : integer
   kalimat : string;
Begin
   Clrscr;
   Write('Masukkan Kalimat Anda : ');
   Readln(kalimat);
   For i := 1 to Length(kalimat) do
   if ord(kalimat[i]) > 96 then
   begin
   kalimat[i] :=chr(ord(kalimat[i]) - 32);
   end
   else if ord(kalimat[i]) = 32 then
   begin
   kalimat[i] := chr(32);
   end
   else if ord(kalimat[i]) < 96 then
   begin
   kalimat[i] := chr(ord(kalimat[i]) + 32 );
   end;
   Write('Hasil Konversi Adalah ' ,kalimat);
   Readln;
End.

Tampilan Output Akan Jadi Seperti Dibawah ini tergantung Kalimat yang Anda Masukkan.

Program Konversi Kalimat Pascal

Jika anda ingin langsung mencoba program ini silahkan download file program yang sudah saya kompilasi dan upload di ziddu. silahkan klik link biru di bawah ini.

Download Program Pascal Konversi Kalimat Pascal via ziddu

Penjelasan algoritma dan script :

pada program konversi kalimat di atas fungsi dari ord(kalimat[i] adalah untuk membaca setiap karakter yang diinputkan oleh user sesuai dengan nilai desimal ASCII sehingga jika karakter string yang diinputkan adalah huruf kecil maka program akan mengubah ke huruf besar dengan cara kode dari string dikurang 32 dan apabila kode string sama dengan 32 dalam hal ini SPASI maka program tidak akan mengubahnya dan yang terakhir jika karakter yang inputkan ternyata memiliki kode ASCII lebih dari 97 maka program akan mengubahnya dengan cara ditambah 32 sehingga huruf-huruf yang tadinya besar akan diubah menjadi huruf kecil. berikut tabel ASCII agar anda lebih mudah memahami penjelasan script ini.

Tabel ASCII

Ok, saya rasa cuku sampai disini dan terima kasih.

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Program Pascal Dengan Looping For Downto Do

Pagis sobat dunia komputer, hari ini kita akan belajat mengenai Looping for..downto..do dimana fungsi ini dalam pascal merupakan fungsi perulangan menurun dan jumlah perulangan yang diingikan telah diketahui jumlahnya. hal ini berbeda dengan looping(perulangan) while..do ataupun repeat..until dimana perulangan yang diinginkan belum diketahui jumlahnya dan jalan atau tidaknya perulangan dalam program tergantung kondisi yang dipasang dalam program...

Sebagai Contoh Kali ini saya akan memberikan contoh program pascal dimana program akan mengulang terus dari angka genap sampai terendah membentuk segitiga. dibawah ini adalah source code ya.

Program nomor2b;

Uses crt;

Var a,b : integer;

Begin

Clrscr;

For a := 0 to 10 do

Begin

If a mod 2 = 0 then

For b:=10 downto a do

If b mod 2 = 0 then

Write(b:2);

Writeln;

End;

Readln;

End.

Tampilan output akan menjadi seperti ini

penjelasan script : Pada program di atas output yang muncul hanya bilangan genap saja dan ini merupakan fungsi dari If a mod 2 = 0 (kondisi ini hanya akan memproses data-data dari a yang jika sisa hasil bagi tersebut 0 maka baru angka tersebut di proses lalu dilanjutkan then For b:=10 downto i do ( perintah perulangan ini akan membuat 10 berulang sampai a dan kondisi If b mod 2 = 0 ( maka perintah ini hanya akan mencetak output yang sesuai dengan kondisi itu yaitu bilangan genap dan write(b:2) angka 2 disini berfungsi sebagai jarak spasi antar angka yang dicetak.

Ok, saya rasa cukup sampai disini dan terima kasih telah membaca artikel ini..

jika, ingin mencopy artikel ini ke blog sobat jangan lupa tinggalkan credit untuk blog ini yakni..

duniakomputers.blogspot.com

Baca Selengkapnya .... Diposting oleh Tutorial Programming Simple

Template by Berita Update - Trik SEO Terbaru. Original design by Bamz | Copyright of Belajar Pemrograman Komputer Secara OTODIDAK.

Belajar Pemrograman Komputer Secara OTODIDAK

Contoh Program Pascal Perulangan

script program pascal perulangan

Program Pascal Dengan Looping For To Do

Program Pascal Luas Persegi Panjang

Program Konversi Angka Negatif Ke Positif

Pengertian Pointer Dalam Pascal

Program Konversi Bilangan Positif Ke Negatif

Download Program Konversi Positif Ke Negatif

Program Pascal Sederhana

Download Program Pascal Sederhana Via Ziddu

Program Pascal Negatif Dan Positif

Program Pascal Faktorial

Program Sudut Trigonometri Pascal

Program Pascal Data Mahasiswa

Program Pascal Konversi Waktu

Program Billing Pascal

Program Konversi Kalimat Pascal

Program Pascal Dengan Looping For Downto Do

Info Paling Dicari

Pengikut

TOTAL PEMBACA MINGGU INI

Kategori

Kategori