Program Faktorial

Program Faktorial;
Uses Wincrt;
Var i,n,x:integer;
Begin
Writeln('Program Faktorial');
Writeln('=================');
Writeln;
Write('Masukkan Nilai Faktorial: ');Readln(n);
Writeln;
if (n<=0) then
Writeln('Hasil Faktorial: ',1)
else
Begin
x:=1;
For i := 1 to n do
x:=x*i;
Writeln('Hasil Faktorial: ',x);
End;
End.

Program Bilangan Prima

program Bilangan_Prima;

uses wincrt;

var
n,i,x,sisa:integer;

begin
 writeln ('Masukan Batas Bilangan Prima: ');
 read (n) ;
 for i:=3 to n do
begin
 x:=1;
repeat
 x:=x+1;
 sisa:=i mod x;
until
 (sisa=0) OR (x=i-1);
 IF sisa <> 0 then writeln (i ,'= adalah bilangan prima ');
end;
 writeln(' ');
 writeln('---------------------------------------------');
 writeln('************** Nama    : MUHAMAD NUR AINI  ************');
 writeln('##############  NIM    : 702012113         ############');
 writeln('************** Prodi   : PTIK              ************');
 writeln('---------------------------------------------');
end.

Program Pascal triangle

program Pascal_triangle;
var d,c,y,x,n : integer;
   begin
      readln(n);
      writeln;
      for y:=0 to n do
      begin
         c:=1;
         for d:=0 to n - y do
         begin
            write(' ');
         end;
         for x:=0 to y do
         begin
            write(c);
            write(' ');
            c := c * (y - x) DIV (x + 1);
         end;
         writeln;
      end;
      for y:=n-1 downto 0 do
      begin
         c:=1;
         for d:=0 to n - y do
         begin
            write(' ');
         end;
         for x:=0 to y do
         begin
            write(c);
            write(' ');
            c := c * (y - x) DIV (x + 1);
         end;
         writeln;
      end;
      readln;
   end.

Pendahuluan Dasar-Dasar Pemrograman

Manfaat Logika dalam Kehidupan Sehari-hari

• Logika = Konsep berpikir dan tindakan yang menggunakan penalaran yang logis
• Pemrograman = membuat kode instruksi untuk memerintahkan komputer mengerjakan/menghasilkan sesuatu
• Sangat memerlukan logika agar instruksinya baik dan benar

Logika dalam Pemrograman

• Urutan (sequence)
• Perulangan (Repetition/loop/iteration)
• Prosedur (Abstraction/function)
• Pilihan (Choice)
• Memori

Sequence

• Rencana dibuat dengan menjalankan dari perintah sederhana yang dijalankan secara berurutan
• Urutan jalannya perintah dapat menentukan hasil akhir dari rencana
• Perjalanan dari rumah ke kampus

·      Keluar dari rumah

·      Jalan dari depan rumah ke tempat perhentian angkota

·      Naik angkota yang menuju ke kampus

·      Turun dari angkota di tempat perhentian dekat kampus

·      Dari tempat perhentian jalan ke kampus

Pengulangan

• Berikan contoh pekerjaan yang berulang. Identifikasi apakah ulangannya terbatas atau tidak terbatas

Prosedur

• Pak Tengkleng mempunyai kayu yang panjangnya 4 meter. Dia memotong kayu tersebut untuk membuat jeruji pagar yang masing-masing panjangnya 0.5 meter. Berapa kali pak Tengkleng memotong kayu tersebut ?
• Buat kegiatan pak Tengkleng dalam bentuk modul (berprosedur / fungsi) terpisah

§  Prosedur memotongkayu

o   Ukur setengah meter

o   Potong

§  Perintah utama :

o   Diberikan kayu 4 meter

o   Potong kayu sampai habis

o   Memotongkayu