Jendela Pengetahuan

    Berikut ini adalah program untuk menghitung jumlah perkalian deret suatu bilangan dengan batas yang kita tentukan sendiri. Dengan program kita bisa mengetahui berapa hasil perkalian suatu bilangan yang terurut dari angka satu sampai batas angka yang telah ditentukan. Kode Program: program jumlah_perkalian_deret(faktorial); var    i            : integer;    batas        : integer;    jumlah       : integer; begin    write('masukan Batas= '); readln (batas);    jumlah   := 1;    i        := 0;    repeat    i        := i + 1;    write(i:2 ,'x' :2);    jumlah := jumlah * i;    until i = batas;    writeln('= ',jumlah);    readln; end. Hasil Program: Selamat Mencoba,, semoga berhasil... ^_^ ...

    Berikut ini adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5. Program ini menggunakan for dalam for atau sering disebut juga dengan for bersarang. Kode Program: program buat_kolom_baris;   {for bersarang} var    a,b  : integer; begin    writeln('_____________________________________________________');    writeln('-----------------------------------------------------');    a := 0;    for a := 1 to 10 do    begin      for b := 1 to 5 do      begin      write (a:5,'*',b,'=',(a*b):2);      end;    writeln;    end;    writeln('-----------------------------------------------------');    writeln('_____________________________________________________'); readln; end. Hasil Program: Selamat Mencoba,, semoga berhasil... ^_^

    Berikut ini adalah program yang menghasilkan tabel perkalian dari angka 1 sampai angka 5. Program ini menggunakan while dalam while atau sering disebut juga dengan while bersarang. Kode Program: program buat_kolom_baris;   {while dalam while}{while bersarang} var    a,b  : integer; begin    writeln('_____________________________________________________');    writeln('-----------------------------------------------------');    a := 1;    while a <= 10 do    begin       b := 1;       while b <= 5 do       begin       write (a:5,'*',b,'=',(a*b):2);       b := b + 1;       end;    writeln;    a := a + 1;    end;    writeln('-----------------------------------------------------');    writeln('____________________________...

    Berikut ini adalah beberapa buah contoh program bilangan urut yang menggunakan while-do pada turbo pascal. Program ini menggunakan bentuk while bersarang atau while dalam while. Dan pada setiap contohnya akan menghasilkan pola output yang berbeda. 1. Contoh pertama    Pada contoh ini akan menghasilkan output seperti berikut:    1 1 1 1 1    2 2 2 2 2    3 3 3 3 3    4 4 4 4 4    5 5 5 5 5 Kode Program: program whiledalamwhile1; var    a, b : integer; begin      a:= 1;      while a <= 5 do            begin              b:= 1;              while b <= 5 do                    begin                    write (a : 2);     ...

if ... then.. else digunakan untuk memilih kondisi dan memberikan nilai pada kondisi tersebut bila benar dan bila salah. bentuk sintaksnya: IF (kondisi) THEN nilai_jika_benar;   ELSE nilai_jika_salah; Kondisi berisi 3 komponen -->    sesuatu yang dibandingkan OPERATOR nilai pembanding OPERATOR : dapat berupa tanda =, >, <, <>, >=, <=, and, not, or Contoh 1 : jika nilai > 70 maka LULUS, jika tidak maka GAGAL program kelulusan; uses crt;  var nilai:integer; begin      write('masukkan nilai anda :'); readln(nilai);      if nilai>70 then writeln('LULUS')      else writeln('GAGAL');      readln;  end. IF Majemuk untuk > 1 statement Contoh 2 :  untuk mengetahui nilai siswa jika nilai >= 85 maka nilai A  >=75 maka nilai B >=65 maka nilai C < 65 maka nilai D program penilaian; uses crt; var n...

Perulangan Pada Turbo Pascal 1. for to do     contoh programnya     program for_to_do;     uses wincrt;     var c : integer;     begin          writeln ('program perulangan dengan for to do');          for c := 1 to 10 do          writeln (c);     end.    hasilnya:      2. while do     contoh programnya     program while_do;     uses wincrt;     var i : integer;          begin          writeln ('program perulangan dengan while');          i := 1;          while i <= 10 do               begin               writeln (i);               i := i + 1;   ...

Pada bagian Pemrograman dasar pascal, kita akan membahas Contoh Program Komputer tentang perhitungan matematika dasar.  Dalam perhitungan matematika, kita menggunakan operator aritmatika sebagai berikut : Penjelasan : Operator tanda kurung adalah priorotas pertama, artinya bagian yang berada dalam tanda kurang akan dikerjalan pertama kali, kemudian diikuti oleh operator dengan prioritas kedua yaitu kali dan bagi (*dan /), kemudan tambah dan kurang . Dalam  perhitungan matematika, tanda sama dengan menggunakan tanda  := (titik dua sama dengan) untuk menyatakan nilai.  Operator Div digunakan untuk membagi 2 bilangan  bulat (integer) kemudian mengambil  hasil bagi dan sisanya dibuang. Sedangkan operator Mod digunakan untuk membagi 2 bilangan bulat (integer) kemudian mengambil sisanya dan hasil baginya dibuang.  Misalnya : 7 dibagi 2. Hasil baginya 3 dan sisanya 1.  X:= 7 div 2, hasilnya 3 X:= 7 mod 2, hasilnya 1 Tipe Data...