Contoh program bilangan ganjil menggunakan turbo pascal

Berikut ini codingannya:

Program bilangan_ganjil;
uses crt;
var i,n,k: integer;
begin
     clrscr;
     write('masukkan nilai awal: ');
     readln(n);
     write('masukkan nilai akhir: ');
     readln(k);
     write('bilangan ganjil : ');
     for i:= n to k do
     begin
     if i mod 2 = 1 then write(i,',');
     end;
     readln;
end.

Berikut Hasilnya:

Sekian terimakasih silahkan mencoba:)

Proggram Array1

Berikut codingannya:

Program array1;
uses crt;
var a:array[10..100] of integer;
rendah,tinggi:integer;
begin
     clrscr;
     rendah:=low(a);
     tinggi:=high(a);
     writeln('nilai array terendah=',rendah);
     writeln('nilai array tertinggi=',tinggi);
readln;
end.

Berikut hasilnya:

Selamat mencoba;)

Tips simpel berbusana saat kuliah

1. Pakai kemeja yang nyaman di pakai dan tidak terlalu mencolok warnanya

2. Pakai jeans dengan warna yang kalem dan tentunya pilih yang nyaman dipakai

3.Pakai sepatu yang bertali/tidak bertali sesuai keinginan

4. Pilih tas ransel yang berwarna kalem dan nyaman digunakan

Sekian tips dari saya semoga bermanfaat :)

Membuat Program Kalkulator dengan Turbo Pascal

Dengan Tampilan menu:
1. Penambahan
2. Pengurangan
3. Perkalian
4. Pembagian
5. Modulus
6. Keluar

Langsung saja berikut codingannya:

program kalkulator;
uses crt;
var pilih:integer;
procedure penambahan;
var a,b,c:real;
begin
    clrscr;
    writeln('Penambahan');
    writeln(' ');
    write('Masukkan Angka Pertama: ');readln(a);
    write('Masukkan Angka Kedua :  ');readln(b);
    c:=a+b;
    writeln('Hasil:',c:0:0);
    writeln(' ');
    writeln('Kembali ke menu tekan enter');
    readln;
end;
procedure pengurangan;
var a,b,c:real;
begin
    clrscr;
    writeln('Pengurangan');
    writeln(' ');
    write('Masukkan Angka Pertama: ');readln(a);
    write('Masukkan Angka Kedua :  ');readln(b);
    c:=a-b;
    writeln('Hasil:',c:0:0);
    writeln(' ');
    writeln('Kembali ke menu tekan enter');
    readln;
end;
procedure perkalian;
var a,b,c:real;
begin
    clrscr;
    writeln('Perkalian');
    writeln(' ');
    write('Masukkan Angka Pertama: ');readln(a);
    write('Masukkan Angka Kedua :  ');readln(b);
    c:=a*b;
    writeln('Hasil:',c:0:0);
    writeln(' ');
    writeln('Kembali ke menu tekan enter');
    readln;
end;
procedure pembagian;
var a,b,c:real;
begin
    clrscr;
    writeln('Pembagian');
    writeln(' ');
    write('Masukkan Angka Pertama: ');readln(a);
    write('Masukkan Angka Kedua :  ');readln(b);
    c:=a/b;
    writeln('Hasil:',c:0:0);
    writeln(' ');
    writeln('Kembali ke menu tekan enter');
    readln;
end;
procedure modulus;
var a,b,c:integer;
begin
    clrscr;
    writeln('Modulus');
    writeln(' ');
    write('Masukkan Angka Pertama: ');readln(a);
    write('Masukkan Angka Kedua :  ');readln(b);
    c:=a Mod b;
    writeln('Hasil:',c);
    writeln(' ');
    writeln('Kembali ke menu tekan enter');
    readln;
