Tugas 18 September 2014

1. Video Tutorial Jenis Barang




 2. Video Tutorial Kerja Pegawai Kurang dari 40jam




3. Video Tutorial Menentukan Kalimat dari bilang 1-999






4. Video Tutorial Menentukan Bilangan Terbesar Jika Diinputkan 5 Bilangan

Tugas 17 September 2014

1. Video Tutorial Output Kuadran (Soal Dosen)





2. Video Tutorial "A" smaller than or equal or greater "B"




3. Video Tutorial Perbedaan Begin and Else di IF




4. Video Tutorial Pemberian Selamat Berdasarkan Grade




5. Video Tutorial Menentukan Nama Hari 

Menggunakan IF Algoritma dan Pascal

1. MENENTUKAN LAMA BEKERJA SEORANG PEGAWAI





2. MENENTUKAN KUADRAN BERAPA JIKA "X" DAN "Y" DIINPUT USER



3. MENGHITUNG TUNJANGAN ANAK



4. MENGHITUNG BIAYA PARKIR


5.MENGHITUNG SELISIH WAKTU (DALAM JAM & MENIT)

Pengenalan Teknik Komputer

PENGENALAN TEKNIK KOMPUTER

Jika saya menjadi seorang teknik computer saya ingin menguasai hal-hal apa saja dan apa yang ingin saya lakukan dimasa sekarang dan masa yang akan datang

HAAAI guyssssssssssssss hahaha sekali sekali mencoba untuk sok akrab dengan para reader blog saya ini haha. Naaaaah disini saya sedang mengerjakan tugas sesuatu yang cetar dan membahana haha kira apa saja, bercanda ya bercanda. Ada suatu pertanyaan yang mungkin orang-orang pasti pernah terpikirkan jika dia ingin memilih jurusan. Pertanyaannya adalah jika saya menjadi seorang teknik computer saya ingin menguasai hal-hal apa saja dan apa yang ingin saya lakukan dimasa sekarang dan masa yang akan datang?

Pertama-tama di Indonesia sangat sedikit yang masih kurang mengerti arti dari teknik computer, mungkin sebagian orang hanya tau jika teknik computer itu hanya merakit-rakit computer, bongkar pasang computer. Nih ya gue perjelas sebenernya kalian tau ga? Yang membuat mesin tol itu siapa? Yang membuat mesin pom bensin kalo kita mau isi bensin siapa? Yang perhitungan di mesin untuk mengisi bensin juga siapa? Itu anak teknik computer.

Kenapa teknik computer masih sedikit diindonesia? Mungkin jawabannya sulit tapi nanti berapa tahun kedepan anak teknik computer pasti dibutuhkan karena sedikit sekali orang-orang lulusan teknik computer dan perusahaan pun menunggu kalian. Anak teknik computer itu belajar semuanya belajar tentang anak teknik informatika, belajar tentang anak system computer, pokonya semua kebagi rata itu cuman ada di teknik computer. Software, hardware nya di teknik computer dapat semua.

Diteknik komputernya juga ada penjurusan programmer, jaringan – jaringan gitu dan pembuatan robot. Pokonya jadi anak teknik computer gak akan nyesel karena ternyata yang disekeliling kita sebagian adalah pembuatan dari lulusan anak teknik computer.

Nah sekarang kepribadi kalo saya jadi seorang teknik computer saya ingin menguasai apa saja?banyaaaak banget tapi yang pertama saya mau banget menguasai bahasa algoritma haha soalnya kata orang-orang orang yang bias menguasai bahasa algoritma adalah orang yang bisa menguasai dunia. Terus selain itu saya ingin menguasai dalam kerusakan laptop atau computer dan aliran listrik kenapa berbeda antara colokan yang dekat dengan listrik dengan yang jauh dari colokan utama ya intinya seperti itu hahaha lalu saya ingin menguasai apa ya mungkin bahasa inggris karena ya pasti sangat dibutuhkan mau keluar negeri atau gimanapun pokonya harus menguasai bahasa inggris.

Setelah itu kita juga harus menguasai networking atau jaringan ya jelas karena dia merupakan meningkatkan kinerja serta efisiensi. Karena perannya sangat vital maka pasti banyak perusahaan yang membutuhkan tenaga kerja dibidang networking. Setelah itu kita harus menguasai security, maksudnya security disini bukan semacam menjadi polisi atau satpam gitu tapi melainkan keahlian dibidang IT dalam manajemen identitas dan akses. Seperti penilaian ancaman dan kerentanan, enkripsi, menghindari kehilangan data, analisis insiden audit dan sebagainya.

