Search This Blog

Monday 31 December 2012

membuat presentasi diri di powerpoint


Untuk membuat presentasi perkenalan diri perlu mempersiapkan mengenai jati diri (nama lengkap, nama panggilan, tempat tanggal lahir; makanan kesukaan,film kesukaan,buku kesukaan), kegemaranmu, hobimu setelah semua terkumpul ikuti cara berikut:
a.       Bukalah program Microsoft PowerPoint
b.      Pada jendela pertama terdapat dua kotak. Kotak atas untuk mengetik judul presentasi dan kotak bawah untuk nama presenter, nomor dan kelas.
c.       Sisipkan slide baru. Pilihlah pada menubar pilih Home klik tulisan New Slide pilih  Title and Content
d.      Ikon slide baru akan muncul di panel kiri jendela PowerPoint
e.       Ketiklah data mengenai jati diri; nama lengkap, nama panggilan, tempat tanggal lahir, makanan kesukaan,film kesukaan,buku kesukaan.
f.       Sisipkan slide baru. Isi informas mengenai kegemaran
g.      Sisipkan slide terkhir. Pada menubar pilih Home klik tulisan New Slide pilih  Title Only.Isi mengenai ucapan terimakasih atau kalimat penutup
h.      Atur posisi kotak teks agar berada di tengah halaman. Klik kotak teks yang terputus-putus sampai tidak terputus. Klik, tahan, dan geser mouse ke posisi yang diinginkan. Lepaskan mouse jika letak telah sesuai yang diinginkan 
i.        Copykotak teks. Arahkan pada garis putus-putus kotak teks klik kanan Copy.
j.        Klik kanan kembali. Pilih Paste. Hapus tulisan dengan Backspace di keyboard, ganti tulisan ucapan Terimakasih.
k.      Warnai slide yang telah dibuat. Pilih Slide 1 lalu pada menubar klik Design pilih Themes yang diinginkan
l.        Simpanlah dengan nama file namalengkapmu perkenalan.
m.    Jalankan presentasi yang telah dibuat dengan klik ikon Slide Show. Untuk berpindahSlidepencet Space pada Keyboard.
n.      Tampilan akhir yang akan muncul di Slide Show.

Saturday 15 December 2012

Contoh Program Dasar Turbo Pascal

Contoh Program
Dasar Turbo Pascal
Oleh: yusrifal


Contoh Program Dasar Turbo Pascal

Ini adalah sebuah contoh program yang saya buat di waktu luang, saya menyadari ada beberapa orang yang ketika diajari cara menggunakan Turbo Pascal tidak cukup dengan teori saja namun juga membutuhkan contoh program beserta kode programnya. Artikel ini saya tulis untuk membantu anda memahami kode program Turbo Pascal yang saya buat agar anda bisa mengembangkan kode program berdasarkan logika anda sendiri. Anda juga boleh membagikan kode program ini pada siapapun dan membuat kesan bahwa andalah yang membuatnya, tapi dosanya tanggung sendiri ya (hhehehehe....).

Program yang saya buat ini terdiri atas kumpulan contoh program yang pernah saya dapatkan di mata kuliah bahasa pemrograman yang saya gabungkan semuanya menjadi satu, program tersebut antara lain:


  • Luas Persegi Panjang
  • Luas Lingkaran
  • Luas Segitiga 
  • Program Penilai Kuliah


LUAS PERSEGI PANJANG
Rumus untuk penghitung luas dan keliling persegi panjang adalah :
Luas = panjang x lebar
Pada program ini kita diminta memasukkan ukuran luas persegi panjang,

uses wincrt;
var  luas    :INTEGER;
        PJ        :INTEGER;
        LB       :INTEGER;
begin
   PJ:=6;
   LB:=8;
   Luas:=PJ * LB;
   write (' Luas PERSEGI PANJANG =',luas);
END.

Pada contoh diatas, saya memasukkan ukuran panjang 6 dan ukuran lebar 8 setelah di Run maka hasilnya adalah 48.



LUAS LINGKARAN
Penghitung luas lingkaran menggunakan rumus di bawah ini :

