Semoga bermanfaat untuk anda

Program Biaya Angsuran dengan Menggunakan Turbo Pascal

Sintaks Program :
program biaya;
uses wincrt;
var
   tmpt, nama, jurusan :string;
   no, total,tgl,bulan,tahun, bayar, sisa : real;
begin
   writeln('Formulir Angsuran Biaya');
   write  ('No          : ');readln(no);
   write  ('Nama        : ');readln(nama);
   write  ('TTL         : ');
   gotoxy(15,4);readln(tmpt);
   gotoxy(24,4);write(',');
   gotoxy(25,4);readln(tgl);
   if tgl > 31 then
   donewincrt;
     
   gotoxy(27,4);write('-');
   gotoxy(28,4);readln(bulan);
   if bulan > 12 then
   donewincrt;
   gotoxy(30,4);write('-');
   gotoxy(31,4);readln(tahun);
   if tahun > 1996 then
   donewincrt;
   write  ('Jurusan     : ');readln(jurusan);
   total:=700000;
   writeln('Total Biaya : Rp.',total:0:2);
   write  ('Bayar       : Rp.');readln(bayar);
   sisa := total-bayar;
   write  ('Sisa BAyar  : Rp.',sisa:0:2);
end.

Gambar program setelah dijalankan :
Sintaks Program :
program biaya; 
uses wincrt; 
var 
   tmpt, nama, jurusan :string; 
   no, total,tgl,bulan,tahun, bayar, sisa : real; 
begin 
   writeln('Formulir Angsuran Biaya'); 
   write  ('No          : ');readln(no); 
   write  ('Nama        : ');readln(nama); 
   write  ('TTL         : '); 
   gotoxy(15,4);readln(tmpt); 
   gotoxy(24,4);write(','); 
   gotoxy(25,4);readln(tgl); 
   if tgl > 31 then 
   donewincrt; 
      
   gotoxy(27,4);write('-'); 
   gotoxy(28,4);readln(bulan); 
   if bulan > 12 then 
   donewincrt; 
   gotoxy(30,4);write('-'); 
   gotoxy(31,4);readln(tahun); 
   if tahun > 1996 then 
   donewincrt; 
   write  ('Jurusan     : ');readln(jurusan); 
   total:=700000; 
   writeln('Total Biaya : Rp.',total:0:2); 
   write  ('Bayar       : Rp.');readln(bayar); 
   sisa := total-bayar; 
   write  ('Sisa BAyar  : Rp.',sisa:0:2); 
end.

Gambar program setelah dijalankan :
[image%255B4%255D.png]

DaftarKelompok :
Muslihudin
Ega Herdiana
Muhamad Ramdan
Ahmad Sabit
Helmi Fauzi
Irham Mediawan
Tendi Edrisa
Fathul Bari Abdul Aziz

Posted by Unknown at 9:49 PM, Add Comment
Read more

Cara Menembak Cewek dengan Romantis


  Cara yang paling romantis untuk nembak cewek  idaman anda tentu saja adalah secara langsung. Karena kalau kita nembak cewek lewat sms atau telpon mungkin bagi kebanyakan cewek justru dianggap tidak gentle.
Memang sangatlah tidak mudah bagi seorang cowok untuk menyatakan cinta kepada cewek idamannya, terlebih kalau anda termasuk cowok yang pemalu. Nah cara nembak cewek supaya mau jadi pacar dibawah ini mungkin bisa kamu praktekkan. Sebelumnya kamu juga harus membaca tentang Cara Menarik Perhatian Wanita.Semoga saja dengan cara ini ungkapan cinta romantis kamu langsung diterima sama si cewek gebetan. Nah berikut kiat-kiat cara nembak cewek.
Cara Menembak Cewek dengan Romantis: 
1.    Kuatkan Mental
Ini adalah persiapan diri pertama yang harus kamu lakukan. Kamu harus yakin inilah saat yang tepat untuk menyatakan rasa cinta kamu pada si cewek. Dan kamu juga harus siap mental dengan jawaban apapun yang bakal cewek itu berikan saat kamu nembak dia. Artinya kamu tidak hanya siap jika si cewek akan berkata IYA, tapi kamu juga harus kuat bila si cewek ternyata berkata TIDAK.