Lalu menguasai kemampuan web yang mumpuni contohnya dibidang adobe flex, javascript, adobe flash, ajax dan sebagainya.

Nah setelah itu kita harus menguasai business intelegence yaitu untuk berkontribusi terhadap keuntungan perusahaan dan harus dapat menginput data dengan sangat baik serta dapat mempresentasikan data tersebut menjadi informasi yang berguna

Untuk masa sekarang jika saya menjadi seorang teknik  computer saya akan mengulang kembali apa-apa yang tak acuhkan masyarakat dan membuatnya menjadi sangat berarti dan menjadi lebih indah contohnya seperti tempat sampah mungkin saya akan mendesain ulang tempat sampah agar orang-orang tetap membuang sampah tidak sembarangan

Lalu untuk masa yang akan datang saya akan menginovasikan atau membuat suatu robot untuk keperluan manusia tetapi tetap untuk tidak membuat semua manusia menjadi malas karena dibantu dengan robot. Atau mungkin saya akan membuat mobil terbang agar polusi tidak semakin banyak dan bumi pun tak panas

Algoritma & Pascal GenGil dan Angka Terbesar

HAAAAAAAAAAAAAAAAAAI~ ini part 2 disini saya mau share tutorial pascal dan algoritma dari

1. Menampilkan bilangan ganjil atau genap
2. Menentukan angka yang terbesar pada tiga angka yang di inginkan
 gausah banyak basa-basi yaaaaaaaaaa cekidot aja langsung!! :D

Yang part 1 nya tentang luas lingkaran, luas segitiga, menghitung kecepatan, menghitung artimatika, dan tukar gelas bisa klik CLICK DISINI

1. Menampilkan bilangan ganjil atau genap

 

2. Menentukan angka yang terbesar pada tiga angka yang diketahui

Algoritma beserta pascalnya

HALOOOOOOOOOO~ kali ini gue mau ngeshare tentang tutorial menggunakan pascal ditambah dengan algoritmanya nih. video kali ini yang mau dishare itu tentang

1. menghitung waktu jika diketahui kecepatan dan jarak
2. menghitung luas segitiga
3. menghitung luas lingkaran
4. menampilkan aritmatika yaitu penjumlahan, pengurangan, pembagian (div), perkalian, sisa (mod)
5. menampilkan algoritma dan pascalnya dari tukar gelas

okeyssssss langsung aja liat video tutorial ala indah hahahahaha maaf yaa kalo ada kesalahan dalam bicara, tuisan atau apapun :))

1. Menghitung waktu jika kecepatan dan jarak diketahui

2. Menghitung luas segitiga

3. Menghitung luas lingkaran

4. Menampilkan aritmatika (penjumlahan, pengurangan, perkalian, pembagian, dan sisa)

5. Menampilkan Algoritma dan Pascal Tukar Gelas

ini algoritma dari Tukar Gelas



ini pascal dari Tukar Gelas

Tutorial Pascal

HAAAAAAAAAAAAAI.. nih kali ini gue ingin mengshare tentang tutorial pascal, sebelum ke pascal alangkah lebih baiknya kita membuat bahasa algoritmanya tersebut. yang pernah sudah dibahas kan pengertian dari algoritma itu sendiri. okeeeeeeeys, disini saya mau share video ditambah dengan algoritma dan pascal tulisannya dari latihan dasar, latihan 1 dan latihan 2 dulu yaaa. okeeeey cekidot huahaha

1.Latihan Dasar

video tutorialnya video tutorial latihan dasar  (maaf ya kalo ngeblur gambarnya ;D)


Dalam bahasa pascal

program CintaIndonesia;uses crt;


Begin clrscr; write('Aku Cinta Indonesia'); readkey;


End.

2.Latihan Pertama 

Video tutorialnya video tutorial latihan pertama

Dalam Bahasa Algoritma

PROGRAM Contoh1;

DEKLARASI/VAR/KAMUS DATA

      VarNama : String

      VarUmur : Integer

      VarTargetIPK : Real

      VarJomblo : Boolean

      VarTargetNilaiAlpro : Character

KONSTANTA

      KonsTempatTanggalLahir : String ß”Serang, 8-Januari-1997”