end;
begin repeat
           clrscr;
           writeln('KALKULATOR');
           writeln(' ');
           writeln('Pilihan');
           writeln(' ');
           writeln('1.Penambahan');
           writeln('2.Pengurangan');
           writeln('3.Perkalian');
           writeln('4.Pembagian');
           writeln('5.Modulus');
           writeln('6.Keluar');
           writeln(' ');
           writeln('Tekan enter untuk kembali ke menu');
           write('Pilih angka untuk memilih pilihan : ');readln(pilih);
           writeln(' ');
           writeln(' ');
           case pilih of
           1:penambahan;
           2:pengurangan;
           3:perkalian;
           4:pembagian;
           5:modulus;
           6:exit;
           end;
           until pilih = 7;
end.

Hasilnya:

Sekian terimakasih:)

Analisa Proyek CCtv Di Rumah

  A.Pengertian CCTV

Menurut sejarah di WIki CCTV (Closed-circuit television), Pertama kali sistem CCTV dipasang oleh Siemens AG pada Test Stand VII di Peenemünde, Jerman pada tahun 1942, untuk mengamati peluncuran V2-rockets. dan tercatat seorang insinyur Jerman bernama Walter Bruch bertanggung jawab atas desain dan pemasangan sistem. CCTV merupakan sebuah perangkat kamera video digital yang digunakan untuk mengirim sinyal ke layar monitor di suatu ruang atau tempat tertentu. Hal tersebut memiliki tujuan untuk dapat memantau situasi dan kondisi tempat tertentu, sehingga dapat mencegah terjadinya kejahatan atau dapat dijadikan sebagai bukti tindak kejahatan yang
telah terjadi. Pada umumnya CCTV seringkali digunakan untuk mengawasi area publik seperti : Bank, Hotel, Bandara Udara, Gudang Militer, Pabrik maupun Pergudangan.
Pada sistem konvensional dengan VCR (Video Cassete Recorder), awalnya gambar dari kamera CCTV hanya dikirim melalui kabel ke sebuah
ruang monitor tertentu dan dibutuhkan pengawasan secara langsung oleh operator/petugas keamanan dengan resolusi gambar yang masih rendah yaitu 1 image per 12,8 seconds. Namun seiring dengan perkembanga teknologi yang sangat pesat seperti saat ini, banyak kamera CCTV yang telah menggunakan sistem teknologi yang modern. Sistem kamera CCTV digital saat ini dapat dioperasikan maupun dikontrol melalui Personal Computer atau Telephone genggam, serta dapat dimonitor dari mana saja dan kapan saja selama ada komunikasi dengan internet maupun akses GPRS.

B.Berbagai macam CCTV

1.Dome Infra CCD SONY Type 303-3SD (12IR),

Harga : Rp. 1.200.000,-

Ada 3 jenis utk Type DOME INFRA. Bentuk & ukuran (Dimensi) sama persis. Perbedaan masing2 Type hanya pada jenis sensor yang dipergunakan. Type ini menggunakan Sony CCD color sehingga menghasilkan gambar yang sangat bagus (No Audio). Dilengkapi 12 Led INFRA & Sensor cahaya, utk Aplikasi cahaya minim (walaupun gelap total, switch to B/W). Harga sudah termasuk Adaptor.

Spesifikasi nya:
- 1/3 Sony CCD Color
- 420 TVL
- Low Lux 0,001 Lux
- Power 12VDC
- 12 LED Infra Red
- Long life LED Infra Red
- Plastic Dome material
- Sensor LDR
Diameter DOME 12 Cm

      2. Kamera CCD Infra Type MT-308 (14 Infra Red)

Harga Rp. 680.000

Type ini menggunakan Color CCD sehingga menghasilkan gambar yg sangat bagus (No Audio).Dilengkapi 14 Led INFRA & Sensor cahaya, utk Aplikasi cahaya minim (walaupun gelap total, switch to B/W). Harga sudah termasuk Adaptor & 1bh Lensa uk 4 mm (Lensa bisa dilepas & ganti ukuran).

