Selasa, 28 Januari 2014

FENOMENA BANJIR MOJOAGUNG-JOMBANG

Aksi Peduli Siswa SMAN MOJOAGUNG Terhadap Korban Banjir Kec. Mojoagung-Jombang

Intensitas hujan yang sangat tinggi terjadi pada senin malam di wilayah Mojoagung dan sekitarnya. akibatnya banjir setinggi kurang lebih satu setengah meter terjadi di sebagian wilayah kecamatan Mojoagung yang berada di sekitar Kali Gunting. korban banjir kini mengungsi di tempat pengungsian yang terbagi di beberapa posko pengungsian dengan posko utama dan dapur umum terletak di Alun-alun Mojoagung. salah satu posko pengungsian yaitu terletak di lembaga bimbingan belajar primagama. posko pengungsian tersebut dihuni sebagian besar warga desa gambiran selatan RT1/02. relawan dari PMR, Pramuka, dan OSIS SMA Negeri Mojoagung turut membantu di posko tersebut. bantuan terus mengalir dari donatur-donatur, diantaranya bantuan maknan pokok dan Obat-obatan dari PT CJ food Jombang, nasi bungkus dan Uang dari SMA Negeri mojoagung, bantuan sejumlah uang dari SMP Negeri 2 Mojoagung, dan dari masyarakat. bantuan berupa M-asi dan susu untuk balita juga diberikan oleh tim kesehatan. kini, (rabu,29-januari-2014) warga telah kembali ke rumah masing-masing karena banjir sudah mulai surut.



 Selain banjir, derasnya hujan juga mengakibatkan tanah longsor di desa ngrimbi kecamatan bareng kabupaten jombang. tanah longsor ini menelan 7 korban jiwa dan 7 orang hilang belum ditemukan. gundulnya lereng dan derasya hujan mengakibatkan longsor kali ini tidak dihindari. sebagian warga desa mengungsi ditempat pegungsian karena takut longsor susulan akan terjadi. evakuasi korban longsor yang masih hilang terjadi lambat, karena kendala cuaca, medan, dan minimnya sarana.


Selasa, 26 November 2013

BELAJAR PROGRAM PASCAL


 Turbo Pascal adalah sebuah sistem pengembangan perangkat lunak yang terdiri atas kompiler dan lingkungan pengembangan terintegrasi (dalam bahasa inggris: Integrated Development Environment - IDE) atas bahasa pemrograman pascal untuk sistem operasi CP/M, CP/M-86, dan MS-DOS, yang dikembangkan oleh Borland pada masa kepemimpinan Philippe Kahn. Nama Borland Pascal umumnya digunakan untuk paket perangkat lunak tingkat lanjut (dengan kepustakaan yang lebih banyak dan pustaka kode sumber standar) sementara versi yang lebih murah dan paling luas digunakan dinamakan sebagai Turbo Pascal. Nama Borland Pascal juga digunakan sebagai dialek spesifik Pascal buatan Borland.
Contoh kode
•    Bahasa Pascal tidak bersifat case sensitive.
•    Secara historis, komentar dalam bahasa pascal diidentifikasikan sebagai { seperti ini }, atau (* seperti ini *), dan bisa terdiri atas beberapa baris. Versi lanjutan Borland Pascal juga mendukung model komentar seperti yang terdapat pada C++. // seperti ini , yang berlaku pada satu baris.
•    Sintaksis case yang lebih fleksibel daripada Pascal standar.
•    Himpunan hanya bisa memiliki hingga 28 (256) anggota.
•    Standar, string dengan panjang yang tetap didukung, namun terdapat pula tipe data String yang lebih fleksibel.


dikutip dari :
http://tutorial-smk4u.blogspot.com/2013/05/pengertian-turbo-pascal.html
Berikut ini adalah contoh sedehana program Turbo Pascal:

 anda dapat mengetik kode berikut ini :


