Jumat, 27 Desember 2013

MEMBUAT PROGRAM MENGHITUNG LUAS BANGUN DATAR MENGGUNAKAN TEKNIK PROCEDURE

Anggap saja ini pepatah dariku sebagai salam pembuka postingan ini "Tiada Praktikum Tanpa Diakhiri Dengan Tugas". Jadi pas tanggal 19 Desember 2013, di akhir praktikum Pak Dody ngasi tugas yang sangat-sangat gampang sekali, Why??? Karena tugasnya cuma disuruh nyalin coding yang ada di modul praktikum, gak kayak tugas-tugas sebelumnya. Hehehe langsung aja deh ini codingnya:
 
======================================================


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   menu:integer;
   jawab:char;

procedure persegi;
var
   s,luas : integer;

begin
writeln;
        writeln('MENGHITUNG LUAS PERSEGI');
        write('Sisi : '); readln(s);
        luas := s*s;
        write('Maka luas persegi adalah : ',luas);
        end;

procedure persegi_panjang;
var
   p,l,luas : integer;

begin
writeln;
        writeln('MENGHITUNG LUAS PERSEGI PANJANG');
        write('Panjang : '); readln(p);
        write('Lebar   : '); readln(l);
        luas := p*l;
        write('Maka luas persegi panjang adalah : ',luas);
        end;

procedure jajarangenjang;
var
   alas,tinggi,luas : integer;

begin
writeln;
        writeln('MENGHITUNG LUAS JAJARAN GENJANG');
        write('Alas   : '); readln(alas);
        write('Tinggi : '); readln(tinggi);
        luas := alas*tinggi;
        write('Maka luas jajaran genjang adalah : ',luas);
        end;

procedure layangan;
var
   d1,d2 : integer;
   luas  : real;

begin
writeln;
        writeln('MENGHITUNG LUAS LAYANG-LAYANG');
        write('Panjang diagonal 1 : '); readln(d1);
        write('Panjang diagonal 2 : '); readln(d2);
        luas := 0.5*d1*d2;
        write('Maka luas layang-layang adalah : ',luas:2:0);
        end;

begin
writeln('MENGHITUNG LUAS BANGUN DATAR');
    writeln('1. Luas Persegi ');
    writeln('2. Luas Persegi Panjang');
    writeln('3. Luas Jajarangenjang ');
    writeln('4. Luas Layang-Layang ');
     writeln('5. Keluar');
    writeln;
    write('Masukkan Pilihan anda {1/2/3/4/5} : '); readln(menu);

    if (menu=1) then
                begin
                persegi;
                end
    else if (menu=2) then
    begin
    persegi_panjang;
    end
        else if (menu=3) then
                begin
                jajarangenjang;
                end
        else if (menu=4) then
        begin
        layangan;
        end
    else
        begin
    exit;
    end;
    writeln;
    readln;
    end.

======================================================

 Ini penampakannya:

 


::::::::: Sekian & Terima Kasih :::::::::
Diposting oleh di Tidak ada komentar:

Senin, 23 Desember 2013

MEMBUAT PROGRAM SEGITIGA SAMA SISI

Mohon maaf yang sebesar-besarnya pemirsah, saya lupa dengan janji saya pada postingan sebelumnya UTS (UJIAN TANPA SETRESS) , jadi ingetnya baru sekarang. Nah waktu itu aku janji bakalan ngasi coding program segitiga sama sisi kalau udah selesai UTS, hohohoho,, OK deh aku bagikan aja sekarang, silakan disimak

==============================================


program UTS;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
lagi,karakter : string;
n,a,b,c  : integer;

begin
    lagi:='y';
    repeat
  write('Program Menampilkan Pola Segitga');
  writeln;
  writeln;
  write('By Dewa Gde Ari Wahyudi');
  writeln;
  writeln;
  write('=======================');
  writeln;
  writeln;
  write('Tekan ENTER untuk melanjutkan '); readln;
  writeln;
   write('Masukkan Karakter  : ');readln(karakter);
   write('Masukkan Jumlah    : ');readln(n);
   writeln;
for a:=1 to n do
begin
for b:=a to n+2 do
begin
write(' ');
end;
for c:=1 to a do
begin
write(karakter);write(' ');
end;
writeln;
end;
writeln;
       write('Mau Coba Lagi [Y/N]:  ');
       readln(lagi);
       writeln;
       until (lagi='N') or (lagi='n');
end.



==============================================


Ini screenshootnya :


OK aku udah nepatin janji jadi sekarang saatnya kabuuuuuuuuuuuuuuuuuuuuurrrrr
Diposting oleh di Tidak ada komentar:

Kamis, 19 Desember 2013

Program Operasi Hitung

