twitter

Program 2 - Looping Pada Pascal

0 komentar
Posted in



-          uses crt; ==> sintaks yang diharuskan pada turbo pascal
-          var i,j,k,l,m : integer; ==> untuk memasukan variabel numerik yang akan dijalankan, yaitu i, j, k dan l
-          begin ==> untuk mengawali suatu procedure
-          clrscr; ==> untuk membersihkan layar pada turbo pascal
-          write (‘Masukan Nilai = ‘); ==> untuk menampilkan Masukan Nilai = pada saat program dijalankan
-          readln (k); ==> untuk membaca nilai dari variabel k
-          for i := k downto 1 do ==> untuk i sama dengan k kebawah sampai 1 dan selanjutnya
-          begin ==> untuk mengawali suatu procedure
-          for j := 1 to i do ==> untuk j sama dengan 1 sampai k dan selanjutnya
-          write (j); ==> untuk membaca nilai dari variabel j
-          writeln (‘ ‘) ==> untuk memberikan harga/nilai pada variabel j
-          end; ==> untuk mengakhiri procedure dari variabel j
-          for 1 := 2 to k do ==> untuk l sama dengan 2 sampai k dan selanjutnya
-          begin ==> untuk memulai suatu procedure
-          for m := 1 to l do ==> untuk m sama dengan 1 sampai l dan selanjutnya
-          write (m); ==> untuk membaca nilai dari variabel m
-          writeln (‘ ‘) ==> untuk memberikan harga/nilai pada variabel m
-          end; ==> untuk mengakhiri procedure dari variabel m
-          readln; ==> untuk membaca suatu procedure
-          end. ==> sebagai tanda selesai pada turbo pascal

Program 1 - Looping Pada Pascal

0 komentar
Posted in



-          uses crt; ==> sintaks yang diharuskan pada turbo pascal
-          var i,j,k,l : integer; ==> untuk memasukan variabel numerik yang akan dijalankan, yaitu i, j, k dan l
-          begin ==> untuk mengawali suatu procedure
-          clrscr; ==> untuk membersihkan layar pada turbo pascal
-          write (‘Masukan nilai = ‘); ==> untuk menampilkan Masukan nilai = pada saat program dijalankan
-          readln (k); ==> untuk membaca nilai dari variabel k
-          for i := 1 to k do ==> untuk i sama dengan 1 sampai k dan selanjutnya
-          begin ==> untuk mengawali suatu procedure
-          for j := 1 to k-i do ==> untuk j sama dengan 1 sampai k diambil dari for i dan selanjutnya
-          begin ==> untuk mengawali suatu procedure
-          write (‘ ‘); ==> untuk memberikan harga/nilai pada suatu variabel
-          end; ==> untuk mengakhiri procedure dari write (‘ ‘);
-          for l := i downto 1 do ==> untuk l sama dengan i kebawah sampai 1 dan selanjutnya
-          begin ==> untuk mengawali suatu procedure
-          write (l); ==> untuk membaca nilai dari variabel k
-          end; ==> untuk mengakhiri procedure pada dari write (l);
-          writeln; ==> untuk menampilkan hasil dari suatu procedure
-          end; ==> untuk mengakhiri suatu procedure
-          readln; ==> untuk membaca suatu procedure
-          end. ==> sebagai tanda selesai pada turbo pascal

Program 3 - Kondisi Pada Pascal

0 komentar
Posted in


Pertama buka program C++, kemudian ketikan coding seperti Gambar 1.1. Jika sudah selesai, compile program dengan menekan Alt + F9 secara bersamaan dan pastikan program tidak ada yang error. Kemudian running program dengan cara menekan Ctrl + F9, maka akan tampil output seperti pada Gambar 1.2


-          uses crt; ==> sintaks yang diharuskan pada turbo pascal
-          var pil : char; ==> untuk memasukan kondisi pada variabel pil berupa alfabet
-          var byk : integer; ==> untuk memasukan kondisi pada variabel byk berupa bilangan numerik
-          begin ==> untuk mengawali suatu procedure
-          clrscr; ==> untuk membersihkan layar pada turbo pascal
-          write (‘Pilihan Ukuran (S/M/L) : ‘); ==> untuk menampilkan Pilihan Ukuran (S/M/L) : pada saat program dijalankan
-          readln (pil); ==> untuk membaca kondisi pada variabel pil
-          write (‘Banyak Barang : ‘); ==> untuk menampilkan Banyak Barang : pada saat program dijalankan
-          readln (byk); ==> untuk membaca kondisi pada variabel byk
-          case pil of ==> untuk memberikan kasus pada variabel pil
-          ‘S’ : write (‘Total = ‘,byk*50000); ==> untuk menampilkan kasus dari pil. Jika S maka Total = Banyak Barang*50000
-          ‘M’ : write (‘Total = ‘,byk*65000); ==> untuk menampilkan kasus dari pil. Jika M maka Total = Banyak Barang*65000
-          ‘L’ : write (‘Total = ‘,byk*70000); ==> untuk menampilkan kasus dari pil. Jika L maka Total = Banyak Barang*70000
-          else ==> lainnya
-          writeln (‘Pilihan Tidak Tersedia’); ==> untuk menampilkan Pilihan Tidak Tersedia
-          end; ==> untuk mengakhiri suatu procedure
-          readln; ==> untuk membaca nilai dari suatu variabel
-          end. ==> sebagai tanda selesai pada turbo pascal

Penggunaan Fungsi Pada Open Office

0 komentar
Posted in



=LEFT(A3;3) ==> untuk mengambil 3 character dari sebelah kiri pada kolom A baris 3


=MID(A3;4;2) ==> untuk mengambil 2 character dari character ke 4 pada kolom A baris 3


