program procedure3;
uses wincrt ;
var
L,M,N:integer;
procedure tambah (A,B,C:integer);
begin
C:=A+B;
end;
begin
write('A=');readln(L);
write('B=');readln(M);
tambah(L,M,N);
writeln('C=',N);
writeln(' nama : misbahul munir ');
writeln(' nim : 11122067 ');
writeln('www.munirmaestro.blogpsot.com');
end.
program procedure2;
uses wincrt ;
var
M,N:integer;
procedure tambah (A,B:integer);
var
c:integer;
begin
C:=A+B;
writeln('C=',C);
end;
begin
write('A=');readln(M);
write('B=');readln(N);
tambah(M,N);
writeln(' nama : misbahul munir ');
writeln(' nim : 11122067 ');
writeln('www.munirmaestro.blogpsot.com');
end.
PROGRAM MATRIX;
uses
WinCrt;
var
A,B,C:ARRAY[1..10,1..10] OF INTEGER;
X,Y,KOL,BAR:INTEGER;
BEGIN
FOR X:=1 TO 5 DO
BEGIN
FOR Y:=1 TO 5 DO
BEGIN
C[X,Y]:=0;
IF X+Y=6 THEN C[X,Y]:=1;
WRITE(C[X,Y]:4);
END;
WRITELN;
END;
writeln(' nama : misbahulmunir ');
writeln(' nim : 111221067 ');
writeln('www.munirmaestro.blogpsot.com');
END.
program matriks_invers;uses wincrt;
var n,i,j,x,y,k,l,m: integer;
a:array[1..20,1..20] of real;
begin
{gotoxy (10,1);}
writeln ('nama : misbahul munir');
writeln;
writeln ('nim : 111221067 ');
writeln;
writeln ('Program Pencarian Invers Matriks');
writeln;
writeln ('Masukkan ordo matrik (n x n).');
write ('n : ');
readln (n);
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
write ('A(',i,',',j,') : ');
readln (a[i,j]);
end;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (' ',a[i,j]:0:0);
writeln;
end;
{MATTRIK SISI KANAN}
for j:=n+1 to n+n do
begin
i:=j-n;
a[i,j]:=1;
end;
for j:=n+1 to n+n do
begin
for i:=1 to n do
if i<>j-n then a[i,j]:=0;
end;
{PROSES PENGINVERSAN}
for i:=1 to n do
begin
for j:=1 to n+n do
begin
if i<>j then a[i,j]:=a[i,j]/a[i,i];
end;
for j:=1 to n+n do
begin
if i=j then a[i,j]:=1;
end;
{PENJUMLAHAN KESATU BARIS ELEMENT}
for l:=1 to n do
begin
if i<>l then
begin
for j:=i+1 to n+n do
begin
a[l,j]:=a[l,j]-(a[i,j]*a[l,i]);
end;
end;
end;
{PEMBUATAN NOL DISEKITAR MATRIKS KIRI}
for k:=1 to n do
begin
if i<>k then
begin
a[k,i]:=0;
end;
end;
end;
{PENCETAKAN}
readln;
writeln('Maka invers dari matrik adalah :');
for i:=1 to n do
begin
for j:=n+1 to n+n do
write (' ',a[i,j]:0:2);
writeln;
end;
readln;
end.
Struktur data adalah cara menyimpan atau merepresentasikan data
didalam komputer agar bisa dipakai secara efisien. Sedangkan data adalah
representasi dari fakta dunia nyata. Fakta atau keterangan tentang
kenyataan yang disimpan, direkam atau direpresentasikan dalam bentuk
tulisan, suara, gambar, sinyal atau simbol.
Secara garis besar type data dapat dikategorikan menjadi:
Type data sederhana.
| Type | Range | Ukuran | Format |
| ShortIn
Integer LongInt Byte Word |
-128…127
-32768..32767 -2147483648..2147483647 0..255 0..65535 |
1
2 4 1 2 |
Signed 8-bit
Signed 16-bit Signed 32-bit Unsigned 8-bit Unsigned 16-bit |
| Type | Range | Ukuran |
| Boolean
ByteBool WordBool LongBool |
Byte-sized
Byte-sized Word-sized Long-sized |
1 (8bit)
1 (8bit) 2 (16bit) 4 (32bit) |
| Type | Range | Ukuran | Digit |
| Real
Single Double Extended Comp |
±2.9×10-39..1.7×1038
±1.5×10-45..3.4×1038 ±5×10-324..1.7×10308 ±3.4×10-4932..1.1×104932 ±9.2×1018..9.2×1018 |
6
4 8 10 8 |
11-12
7-8 15-16 19-20 19-20 |
