Menghitung Luas Dengan Pascal

1.     Menghitung luas persegi panjang

program luasperpanjang;

uses crt;

var lebar,panjang:integer;

luas:real;

begin

clrscr;

writeln('program luas persegi panjang');

writeln;

write('masukkan panjang(cm):');readln(panjang);

write('masukkan lebar(cm):');readln(lebar);

writeln;

luas:=panjang*lebar;

writeln('luas persegi panjang=',panjang,':x',lebar,'=',luas);

readln;

end.

2.     Menghitung keliling persegi panjang

program menghitung_keliling_persegi_p;

uses crt;

var keliling,p,l:integer;

begin

clrscr;

write('masukkan nilai panjang:');readln(p);

write('masukkan nilai lebar:');readln(l);

keliling:=2*(p*l);

writeln('nilai keliling persegi panjang=',keliling);

readln; 

end.                   

3.     Menghitung luas segitiga siku-siku

program menghitung_luas_segitiga_siku;

uses crt;

var l,a,t,g,q,h,i,j:real;

begin

clrscr;

writeln('rumus menghitung luas segitiga siku-siku');

writeln('================');

write('masukkan nilai kemiringan=');readln(g);

write('masukkan nilai alas=');readln(a);

q:=a/2;

h:=sqr(g);

i:=sqr(q);

j:=h-i;

t:=sqrt(i);

l:=(q*t)/2;

writeln('nilai setengah alas=',q:10:2);

writeln('nilai tinggi=',t:10:2);

writeln('hasil luas segitiga siku-siku=',l:10:2);

readln;

end.

Reserved Word dan Macam-macam deklarasi pascal

Reserved Word

AND	DOWNTO	IN	OF	STRING
ASM	ELSE	INHERITED	OR	THEN
ARRAY	END	INLINE	PACKED	TO
BEGIN	EXPORTS	INTERFACE	PROCEDURE	TYPE
CASE	FILE	LABEL	PROGRAM	UNIT
CONST	FOR	LIBRARY	RECORD	UNTIL
CONSTRUCTOR		FUNCTION	MOD	REPEAT
DESTRUCTOR		GOTO	NIL	SET
DIV	IF	NOT	SHL	WHILE
DO	IMPLEMENTATION	OBJECT	SHR
WITH	VAR	USES

Contoh Masing-Masing Deklarasi

Ø  Deklarasi

Bagian ini menjelaskan /  memperkenalkan secara rinci semua data yang akan

digunakan pada suatu program. Dalam penulisannya tidak boleh  sama  dengan kata-kata cadangan (reserved words) dan selalu diakhiri dengan titik koma (;).

·       Deklarasi label

Deklarasi label   digunakan   Jika   pada  penulisan program akan

menggunakan statemen GOTO (untuk meloncat ke suatu statement tertentu).

Contoh :

program cetak;

uses crt;

label satu,akhir;

begin

clrscr;

writeln('universitas cokroaminoto palopo');

goto satu;

writeln('jln latammacelling no.19');

satu:

writeln('prodi informatika');

goto akhir;

writeln('fakultas teknik komputer');

akhir:

readln;

end.

·       Deklarasi konstanta

Deklarasi    ini   digunakan  untuk    mengidentifikasikan    data yang    nilainya

sudah ditentukan dan pasti, tidak dapat dirubah dalam program.

program cetak_const;

uses crt;

const a=73;

b='indonesia merdeka';

begin

clrscr;

writeln(a,'tahun');

writeln(b);

readln;

end.

·       Deklarasi Variabel

program cetak;

uses crt;

var

satu:integer;

dua:integer;

a:real;

b:real;

begin

satu:=5;

dua:=4;

a:=2.3;

b:=5+4*2.3;

write('hasil=',b:4:1);

readln;

end.

·       Deklarasi Tipe

program tipe;

uses crt;

type

nilai1=real;

nilai2=real;

nilai3=real;

var

a:nilai1;

b:nilai2;

c:nilai3;

begin

clrscr;

a:=10;

b:=5;

c:=a+b;

writeln('hasil penjumlahan=',c:0:0);

readln;

end.

-        Pascal

-        Hasil

Jaringan Nirkabel dan Serat Optik

Jaringan Nirkabel adalah jaringan yang tanpa kabel sebagai media penyimpanan data menggunakan gelombang wifi, bluetooth, infrared, wireless.

Serat Optik adalah saluran transmisi atau sejenis kabel yang terbuat dari kaca atau plastik yang sangat halus dan lebih kecil dari sehelai rambut, dan dapat digunakan untuk mentransmisikan sinyal cahaya dari suatu tempat ke tempat lain.

Jaringan serat optik :

-         Sistem serat optik pada dasarnya sama seperti dengan kabel tembaga.

-         Serat optik menggunakan sinar cahaya.

Kelebihan Serat Optik :

-         Kecepatan

-         Bandwith

-         Jarak

-         Ketahanan

-         Pemeliharaan

Jenis Serat Optik :

-         Single Mode

-         Multi Mode

-         Plastic Optical Fiber (POF).

Komponen Wireless :

-        - Access Point

-        - Wireless Clients

Faktor dalam memilih perangakat :

-        - Faktor Jarak

-        - Faktor Kecepatan

-        - Faktor Daya Pancar Antena

-        Faktor Kompasibilitas dengan Access point

     Hotspot ialah lokasi tempat wifi access point berada sehingga seseorang dapat menghubungkan komputer mobilenya (laptop, PDA, dsb) dengan internet.

Jenis – jenis Topologi jaringan :

-        - Topologi Bus

-        - Topologi Ring

-        - Topologi Star

-        - Topologi Tree

Pemilihan Topologi :

-        - Biaya

-        - Kecepatan

-        - Lingkungan

-        - Ukuran

-        - Konektivitas

Prosedure Instalasi :

-        - Konstruksi Jaringan Komputer -> Topologi.

-        - Elektis, dari segi kelistrikannya

Peralatan yang dibutuhkan :

-        - Obeng belimbing dan Obeng Minus

-        - Obeng belimbing bermagnet

-        - Test pen

-        - Tang pemotong

-        - Tang penjepit

-        - Tester untuk mengetahui koneksivitas kabel UTP jika ada.