program pascal

===PROGRAM 1===

uses crt;
var
mat : array[1..2,1..2] of byte;
i,j : integer;
x : real;
begin
clrscr;
writeln('Matrix 2x2');
writeln('----------');
for i := 1 to 2 do
begin
for j := 1 to 2 do
begin
write('matrix elemen [',i,'][',j,'] : ');
readln(mat[i][j]);
end;
writeln;
end;
writeln;
writeln('Matrixnya adalah');
writeln('----------------');
writeln;
for j:= 1 to 2 do
begin
for i:= 1 to 2 do
begin
write(' ',mat[i][j],' ');
end;
writeln;
writeln;
end;
readln;
end.



===PROGRAM 2====

uses crt;
type t = object
m1, m2 : array [1..2,1..2] of integer;
lok : array [1..4] of integer;
procedure input;
procedure tambah;
procedure tampil;
procedure kurang;
end;
var m : t;
i,j,k,pil : integer;

procedure t.input;
begin
clrscr;
writeln (' Input Matrik I');
for i:= 1 to 2 do
begin
for j := 1 to 2 do
begin
write ('Elemen Matrik [',i,',',j,']:');
readln (m1[i,j]);
end;
end;
gotoxy (35,1); writeln('input Matrik II');
k:=2;
for i:= 1 to 2 do
begin
for j := 1 to 2 do
begin
gotoxy (35,k);
inc (k);
write ('elemen Matrik [',i,',',j,']: ');
readln (m2[i,j]);
end;
end;
end;

procedure t.tampil;
begin
writeln;
writeln(' *Matrik I*');
writeln (m1[1,1]:5,m1[1,2]:5);
writeln (m1[2,1]:5,m1[2,2]:5);
gotoxy(35,7);writeln('* Matrik II *');
gotoxy (35,8);writeln (m2[1,1]:5,m2[1,2]:5);
gotoxy (35,9);writeln (m2[2,1]:5,m2[2,2]:5);
readln;
end;
procedure t.tambah;
begin
gotoxy (18,1);writeln ('Hasil Penjumlahan Matrik');
lok[1] := m1[1,1]+m2[1,1];
lok[2] := m1[1,2]+m2[1,2];
lok[3] := m1[2,1]+m2[2,1];
lok[4] := m1[2,2]+m2[2,2];
gotoxy (21,12);writeln (lok[1]:5,lok[2]:5);
gotoxy (21,13);writeln(lok[3]:5,lok[4]:5);
readln;
end;

procedure t.kurang;
begin
gotoxy (4,9);writeln('Hasil Mtarik I - Matrik II ');
lok [1] := m1[1,1]-m2[1,1];
lok [2] := m1[1,2]-m2[1,2];
lok [3] := m1[2,1]-m2[2,1];
lok [4] := m1[2,2]-m2[2,2];
gotoxy (9,11);writeln(lok[1]:5,lok[2]:5);
gotoxy (9,12);writeln(lok[3]:5,lok[4]:5);
gotoxy (40,9);writeln ('Hasil Matrik II - Matrik I');
lok [1] := m2[1,1]-m1[1,1];
lok [2] := m2[1,2]-m1[1,2];
lok [3] := m2[2,1]-m1[2,1];
lok [4] := m2[2,2]-m1[2,2];
gotoxy (45,11);writeln (lok[1]:5,lok[2]:5);
gotoxy (45,12);writeln(lok[3]:5,lok[4]:5);
readln;
end;

begin
repeat
clrscr;
gotoxy (25,1);writeln('***** Menu Matrik *****');
gotoxy (25,2);writeln('1. Input Matrik');
gotoxy (25,3);writeln('2. Penjumlahan Matrik');
gotoxy (25,4);writeln('3. Pengurangan Matrik');
gotoxy (25,5);writeln('4. Keluar');
gotoxy (25,6);writeln('*************************');
gotoxy (27,7);write('Pilihan [1..4] :');readln (pil);
case pil of
1 : begin
m.input;
m.tampil;
end;
2 : m.tambah;
3 : m.kurang;
end;
until (pil) = 4;
end.

begin
m.input;
m.tampil;
m.tambah;
end.

Read More

POSISI FILE 'PASCAL'

7.6 POSISI FILE
Posisi file merupakan posisi kursor yang sedang menunjukkan ke data tertentu di dalam sebuah file. Setiap kali file dibuka dengan menggunakan procedure Reset dan Rewrite , maka secara otomatis posisi akan berada pada bagian awal file atau akan menunjukan ke data pertama .
Terdapat beberapa procedure dan function pada pascal yang berkaitan dengan posisi file, yaitu procedure SEEK, function FilePos,SeekEof,SeekEoLn, dan Eof.
7.6.1 PROSEDUR Seek
Prosedur ini digunakan untuk memindahkan posisi file ke posisi tertentu sesuai dengan yang kita inginkan. Untuk memahami prosedur Seek bekerja, asumsikan bahwa kita telah memiliki File dengan nama SEEK.DAT yang merupakan kumpulan data-data dengan tipe Byte.