Luas = π x r 2

Maksud rumus diatas adalah Luas = Pi x jari-jari x jari-jari, bagi yang masih ingat pelajaran matematika di sekolah tentunya tahu bahwa nilai dari Pi adalah 3.14 dan pada program penghitung ini
hanya diminta menginput ukuran dari jari-jari sebuah lingkaran.
Kode Program Luas Lingkaran:

uses wincrt;
var  luas   :real;
        pi      :real;
        jari    :real;
begin
  jari:=11;
  pi  :=3.14;
  Luas:=pi * (jari*jari);
  write (' Luas LINGKARAN =',luas:4:2);
END.

Pada contoh diatas misalnya kita memasukkan ukuran jari-jari lingkaran 3.5 dan program menampilkan hasilnya yaitu luas lingkarannya 38.47



LUAS SEGITIGA
Rumus untuk menghitung luas segitiga adalah sebagai berikut:

Luas = 0.5 x alas x tinggi

Rumus diatas menjelaskan bahwa luas segitiga diketahui setelah menghitung 0.5 dikalikan ukuran alas segitiga dikalikan ukuran tinggi segitiga.

Kode Program Luas Segitiga:

uses wincrt;
var AL,TG,LUAS : REAL;
   begin
     gotoxy(5,5); write ('MASUKKAN NILAI ALAS    : ');READLN(AL);
     gotoxy(5,6); write ('MASUKKAN NILAI TINGGI  : ');READLN(TG);
     luas:=0.5*al*tg;
     gotoxy(5,8); write ('LUAS SEGITIGA :', luas:3:2);
 end.

kemudian kita diminta masukkan nilai alas dan nilai tinggi kemudian tekan enter dan hasilnya akan keluar secara otomatis




PROGRAM PENILAI KULIAH
Program penilai kuliah ini adalah program penghitung nilai seorang mahasiswa ,apakah dia mendapat nilai A,B,C,D atau E dengan cara memesukkan nilai  kemudian tekan enter dan nilainya akan keluar secara otomatis

uses wincrt;
var nilai :integer;
begin
 gotoxy(5,5); write('masukkan nilai : ');readln(nilai);
 if nilai<=50 then
  begin
   gotoxy(5,8); write ('E');
  end
 else if nilai <=65 then
  begin
   gotoxy(5,8); write ('D');
  end
 else if nilai <=75 then
  begin
   gotoxy(5,8); write ('C');
  end
 else if nilai <=85 then
  begin
   gotoxy(5,8); write ('B');
  end
 else if nilai <=100 then
  begin
   gotoxy(5,8); write ('A');
  end
 else if nilai >=100 then
  begin
   gotoxy(5,8); write ('salah');
  end
end.

CATATAN :
di program ini saya membuat nilai sebagai berikut:
jika nilai <=50 maka hasilnya E
jika nilai <=65 maka hasilnya D
jika nilai <=75 maka hasilnya C
jika nilai <=85 maka hasilnya B
jika nilai <=100 maka hasilnya A
jika nilai >=100 maka hasilnya salah
nilai ini bias di ubah sesuai keinginan kalian,




 CATATAN PENULIS

Nama Pembuat     : Yusrifal

Facebook             : rhyfhal nakatury

Blog                      : http://yusrifal05.blogspot.com







Special Thanks To:

-Pak Mahdi [Guru Turbo Pascal Pertamaku di TI (S1) UNIGHA]

-Teman-teman di Indonesian Coder [“thanks buat ilmunya yg sangat berguna....”]

Dan semua teman-teman blogger di dunia maya yang sudah banyak membantu....






sigli,16 desember 2012


jangan lupa tinggalkan coment,,,
baik berupa kritikan cacian makian semua saya terima ,,,

contoh bahasa pascal

beberapa bahasa pascal yang sudah saya pelajari di Teknik Informatika (S1) Universitas Jabal Ghafur 

1. bahasa pascal untuk membuat program mencari nilai kuliah
 uses wincrt;