=RIGHT(A3;3) ==> untuk mengambil 3 character dari sebelah kanan pada kolom A baris 3


=LOWER(A3) ==> untuk mengubah kata menjadi kecil semua pada kolom A baris 3


=UPPER(A3) ==> untuk mengubah kata menjadi besar semua pada kolom A baris 3


=PROPER(A3) ==> untuk mengubah huruf pertama menjadi besar dan huruf selanjutnya kecil pada kolom A baris 3


=SUM(D3+E3)-(D3*F4) ==> total dari (kolom D baris 3 + kolom E baris 3) - (kolom D baris 3 * kolom F baris 4)
=SUM(G3:G12) ==> menjumlahkan hasil dari kolom G baris 3 sampai kolom G baris 12
=MAX(G3:G12) ==> untuk mencari nilai maksimal dari kolom G baris 3 sampai kolom G baris 12
=MIN(G3:G12) ==> untuk mencari nilai minimal dari kolom G baris 3 sampai kolom G baris 12
=AVERAGE(G3:G12) ==> untuk mencari rata-rata dari kolom G baris 3 sampai kolom G baris 12

Program Grade Pada Pascal

0 komentar
Posted in



-          uses crt; ==> sintaks yang diharuskan pada turbo pascal
-          var x, y : integer; ==> untuk memasukan variabel numerik yang akan dijalankan, yaitu x dan y
-          var z : real; ==> untuk memasukan perhitungan pada variabel z
-          procedure input; ==> sebagai langkah pemasukan nilai
-          begin ==> untuk mengawali procedure input
-          write (‘Nilai UTS = ‘); ==> menampilkan Nilai UTS =
-          readln (x); ==> untuk membaca nilai dari variabel x
-          write (‘Nilai UAS = ‘); ==> menampilkan Nilai UAS =
-          readln (y); ==> untuk membaca nilai dari variabel y
-          end; ==> untuk mengakhiri procedure input
-          procedure output; ==> sebagai langkah pengeluaran nilai
-          begin ==> untuk mengawali procedure output
-          z:= ((x*70/100)+(y*30/100)); ==> perhitungan pada variabel z
-          write (‘total = ‘,z:3:2); ==> menampilkan total dari variabel z
-          readln; ==> untuk membaca nilai dari suatu variabel
-          if z >= 85 then ==> jika z lebih atau sama dengan 85 maka
-          write (‘Grade A’) ==> menampilkan Grade A
-          else if z >= 70 then ==> lainnya jika z lebih atau sama dengan 70 maka
-          write (‘Grade B’) ==> menampilkan Grade B
-          else if z >= 55 then ==> lainnya jika z lebih atau sama dengan 55 maka
-          write (‘Grade C’) ==> menampilkan Grade C
-          else ==> lainnya
-          write (‘Grade D’) ==> menampilkan Grade D
-          end; ==> untuk mengakhiri procedure output
-          begin ==> untuk mengawali suatu procedure
-          clrscr; ==> untuk membersihkan layar pada turbo pascal
-          input; ==> masukan dari procedure
-          output; ==> keluaran dari procedure
-          readln; ==> untuk membaca nilai dari suatu variabel
-          end. ==> sebagai tanda selesai pada turbo pascal

Program 2 - Kondisi Pada Pascal

0 komentar
Posted in




-          uses crt; ==> sintaks yang diharuskan pada turbo pascal
-          var x, y : integer; ==> untuk memasukan variabel numerik yang akan dijalankan, yaitu x dan y
-          procedure input; ==> sebagai langkah pemasukan nilai
-          begin ==> untuk mengawali procedure input
-          write (‘Masukan Angka = ‘); ==> menampilkan Masukan Angka =
-          readln (x); ==> untuk membaca nilai dari variabel x
-          end; ==> untuk mengakhiri procedure input
-          procedure output; ==> sebagai langkah pengeluaran nilai
-          begin ==> untuk mengawali procedure output
-          y:= x mod 2; ==> y = sisa hasil bagi dari nilai x dibagi 2
-          if y = 0 then ==> jika hasil dari y = 0 maka
-          writeln (x,’ adalah bilangan genap’) ==> menampilkan ... adalah bilangan genap
-          else ==> lainnya
-          writeln (x,’ adalah bilangan ganjil’); ==> menampilkan ... adalah bilangan ganjil
-          end; ==> untuk mengakhiri procedure output
-          begin ==> untuk mengawali suatu procedure
-          clrscr; ==> untuk membersihkan layar pada turbo pascal
-          input; ==> masukan dari procedure
-          output; ==> keluaran dari procedure
-          readln; ==> untuk membaca nilai dari suatu variabel
-          end. ==> sebagai tanda selesai pada turbo pascal

Program 1 - Kondisi Pada Pascal

0 komentar
Posted in




-          uses crt; ==> sintaks yang diharuskan pada turbo pascal
-          var nilai : integer; ==> untuk memasukan variabel numerik yang akan dijalankan, yaitu nilai
-          begin ==> untuk mengawali suatu procedure
-          clrscr; ==> untuk membersihkan layar pada turbo pascal
-          write (‘Masukan Nilai Anda = ‘); ==> menampilkan Masukan Nilai Anda =
-          readln (nilai); ==> untuk membaca nilai dari variabel nilai
-          if nilai >= 70 then ==> jika nilai lebih besar atau sama dengan 70 maka
-          writeln (‘Selamat Ya.. Anda Lulus’) ==> menampilkan Selamat Ya.. Anda Lulus
-          else ==> lainnya
-          writeln (‘Anda Gagal.. Jangan Bersedih Ya’); ==> menampilkan Anda Gagal.. Jangan Bersedih Ya
-          readln; ==> untuk membaca nilai dari suatu variabel
-          end. ==> sebagai tanda selesai pada turbo pascal