Ngepost dulu ahh sebelum tidur. Tadi pas praktikum di LAB kita diajarin tentang "PROCEDURE" sama Pak Dody. Ini contoh program yang menggunakan teknik prosedur. Untuk penjelasan mengenai Procedure bisa dibaca di modul praktikum masing masing (lagi males ngetik). Silakan disimak codenya:

==================================================

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c:integer;
  procedure penjumlahan;
  begin
  write ('Masukkan bilangan 1:'); readln(a);
  write ('Masukkan bilangan 2:'); readln(b);
  c:=a+b;
  write(a, ' + ', b, ' = ',c);
  end;

    procedure pengurangan;
  begin
  writeln;
  writeln;
  write ('Masukkan bilangan 1:'); readln(a);
  write ('Masukkan bilangan 2:'); readln(b);
  c:=a-b;
  write(a, ' - ', b, ' = ',c);
  end;

    procedure perkalian;
  begin
  writeln;
  writeln;
  write ('Masukkan bilangan 1:'); readln(a);
  write ('Masukkan bilangan 2:'); readln(b);
  c:=a*b;
  write(a, ' x ', b, ' = ',c);
  end;

    procedure pembagian;
    var d:real;
  begin
  writeln;
  writeln;
  write ('Masukkan bilangan 1:'); readln(a);
  write ('Masukkan bilangan 2:'); readln(b);
  d:=a div b;
  write(a, ' : ', b, ' = ',d:4:2);
  end;
begin
write('Program Operasi Hitung by Yudik');
writeln;
writeln;
write('===============================');
writeln;
writeln;

  penjumlahan;
  readln;

  pengurangan;
  readln;

  perkalian;
  readln;

  pembagian;
  readln;
end.


===========================================================

Ini penampakan setelah dijalankan:


Sekian untuk postinganku kali ini. Selamat malam, sampai bertemu di postinganku selanjutnya..
Diposting oleh di Tidak ada komentar:

Rabu, 18 Desember 2013

TUGAS PRAKTIKUM

Tugas Praktikum untuk hari Kamis 19 Desember 2013

  1. MODUL 1 : JENIS-JENIS DATA DAN VARIABEL
  2. MODUL 2 : OPERATOR LOGIKA, EKSPRESI RUNTUTAN,TEKNIK RUNTUTAN
  3. MODUL 3 : TEKNIK PERCABANGAN (BAGIAN 1)
  4. MODUL 4 : TEKNIK PERCABANGAN 
  5. KESAN-KESAN SELAMA MENGIKUTI MATA KULIAH ALGORITMA & PEMROGRAMAN

 

Diposting oleh di Tidak ada komentar:

MODUL 3: TEKNIK PERCABANGAN (BAGIAN 1)

Percabangan if merupakan sebuah blok program yang menyatakan bahwa sebuah aksi akan dijalankan jika kondisi percabangan dipenuhi, jika tidak dipenuhi maka aksi tidak akan dijalankan. Percabangan if biasa digunakan untuk mengerjakan aksi yang memilik syarat tertentu untuk menjalankannya. Pernyataan if diklasifikasikan ke dalam tiga bagian yaitu:
  1. Pernyataan if dengan satu kondisi (if tunggal)
  2. Pernyataan if dengan dua kondisi (if-else)
  3. Pernyataan if bersarang (if di dalam if)
Pernyataan if tunggal hanya melibatkan satu kondisi yang akan diperiksa. Apabalia kondisi yang diperiksa bernilai benar, maka program akan mengeksekusi bagian yang berada dalam blok. Jika sebaliknya, maka program akan mengabaikan statemen di dalam blok dan langsung melanjutkan eksekusi berikutnya

Pernyataan if dengan dua kondisi (if-else) digunakan untuk menyatakan pernyataan percabangan dua kondisi dimana ada dua blok aksi yang dipilih untuk dikerjakan jika syarat kondisi aksi terpenuhi. Saat pembacaan program sampai pada blok if-else, maka akan dilakukan pemeriksaan terhadap syarat kondisi percabangan yang ada pada deklarasi if, jika syarat dipenuhi maka yang akan dijalankan adalah aksi yang ada di dalam blok if. Tapi jika syarat tidak dipenuhi maka aksi yang dikerjakan adalah yang ada di dlaam blok else

==================================================================

Ok, sebagai latihan di modul 2 ini, aku mau coba menyalin program coding yang ada di halaman 12 modul praktikum,"Menentukan Kubus dan Bukan Kubus dengan If"

==========================================================

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var s1,s2,s3:integer;
begin
write('Program Menentukan Kubus dan Bukan Kubus');
writeln;
writeln;
write('By: I Dewa Gde Ari Wahyudi');
writeln;
writeln;
write('==========================');
writeln;
writeln;
write('Masukkan sisi pertama  : '); readln(s1);
write('Masukkan sisi kedua    : '); readln(s2);
write('Masukkan sisi ketiga   : '); readln(s3);
writeln;
if (s1=s2) and (s2=s3)then
begin
writeln('Termasuk Kubus');
end
else
begin
writeln('Bukan Kubus');
end;
readln;
end.

