Pages

Friday, January 18, 2019

Filsafat Sesat


Baru-baru ini, saya semakin ingin nulis yang lebih serius. Selain topik Sistem Informasi, filsafat menjadi salah satu topik yang menarik untuk ditulis. Kenapa coba? Karena selain pernah mendengar dan membaca bahwa orang-orang hebat itu suka filsafat, mata kuliah filsafat juga ada di kurikulum S3 salah satu perguruan tinggi negeri (kalau enggak salah, hampir semua jurusan S3).

Mulalah baca-baca filsafat di internet. Sore ini, saya membaca bahwa filsafat itu bahaya (“sesat”). Ini pendapat yang penulisnya mengutip tulisan seorang ulama terkenal (Salah satu dari imam madzhab yang empat). Alasan sesatnya karena filsafat berasak dari filsuf Yunani (non-Muslim) yang tidak dibimbing melalui wahyu.

Lalu, saya bertanya di dalam hati:
“Benarkah sesat?”
“Benarkah bahaya?”

“Atau itu tulisan berlatar belakang salah faham terhadap filsafat?”

Jawaban untuk ketiga pertanyaan di atas, saya harus baca lagi. Hehehe

Kenapa saya tidak langsung percaya kepada tulisan yang menyatakan sesat tersebut? Karena tidak jarang orang-orang di negeri ini suka langsung ikut-ikutan mengutip pendapat orang lain secara tekstual. Bahkan dengan dalil ikut pendapat guru, mereka tampak enggan berfikir kritis lagi.

Gitu saja dulu ahhh… jangan terlalu serius belajar mah suka langsung lapar. hehehe

Thursday, January 10, 2019

T2


Web Task 2

1. Login linking to a page containing a button:
a. Add
b. Edit
c. Delete.

2. Microsoft Word containing:
a. SS web page (one image), script (all from number 1)
b. One student one topic (related to your midtest topic)

3. File Name: Full Name + WP + T2
4. Subject: Full Name + WP + T2
5. E-mail: komarudintasdik28@gmail.com
6. Deadline: Last Lesson

Monday, January 7, 2019

ASD 10

ASD 10a
program komar10a;
var
   i:byte;
   y:array[1..4] of integer;
begin
     y[1]:=10;
     y[2]:=9;
     y[3]:=11;
     y[5]:=8;

     for i:=1 to 4 do
     begin
     y[i]:=y[i]-i;
     writeln(y[i]);
readln;
end;

end.

====
ASD 10b
program komar10b;
type
    z=array[1..4] of string[10];
const
     bahasa:z=('Pascal','Java','Basic','PHP');
var
   a:word;
begin
     for a:=1 to 4 do
     writeln('Bahasa pemrograman ',a,' = ',bahasa[a]);
readln;

end.

===
ASD 10
program komar10c;
var
   kata: array[10..15] of string[10];
begin
     kata[11]:= 'Sedang ';
     kata[12]:= 'belajar ';
     kata[13]:= 'Logika ';
     kata[14]:= 'Algoritma';

     write(kata[11]);
     write(kata[12]);
     write(kata[13]);
     write(kata[14]);
readln;

end.

===
ASD 10d
program arrayCari;
const
  min = 1;
  max = 100;
type
  arrint = array [min..max] of integer;
var
  x      : integer;
  tabint : arrint;
  n,i    : integer;
  indeks : integer;
  function seqsearch1(xx : integer): integer;
  var i : integer;
  begin
    i := 1;
    while ((i<n) and (tabint[i] <> xx)) do
      i:=i+1;
      if tabint[i] = xx then
        seqsearch1:=i
        else
        seqsearch1:=0;
  end;

begin
  write('input nilai n = '); readln(n);
  for i:=1 to n do
    begin
      write('Tabint[',i,'] = '); readln(tabint[i]);
    end;
  write('Nilai yang dicari = '); readln(x);
  indeks:=seqsearch1(x);
  if indeks <> 0 then
    write(x,' ditemukan pada indeks ke ',indeks)
    else
    write(x,' tidak ditemukan');
  writeln;
writeln;
readln;
end.

ASD 9

ASD 9a
program OnOff;
Var
   angka: integer;
begin
     Write('Ketik angka 1 atau 0: '); readln(angka);
     If angka = 1 then
        Writeln('Nyala')
        else
            Writeln('Mati');

Readln;
end.

===

ASD 9b
program OnOff;
Var
   a: string;
begin
     Write('Ketik "L" atau "BL": '); readln(a);
     If a = 'l' then
        Writeln('Lulus')
        else
            Writeln('Belum Lulus');

Readln;
end.

===

ASD 9c
program struktur_if_then_else_nested;
uses crt;
var
  angka:integer;
begin
  clrscr;
  write('Masukkan sebuah angka: ');
  readln(angka);
  if (angka mod 2 = 0) and (angka > 10) then
    begin
      writeln('Angka yang anda masukkan merupakan bilangan genap dan besar dari 10');
    end
  else
  if (angka mod 2 = 0) and (angka < 10) then
    begin
      writeln('Angka yang anda masukkan merupakan bilangan genap dan kecil dari 10');
    end
  else
  if (angka mod 2 <> 0) and (angka > 10) then
    begin
      writeln('Angka yang anda masukkan merupakan bilangan ganjil dan besar dari 10');
    end
  else
  if (angka mod 2 <> 0) and (angka < 10) then
    begin
      writeln('Angka yang anda masukkan merupakan bilangan ganjil dan kecil dari 10');
    end;     
  readln;
end.

===
ASD 9d
program struktur_if_then_else_nested;
uses crt;
var
  angka:integer;
begin
  clrscr;
  write('Masukkan sebuah angka: ');
  readln(angka);
  if (angka mod 2 = 0) then
    begin
      write('Angka yang anda masukkan merupakan bilangan genap ');
      if (angka > 10) then
        begin
          writeln('dan besar dari 10');
        end
      else
        begin
          writeln('dan kecil dari 10');
        end;
    end
  else
    begin
      write('Angka yang anda masukkan merupakan bilangan ganjil ');
     if (angka > 10) then
        begin
          writeln('dan besar dari 10');
        end
      else
        begin
          writeln('dan kecil dari 10');
        end;
    end;   
  readln;
end.

====

ASD 9e
program OnOff;
Var
   s,r: string;
begin
     Writeln('STRUKTUR DASAR ALGORITMA');
     Writeln('');

     Write('Ketik "s", "r" atau "sel": '); readln(s,r);
     If s = 's' then
        Writeln('sequence')
        else
        If s = 'r' then
            Writeln('repetition')
            else
                Writeln('selection');

Readln;
end.

ASD 7

ASD 7a
program Komar7a;
Var
n,i: integer;
begin
     write('Ketik banyaknya bilangan: ');
     readln (n);
     i:=1;
     while i<n do
     begin
          writeln(i);
          i:=i+1;
     end;
readln;
end.

====
ASD 7b
program Komar7b;
var
   n,i:integer;
begin
     write('Ketik banyaknya bilangan: ');
     readln(n);
     i:=0;
     repeat
     i:=i+3;
     writeln(i);
     until i>=n;

readln;
end.