Spesifikasi :
-1/4 HAD CCD Color
-420 TVL
-Low Lux 0,001 Lux
-Power 12VDC
-14 LED Infra Red
-Long life LED Infra Red
-Aluminium die cast material
-Sensor LDR

    C.Analisa Biaya

NO	NAMA BARANG	HARGA BARANG
1	Dome Infra CCD SONY Type 303-3SD (12IR)	Harga : Rp. 1.200.000
2	Kamera CCD Infra Type MT-   308 (14 Infra Red)	Harga Rp. 680.000

BIAYA PEMASANGAN:    ü Biaya Perhari/ Borongan : Rp.200.000    ü Jumlah Orang 4 X Rp.200.000 : Rp.800.000

ALAT DAN BAHAN

1.Sebuah PC/Laptop sebagai host (kalau bisa hidup 24 jam dengan kapasitas HDD terrabyte khusus bagi yang ingin melakukan capture atau merekam semua kegiatan).

2.Sebuah Webcam/Web Camera sebagai alat pencitra, biasanya harga webcam ini bervariasi namum tergolong masih murah. Yang saya sarankan adalah sebuah webcam yang memiliki minimal resolusi 1.3MP, dengan tingkat pencahayaan bagus.

3.Sebuah Program, dalam percobaan ini saya menggunakan webcamxp dengan limitasi 1 sumber camera, kalau membutuhkan lebih dari satu anda harus membayar.

4.Sebuah CCTV 4 unit yaitu 2 unit CCTV Dome Infra CCD SONY Type 303-3SD (12IR) dan 2 unit CCTV Kamera CCD Infra Type MT-308 (14 Infra Red)

5.Sebuah kabel coaxial RG 59  50 meter

6.25 Klem Kabel

Nama Barang	Jumlah	Harga	Total
CCTV	2 2	Rp. 1.200.000 Rp. 680.000	Rp. 3.760.000
KABEL Coaxial RG 59	50 M	Rp.2000	Rp.100.000
KLEM	25	Rp.1000	Rp.25.000
			Rp.3.885.000

LANGKAH LANGKAH UNTUK MEMASANG CCTV

1. Tentukan kabel yang sesuai

Untuk kabel CCTV, Anda dapat menggunakan kabel RG59 Siamese yang terdiri dari kabel video dan kabel power (positif dan negatif). Kabel RG59 Siamese merupakan kabel standard yang sering digunakan untuk instalasi CCTV.

2. Tentukan lokasi dan area pantauan CCTV

Lokasi pemasangan CCTV bisa Anda tentukan berdasarkan jarak pandang yang hendak dimonitoring (apakah dekat atau jauh) dan apakah untuk keadaan gelap atau terang. Dari situ baru Anda tentukan titik pemasangan kamera CCTV.

3. Prioritaskan penempatan kamera CCTV di bawah atap/ tempat terlindung

Terutama untuk pemasangan CCTV di rumah, prioritaskan letak posisi kamera CCTV dibawah atap karena bisa melindungi kamera CCTV Anda dari hujan, angin, dan sebagainya. Selain itu, penempatan di bawah atap juga biasanya memberikan tampilan view yang lebih baik dan mudah untuk menarik kabel jaringan. 

4. Cari titik untuk mulai menarik kabel dari luar ke dalam

Setelah menentukan titik pemasangan CCTV, berikutnya adalah mencari titik masuk untuk menarik kabel RG56 dari luar ke dalam.

5. Penempatan monitor dan DVR

Monitor dan DVR adalah alat-alat yang melengkapi sistem CCTV Anda. Jika kamera CCTV biasanya ditempatkan diluar, maka DVR dan monitor digunakan untuk membantu pemantauan dari dalam ruangan. Tentukan tempat dimana monitor dan DVR akan diletakkan.

6. Memulai penarikan kabel

Setelah didapatkan titik kamera CCTV dan lokasi penempatan monitor dan DVR, maka berikutnya adalah menarik kabel RG59 yang menghubungkan antara CCTV dengan monitor dan DVR.