NAMA ORGANISASI : EINSSITECH

BERDIRI ORGANISASI : 27 AGUSTUS 2010

SUSUNAN PENGURUS :

1. ZULHENDRI (COMTING EINSSITECH)

2. FAISAL (WAKIL COMTING EINSSITECH)

3. ISTIGFAR RAHMAN (SEKRETARIS EINSSITECH)

4. RAHMI NUR FITRIA (BENDAHARA EINSSITECH)

5. RAHMI PRISALIA (JARKOM EINSSITECH)

VISI : MENJADI SEBUAH ORGANISASI YANG BERGUNA BAGI MASYARAKAT DALAM PENGEMBANGAN ILMU PENGETAHUAN DAN TEKNOLOGI IT

MISI : MENGHASILKAN SUMBER DAYA MANUSIA YANG MEMILIKI KEPANDAIAN DALAM ILMU PENGETAHUAN DAN TEKNOLOGI IT

EINSSITECH!!! MAJU BERSAMA I.T!!!

Bahasa Pascal (Matrik 2 Dimensi)

EINSSITECH On 0 komentar

program matrik 2 dimensi;
uses crt;
var i,j : integer;
    A, B, C : ARRAY[1..10, 1..10] OF INTEGER;

begin
clrscr;
i:=1;

while i <= 2 do
begin
   j:=1;
   while j <= 2 do
   begin
     writeln('masukkan data A : ', i, ' ',j);
     readln (A[i,j]);
     j:=j+1;
   end;
   i:=i+1;
end;

clrscr;
i:=1;

while i <= 2 do
begin
   j:=1;
   while j <= 2 do
   begin
     writeln('masukkan data B : ', i, ', ',j);

     readln (B[i,j]);
     j:=j+1;
   end;
   i:=i+1;
end;

writeln ('Jumlahkan A dan B : ');
readln;


clrscr;
i:=1;

while i <= 2 do
begin
   j:=1;
   while j <= 2 do
   begin

     c[i,j] := A[i,j] + B[i,j];
     writeln('Nilai data C : ', i, ' ',j, ' : ', c[i,j]);
     j:=j+1;
   end;
   i:=i+1;
end;
writeln ('selesai');
readln;
end.
FULL STORY >>

Bahasa Pascal (Matrik 1 Dimensi)

EINSSITECH On 0 komentar

program matrik 1 dimensi;
uses crt;
var i,N : integer;
    A, B, C : ARRAY[1..10] OF INTEGER;
begin
clrscr;
i:=1;

while i <= 10 do
begin
   writeln('masukkan data A : ', i);

   readln (A[i]);
   i:=i+1;
end;

clrscr;
i:=1;

while i <= 10 do
begin
   writeln('masukkan data B : ', i);

   readln (B[i]);
   i:=i+1;
end;

writeln ('Jumlahkan A dan B : ');
readln;

i:=1;
clrscr;

while i <= 10 do
begin
   C[i] := A[i] + B[i];
   writeln ('nilai C ke ', i, ' adalah ', c[i]);
   i:=i+1;
end;
writeln ('selesai');
readln;
end.
FULL STORY >>

Followers

Arsip Blog