2. Gunakan Kata-Kata Romantis
Cara menembak cewek - Romantis bukan berarti kamu harus lebay dan terlalu berlebihan. Kalau kamu bingung mau berkata apa, mungkin kamu sebaiknya to the point saja nembak si dia dengan kata-kata cinta seperti ini, “sebenarnya aku menyimpan rasa cinta sama kamu. jangan tanya kenapa aku menyukaimu, karena aku gak punya alasan. perasaanku ini tulus, tapi aku juga tau kalau aku gak bisa egois untuk memaksamu mencintaiku. aku cuma ingin kamu tau perasaanku ini, jadi fikirkanlah baik-baik sebelum kamu putuskan, kutunggu jawabanmu YA atau TIDAK".

3. Tempat dan Suasana Romantis
Pemilihan tempat paling romantis dimana kamu akan menyatakan cinta atau nembak cewek juga perlu direncanakan. Mall, restoran atau pantai adalah beberapa pilihan tempat yang bisa kamu jadikan tempat untuk nembak cewek kamu. Sedangkan suasana romantis bisa kamu ciptakan dengan mengajak si cewek ngobrol tentang topik yang dia sukai, biasanya cewek akan bersemangat kalau mengetahui ternyata sang cowok punya hobi atau kesukaan yang sama dengan dia.

4. Berikan Sesuatu Yang Berkesan
Cara menembak cewek dengan romantis yaitu beri sesuatu yang berkesan. Saat jadian dengan seorang cewek atau pun cowok pasti akan selalu dikenang dan diingat oleh setiap orang. Nah usahakan momen jadian seperti ini kamu tandai dengan memberikan bunga atau kado spesial lainnya untuk si cewek. Ada ungkapan klasik yang selalu dilakukan oleh banyak orang sampai saat ini yaitu “Katakanlah dengan bunga”.

5. Sabar dan Berdoa
Jangan memaksa si dia untuk menjaw

Itulah cara-cara menembak cewek paling romantis, silahkan dicoba yah, dan semoga berhasil dan diterima.
ab pada saat itu juga. Tidak semua cewek bisa langsung menjawab saat seorang cowok menyatakan cinta padanya. Berikan dia waktu untuk berpikir dan memutuskan jawaban atas ungkapan rasa cinta yang telah kamu sampaikan. Nah sementara itu, berdoalah pada Tuhan Yang Maha Kuasa semoga si cewek besok akan memberikan jawaban IYA untuk kamu.
Posted by Unknown at 11:52 AM, 1 Comment
Read more

Manfaat Belajar bahasa pemograman pascal

                                             Manfaat Belajar bahasa pemograman pascal




sebagai seorang yang sedang melanjutkan kuliah ataupun sedang mempelajari berbagai macam bahasa pemerograman tetntunya kita pasti pernah mengenal bahkan mempelajari bahasa pemerograman yang satu ini. namun sebenarnya apakah kita tahu mengapa kita di ajarkan bahasa pemerograman turbo pascal ini. pada postingan Artikel kali ini zoharaberbagiinfo akan memberikan sedikit menfaat yang kita peroleh dari mempelajari TURBO PASCAL .

TAHUKAH ANDA APA MANFAAT KITA BELAJAR TURBO PASCAL ITU ???

Manfaat turbo pascal ini tidak terbatas untuk membantu sistem administrasi dikantor-kantor saja, tetapi merambah kebeberapa bidang. Sehingga aplikasinya sangat dibutuhkan untuk membantu berbagai disiplin ilmu.Untuk itulah dibutuhkan software yang menjebatani komputer dengan kebutuhan dan tujuan pemograman komputer friendly. sebuah software akan memudahkan untuk membuat aplikasi seperti : bahasa C, C++, C#, Clipper, LISP, ADA, ALGOL, Modula 2, Smalltalk,Prolog, Perl, PHP, ASP, JSP, J#, J++, Cobol, Basic, Fortran, Java, Paskal, dan lain sebagainya.
Bahasa pemrograman adalah sesuatu yang mutlak harus dipahami jika inginmembuat suatu aplikasi. Berdasarkan hal tersebut maka perlu kiranya kita belajar sebuah bahasa pemrograman yang lebih sederhana dan relatif lebih mudah untuk dipelajari oleh seorang pemula. Bahasa pascal adadalah salah satu jenis bahasa tingkat tinggi yang relatif lebih mudah untuk dipelajari.
    Bahasa pemograman pascal adalah salah satu bahasa tingkat tinggi yang merupakan bahasa pemograman prosedural yang banyak dipakai untuk mengenalkan pemograman bagi pemula, selain itu bahasa pascal relatif mudah untuk dipelajari, sehingga daapat diadakan sebagai dasar acuan untuk belajar bahasa pemograman telah banyak literatur mengenai bahasa pemograman pascal dengan berbagai versi. yang semakin memudahkan mempelajarinya. Program dalam bahasa pemograman pascal cukup banyak variannya seperti delfi yang merupakan visual pascal juga masih banyak lagi. pascal juga memliki beberapa versi yang beredar dipasaran seperti UCSD pascal, Ms-Pascal, apple pascal, free pascal, turbo pascal dan sebagainya.