=============================================================
Penampakan 1


Penampakan 2



Diposting oleh di Tidak ada komentar:
Label: ,

PROGRAM MENGHITUNG LUAS SEGITIGA

Nah sekarang aku membuat program untuk menghitung luas segitiga dengan menerima input alas dan tinggi. Jadi user tinggal memasukkan alas dan tinggi maka program akan segera menghitung luas segitiga sesuai dengan rumus 1/2 x alas x tinggi.

======================================================

program Project2;

{$APPTYPE CONSOLE}


uses
  SysUtils;

var
  a,t: integer;
  L:real;
begin
writeln('PROGRAM MENGHITUNG LUAS SEGITIGA');
WRITELN;
WRITELN;
WRITE('BY I DEWA GDE ARI WAHYUDI');
writeln;
writeln;
write('=========================');
writeln;
writeln;
write('Input Alas   : '); readln(a);
writeln;
write('Input Tinggi : '); readln(t);
L:= a*t div 2;
writeln;
write('Luas Segitiga:',L:4:0);
readln;
end.

======================================================


Note:  write('Luas Segitiga:',L:4:0);

Mengapa setelah L diberi angka 4 dan 0, jadi angka 4 itu maksudnya untuk mencetak luas dengan pemberian spasi 4, 0 itu berarti tidak ada angka di belakang koma. Untuk eksperiman bisa diubah angka 4 dan 0 sesuai dengan keinginan

Ini penampakan programnya:


Diposting oleh di Tidak ada komentar:
Label:

MODUL 2: OPERATOR LOGIKA, EKSPRESI RUNTUTAN, TEKNIK RUNTUTAN

Operator adalah simbol atau tanda yang jika diletakkan pada dua buah operand dapat menghasilkan sebuah hasil. Dalam logika, dua kalimat dapat digabungkan dengan operator logika. Operator logika dalam program digunakan untuk melakukan operasi-operasi yang menghasilkan nilai logik (true dan false). Berikut ini empat buah operator logika dalam pascal:
  • NOT  : Negasi
  • AND  : Konjungsi
  • OR   : Disjungsi
  • XOR  : Ekslusif Disjungsi
Sebuah expresi merupakan kumpula dari operand-operand yang bersama-sama dengan operator membentuk suatu bentuk aljabar dan menyatakan suatu nilai. Ada dua jenis expresi dalam bahasa pascal, yaitu:
  1. Ekspresi numerik/aritmatika : expresi yang menghasilkan nilai numerik/aritmatika
  2. Ekspresi Boolean/logika: yaitu suatu expresi yang menghasilkan nilai boolean (true/false)
Struktur runtutan adalah struktur algoritma yang paling sederhana dan mendasar.  Intruksi pada Pascal diporses secara sekuensial atau berkelanjutan. Sebuah program pascal yang lengkap terdiri dari
  • Kepala program
  • Bagian Deklarasi
  • Bagian Pernyataan
Ciri-ciri dari struktur runtutan yang benar:
  1. Tiap baris intruksi dikerjakan secara satu-persatu
  2. Tidak ada pengulangan untuk setiap baris intruksi
  3. Urutan intruksi yang dijalankan harus sama dengan urutan intruksi di algoritma
  4. Akhir dari intruksi merupakan akhir dari logaritma
=====================================================
Sekarang saatnya ngerjain latihan. Aku mau buat program yang ada di modul praktikum halaman 9, soal no 2, program untuk menerima masukan Nama, Alamat, Tahun Lahir, dan Tahun Sekarang yang akan menampilkan jumlah usia dari tahun yang dimasukkan.

=====================================================
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
n,a:string;
tl,ts:integer;
begin
write('Program Hitung Umur');
writeln;
writeln;
write('By: Dewa Gde Ari Wahyudi');
writeln;
writeln;
write('========================');
writeln;
writeln;
write('Masukkan Nama Anda         : '); readln(n);
write('Masukkan Alamat Anda       : '); readln(a);
write('Masukkan Tahun Lahir Anda  : '); readln(tl);
write('Masukkan Tahun Sekarang    : '); readln(ts);
writeln;
writeln;
write(' Hai ',n,' alamat anda di ',a,' umur anda sekarang adalah ',ts-tl); readln;
end.

=====================================================

Ini penampakan hasilnya:


Masih di halaman 9, untuk tugas soal no 1, bisa dilihat di PROGRAM MENGHITUNG LUAS SEGITIGA

Selamat mencoba semoga berhasil
Diposting oleh di Tidak ada komentar:
Label: ,
Langganan: Postingan (Atom)