file ......

FILE TEXT

File yang telah dibahas sebelumnya adalah file bertipe ,, bagaimana dengan file text ?? file text tidak jauh berbeda dengan file bertipe ,tetapi ada perbedaan dalam membuat suatu sintax,, di file bertipe mencetak data harus menggunakan perintah write.. anda tidak bisa menggunakan writeln,,, tetapi di file text ,kita dapat membuat dua perintah diatas ,baik anda membuatnya dengan membuat write(horizontal) ataupun writeln(vertical)

Berikut listing program …

uses wincrt;

var fhuruf:text;

begin

writeln('merekam data ke file tex');

assign(fhuruf,'C:\pascal\huruf1.txt');

rewrite(fhuruf);

writeln(fhuruf,'A');

writeln(fhuruf,'B');

writeln(fhuruf,'C');

close(Fhuruf);

writeln('selesai');

end.

Read More

file

File dalam pascal

File dalam pascal adalah  bentuk penyimpanan data yang dimana program dan data tidak terhapus walaupun computer dimatikan ,sehingga data tersimpan dengan permanen.Data disimpan di dalam perangkat penyimpanan seperti hardisk maupun removeable mediaJ ,,, nah ini bentuk tipe bentukan yang harus kita buat

TYPE NamaTipe = FILE OF TipeKomponen;

Contoh nya

Type fileaku=file of integer;

(diatas dapat diartikan yaitu tipe bernama fileaku berisi file yang berjenis integer)

Setelah membuat tipe maka anda harus mendeklarasikan nya di dalam var (Variable)

Var file:fileaku;

Nah… supaya paham … neh tak liatin listing program …. Ya emank panjang seh brow.. ya tpi ntr situ paham juga hehhehee….

Listing program

uses wincrt;

type tipefileint=file of integer;

var fileint:tipefileint;

data,tambah,i,pos,ganti:integer;

pil:char;

procedure bukafile;

begin

assign(fileint,'C:\pascal\imam.dat');

{$I-}

reset(Fileint);

{$I+}

end;

begin

writeln('menu');

writeln('1.tambah data ');

writeln('2.ubah data');

writeln('3.cetak data');

writeln('masukkan pilihan: ');readln(pil);

case pil of

'1':begin

bukafile;

write('tambah data');

write('tambah dengan : ');readln(tambah);

seek(fileint,filesize(fileint));

data:=tambah;

write(fileint,data);

close(fileint);

end;

'2':begin

bukafile;

writeln('ubah data ');

write('posisi yang akan diubah : ');readln(pos);

write('ganti dengan: ');readln(data);

seek(fileint,pos-1);

write(fileint,data);

seek(fileint,0);

writeln;

close(fileint);

end;

'3':begin

writeln('Cetak Data');

           bukafile;

           while not eof(fileint) do

           begin

                read(fileint,data);

          

                writeln(data);

                end;

 close(fileint);

 end;

 end;

 end.

Nah … inti na dari file bertipe ini ada  ditulisan ini gan,,,

assign(fileint,'C:\pascal\imam.dat');

{$I-}

reset(Fileint);

{$I+}

end;