Berikut ini akan diberikan gambaran mengapa mesti belajar bahasa pascal.
1. Kecepatan (speed)
Kecepatan bahasa pascal untuk mengkompilasi baris program dapat dikatakan sekejap mata saja. Anda banyangkan kode baris program yang ribuan jumlahnya diterjemahkan dalam hitungan detik. Coba anda buktikan dengan bahasa pemrograman lainnya (C, C++, Java, dll)
2. Tipe data yang kuat
Pascal mengijinkan pemakainya untuk membuat tipe data sendiri, tetapi dengan beberapa batasan. Pascal tidak mengenal pengubahan tipe data (type casting) dan hal ini tentu saja memberi manfaat karena kemungkinan timbulnya kesalahan (error) kecil. Hal ini merupakan salah satu alasan utama yang dilakukan panitia ujian masuk mahasiswa untuk mata ujian komputer di Amerika.
3. Ukuran
Hasil compilasi dari program pascal hanya beberapa kilo byte saja. Sungguh kecil. Bila kita bandingkan dengan kapasitas ruang hard disk yang 40 mega byte, dapat dibanyangkan berapa besar program pascal yang dapat kita buat.
4. Portabilitas
Portabilitas berarti program pascal dapat berjalan pada jenis komputer yang berbeda, seperti : IBM, Apple, dll.
4. Produktivitas
Untuk belajar suatu bahasa pemrograman pada dasarnya sama, yaitu : harus mengenal aturan dan struktur data dari bahasa tersebut. Anda dapat bayangkan kalau tukang bangun tidak memiliki arsitektur yang jelas tentang bangunan rumah tersebut, tentu saja rumah yang akan dibangun tidak akan baik. Pascal menyediakan struktur data yang jelas, dengan demikian produktivitas hasil kerja kita tentu saja akan bertambah.
Dan satu hal yang jelas bahasa turbo pascal for windows atau visual delphi adalah turunan dari turbo pascal. Dan bila struktur dari program pascal sudah kita pahami, maka untuk memahami pascal for windows ataup visual Delphi tidaklah sulit lagi. Orang bijak bilang ‘belajar dari dasar merupakan modal yang paling besar’. Untuk itulah Pascal hadir bagi kita.angannya mudah dipahami.

terimakasih telah membaca :)

sumber :

    tugastikpas
    anisanurfadillah



Posted by Unknown at 8:41 AM, Add Comment
Read more

BAGAIMANA CARA MEMBUAT TABEL DENGAN MENGGUNAKAN BAHASA PEMEROGRAMAN HTML ???


ta
Postingan kali ini saya  akan memberikan sebuah tutorial tentang bagaimana cara membuat sebuah tabel dengan menggunakan bahasa pemerograman html, selain untuk sebuah pembelajaran postingan kali ini juga ditujukankan sebagai TUGAS dari matakuliah struktur data  . tahukah anda apa tabel html itu ???
HTML Tabel  merupakan sekumpulan elemen yang berupa lajur baris dan kolom  yang saling terhubung yang digunakan  untuk membagi kolom header, sidebar, main content, footer dsb.

ini adalah 2 elemen penting yang sering dipergunakan dalam menggunakan blog :
1. Atribut Colspan       Fungsi dari atribut ini ialah untuk menggabungkan beberapa kolom menjadi satu . contoh nya dapat anda lihat pada gambar di bawah ini
image
 zoharaberbagiinfo.blogspot.com

tanpa Colspan :
<table border="1">
<tr>
    <td> Cell 1 </td>
    <td> Cell 2 </td>
    <td> Cell 3 </td>
</tr>
<tr>
    <td> Cell 4 </td>
    <td> Cell 5 </td>
    <td> Cell 36 </td>
</tr>
dengan Colspan :

<table border="1">
<tr>
    <td colspan="3"> Cell 1</td>
</tr>s
<tr>
    <td> Cell 4 </td>
    <td> Cell 5 </td>
    <td> Cell 36 </td>
</tr>
2. Atribut Rowspan

digunakan ketika kita akan menggabungkan beberapa baris tabel, contohnya dapat dilihat disini
image

tanpa Rowspan :

<table border="1">
<tr>
    <td> Cell 1 </td>
    <td> Cell 2 </td>
    <td> Cell 3 </td>
