Selasa, 17 Mei 2011

PENJUMLAHAN 'N PERKALIAN MATRIX


1.Penjumlahan Matrix :
#include<iostream.h>
#include <conio.h>
#include <iomanip.h>
int i, j, baris, kolom, m1[10]
[10], m2[10]
[10], hasil[10]
[10];
void main()
{
  clrscr();
  cout << "Operasi Penjumlahan Matrix\n";
  do
  {
   cout << "Jumlah Baris = "; cin>>baris;
   cout << "Jumlah Kolom = "; cin>>kolom;
  }
  while((baris>10)||(kolom>10));
/*  do
  while(kolom>10);*/
  cout << "\nMatrix A" << endl;
  for(i=0;i<baris;i++)
   for(j=0;j<kolom;j++)
    {
     cout <<"data [" << i << "," << j << "] = ";
     cin>>m1[i]
[j];
    }
  cout << "\nMatrix B" << endl;
  for(i=0;i<baris;i++)
   for(j=0;j<kolom;j++)
    {
     cout <<"data [" << i << "," << j << "] = ";
     cin>>m2[i]
[j];
    }
  for(i=0; i<baris;i++)
    for(j=0; j<kolom; j++)
      hasil[i]
[j] = m1[i]
[j] + m2[i]
[j];
  cout << "\nHasilnya..." << endl;
  cout << "Matrix A  +  Matrix B  =  Matrix C";
  for(i=0; i< baris; i++)
   {
    cout<<'\n';
    for(j=0; j<kolom; j++)
     cout << setw(4) << m1[i]
[j];
     cout << "     ";
    for(j=0; j<kolom; j++)
     cout << setw(4) << m2[i]
[j];
     cout << "     ";
    for(j=0; j<kolom; j++)
     cout << setw(4) << hasil[i]
[j];
    cout << endl;
   }
  getch();
}


ARRAY 2 DIMENSI

Array Dua Dimensi 
Di dalam pascal Array dapat berdimensi lebih dari satu yang disebut dengan array dimensi banyak (Multidimensional array), disini akan dibahas array 2 dimensi saja. Array 2 dimensi dapat mewakili suatu bentuk tabel atau matrik, yaitu indeks pertama menunjukkan baris dan indeks ke dua menunjukkan kolom dari tabel atau matrik. 
1 2 
1 2 3 
Untuk mengetahui cara mendeklarasikan dari penggunaan aray dua dimensi dapat dilihat pada listing program dibawah ini . 

Contoh Program: 
Program Deklarasi_Array_Dua_Dimensi; 
Uses Crt;
Var Tabel : Array[1..3,1..2] of Integer;
i,j : Integer;
Begin 
ClrScr; 
Tabel[1,1]:=1; 
Tabel[1,2]:=2; 
Tabel[2,1]:=3; 
Tabel[2,2]:=4; 
Tabel[3,1]:=5; 
Tabel[3,2]:=6; 
For I := 1 to 3 Do Begin For J:= 1 to 2 Do Begin Writeln('Elemen ',i,',',j,'= ',tabel[i,j]); 
End; 
End; 
Readln; 
End. 


IV. Alternatif Deklarasi Array Dua Dimensi. 
Ada beberapa cara dalam mendeklarasikan array dua dimensi, beberapa cara tersebut dapat dilihat dibawah ini : 
Contoh : 
Var 
Tabel : Array[1..3] of Array[1..2] of Byte; 
atau : 
Type 
Matrik = Array[1..3,1..2] of Byte; 
Var 
Tabel : Matrik; 
atau : 
Type 
Baris = 1..3; 
Kolom = 1..2; 
Matrik = Array[Baris,Kolom] of Byte; 
Var 
Tabel : Matrik; 
atau : 
Type 
Baris = 1..3; 
Kolom=1..2; 
Matrik= Array[Baris] of Array[Kolom] of Byte; 
Var 
Tabel : Matrik; 
Dibawah ini akan diberikan listing program penggunaan array dua dimensi dalam aplikasi penjumlahan matrik : 
Contoh Prorgam: 
Program Penjumlahan_Matrik; 
Uses Crt; 
Var 
Matrik1,Matrik2, Hasil : Array[1..3,1..2] of Integer; 
i,j : Integer; 
Begin 
ClrScr; 
{ input matrik ke satu } 
Writeln(' Elemen matrik satu'); 
For i := 1 to 3 Do 
Begin 
For j := 1 to 2 Do 
Begin 
Write('Elemen baris -',i,' Kolom -',j,'= '); 
Readln(matrik1[i,j]); 
End; 
End; 
{input matrik ke dua} 
Writeln('input elemen matrik dua'); 
For i:= 1 to 3 Do 
Begin 
For j:= 1 to 2 Do 
Begin 
Write('Elemen baris -',i,' kolom -',j,'= '); 
Readln(matrik2[i,j]); 
End; 
End; 
{proses penjumlahan tiap elemen} 
For i := 1 to 3 Do 
Begin 
For j:= 1 to 2 Do 
Begin 
Hasil[i,j]:=Matrik1[i,j]+Matrik2[i,j]; 
End; 
End; 
{proses cetak hasil} 
For i:= 1 to 3 Do 
Begin 
For j:= 1 to 2 Do 
Begin 
Write(Hasil[i,j]:6); 
End; 
Writeln; 
End; 
Readln; 
End. 

