Algoritma Dasar Algoritma Dasar

Struktur program For :
Program ARDIANSYAH;
Uses wincrt;
Var
Baris,Kolom : Integer;
Begin
Clrscr;
For Baris:=1 to 10 do
Begin
For Kolom:=Baris to 10 do
Write (Kolom);
Writeln;
End;
End.

Akan menghasilkan Pola OUTPUT :
12345678910
2345678910
345678910
45678910
5678910
678910
78910
8910
910
10

Komentar

Posting Komentar

Postingan populer dari blog ini

perangkat lunak bebas free software, opensorce, public domain,copy lefted,bebas no copylefted,GPL,GNU,semi bebas,freware,sherware

Free Software (menurut GNU/FSF) : Software yang dalam lisensinya mengizinkan siapapun untuk menggunakan, menyalin/menggandakan, dan mendistribusikannya, sesuai aslinya atau sudah dimodifikasi, baik gratis maupun dengan memungut biaya. Dengan syarat utama, source codenya harus tersedia. Contoh : Linux (kernel), GNOME, GIMP * Open Source : Perngertian open source sebenarnya adalah istilah pemasaran untuk free software. Ada bermacam-macam lisensi di bawah Open Source seperti : GPL, MPL, BSD Licence, UPL, Artistic Licence, XPL, LGPL Contoh : FreeBSD, Mozilla, X, Perl, OpenOffice * Public Domain : Software yang tidak dilindungi hak cipta. Versi penuh, source code tersedia secara bebas untuk dimodifikasi, dan didistribusikan ulang dengan lisensi apapun. Contoh : STP MP3 Player * Copylefted Software : Copylefted Software adalah free software yang tidak mengizinkan distribusi ulang atau modifikasi dengan menambahkan batasan baru, sehingga setiap kopi software ini...
Baca selengkapnya

KONEKSI JARINGAN PEER TO PEER

A.            TUJUAN PRAKTIKUM 1.    Mahasiswa dapat men-design jaringan peer-to-peer sederhana dengan menggunakan kabel Crossover. 2.    Mahasiswa dapat menggunakan perintah PING pada command window untuk mengetahui konektivitas. B.            TEORI DASAR       Peer-to-peer atau sering disebut point to point merupakan jenis jaringan yang tidak melibatkan sumber daya terlalu tinggi. Pada setiap workstation tidak memiliki batasan yang khusus dalam hal pengaksesan data dan penggunaan sumber daya. Setiap komputer/workstation yang terhubung tidak dibatasi oleh sebuah hak akses. Semua workstation yang terhubung dapat menggunakan semua data dan dapat mengirimkan data tanpa ada batasan.       Pada bentuk peer-to-peer, semua node akan dianggap sebagai workstation. Node-node tersebut dapat bekerja secara be...
Baca selengkapnya

Pascal Mencari Tarif Pemakaian PDAM

Gambar
 Masih dalam penggunaan If then, kali ini kita membahas pascal mencari tarif PDAM. Dengan contoh soal sebagai berikut : PDAM Kota Makassar menetapkan tarif pemakaian  air bersih per m3-nya ditentukan secara pergolongan dimana golongan ditentukan otomatis berdasarkan jumlah pemakainya. Untuk pemakaian 50 m3 pertama dikenakan biaya Rp. 1500. 51-75 m3 dikenakan Rp. 1750. 76-100 m3 dikenakan Rp. 2000 dan lewat dari 100 dikenakan Rp. 2250. Buatlah programuntuk menghitung jumlah yang harus dibayar pelanggan jika volume air diinput dari keyboard. ============================================= Program PDAM_Makassar_City; uses wincrt; var gol1,gol2,gol3,gol4,pk,total:longint;         ulang:char; Begin clrscr; ulang:='Y'; while Upcase(ulang)='Y' do begin clrscr; writeln ('Program PDAM Makassar City'); writeln ('++++++++++++++++++++++++++'); write   ('Masukan Jumlah Pemakaian air = ');readln(pk); writeln; if (pk <=50) then gol1 := 1500*pk el...
Baca selengkapnya