</tr>
<tr>
    <td> Cell 4 </td>
    <td> Cell 5 </td>
    <td> Cell 36 </td>
</tr>
dengan Rowspan :

<table border="1">
<tr>
    <td> Cell 1 </td>
    <td rowspan="2"> Cell 2 </td>
    <td> Cell 3 </td>
</tr>
<tr>
    <td> Cell 4 </td>
    
    <td> Cell 6 </td>
</tr>

Posted by Unknown at 3:30 PM, Add Comment
Read more

STRUKTUR DATA (PROGRAM PEGAWAI TURBO PASCAL) KELOMPOK III


program pegawai dengan menggunakan bahasapemerogrmaan pascal serta  flowchart
Program Pegawai Memakai Procedure
Program DataPegawai;
Uses Wincrt;
Var
nama :array[1..100]of string;
kerja:array [1..100]of char;
nip, gol, jam, Gapok, Insentif, Gaber :array[1..100]of longint;
a,n,gaji:longint;
ulang,kembali:char;
proceduregaris;
begin
writeln('==================================');
end;
procedurenamapegawai;
begin
If (nip[n]) = 1 then
begin
nama[n] := 'YosepDwiAnjani';
Writeln('Nama : ', (nama[n]));
end
else if (nip[n]) = 2 then
begin
nama[n] := 'RisalAgustian';
Writeln('Nama : ', (nama[n]));
end
else if (nip[n]) = 3 then
begin
nama[n] := 'IdhamHanif N';
Writeln('Nama : ', (nama[n]));
end
else
begin
write('Nama : ');readln(nama[n]);
end;
end;
proceduregolongan;
begin
If (gol[n]) = 1 then
Gapok[n]:= 1000000
else if (gol[n]) = 2 then
Gapok[n]:=1500000
else if (gol[n]) = 3 then
Gapok[n]:=2000000
Else
begin
Gapok[n]:=0;
writeln('golongan yang andamasukantidakada');
readkey;
donewincrt;
end;
end;
procedurelembur;
begin
ifupcase(kerja[n]) ='Y' then
begin
Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);
if (jam[n]) >20 then
Insentif[n]:=(jam[n])*20000
else
if (jam[n])>=10 then
insentif[n] :=(jam[n])*10000
else
Insentif[n]:=(jam[n])*5000;
Writeln('Insentif : Rp. ',(insentif[n]));
Gaber[n]:=Gapok[n]+Insentif[n] ;
end
else
begin
gaber[n]:=Gapok[n];
jam[n]:=0;
insentif[n]:=0;
end;
end;
procedurelaporan;
begin
clrscr;
writeln('Laporan Data PegawaidanGajiPegawai ');
garis;
writeln('| | | | | | | | | ');
writeln('| No | NIP | NamaPegawai |Gol|GajiPokok|JamLembur|Insentif |GajiBersih| ');
writeln('| | | | | | | | | ');
garis;
writeln;
for a:=1 to n do
begin
gotoxy(1,a+7);write('|');
gotoxy(3,a+7);write(a);
gotoxy(6,a+7);write('|');
gotoxy(8,a+7);write(nip[a]);
gotoxy(12,a+7);write('|');
gotoxy(13,a+7);write(nama[a]);
gotoxy(29,a+7);write('|');
gotoxy(31,a+7);write(gol[a]);
gotoxy(33,a+7);write('|');
gotoxy(34,a+7);write(gapok[a]);
gotoxy(44,a+7);write('|');
gotoxy(45,a+7);write(jam[a]);
gotoxy(55,a+7);write('|');
gotoxy(56,a+7);write(insentif[a]);
gotoxy(65,a+7);write('|');
gotoxy(68,a+7);write(gaber[a]);
gotoxy(77,a+7);write('|');
gaji:=gaji+(gaber[a]);
end;
writeln;
writeln;
writeln (' Total GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);
readln;
end;
procedureutama;
begin
n:=0;
repeat
n:=n+1;
Clrscr;
gotoxy(28,2);Writeln('SelamatDatang');
gotoxy(20,3);Writeln('Entri Data PegawaiKelompok 3');
garis;
Writeln;
Write('NIP : ');Readln(nip[n]);
namapegawai;
Write('Golongan (1,2,3): ');Readln(gol[n]);
golongan;
writeln('GajiPokok : Rp. ', Gapok[n]);
write('Ada KerjaTambahan y/t? ');readln(kerja[n]);
lembur;
Writeln('GajiBersih : Rp. ', (Gaber[n]));
write('Tambah data Pegawai (y/t): ');readln(ulang);
untilupcase(Ulang) <> 'Y';
end;
begin
kembali:='Y' ;
whileupcase(kembali) = 'Y' do
begin
gaji:=0;
utama;
laporan;
write('inginulangiAplikasi(y/t) ? ');readln(kembali);
ifupcase(kembali)='T' then
donewincrt;
end;
end.
Program PegawaiMemakaiIf
Program DataPegawai;
Uses Wincrt;
Var
nama :array[1..100]of string;
kerja:array [1..100]of char;
nip, gol, jam, Gapok, Insentif, Gaber :array[1..100]of longint;
a,n,gaji:longint;
ulang,kembali:char;
proceduregaris;
begin
writeln('===================================');
end;
begin
kembali:='Y' ;
whileupcase(kembali) = 'Y' do
begin
gaji:=0;
n:=0;
repeat
n:=n+1;
Clrscr;
gotoxy(28,2);Writeln('SelamatDatang');
gotoxy(20,3);Writeln('Entri Data PegawaiKelompok 3');
garis;
Writeln;
Write('NIP : ');Readln(nip[n]);
If (nip[n]) = 1 then
begin
nama[n] := 'YosepDwiAnjani';
Writeln('Nama : ', (nama[n]));
end
else if (nip[n]) = 2 then
begin
nama[n] := 'RisalAgustian';
Writeln('Nama : ', (nama[n]));
end
else if (nip[n]) = 3 then
begin
nama[n] := 'IdhamHanif N';
Writeln('Nama : ', (nama[n]));
end
else
begin
write('Nama : ');readln(nama[n]);
end;
Write('Golongan (1,2,3): ');Readln(gol[n]);
If (gol[n]) = 1 then
Gapok[n]:= 1000000
else if (gol[n]) = 2 then
Gapok[n]:=1500000
else if (gol[n]) = 3 then
Gapok[n]:=2000000
Else
begin
Gapok[n]:=0;
writeln('golongan yang andamasukanTidakada');
readkey;
donewincrt;
end;
writeln('GajiPokok : Rp. ', Gapok[n]);
write('Ada KerjaTambahan y/t? ');readln(kerja[n]);
ifupcase(kerja[n]) ='Y' then
begin
Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);
if (jam[n]) >20 then
Insentif[n]:=(jam[n])*20000
else
if (jam[n]) >=10 then
insentif[n] :=(jam[n])*10000
else
Insentif[n]:=(jam[n])*5000;
Writeln('Insentif : Rp. ',(insentif[n]));
Gaber[n]:=Gapok[n]+Insentif[n] ;
end
else
begin
gaber[n]:=Gapok[n];
jam[n]:=0;
insentif[n]:=0;
end;
Writeln('GajiBersih : Rp. ', (Gaber[n]));
write('Tambah data Pegawai (y/t): ');readln(ulang);
untilupcase(Ulang) <> 'Y';
clrscr;
writeln('Laporan Data PegawaidanGajiPegawai ');
garis;
writeln('| | | | | | | | | ');
writeln('| No | NIP | NamaPegawai |Gol|GajiPokok|JamLembur|Insentif |GajiBersih| ');
writeln('| | | | | | | | | ');
garis;
writeln;
for a:=1 to n do
begin
gotoxy(1,a+7);write('|');
gotoxy(3,a+7);write(a);
gotoxy(6,a+7);write('|');
gotoxy(8,a+7);write(nip[a]);
gotoxy(12,a+7);write('|');
gotoxy(13,a+7);write(nama[a]);
gotoxy(29,a+7);write('|');
gotoxy(31,a+7);write(gol[a]);
gotoxy(33,a+7);write('|');
gotoxy(34,a+7);write(gapok[a]);
gotoxy(44,a+7);write('|');
gotoxy(45,a+7);write(jam[a]);
gotoxy(55,a+7);write('|');
gotoxy(56,a+7);write(insentif[a]);
gotoxy(65,a+7);write('|');
gotoxy(68,a+7);write(gaber[a]);
gotoxy(77,a+7);write('|');
gaji:=gaji+(gaber[a]);
end;
writeln;
writeln;
writeln (' Total GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);
readln;
write('inginulangiAplikasi(y/t) ? ');readln(kembali);
ifupcase(kembali)='T' then
donewincrt;
end;
end.
Flowchart
3
Screen Layout Program
clip_image002clip_image004clip_image006clip_image008clip_image010
Posted by Unknown at 3:29 PM, Add Comment
Read more
Subscribe to: Posts (Atom)