Apa itu Krupuk Tangguk???

Kerupuk adalah jenis pangan yang digemari di Indonesia. Krupuk sering dikatakan sebagai panganan pelengkap. banyak orang yang merasa kurang ‘’sreg’’ bila makan nasi tanpa krupuk. Berbagai kalangan menyukai jenis pangan ini baik golongan rendah maupun golongan yang tinggi. Kerupuk sangat beragam dalam bentuk, ukuran, bau, warna, rasa, kerenyahan, ketebalan dan nilai gizinya.Di Pamekasan ada yang namanya Krupuk Tangguk,

Ada yang tau ndak apa itu krupuk tangguk. . .

asing memang bagi yang baru dengar...Berikut tentang krupuk paling kondang di kota Pamekasan.

Jika Anda membayangkan Krupuk Tangguk seperti krupuk pada umumnya, Anda jelas keliru, Krupuk Tangguk (Tangguk bahasa Madura = Topi), sesuai namanya, bentuk dan ukurannya justru tidak lazim. Yakni, seperti topi petani. Bisa jadi karena itu, krupuk yang diproduksi di Kampung Pongkoran, Kelurahan Gladak Anyar, Kecamatan Kota Pamekasan ini, sangat kondang. Tapi, mengapa orang membuat krupuk yang ukurannya tidak lazim tersebut?
Inilah ceritanya, yang berkaitan dengan acara karapan sapi.

Menurut sebuah cerita, dulu kala, Krupuk Tangguk dipakai sebagai pelindung kepala dari panas terik matahari. Karena itulah krupuk ini disebut Krupuk Tangguk atau Krupuk Topi alias Krupuk Penutup Kepala. Ukuran Krupuk Tangguk paling kecil sebesar Dampar (Meja untuk membaca Al-Qur’an) atau 60 cm x 40 cm. Itu pun sebelum digoreng, jika sudah digoreng ukurannya bisa sebesar meja makan.

Read More

Source Code Program Record

program list; {untuk menampilkan list data mahasiswa}

uses wincrt;

type mahasiswa=record

nama: string;

NRP: string;

kelamin: string;

alamat : string;

end;

var data: mahasiswa;

begin

clrscr;

Read More

Source Code Program Deret

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,n,un:integer;
sn,x,p:real;
begin
memo1.Clear;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
n:=StrToInt(Edit3.Text);
x:=n;
for n:=1 to n do
begin
un:=b*(n-1)+a;
memo1.lines.Add(inttostr(un));
p:=un;
end;
sn:=0.5 * x * (a + p);
memo1.lines.Add('Jumlah Sn = '+floattostr(sn));
end;

Read More

PROGRAM BINTANG

program Star;
uses wincrt;
var a, b, c, n : integer;
begin
write('masukkan n :');readln(n);
writeln('*****Gambar Segitiga Terbaliknya*****');
for a:= n downto 1 do
begin
writeln('');
for c:=1 to n-a do
begin
write(' ');
end;

for b:=1 to a do
begin
write ('*');
end;

for b:= a-1 downto 1 do
begin
write ('*');
end;
end;
readln;
end.

Read More

Source Code Program Matrik Invers

Program Matrik_Invers;

uses wincrt;

type data = array [1..10,1..10] of real;

var

matrikI,matrikII : data;

baris,kolom, pil : integer;

tambah:char;

procedure isi;

var i,j : integer;

begin

writeln('Tentukan Ordo Matrik I');

write('Masukan banyak baris matrik I = ');readln(baris);

write('Masukan banyak kolom matrik I = ');readln(kolom);

for i:=1 to baris do

for j:=1 to kolom do

begin

gotoxy(j*5,i+5);

readln(matrikI[i,j]);

end;

writeln('Tentukan Ordo Matrik II');

write('Masukan banyak baris matrik II = ');readln(baris);

write('Masukan banyak kolom matrik II = ');readln(kolom);

for i:=1 to baris do

for j:=1 to kolom do

begin

gotoxy(j*5,i+12);

readln(matrikII[i,j]);

end;

end;

procedure invers_matrik(m1:data);

var

i,j,l,k : integer;

begin

{Matrik SISI KANAN}

for j:=baris+1 to baris+baris do

begin

i:=j-baris;

m1[i,j]:=1;

end;

for j:=baris+1 to baris+baris do

begin

for i:=1 to baris do

if i<>j-baris then m1[i,j]:=0;

end;

{PROSES INVERS}

for i:=1 to baris do

begin

for j:=1 to baris+baris do

begin

if i<>j then m1[i,j]:=m1[i,j]/m1[i,i];

end;

for j:=1 to baris+baris do

begin

if i=j then m1[i,j]:=1;

end;

{PENJUMLAHAN KESATU BARIS ELEMENT}

for l:=1 to baris do

begin

if i<>l then

begin

for j:=i+1 to baris+baris do

begin

m1[l,j]:=m1[l,j]-(m1[i,j]*m1[l,i]);

end;

end;

end;

{PEMBUATAN NOL DISEKITAR MATRIKS KIRI}

for k:=1 to baris do

begin

if i<>k then

begin

m1[k,i]:=0;

end;

end;

end;

{MEMUNCULKAN INVERS}

writeln('Maka invers dari matrik adalah :');

for i:=1 to baris do

begin

for j:=baris+1 to baris+baris do

write (' ',m1[i,j]:0:2);

writeln;

end;

end;

begin

isi;

Invers_matrik (matrikI);

end.

Read More

Source Code Program Luas Segitiga

procedure segitiga (var a: integer; var b: integer);

var luas: real;

begin

luas:= a*b*0.5;

ShowMessage('luas segitiga adalah' + floattostr(luas));

end;

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

begin

a:=strToint(edit1.text);

b:=strToint(edit2.text);

begin

segitiga(a,b);

end;

end;

end.

Read More

CARA MENGGANTI BACKGROUND FACEBOOK

,,,Bosen dengan background facebookMu???? ne q kasih caranya gimana sich agar background facebook kita menarik atau sesuai dengan yang kita inginkan..

Langkah 1
Untuk mengubah background facebook agar lebih fresh dibandingkan sebelumnya,sebaiknya kalian menggunakan browser Mozilla Firefox. Kemudian arahkan ke alamat https://addons.mozilla.org/en-US/firefox/ untuk mencari add-on Stylish.

Langkah 2
Setelah kalian mendapatkan hasil pencarian untuk add-on Stylish, klik [Download Now]

Langkah 3
Akan muncul window baru untuk melakukan instalasi add-on stylish ini. Klik [Install Now]

Langkah 4
Tunggu beberapa saat hingga proses download selesai. Karena ukuran file add-on ini relatif kecil, maka waktu yang dibutuhkan juga tak akan lama.

Read More