Logika Algoritma
Senin, 07 November 2016
Sabtu, 22 Oktober 2016
PROGRAM MENGHITUNG NILAI MAHASISWA
Pada program menghitung nilai mahasiswa kita
dapat menginput nim, nama mahasiswa serta nilai yang di programkan oleh
maasiswa.
Langkah-langkah
membuat program honor yaitu:
1. Gunakan Laptop atau PC. System operasi yang saya
gunakan Windows 7
2. Pastikan anda telah menginstall aplikasi pascal,
turbo pascal version 7 yang saya gunakan.
3. Compile pascal yang telah di install
4. Pilih file change
Directory (untuk menyimpan file pada hardisk dan folrder yang telah di
pilih)
5. Klik save
6. Selanjutkan ketik koding di bawah ini:
Uses crt; Var nim, nama :string; a, b, c, d, e, f, jumlah:integer; rata : real; begin write(‘Masukkan NIM : ‘); readln(nim); write(‘Masukkan Nama : ‘); readln(nama); writeln(‘=====================================’); write(‘Masukkan Nilai Agama : ‘); readln(a); write(‘Masukkan Nilai Algoritma : ‘); readln(b); write(‘Masukkan Nilai Matematika : ‘); readln(c); write(‘Masukkan Nilai Akuntansi : ‘); readln(d); write(‘Masukkan Nilai Bahasa Inggris : ‘); readln(e); write(‘Masukkan Nilai Bahasa Indonesia : ‘); readln(f); jumlah:=a+b+c+d+e+f; rata:=(a+b+c+d+e+f)/6; writeln; writeln(‘NIM : ‘, nim); writeln(‘Nama : ‘, nama); writeln(‘Jumlah Total : ‘,jumlah); writeln(‘Rata-rata Nilai : ‘,rata:4:2); readln; end.
PROGRAM HONOR
Pada program honor ini kita dapat mengetahui
honor yang di dapat oleh
pegawai/karyawan, tunjangan anak apabila telah menikah dan di karunai anak
serta gaji bersih yang di dapatkan dari
gaji dikurangi pajak.
Langkah-langkah membuat program honor yaitu:
1. Gunakan Laptop atau PC. System operasi yang saya
gunakan Windows 7
2. Pastikan anda telah menginstall aplikasi pascal,
turbo pascal version 7 yang saya gunakan.
3. Compile pascal yang telah di install
4. Pilih file change
Directory (untuk menyimpan file pada hardisk dan folrder yang telah di
pilih)
5. Klik save
6. Selanjutkan ketik koding di bawah ini:
{program hitung honor} Uses crt; Label mulai, akhir; Var nama : string; St, jk, jw : char; Ja, jhk :integer; Hnr,tk, ta, thnr, hnrb, pajak :real; Begin Mulai: Clrscr; Write (‘Nama Pegawai :’); readln (nama); Write(‘Jenis kelamin [P/W] :’);readln(jk); Write(‘Status Pegawai [N/B] :’);readln(st); Write(‘Jumlah hari kerja :’);readln(jhk); If (jk =’P’) or (jk =’p’) then hnr := 150000 else hnr := 145000; Thnr := jhk * hnr; Case st of ‘N’ : begin Tk := 0.2 * thnr; Write (‘Jumlah anak :’); readln (ja); Case ja of 0 : ta:=0; 1 : ta:= 0.1 * thnr; 2 : ta:= (0.1 * thnr)+(0.15 * thnr); 3 : ta:= (0.1 * thnr)+(0.15 * thnr)+(0.2 * thnr); Else ta:= (0.1 * thnr)+(0.15 * thnr)+(0.2*thnr); End; ‘B’ : begin Tk := 0; Ta := 0; End; End; Thnr:= hnr + tk + ta; Pajak:= 0.2 * thnr; hnrb := thnr – pajar; clrscr; writeln (‘ Saudara :’,nama); writeln (‘ Jenis Kelamin :’,jk); writeln (‘ Status :’,st); writeln (‘ Sudah bekerja selama :’,jhk); writeln (‘hari’); writeln; writeln (‘ …………………….Berhak Mendapat…………..’); writeln (‘ Tunjangan Keluarga Sebesar :Rp.’, tk:7:2); writeln (‘ Tunjangan Anak Sebesar :Rp.’, ta:7:2); writeln (‘ Total Honorarium :Rp.’, thnr:7:2); writeln (‘ Wajib Membayar Pajak Sebesar :Rp.’, pajak:7:2); writeln (‘ Mendapat Honor Bersih Sebesar :Rp.’, hnrb:7:2); write (‘apakah ada data lain [Y/T] :’); readln (jw); if (jw=’Y’) or (jw =’y’) then goto mulai else goto akhir; akhir : write (‘TERIMA KASIH ………………SAMPAI JUMPA’); end.
7. Setelah coding di atas di ketik selanjutnya pilih
menu run → run atau ctrl+ F9
PROGRAM KONVERSI SUHU
Pada program konversi suhu ini kita dapat
mengetahui suhu yang lain seperti fahreinhaid, reamur dan Kelvin.
Langkah-langkah membuat program konversi suhu
sederhana yaitu:
1. Gunakan Laptop atau PC. System operasi yang saya
gunakan Windows 7
2. Pastikan anda telah menginstall aplikasi pascal,
turbo pascal version 7 yang saya gunakan.
3. Compile pascal yang telah di install
4. Pilih file change
Directory (untuk menyimpan file pada hardisk dan folrder yang telah di
pilih)
5. Klik save
6. Selanjutkan ketik koding di bawah ini:
Uses crt; var c,f,r,k:real; begin clrscr; writeln (‘Ini adalah Program Konversi Suhu’); write (‘Masukkan Suhu Dalam Celcius = ‘); readln(c); f:=(c*(9/5))+32; r:=(c*(4/5)); k:=(c+273.15); writeln(‘Suhu dalam fahrenhait adalah : ‘,f:6:2); writeln(‘Suhu dalam reamur adalah : ‘,r:6:2); writeln(‘Suhu dalam kelvin adalah : ‘,k:6:2); readln; end.
7. Setelah coding di atas di ketik selanjutnya pulih
menu run → run atau ctrl+ F9
Program Inputkan Nama Dan Operasi Matematika
Program
inputan ini dimana anda dapat menginput nama sendiri atau nama sesuai yang anda
inginkan dan dapat mengoperasikan matematika seperti: penjumlahan, pengurangan,
perkalian, pembagian dan mean atau rata-rata.
Langkah-langkah membuat program input nama dan
operasi matematika yaitu:
1. Gunakan Laptop atau PC. System operasi yang saya
gunakan Windows 7
2. Pastikan anda telah menginstall aplikasi pascal,
turbo pascal version 7 yang saya gunakan.
3. Compile pascal yang telah di install
4. Pilih file change
Directory (untuk menyimpan file pada hardisk dan folrder yang telah di
pilih)
5. Klik save
6. Selanjutkan ketik koding di bawah ini:
Uses crt; var nim, nama :string; a,b,jumlah,kurang,kali:integer; bagi,rata : real; begin write(‘Masukkan NIM : ‘); readln(nim); write(‘Masukkan Nama : ‘); readln(nama); writeln(‘======================================’); write(‘Masukkan Bilangan pertama : ‘); readln(a); write(‘Masukkan Bilangan kedua : ‘); readln(b); jumlah:=a+b; kurang:=a-b; kali:=a*b; bagi:=a/b; rata:=(a+b)/2; writeln; writeln(‘NIM Saya adalah : ‘, nim); writeln(‘Nama Saya adalah : ‘, nama); writeln(‘Hasil Penjumlahan : ‘,jumlah); writeln(‘Hasil Pengurangan : ‘,kurang); writeln(‘Hasil Perkalian : ‘,kali); writeln(‘Hasil Pembagian : ‘,bagi:4:2); writeln(‘Rata Ratanya : ‘,rata:4:2); readln; end.
7. Setelah coding di atas di ketik selanjutnya pilih menu run → run atau ctrl+ F9
Jumat, 21 Oktober 2016
Program Membuat Kalkulator Sederhana
Kalkulator merupakan alat bantu yang digunakan
manusia untuk memudahkan kita dalam menghitung operasi bilangan seperti
penjumlahan, pengurangan, perkalian, pembagian ataupun pemangkatan. Dengan
adanya kalkulator kita bisa dengan cepat dan mudah mendapatkan hasil dari
proses pengolahan angka.
Pernahkah sobat berfikir bagaimana cara membuat
kalkulator? bagaimana proses yang dilakukan sebuah kalkulator untuk
menghitung? bagaimana caranya kita menginput operasi bilangan dan
menghasilkan keluaran yang benar? Nah jika belum pernah, di blog ini akan
belajar cara membuat sebuah kalkulator sederhana dengan menggunakan pascal.
Langkah-langkah membuat kalkulator sederhana
yaitu:
1. Gunakan Laptop atau PC. System operasi yang saya
gunakan Windows 7
2. Pastikan anda telah menginstall aplikasi pascal,
turbo pascal version 7 yang saya gunakan.
3. Compile pascal yang telah di install
4. Pilih file change
Directory (untuk menyimpan file pada hardisk dan folrder yang telah di
pilih)
5. Klik save
6. Selanjutkan ketik koding di bawah ini:
uses crt;
var
b1, b2, i, operasi:integer;
hasil:real;
begin
clrscr;
write ('bilangan 1='); readln (b1);
write ('bilangan 2='); readln (b2);
write ('operasi = 1(+) 2(-) 3(/) 4(*) 5(^)'); readln (operasi);
hasil:=1;
if (operasi = 1) then
hasil := b1+b2
else if (operasi=2)then
hasil := b1-b2
else if (operasi=3) then
hasil := b1/b2
else if (operasi=4)then
hasil := b1*b2
else if (operasi=5) then
for i:=1 to b2 do
begin
hasil :=hasil*b1;
end;
writeln('hasilnya=',hasil:7:2);
readln;
end.
7. Setelah coding di atas di ketik selanjutnya pilih menu run → run atau ctrl+ F9
Minggu, 09 Oktober 2016
Menghitung Luas dan Keliling Lingkaran
menghitung luas dan Keliling Lingkaran
Ketik kode di bawah ini:
---------------------------------------------------------------------------------------------------------------
Ketik kode di bawah ini:
---------------------------------------------------------------------------------------------------------------
program menghitung_luas_dan_keliling_lingkaran; uses wincrt;(karena saya menggunakan turbo pascal for windows) var a,b,r:integer; L,K:real; const phi=3.14; begin write('masukkan jari-jari lingkaran = '); readln(r); L:=phi*r*r; K:=2*phi*r; writeln('jadi luas lingkarannya adalah = ',L:0:2); writeln('jadi keliling lingkarannya adalah = ',K:0:2); readkey; end.---------------------------------------------------------------------------------------------------------------
Hasilnya akan tampil seperti ini:
Langganan:
Postingan (Atom)