Showing posts with label Logika dan Algoritma. Show all posts
Showing posts with label Logika dan Algoritma. Show all posts
Looping / Perulangan For .. To ... Do
Tuesday, 10 December 2019
Diposting oleh
devitara
di
18:29:00
Looping (perulangan) dipakai untuk
mengerjakan pekerjaan yang sama, tetapi pekerjaan tersebut dilakukan dengan
berulang-ulang.
Jenis-jenis looping:
1. For .. To ... Do
2.
While
... Do
3. Repeat ... Until
Dari jenis looping
yang ada di atas, untuk lebih mudah memahaminya, perhatikan pekerjaan manusia
seperti : foto copy dokumen, membuka kelapa muda, memasukkan air kedalam bak
menggunakan gayung. Setelah memahami pekerjaan tersebut maka akan dapat lebih
mudah kapan menggunakan for, while dan repeat.
A.
For .. To ... Do
Looping ini dipakai
untuk mengerjakan pekerjaan yang berulang tetapi jelas diketahui jumlah
perulangannya, dan type data untuk kondisinya bersifat numerik.
Bentuk umumnya ada 2,
yaitu :
1. For nilai_awal
To Nilai_Akhir Do {menaik}
Pekerjaan
Contoh
For i:=1 To 3 Do
Write(i);
Hasilnya:
1
2
3
1.
For nilai_awal DownTo
Nilai_Akhir Do
Pekerjaan
Contoh
For i:=3 DownTo 1 Do
Write(i);
Hasilnya:
3
2
1
Looping juga bukan
sekedar melakukan pengerjaan mengurutkan angka, tetapi juga bisa mengerjakan
yang lain seperti menuliskan beberapa kalimat, mengulang sebuah program dan
lain sebagainya, contoh :
Label:
Algoritma,
Logika dan Algoritma
0
komentar
Soal UTS ( Penggunaan IF JAMAK)
Tuesday, 19 November 2019
Diposting oleh
devitara
di
10:42:00
·
Jika
kode barang = A01 maka nama barang =”Buku” dan harga =3000
·
Jika
kode barang = A02 maka nama barang =”Pulpen” dan harga =3000
·
Jika
kode barang = A03 maka nama barang =”Spidol” dan harga =5000
·
Jika
kode barang = A04 maka nama barang =”Pensil” dan harga =1500
Input manual untuk jumlah barang,
Total di dapat dari jumlah barang x harga barang.
Tampilan Program :
Nama : Denni M Rajagukguk
NIM : 0110049201
Masukkan Kode barang A01,A02,A03,A04 :
Nama Barang :
Harga :
Jumlah Barang :
Total :
2.
Buatlah
program untuk kasus di bawah ini
·
Jika
golongan = 3A maka jabatan fungsional =”Asisten Ahli” dan gaji=2000000
·
Jika
golongan = 3B maka jabatan fungsional =”Lektor” dan gaji=2500000
·
Jika
golongan = 3C maka jabatan fungsional =”Lektor Kepala” dan gaji=3000000
Input manual untuk berapa bulan gajinya belum dibayar (tunggakan)
Total gaji di dapat dari tunggakan x gaji
Tampilan Program :
Nama : Denni M
Rajagukguk
NIM :
0110049201
Program Studi : D3
Komputerisasi Akuntansi /Manajemen Informatika
Masukkan Golongan 3A,3B,3C :
Nama Jabatan Fungsional :
Gaji :
Tunggakan (Bulan) :
Total Gaji :
Untuk Listing Program silahkan download disini!
Membuat Biodata dengan Turbo Pascal
Tuesday, 5 November 2019
Diposting oleh
devitara
di
16:05:00
List Program:
program
biodata;
uses crt;
var
nama : string[25];
kls : string[10];
ttl, prodi, nm_prodi : string[30];
npm : intEGER;
begin
clrscr;
WRITELN
('BIODATA PRIBADI');
write('NAMA
: ');readln (nama);
write('NPM : ');readln (npm);
write('TTL : ');readln (ttl);
...............................
end.
Untuk Modul lengkapnya silahkan Downliad disini!
Program Pascal Menentukan Bilangan Genap dan Bilangan Ganjil
Diposting oleh
devitara
di
15:14:00
program bilangan_genap_ganjil;
uses crt;
var
hasil:byte;
bil: integer;
begin
clrscr;
writeln('Menentukan Bilangan Genap dan Ganjil');
writeln('created By : Denni M Rajagukguk');
writeln('====================================');
write('input bilangan: ');readln(bil);
if bil <= 0 then
begin
writeln ('bilA sama dengan bilB');
end
else
Untuk Modul lengkapnya silahkan download disini
uses crt;
var
hasil:byte;
bil: integer;
begin
clrscr;
writeln('Menentukan Bilangan Genap dan Ganjil');
writeln('created By : Denni M Rajagukguk');
writeln('====================================');
write('input bilangan: ');readln(bil);
if bil <= 0 then
begin
writeln ('bilA sama dengan bilB');
end
else
Untuk Modul lengkapnya silahkan download disini
Program Pascal Menghitung Luas Segitiga dan Penjumlahan 2 Bilangan
Diposting oleh
devitara
di
09:44:00
Mencari
Luas Segitiga
List Programnya :
Program luas_segitiga;
Uses crt;
Var a, t : integer;
L : real;
Begin
write(‘Masukkan nilai alas
:’); readln(a);
write(‘Masukkan nilai tinggi :’);
readln(t);
L :=0.5*A*T;
Write(‘Luas segitiga =’ );
Writeln(L);
Readln;
End.
Software Pemograman Menggunakan Turbo Pascal
Thursday, 18 October 2018
Diposting oleh
devitara
di
12:25:00
Di bawah ini adalah link untuk download softcopy Turbo Pascal
Silahkan download disini!
Setelah di download, langkah selanjutnya adalah extract folder tersebut.
Untuk menjalankannya pilih File TPX yang typenya Application seperti gambar dibawah ini
Silahkan download disini!
Setelah di download, langkah selanjutnya adalah extract folder tersebut.
Untuk menjalankannya pilih File TPX yang typenya Application seperti gambar dibawah ini
Setelah kita Klik file tersebut maka akan muncul tampilan berikut
Setelah itu Tekan OK, dan Turbo Pascal siap digunakan.
Pert 2: Praktek Identifier, Type Data dan Operator
Diposting oleh
devitara
di
12:13:00
Listing Program
}program pertamaku;
}uses crt;
}var
}begin
}clrscr;
}write ('Hallo, Selamat datang !!! ');
}write ('Mari kita Belajar ');
}write
('TERIMAKASIH');
}end.
setelah siap diketikan listing programnya, langkah selanjutnya adalah menjalankan/eksekusi program dengan cara Ctrl+ F9 atau dari Menu Run Pilih Run.
Silahkan download disini!
Pert 1 : Praktek Pengenalan Bahasa Pemrograman Turbo Pascal
Diposting oleh
devitara
di
12:07:00
Pertama kali di buat
oleh Profesor Niklaus Wirth, seorang anggota International Federation of
Information Processing (IFIP) pada tahun 1971 dari Technical University di
Zurich, Switzerland.
orientasinya pada segala
tujuan.
termasuk kategori “High Level Language”.
Instruksi-instruksi yang
digunakan sangat sistematis dan terstruktur.
Hasil pengembangannya :
N UCSD Pascal.
` Microsoft Pascal.N
N Apple Pascal. N Turbo Pascal.
Silahkan download disini!
Contoh
Listing Program
Contoh
Listing Program
program
pertamaku;
uses
crt;
var
begin
clrscr;
write
('Hallo, Selamat datang !!! ');
write
('Mari kita Belajar ');
write
('TERIMAKASIH');
end.
Maka hasilnya adalah :
Pert 6 : STRUKTUR KENDALI II (LOOPING)
Diposting oleh
devitara
di
12:02:00
Di dalam pemrograman
terdapat beberapa bentuk perulangan. Setiap pemrograman memiliki bentuk yang
berbeda-beda. Yang akan dibahas disini yaitu pada perulangan pemrograman pascal
yang menggunakan
- For…Do
- While…Do dan
- Repeat…Until
Digunakan untuk
mengulang statement atau satu blok statement berulangkali sejumlah yang
ditentukan tanpa suatu kondisi.
For..do terdiri atas
dua jenis
1. For..Do… Positif
Perulangan dimana nilai awal lebih kecil
dibanding nilai akhir
2. For Do.. Negatif
Perulangan dimana nilai awal lebih besar
dibanding nilai akhir
Silahkan download disini!
Label:
Algoritma,
Logika dan Algoritma,
looping,
Pascal,
perulangan
0
komentar
Pert 4 : STRUKTUR KENDALI
Diposting oleh
devitara
di
11:59:00
Terdapat 3 proses eksekusi utama di dalam structure programming, yaitu :
1. Proses secara
‘Sequential’ (berurutan)
2. Proses secara
‘Selection/Decision’ (menggunakan
statement kendali)
3. Proses secara
‘Repetition’
1. Proses secara ‘Sequential’ (berurutan)
Proses secara sequential
terjadi bila proses berjalan dari atas ke bawah dan dikerjakan dari
baris-perbaris. Proses sequential dapat digambarkan seperti dibawah ini. Proses
A dikerjakan dahulu, setelah selesai dilanjutkan ke proses B.
Label:
Algoritma,
Logika dan Algoritma,
Pascal
0
komentar
Pert 3 : IDENTIFIER, TIPE DATA, OPERATOR
Diposting oleh
devitara
di
11:55:00
NAMA PENGENAL
(IDENTIFIER)
dipakai sebagai
pengidentifikasi ‘sesuatu’ dan program mengacu/memproses ‘sesuatu’ itu
melalui namanya. Kata lain dari pengenal yaitu identifier yaitu suatu pengenal
yang didefinisikan pemakai berguna untuk menampung data.Silahkan download disini!
Label:
Algoritma,
identifier,
Logika dan Algoritma,
operator,
Pascal,
tipe data
0
komentar
Pert 2: Pengenalan Flow Chart
Diposting oleh
devitara
di
11:53:00
Flowchart merupakan
gambar atau bagan yang memperlihatkan urutan dan hubungan antar proses beserta
instruksinya.
Gambaran ini dinyatakan
dengan symbol.
◦setiap symbol menggambarkan proses tertentu.
◦antara proses digambarkan dengan garis penghubung.
Silahkan download disini!
Label:
Algoritma,
Flowchart,
Logika dan Algoritma
0
komentar
Pengantar Algoritma
Wednesday, 26 September 2018
Diposting oleh
devitara
di
08:38:00
Algoritma diambil dari nama ilmuwan muslim Abu Ja’far Muhammad bin Musa Al-Khwarizmi (780-846 M) yang banyak menghasilkan karya dalam bidang matematika, disamping karya karyanya dalam bidang lainnya seperti geografi dan musik.
Algorithma merupakan jantung ilmu komputer atau informatika tetapi algoritma tidak selalu identik dengan ilmu komputer saja
Algoritma adalah urutan langkah langkah logis penyelesaian suatu masalah yang disusun secara sistematis.
Logis artinya benar sesuai dengan logika manusia (akal pikiran).
Untuk menjadi sebuah algoritma, urutan langkah-langkah yang ditempuh untuk menyelesaikan masalah harus memberikan hasil yang benar.
Materinya download disini
Materinya download disini
UTS 2018 "Penggunaan Fungsi IF dan CASE
Wednesday, 16 May 2018
Diposting oleh
devitara
di
11:21:00
program UTS2018;
Uses crt;
Var
Nm, Npm, kelas, kd_mk, nm_mk, ket : string;
na : byte;
nh : char;
Begin
Textcolor (RED);
Clrscr;
Writeln("*** UTS STMIK KRISTEN NEUMAN INDONESIA***");
Write("NPM ="); readln(npm);
Write("NAMA="); readln(nm);
Write("KELAS="); readln(kelas);
write("input kode matakuliah :"); readln(kd_mk);
if kd_mk ="AP" then nm_mk:="Algoritma Pemograman"
else if kd_mk ="BIG" then nm_mk:="Bahasa Inggris"
else if kd_mk ="BIND" then nm_mk:="Bahasa Indonesia"
else if kd_mk ="MM" then nm_mk:="Matematika";
writeln("Nama Matakuliah =",nm_mk);
TEXTCOLOR (YELLOW);
Write("input nilai angka ="); readln(na);
Case na of
81..100 : nh:="A";
71..80 : nh:="B";
61..70 : nh:="C";
51..60 : nh:="D";
0..50 : nh:="E";
End;
Writeln("Nilai huruf =",nh);
if nh="A" THEN KET :="MENDAPAT BEASISWA";
Writeln("keterangan =",ket);
WRITELN("");
WRITELN("");
WRITELN("Denni M Rajagukguk");READLN;
End.
NB: Harap diperhatikan baik baik codingnya, banyak jebakannya. Seamat mencoba (')
Uses crt;
Var
Nm, Npm, kelas, kd_mk, nm_mk, ket : string;
na : byte;
nh : char;
Begin
Textcolor (RED);
Clrscr;
Writeln("*** UTS STMIK KRISTEN NEUMAN INDONESIA***");
Write("NPM ="); readln(npm);
Write("NAMA="); readln(nm);
Write("KELAS="); readln(kelas);
write("input kode matakuliah :"); readln(kd_mk);
if kd_mk ="AP" then nm_mk:="Algoritma Pemograman"
else if kd_mk ="BIG" then nm_mk:="Bahasa Inggris"
else if kd_mk ="BIND" then nm_mk:="Bahasa Indonesia"
else if kd_mk ="MM" then nm_mk:="Matematika";
writeln("Nama Matakuliah =",nm_mk);
TEXTCOLOR (YELLOW);
Write("input nilai angka ="); readln(na);
Case na of
81..100 : nh:="A";
71..80 : nh:="B";
61..70 : nh:="C";
51..60 : nh:="D";
0..50 : nh:="E";
End;
Writeln("Nilai huruf =",nh);
if nh="A" THEN KET :="MENDAPAT BEASISWA";
Writeln("keterangan =",ket);
WRITELN("");
WRITELN("");
WRITELN("Denni M Rajagukguk");READLN;
End.
NB: Harap diperhatikan baik baik codingnya, banyak jebakannya. Seamat mencoba (')
Pert 5 : STRUKTUR KENDALI (NESTED IF/ IF BERSARANG) DAN CASE
Wednesday, 2 May 2018
Diposting oleh
devitara
di
09:02:00
CASE digunakan untuk memilih diantara banyak pilihan.
Kelebihan dan kekurangan case
Kelebihan dan kekurangan case
Kita tidak perlu membuat
kondisi seperti halnya dengan statement IF.
Perbedaan case dengan IF
adalah pernyataan if menyeleksi suatu kondisi yang terpenuhi, setelah memproses
pernyataan dalam lingkungan yang terpenuhi tersebut. Sedangkan case bila salah satu nilai
terpenuhi dan pernyataan tersebut telah diproses maka yang lain tidak akan
diseleksi.
Case terbagi atas 2:
◦CASE OF
◦CASE OF
ELSE
Subscribe to:
Posts (Atom)
Translate
Silahkan diikuti yahh
Labels
2015
(1)
Adat Istiadat
(8)
agama
(3)
ahli
(21)
AKREDITASI
(2)
Alat komunikasi
(12)
Algoritma
(16)
algoritma Huffman
(1)
Algoritma LZW
(1)
Alpukat
(1)
amerika
(1)
Ampapaga
(1)
Analisa dan Perancangan Sistem Informasi
(1)
Android
(1)
Apel
(1)
APSI
(1)
Arab
(1)
Arti Hidup
(1)
Asmara
(8)
Asuransi
(3)
Asuransi Jiwa
(3)
bahasa pemograman
(4)
Bangso Batak
(24)
barcode
(1)
Batak
(27)
begal
(1)
Berita Lucu
(1)
bidan
(2)
blog
(4)
bluetooth
(1)
Box Office
(1)
brastagi
(1)
buah
(1)
buah ceplukan
(3)
buah yang sudah langka
(2)
budaya
(1)
budidarma
(8)
butet
(1)
Cerita
(19)
cerita rakyat
(2)
CHAT
(1)
CIFOR
(4)
Cinta
(11)
Citra
(1)
cloud computing
(1)
Cloud Hosting
(1)
cmd
(2)
credit card
(1)
CRITICAL PERT
(1)
Dalihan Natolu
(1)
Daun Kaki Kuda
(1)
daun sirsak
(1)
Dedicated Server
(1)
definisi
(2)
DOWNLOAD
(1)
Dunia Psikologi
(1)
Editor
(4)
EMAIL
(1)
farmasi
(2)
firewall
(1)
Flowchart
(1)
folder
(1)
font
(1)
Fortran
(1)
Fungsi CASE
(1)
Fungsi IF
(1)
galau
(1)
gereja
(1)
Handphone
(1)
health and sex
(1)
HTML
(7)
http
(2)
https
(1)
humor
(12)
identifier
(1)
ifjamak
(1)
ikan batak
(2)
imelda
(2)
IMK
(1)
Informasi
(6)
Interaksi Manusia Dan Komputer
(3)
Internet
(29)
Internet dan Web
(8)
IP Address
(1)
IPTEK
(22)
Isi Sumpah Pemuda
(1)
jadwal
(1)
jakarta
(1)
jaringan
(1)
jawa
(1)
Jejaring Sosial
(14)
Jenis Buah
(5)
jeruk
(1)
jeruk manis
(1)
JURNAL
(2)
Jurnal Internasonal
(2)
jurnal komputer
(3)
kampuskesehatan
(2)
kampusmedan
(2)
kartu kredit
(1)
Kata kata Motivasi
(3)
Kata Mutiara
(5)
kebidanan
(2)
kebudayaan
(1)
Kegagalan
(1)
kejahatan
(1)
keperawatan
(2)
Kesehatan
(12)
keyboard
(1)
khas batak
(4)
khasiat
(1)
khasiat daun
(1)
klaim
(1)
kompresi
(1)
Komputer
(29)
Konsep Pemograman
(1)
Konsep Sistem Informasi
(1)
kriminal
(1)
Kristen
(4)
Laptop
(5)
lawak
(2)
lawak batak
(1)
Lemas
(1)
LIDAH BUAYA
(1)
LINK
(1)
Logika dan Algoritma
(15)
looping
(1)
lucu
(1)
lulusan
(2)
LZW
(1)
Majalah
(3)
Manajemen Proyek
(4)
Manfaat buah
(6)
Manpro SI
(3)
Marga batak
(2)
Masa Depan
(5)
medan
(2)
medis
(2)
Metode Eksponensial
(1)
modem
(1)
modul
(12)
modul kuliah
(15)
Motivasi Dan Inspirasi Hidup
(11)
MPSI
(3)
Ms.Word
(2)
Neumann
(10)
News
(1)
nokia
(1)
Obat Herbal
(7)
Ompu Halto sang Pejuang
(1)
operator
(1)
pasar buah
(1)
Pascal
(9)
PASSWORD
(1)
Pegagan
(1)
Pelatihan
(2)
pelukan
(1)
Penemu
(15)
penemu kartu kredit
(1)
Penyemangat Hidup
(3)
Pepino
(1)
perawan
(1)
perawat
(2)
perintah
(1)
perkuliahan
(4)
perulangan
(1)
pesawat
(1)
pisang
(1)
Praktek Algoritma
(7)
premi
(1)
Printer
(1)
PRODI
(1)
Prudensial
(3)
Prudential
(3)
Psikologi
(1)
ptn
(2)
pts
(2)
pultak-pultak
(3)
rekam medis
(2)
Rekayasa Sistem Informasi
(2)
RFID
(1)
rohani
(1)
Romantis
(8)
RSI
(1)
S1
(1)
Sayang
(4)
sbmptn
(1)
Sejarah
(25)
sejarah kartu kredit
(1)
Selamat Malam
(1)
Selamat Pagi
(1)
Seminar
(1)
shortcut
(1)
Simanjuntak
(1)
Simardan
(1)
sirsak
(1)
Sisingamangaraja XII
(1)
Sistem
(4)
sistem bilangan
(1)
Sistem Informasi
(9)
SKRIPSI
(1)
sma
(2)
sms
(2)
snmptn
(2)
spyware
(1)
STMIK Neumann
(9)
STMIKBD
(1)
STMIKKNI
(8)
struktur kendali
(2)
Suka
(1)
sukses
(1)
Sumpah Pemuda
(1)
supir
(1)
swasta
(2)
Tahap RSI
(1)
TBC
(1)
teknik Informatika
(2)
tipe data
(1)
tips
(2)
toba
(1)
trojan
(3)
TUAK
(2)
tubuh
(1)
Tugas MPSI
(1)
Turbo Pascal
(2)
UI MEDAN
(2)
uimedan
(2)
ujian
(1)
Ulos
(2)
URL
(1)
virus
(4)
virus trojan
(3)
WEB
(5)
WEBSITE
(1)
wifi
(1)
WWW
(1)
youtube
(1)