var nilai :integer;
begin
 gotoxy(5,5); write('masukkan nilai : ');readln(nilai);
 if nilai<=50 then
  begin
   gotoxy(5,8); write ('E');
  end
 else if nilai <=65 then
  begin
   gotoxy(5,8); write ('D');
  end
 else if nilai <=75 then
  begin
   gotoxy(5,8); write ('C');
  end
 else if nilai <=85 then
  begin
   gotoxy(5,8); write ('B');
  end
 else if nilai <=100 then
  begin
   gotoxy(5,8); write ('A');
  end
 else if nilai >=100 then
  begin
   gotoxy(5,8); write ('salah');
  end
end.

2. Program perulangan
uses WINCRT;
var no:integer;
    bil:integer;
begin
 bil:=0;
 FOR no:=1 to 10 do
  begin
   bil:=bil+2;
   writeLN (bil);
  end
end.

Program perulangan2;
uses WINCRT;
var no:integer;
    bil:integer;
begin
 bil:=1;
 FOR no:=1 to 10 do
  begin
   writeLN (bil);
   bil:=bil+2;
  end
end.




3.bahasa pascal untuk membuat program mencari luas lingkaran
uses wincrt;
var luas    :real;
    pi      :real;
    jari    :real;
begin
 jari:=11;
 pi  :=3.14;
 Luas:=pi * (jari*jari);
 write (' Luas LINGKARAN =',luas:4:2);
END.

4.bahasa pascal untuk membuat program mencari luas segi tiga
uses wincrt;
var AL,TG,LUAS : REAL;
  
begin
  gotoxy(5,5); write ('MASUKKAN NILAI ALAS    : ');READLN(AL);
  gotoxy(5,6); write ('MASUKKAN NILAI TINGGI  : ');READLN(TG);
  luas:=0.5*al*tg;
  gotoxy(5,8); write ('LUAS SEGITIGA :', luas:3:2);
 
end.

5.bahasa pascal pemprograman
uses wincrt;
begin
 gotoxy(20,1); write('selamat pagi');
 gotoxy(35,3);write('kota sigli');
 gotoxy(51,5);write('apa kabar');
end.

PROGRAM PERTAMA;
USES WINCRT;
Begin
CLRSCR;
Writeln('Selamat SORE');
Writeln('yusrifal');
Writeln('apa kabar?');
End.

uses wincrt;
var a :integer;
begin
 a:=1;
 if a=1 then
  write('benar');
end.

uses wincrt;
var nm,al : string;
begin
  gotoxy(5,5); write ('NAMA ANDA :');READLN(NM);
  gotoxy(5,6); write ('ALAMAT    :');READLN(AL);
  clrscr;
  gotoxy(5,8); write ('Hallo ',nm,   'apa kabar');
  gotoxy(5,9); write (al);
end.

uses wincrt;
var nm,al : string;
begin
  gotoxy(5,5); write ('NAMA ANDA :');READLN(NM);
  gotoxy(5,6); write ('ALAMAT    :');READLN(AL);
  clrscr;
  gotoxy(5,8); write ('Hallo ',nm,   'apa kabar');
  gotoxy(5,9); write (al);
end.

uses wincrt;
var a :integer;
begin
 a:=1;
 if a=1 then
  begin
   write('benar');
  end
 else
  begin
   write('salah')
  end
end.

6.bahasa pascal untuk membuat program mencari luas persegi panjang
uses wincrt;
var luas    :INTEGER;
    PJ      :INTEGER;
    LB      :INTEGER;
begin
 PJ:=6;
 LB:=8;
 Luas:=PJ * LB;
 write (' Luas PERSEGI PANJANG =',luas);
END.


7.bahasa pascal untuk membuat program mencari kelulusan
uses wincrt;
var nilai :integer;
begin
 gotoxy(5,5); write('masukkan nilai : ');readln(nilai);
 if nilai<=60 then
  begin
   gotoxy(5,8); write ('tidak lulus');
  end
 else if nilai <=85 then
  begin
   gotoxy(5,8); write ('lulus cadangan');
  end
 else
  begin
   gotoxy(5,8); write ('lulus');
  end
end.