OUTPUT PROGRAM.







Output :





Pemanggilan procedur BuatFile pada program diatas akan membuat file baru dengan nama POS.DAT yang berada di direktori COBA pada drive D dan mengisikan data-data bilangan (bertipe Byte) kedalamnya.
7.6.3 FUNGSI SeekEof
Fungsi ini akan mengabaikan satu atau semua karakter spasi yang terdapat pada bagian akhir file dan langsung mengembalikan nilai true. Namun harus tetap diperhatikan bahwa spasi yang tidak terdapat dibagian akhir file tentu tidak akan tetap dianggap sebagai data, dan pada keadaan seperti itu SeekEof masih bernilai false. Fungsi ini juga hanya dapat digunakan untuk file teks dan file juga harus dibuka dengan menggunakan prosedur Reset. Apabila menggunakan prosedur Rewrite atau Append dan memanggil fungsi SeekEof, maka akan menyebabkan kesalahan program.









output :






Data-data yang dibaca menggunakan fungsi SeekEof sebagai pengecek akhir file-nya, karakter di bagian akhir file tidak akan dibaca.
7.6.4 FUNGSI SeekEoLn
Cara kerja fungsi ini hamper sama dengan fungsi SeekEof, hanya saja SeekEoLn berlaku untuk setiap baris data yang terdapat di dalam file. Fungsi ini hanya dapat digunakan untuk file teks dan akan mengembalikan nilai True apabila posisi file sedang berada di akhir baris. Apabila terdapat karakter spasi di baris tertentu (di bagian awal, tengah maupub akhir), maka fungsi ini akan mengabaikan spasi tersebut.








output:



7.6.5 FUNGSI Eof
Fungsi ini digunakan untuk memeriksa posisi file apakah berada di posisi akhir atau tidak. Posisi akhir dari suatu file lebih dikenakl dengan sebutan EOF (End-Of-File). Fungsi ini akan mengembalikan nilai true apabila posisi berada pada data terakhir, selain itu nilai yang akan dikembalikan adalah false.
Untuk kasus file kosong, maka posisi awal file juga akan dianggap sebagai posisi akhir, sehingga dengan demikian nilai yang akan dikembalikan dari fungsi ini adalah true. Pada contoh program dibawah ini asumsikan bahwa kita telah membuat file bernama EOF.TXT dalam direktori yang sama denga;n program yang kita buat.







output:






Cara kerja program yaitu melakukan pembacaan data dari file EOF.TXT mulai dari posisi awal sampai posisi akhir. Pada akhir file,fungsi EOF akan bernilai true sehingga kondisi tidak terpenuhi dan proses pengulangan akan terhenti.

Read More

BERLIBUR @ TAMAN SAFARI INDONESIA

Yeee UTS kelar nii. Saatnya melepas penat. Tapi kemana ya enaknya?? Banyak pilihan untuk berrekreasi. Tapi kali ini keluarga memilih Taman Safari Indonesia. Disana juga dapat menambah pembelajaran dan juga bersenang-senang. Selain banyak binatang yang belum pernah dilihat sebellumnya, kita juga dapat memberi makan hewan secara langsung. *wahhh asiikkk ya ;))
Well hari itu tiba. Kami mulai mengemas makanan,minuman dan tak lupa diri masing-masing. Setelah semua siap dan kami pun GO TO TAMAN SAFARI INDONESIA. Dijalan sepanjang menuju tempat tujuan, memang terlihat macet sekali, tapi beruntung udaranya begitu sejuk dan membuat perut semakin tak bisa menahan lapar. Mulut terus mengunyah makanan yang dibawa dari rumah. Sesekali kami membeli jajanan dari luar mobil *haha rajkus :9
Sampai akhirnya kekenyangan dan tidur sejenak. Ternyata ketika mata membuka kembali jalan sudah tidak begitu macet. Beruntung jalan yang kami lewati berada pada satu jalur karena dari arah puncak ke jalan tol akan segera ditutup dan membuat mobil kami selancar-lancarnya jalan. Udara disekitar semakin dingin dan sejuk. Membuat aroma udara yang masuk kedalam hidung menjadi nikmat.
Sesampainya jalan didekat taman safari, banyak sekali yang berjualan wortel disepanjang jalan. Dan kami pun membeli 4 ikat wortel untuk memberi makan binatang secara langsung. Ternyata banyak orang yang memilih taman safari indonesia untuk berlibur. Setelah membeli tiket masuk, kami langsung disuguhkan dengan berbagai macam binatang-binatang . banyak binatang-binatang yang berkeliaran disana. Saya dan keponakan memberi makan seekor kancil. Yang tadinya keponakan kecilku takut, tapi ia menjadi antusias dan sangat senang.
Setelah berputar-putar menglilingi taman safari akhirnya kami tiba di arena parkiran. Well saatnya makan *hahahaha :9. Setelah makan dan sembahyang, kami melanjutkan untuk menonton pentas para binatang. Semua penampilan binatang sangat lucu dan menghibur kami yang ada disana, begitu memukau dan salut.
Semua telah kami lihat dan hari mulai sore, saatnya pulang kerumah. Liburan kali ini begitu menyenangkan. Selain liburan akhir tahun yang menjadi pilihan kami. So, HAVE FUN FOR YOUR HOLIDAY   