Senin, 28 Maret 2011

KODE BAUDOT

Kode Baudot

  Dari Wikipedia, ensiklopedia bebas

Merupakan karakter set mendahului EBCDIC dan ASCII . It was the predecessor to the International Telegraph Alphabet No 2 (ITA2), yang teleprinter kode digunakan sampai datangnya dari ASCII. Setiap karakter dalam alfabet diwakili oleh serangkaian bit , yang dikirim melalui saluran komunikasi seperti kawat telegraf atau sinyal radio. The simbol rate pengukuran dikenal sebagai baud , dan berasal dari nama yang sama.
Baudot menemukan kode asli selama 1870 dan dipatenkan itu selama 1874.s. Itu adalah kode 5-bit, dengan sama dan menonaktifkan interval, yang memungkinkan transmisi telegraf dari alfabet Romawi dan tanda baca dan sinyal kontrol. Hal ini didasarkan pada kode sebelumnya yang dikembangkan oleh Carl Friedrich Gauss dan Wilhelm Weber pada tahun 1834.
  Kode ini dimasukkan pada keyboard yang baru saja lima jenis kunci piano, dioperasikan dengan dua jari tangan kiri dan tiga jari tangan kanan. . Setelah tombol telah ditekan mereka dikunci bawah sampai kontak mekanis dalam unit distributor melewati sektor yang terhubung ke keyboard tertentu, ketika keyboard tidak dikunci siap untuk karakter berikutnya yang akan dimasukkan, dengan klik terdengar (dikenal sebagai " irama sinyal ") untuk memperingatkan operator.Operator harus mempertahankan ritme stabil, dan kecepatan biasa operasi adalah 30 kata per menit.  Teman-kode Baudot dikenal sebagai International Telegraph Alphabet No 1, dan tidak lagi digunakan.

ITA2

 Sekitar 1930, CCITT memperkenalkan Telegrapi Internasional Abjad No 2 (ITA2) kode sebagai standar internasional, yang didasarkan pada kode Western Union dengan beberapa perubahan kecil. AS standar pada versi ITA2 disebut kode teletip Amerika (USTTY) yang merupakan dasar untuk bit teletype kode-5 sampai debut 7-bit ASCII pada tahun 1963.
Internasional telegrafi alfabet No 2 (Baudot-Murray code) 
  Pola impuls 1 = mark 0 = ruang   Surat pergeseran   Gambar pergeseran
  00000 batal   batal
  00100   ruang   ruang
  11101 Q 1
11001 W   2
  10000   E   3
  01010   R   4
  00001 T   5
  10101 Y   6
  11100   U 7
  01100 Aku   8
  00011   O   9
  01101   P 0
  11000   A   -
  10100 S   '
  10010   D   $
10110   F !
  01011   G   &
  00101   H #
  11010   J   '
  11110   K   (
  01001   L   )
  10001   Z   "
  10111   X /
  01110 C   :
  01111   V   ;
  10011   B   ?
  00110 N   ,
  00111   M   .
  00010   Carriage return   Carriage return
  01000

  11011   Shift untuk angka
  11111
  Shift untuk huruf
ITA2 masih digunakan di TDDs dan beberapa radio amatir aplikasi, seperti radioteletype ("RTTY"). Meskipun sangat berbeda dari aslinya kode's Baudot, tetaplah sering salah disebut sebagai "kode Baudot". ] asli kode's Baudot diadaptasi untuk dikirim dari keyboard manual dan tidak ada peralatan teleprinter yang pernah dibangun yang digunakan dalam perusahaan aslinya.
 

Extended Binary Coded Decimal Interchange Code(EBCDIC)

EBCDIC