(artinya mengaitkan fileint ,dengan isi yang ada di directory pascal (folder pascal) yang dimana data yang dibuat berada di imam.dat

Nah… ingat setiap kita mau menambah ,mengedit ,dan mencatak data harus dibuka dulu dengan procedure yang sudah saya buat diatas, karean file bertipe hanya dapat menjalankan satu hal, tidak bisa anda sekali buka file untuk melakukan pengeditan maupun pencetakan,,

SO GOOD LUCK……………… SUWUN before

Read More

macam-macam record

MACAM-MACAM RECORD

Semoga teman-teman sudah mengerti perbedaan record dengan array,sekarang kita akan membahas macam-macam record ….

Disini saya akan menjelaskan macam-macam record yaitu

1.      Record varian

Yaitu record yang dimana memiliki pilihan untuk menjalankan salah satu dari pilihan yang dibuat ,, contoh nya dapat dengan contoh listing berikut

Program recordvarian;

uses wincrt;

type buk=(M,B);

     tbl_buku=record

                kode:string;

                tgl,penerbit:string;

                case tipe: buk of

                M:(nomor:integer);

                B:(pengarang,edisi:string);

                end;

var buku: tbl_buku; pil:char;

i,n:integer;

   

begin

with buku do

     begin

     write('kode buku : ');readln(kode);

     write('tanggal beli : ');readln(tgl);

     write('penerbit : ');readln(penerbit);

     write('tipe (M/B) : ');readln(tempe);

     case upcase(pil) of

          'M': begin

              tipe:=M;

              write('Nomor : ');readln(nomor);

              end;

          'B': begin

               tipe:=B;

               write('Pengarang : ');readln(pengarang);

               write('edisi ; ');readln(edisi);

               end;

     end;

     end;

     writeln('data yang dimasukkan tadi adalah : ');

     with buku do

     writeln(i,kode:10,tgl:10,penerbit:10,pil:10);

  

Read More

record....

Record Dalam Pascal

Apa itu record ??? mengapa harus ada record dipascal atau pun diprogram lainnya. Jawabannya karena record merupakan  perekaman data yang dimana data direkam ke dalam memory dengan jenis data yang berbeda .

Mungkin kita pernah mendengar kata larik atau array.. sebenarnya mereka tidak jauh berbeda ,Cuman fungsi dari keduanya berbeda.

Array merupakan penyimpanan data berdasarkan indeks dan menyimpan data dalam bentuk data yang harus sama , Contoh

Var

Angka:array[1..100] of integer;

Diatas merupakan contoh pendeklarasian suatu variable angka yang dimana terdiri dari 1-100 dan berjenis integer, sedangkan record dapat kita lihat sebagai berikut ini

Type buku= record

Pengarang :String;

NoBuku :integer;

End;

Var bukuaja:buku;

Nah ,, bedakan ?? loh trus gman??? Ya kita dapat artikan bahwa record menyimpan data pengarang dalam bentuk string,no buku dalm tipe integer, nah ketika kita masukkan ke dalam data input maka harus ditulis sebagai berikut ini

Contoh

Readln(bukuaja.nobuku);

(arti diatas adalah memasukkan inputan dengan berdasarkan tipe record yaitu nobuku yang berjenis integer)

Anda tidak bisa menuliskan dengan sebagai berikut

Readln(nobuku);

Tetapi anda bisa menuliskan dengan statement with yaitu

With bukuaja do begin

Writeln(‘masukkan nama pengarang’);readln(pengarang);

Writeln(‘masukkan nomor buku ‘);readln(nobuku);

End;

Nah ,, gemana mudahkan???? J

Yapzzz… ntr kita lanjutkan lagi…
Sekian ……………………………

Read More

tamba,kali,kurang himpunan di pascal

Pertambahan himpunan ,pengurangan himpunan dan perkalian himpunan dipascal

1.       Pertambahan himpunan dipascal

Arti dari penambahan himpunan ini adalah dimana kita membuat penggabungan data himpunan yang ada , dimana dalam contoh ini saya mempunyai 2 himpunan yaitu A dan B , yang dimana A memiliki himpunan 1-3 dan B mempunyai himpunan 5-10  .

Berarti kita akan menggabungkan himpunan yang ada di A dan B , yang dimana akan terkandung di dalam himpunan yaitu kita beri nama himpunan C , jadi himpunan C terdapat anggota bilangan yaitu C:[1,2,3,5,6,7,8,9,10]

Nah , sekarang udah ngerti kan brow ??? yapzzz.. jadi anggota himpunan yang dibentuk sekarang merupakan gabungan dari 2 himpunan yang kita buat tadi  ,berarti bilangan 4 tidak ada dalam himpunan yang kita gabungkan ini .

Contoh listing program

Uses wincrt;

Type nomorimam=set of 1..10;

Var

A,B,C:nomorimam;

Value:integer;

Begin

Writeln(‘program penambahan  himpunan pascal ‘);

A:=[1..3];

B:=[5..10];

C:=A+B;

Value :=1;

While value<>0 do

Begin

Readln(value);

If value<>0 then

Begin

If value in C then writeln(‘ini dalam set C ‘)

Else

Writeln(‘ini tidak dalam set C’)

End

End

End.

Read More

himpunan di pascal

HIMPUNAN DI PASCAL

Himpunan seperti dalam ilmu matematika ,merupakan suatu kumpulan yang sejenis . Kita sering mendengar istilah himpunan mahasiswa informatika,himpunan pedagang buah ,himpunan ibu-ibu PKK.

Semua contoh tersebut merupakan himpunan yang dimana kita dapat artikan seperti kelompok yang sejenis.Kita tidak bisa memasukkan bapak-bapak PKK kedalam himpunan Ibu-ibu PKK. Karena perbedaan jenis kelamin dari himpunan tersebut .

Didalam Pascal terdapat tipe yang menyatakan himpunan ,sebagai contoh saya tuliskan sebagai berikut

Type imamnomor=set of 1..10;

Diatas adalah contoh pembuatan tipe dalam membuat suatu himpunan, dapat kita artikan tipe bentukan yang kita buat bernama imamnomor dengan dimana terkandunga himpunan dari 1-10

Setelah kita membuat type diatas ,selanjutnya kita mendeklarasikannya dibagian var

Var nomorimam:imamnomor;

Diatas diartikan sebagai begini, dalam tipe yang kita buat tadi kita meletakkan nya dibagian var nomorimam,sehingga variable tersebut berjenis himpunan yang berisikan himpunan 1-10

Listing Program 
uses wincrt;
type imamnomor=set of 1..10;
var nomorimam:imamnomor;
value:integer;
begin
writeln('program sederhana himpunan pascal ');
nomorimam:=[2..6];
value:=1;
while value<>0 do
begin
writeln('masukkan angka : ');readln(value);
if value<>0 then begin
if value in nomorimam then
writeln('ini dalam set ')
else
writeln('ini tidak dalam set ');
end
end
end.

Read More