Read More

program PASCAL 'GETDATE'

Listing program
uses crt, dos;
procedure CetakHariTanggal;
Const
HARI : array[0..6]of string [9]= ('Minggu','Senin','Selasa','Rabu','Kamis','Jumat','Sabtu');
Var
tahun,bulan,harike, nohari:word;

begin
GetDate (tahun,bulan,harike,nohari);
writeln('Hari :',Hari [nohari]);
writeln('Tanggal :',harike :0,'-',bulan :0,'-',tahun:0);
end;
begin
clrscr;
CetakHariTanggal;
Readln;
end.



LISTING PROGRAM.















OUTPUT PROGRAM.

Read More

program OCCURS

IDENTIFICATION DIVISION.
PROGRAM-ID. RECORD.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NAMA-INPUT.
02 NAMA PIC A(5) OCCURS 5 TIMES.
77 I PIC 9.
77 N PIC 9.
PROCEDURE DIVISION.
MULAI.
DISPLAY (1, 1) 'INPUT DATA (MAX 5 INPUTAN) ? '.
ACCEPT N.
PERFORM HASIL VARYING I FROM 1 BY 1 UNTIL I = N.
IF I > N
PERFORM OUT1.
HASIL.
DISPLAY ( , 1) 'NAMA KE-' I ' : ';
ACCEPT NAMA (I).
OUT.
DISPLAY SPACE
PERFORM GARIS.
DISPLAY ' NAMA'.
PERFORM GARIS.
OUT1.
DISPLAY NAMA (1).
DISPLAY NAMA (2).
DISPLAY NAMA (3).
DISPLAY NAMA (4).
DISPLAY NAMA (5).
GARIS.
DISPLAY '----------'.
AKHIR.
STOP RUN.
PROSES PENGINPUTAN DATA.





LISTING PROGRAM.

Setelah proses penginputan data selesai, maka tekan enter dan hasil output programpun akan muncul.




OUTPUT PROGRAM.






LOGIKA PROGRAM.
Inti dari program OCCURS untuk mendefinisikan matriks atau tabel. DISPLAY (1, 1) 'INPUT DATA (MAX 5 INPUTAN) ? '. untuk menampilkan jumlah inputan yang kita masukan maksimal 5 inputan. Kemudian setelah penginputan selesai maka akan dilakukan perform. Perform digunakan untuk membuat suatu program meloncat ke suatu paragraph tertentu dan mengerjakan seluruh isi paragraph tersebut sampai selesai lalu kembali lagi ke statement setelah statement PERFORM.

Read More

all about new YEAR !!! yeahhh :))

ok udah taun baru aja ya skrng. cepat bgnt,!! so sblmnya pasty sudah bikin resolusi-resolusikan sblm akhirnya taun baru datang,. misal kaya gua. gua pnya resolusi 'ngurusin badan' hahaha. mungkin sangkin banyaknya resolusi gua, gua gak tau dan sulit untuk dungkapkan *lebay. tapi ga harap dan pasty semua orang juga sama kaya gua, bahwa INGIN MENJADI YANG TERBAIK bwt 12BULAN KEDEPAN *AMIN ;))

NEW YEAR identik dengan peryaan bakar-bakaran and petasan.
lu semua pasty tau petasan.

banyak warna dan indah jika sudah menghiasi angkasa dikala malam tiba. suaranya yang menjerit membuat semua orang terpana akan suaranya yang nyaring. warnanya yang eragam membuat suasana malam diangkasa terasa indah dan spektakuler.
dan sekarang bakar-bakaran.
entah apa yang dibakar dan rasanya bagaimana tapi hal itu menjadi kewajiban di acara NEW YEAR setiap orang. misalkan saja bakar jagung, bakar ayam, bakar kambibg, sate bahkan BBQ *hmmm delisious bngt ;P.

acara bakar-bakaran ini selain nikmat juga dapat membangun rasa persaudaraan kita dengan sesama tetangga atau kerabat lainnya. dalam acara itu dapat terjalin keharmonisan dan kerjasama yang dapat memupuk rasa senang.

so HAPPY NEW YEAR GUYS..
I HOPE WE WILL BE BETTER THAN LAST YEAR.
:)))

Read More