Dari Wikipedia bahasa Indonesia, ensiklopedia bebas
Langsung ke: navigasi, cari
EBCDIC (Inggris: Extended Binary Coded Decimal Interchange Code) adalah kode 8 - bit untuk huruf yang dipakai pada sistem operasi komputer merk IBM, seperti z/OS, OS/390, VM, VSE, OS/400, dan i5/OS. Kode EBCDIC ini juga dipakai untuk beberapa jenis komputer lain seperti Fujitsu-Siemens BS2000/OSD, HP MPE/iX, dan Unisys MCP. Kode ini merupakan pengembangan dari kode 6-bit yang dipakai untuk kartu berlubang (punched card) pada komputer IBM antara akhir tahun 1950an dan awal tahun 1960an.
Variasi dari kode EBCDIC ini disebut CCSID 500 yang ditampilkan pada tabel di bawah ini dalam format bilangan komputer hexadesimal. Kode 00 sampai 3F dipakai untuk huruf kendali, kode 40 untuk spasi, dll.


-0 -1 -2 -3 -4 -5 -6 -7 -8 -9 -A -B -C -D -E -F
0- NUL
00
SOH
01
STX
02
ETX
03
SEL
 
HT
09
RNL
 
DEL
7F
GE
 
SPS
 
RPT
 
VT
0B
FF
0C
CR
0D
SO
0E
SI
0F
1- DLE
10
DC1
11
DC2
12
DC3
13
RES
ENP
 
NL
 
BS
08
POC
 
CAN
18
EM
19
UBS
 
CU1
 
IFS
1C
IGS
1D
IRS
1E
IUS
ITB
1F
2- DS
 
SOS
 
FS
 
WUS
 
BYP
INP
 
LF
0A
ETB
17
ESC
1B
SA
 
SFE
 
SM
SW
 
CSP
 
MFA
 
ENQ
05
ACK
06
BEL
07
3-
 

 
SYN
16
IR
 
PP
 
TRN
 
NBS
 
EOT
04
SBS
 
IT
 
RFF
 
CU3
 
DC4
14
NAK
15

 
SUB
1A
4- SP
20
RSP
A0
â
E2
ä
E4
à
E0
á
E1
ã
E3
å
E5
ç
E7
ñ
F1
[
5B
.
2E
<
3C
(
28
+
2B
!
21
5- &
26
é
E9
ê
EA
ë
EB
è
E8
í
E0
î
EE
ï
EF
ì
ED
ß
DF
]
5D
$
24
*
2A
)
29
;
3B
^
5E
6- -
2D
/
2F
Â
C2
Ä
C4
À
C0
Á
C1
Ã
C3
Å
C5
Ç
C7
Ñ
D1
¦
A6
,
2C
%
25
_
5F
>
3E
?
3F
7- ø
F8
É
C9
Ê
CA
Ë
CB
È
C8
Í
CD
Î
CE
Ï
CF
Ì
CC
`
60
:
3A
#
23
@
40
'
27
=
3D
"
22
8- Ø
D8
a
61
b
62
c
63
d
64
e
65
f
66
g
67
h
68
i
69
«
AB
»
BB
ð
F0
ý
FD
þ
FE
±
B1
9- °
B0
j
6A
k
6B
l
6C
m
6D
n
6E
o
6F
p
70
q
71
r
72
ª
AA
º
BA
æ
E6
¸
B8
Æ
C6
¤
A4
A- µ
B5
~
7E
s
73
t
74
u
75
v
76
w
77
x
78
y
79
z
7A
¡
A1
¿
BF
Ð
D0
Ý
DD
Þ
DE
®
AE
B- ¢
A2
£
A3
¥
A5
·
B7
©
A9
§
A7

B6
¼
BC
½
BD
¾
BE
¬
AC
|
7C
¯
AF
¨
A8
´
B4
×
D7
C- {
7B
A
41
B
42
C
43
D
44
E
45
F
46
G
47
H
48
I
49
SHY
AD
ô
F4
ö
F6
ò
F2
ó
F3
õ
F5
D- }
7D
J
4A
K
4B
L
4C
M
4D
N
4E
O
4F
P
50
Q
51
R
52
¹
B9
û
FB
ü
FC
ù
F9
ú
FA
ÿ
FF
E- \
5C
÷
F7
S
53
T
54
U
55
V
56
W
57
X
58
Y
59
Z
5A
²
82
Ô
D4
Ö
D6
Ò
D2
Ó
D3
Õ
D5
F- 0
30
1
31
2
32
3
33
4
34
5
35
6
36
7
37
8
38
9
39
³
83
Û
D8
Ü
DC
Ù
D9
Ú
DA
EO