ALGORITMA

      VarNama ß “Indah Trizkiyani”

      VarUmur ß 54

      VarTargetIPK ß 3.99

      VarJomblo ß FALSE

      VarTargetNilaiAlpro ß ’A’

     

      OUTPUT(“Ini adalah data tentang Indah Trizkiyani”)

      OUTPUT(VarNama)

      OUTPUT(VarUmur)

      OUTPUT(VarTargetIPK)

      OUTPUT(VarJomblo)

      OUTPUT(VarTempatTanggalLahir)   

END ALGORITMA

Dalam Bahasa Pascal

PROGRAM contoh1;

USES crt;

VAR

 VarNama: String;

 VarUmur : Integer;

 VarTargetIPK : Real;

 VarJomblo : Boolean;

 VarTargetNilaiAlpro : Char;

CONST

 KonsTempatTanggalLahir : String ='Serang, 8-Januari-1997';

BEGIN

 CLRSCR;

 VarNama := 'Indah Trizkiyani';

 VarUmur := 54;

 VarTargetIPK := 3.99;

 VarJomblo := FALSE;

 VarTargetNilaiAlpro := 'A';

 WRITELN('Ini adalah data tentang Indah Trizkiyani');

 WRITELN(VarNama);

 WRITELN(VarUmur);

 WRITELN(VarTargetIPK);

 WRITELN(VarJomblo);

 WRITELN(VarKonsTempatTanggalLahir);

 READKEY;

END.

3.Latihan Kedua

Video tutorialnya video tutorial latihan kedua (maaf ya kalo ngeblur masih newbie ;D)

Dalam Bahasa Algoritma

PROGRAM Contoh2;

DEKLARASI/VAR/KAMUS DATA

      VarNama : String

      VarUmur : Integer

      VarTargetIPK : Real

      VarJomblo : Boolean

      VarTargetNilaiAlpro : Character

KONSTANTA

      KonsTempatTanggalLahirSibutar : String ß”Sitoli,13-Jan-1964”

      KonsTempatTanggalLahirAmanda : String ß”B.Aceh, 7-Feb-1992”

ALGORITMA

      VarNama ß “Sibutar-butar”

      VarUmur ß 50

      VarTargetIPK ß 4.00

      VarJomblo : TRUE

      VarTargetNilaiAlpro ß ’AB’

     

      OUTPUT(“Ini adalah data tentang Sibutar-butar”)

      OUTPUT(VarNama)

      OUTPUT(VarUmur)

      OUTPUT(VarTargetIPK)

      OUTPUT(VarJomblo)

      OUTPUT(KonsTempatTanggalLahirSibutar)    

     

      VarNama ß “Amanda Larashati”

      VarUmur ß 22

      VarTargetIPK ß 3.75

      VarJomblo : TRUE

      VarTargetNilaiAlpro ß ’C’

     

      OUTPUT(“Ini adalah data tentang Amanda”)

      OUTPUT(VarNama)

      OUTPUT(VarUmur)

      OUTPUT(VarTargetIPK)

      OUTPUT(VarJomblo)

      OUTPUT(KonsTempatTanggalLahirAmanda)

END ALGORITMA

Dalam Bahasa Pascal

PROGRAM contoh2;

USES crt;

VAR

 VarNama : String;

 VarUmur : Integer;

 VarTargetIPK : Real;

 VarJomblo : Boolean;

 VarTargetNilaiAlpro : Char;

CONST

 KonsTempatTanggalLahirSibutar : String ='Sitoli,13-Jan-1964';

 KonsTempatTanggalLahirAmanda : String ='B.Aceh, 7-Feb-1992';

BEGIN

 CLRSCR;

 VarNama := 'Sibutar-butar';

 VarUmur := 50;

 VarTargetIPK := 4.00;

 VarJomblo := TRUE;

 VarTargetNilaiAlpro := 'B';

 WRITELN('Ini adalah data tentang Sibutar-butar');

 WRITELN(VarNama);

 WRITELN(VarUmur);

 WRITELN(VarTargetIPK);

 WRITELN(VarJomblo);

 WRITELN(KonsTempatTanggalLahirSibutar);

 VarNama := 'Amanda Larashati';

 VarUmur := 22;

 VarTargetIPK := 3.75;

 VarJomblo := TRUE;

 VarTargetNilaiAlpro := 'C';

 WRITELN('Ini adalah data tentang Amanda');

 WRITELN(VarNama);

 WRITELN(VarUmur);

 WRITELN(VarTargetIPK:2:2);

 WRITELN(VarJomblo);

 WRITELN(KonsTempatTanggalLahirAmanda);

 READKEY;

END.