uses wincrt;
var
nama,skl:string[20];
begin
write('nama saya:');readln(nama);
write('sekolah saya:');readln(skl);
end.


tekan ctrl+f9


berikutnya adalah, contoh penggunaan pascal program persegi panjang, anda dapat mengetik kode berikut ini :


 uses wincrt;
var
 p,l,ls,kl,d:real;
begin  
 writeln('program persegi panjang');
 write('masukkan panjang:'); readln(p);
 write('masukkan lebar:'); readln(l);
 ls:=p*l;
 kl:=2*(p+l);
 d:=sqrt(p*p+l*l);
 writeln('luasnya:',ls:2:2);
 writeln('kelilingnya:',kl:2:2);
 writeln('diagonalnya:',d:2:2);
end.  


 tekan ctrl+f9


berikutnya adalah, contoh penggunaan pascal program lingkaran, anda dapat mengetik kode berikut ini :

 uses wincrt;
var
 r,ls,kl:real;
begin  
 writeln('program lingkaran');
 write('masukkan jarijari:'); readln(r);
 ls:=3.14*r*r;
 kl:=2*3.14*r;
 writeln('luasnya:',ls:2:2);
 writeln('kelilingnya:',kl:2:2);
end. 



 berikutnya adalah, contoh penggunaan pascal program zodiak, anda dapat mengetik kode berikut ini :

uses wincrt;
var
bulan,tgl,tahun:integer;
ket:string[6];
kembali:char;
label awal;

begin
awal:

writeln('       my zodiak');
writeln('*******************************');
write('tanggal : ');read(tgl);write('bulan : ');read(bulan);write('tahun : ');read(tahun);
writeln('=====================================');

if bulan=1 then
begin
writeln('my zodiak capicorn');
writeln('kesehatan anda flu dan batuk');
writeln('keberuntungan anda hari rabu pahing');
end;

if bulan=2 then
begin
writeln('my zodiak aquarius');
writeln('kesehatan anda alhamdulillah');
writeln('keberuntungan anda hari sabtu malam minggu');
end;

if bulan=3 then
begin
writeln('my zodiak pisces');
writeln('kesehatan anda is good dan sangat baik sekali');
writeln('keberuntungan anda hari rabu wage');
end;

if bulan=4 then
begin
writeln('my zodiak aries');
writeln('kesehatan anda diare sedang');
writeln('keberuntungan anda hari kamis kliwon');
end;

if bulan=5 then
begin
writeln('my zodiak taurus');
writeln('kesehatan anda demam tinggi');
writeln('keberuntungan anda hari sabtu legi');
end;

if bulan=6 then
begin
writeln('my zodiak gemini');
writeln('kesehatan anda dehidrasi ringan');
writeln('keberuntungan anda senin pahing');
end;

if bulan=7 then
begin
writeln('my zodiak cancer');
writeln('kesehatan anda baik baik saja');
writeln('keberuntungan anda setiap hari');
end;

if bulan=8 then
begin
writeln('my zodiak leo');
writeln('kesehatan anda sakit pusing');
writeln('keberuntungan anda hari selasa kliwon');
end;

if bulan=9 then
begin
writeln('my zodiak virgo');
writeln('kesehatan anda gatal gatal');
writeln('keberuntungan anda hariminggu legi');
end;

if bulan=10 then
begin
writeln('my zodiak libra');
writeln('kesehatan anda fit dan bugar');
writeln('keberuntungan anda tidak ada');
end;

if bulan=11 then
begin
writeln('my zodiak scorpio');
writeln('kesehatan anda ngantuk');
writeln('keberuntungan anda hari sabtu kliwon');
end;

if bulan=12 then
begin
writeln('my zodiak sagitarius');
writeln('kesehatan anda asik');
writeln('keberuntungan anda hari ini');
end;
writeln('================================');
writeln('anda ingin lagi (y/t)');kembali:readkey;
if kembali='y' then goto awal;

end.


tekan ctrl+f9


semoga bermanfaat dan selamat mencoba...