Tag: record

  • Tipe Data

    Dalam algoritma, kita harus bias menentukan tipe-tipe data yang sesuai digunakan dalam penyelesaian masalah. Sehingga computer dapat mengolah dan mendapatkan hasil yang sesuai menurut kebutuhan data. Ada beberapa tipe data yang harus kita ketahui antara lain : 1. Tipe data Char dan String Ini merupakan tipe data dasar, tipe data ini didefinisikan pada deklarsi var…

  • Aljan Array dan Record

    ARRAY Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. LISTING PROGRAM: program aljan; Uses winCrt; Var nil1 : Array[1..100] of Integer; n,i,j,dum : Integer; Begin ClrScr; Write(‘mau isi berapa data acak (integer) =’); readln(n); For i := 1 to n Do Begin Write(‘Data Ke ‘,i,’:’);Readln(nil1[i]); End; {* penyapuan proses}…

  • Hendra Array & Record

    Contoh program data pribadi dengan pascal USES WINCRT; TYPE DATA = RECORD NAMA : STRING[25]; ALAMAT : STRING[30]; JK : STRING ; TELP : STRING [10]; TANGGALLAHIR : STRING[20] ; END; VAR a : data; JAWABAN : CHAR; BEGIN REPEAT CLRSCR; BEGIN WRITE (‘NAMA :’);READLN(a.NAMA); WRITE (‘ALAMAT :’);READLN (a.ALAMAT); WRITE (‘JK ;’);READLN (a.JK); WRITE (‘TELP…

  • Program yang Menggunakan Record

    Contoh program sederhana data mahasiswa uses wincrt; type mahasiswa = record nrp: string; nama: string; alamat:string; end. var mhs : mahasiswa; begin write(’Inputkan nama’);readln(mhs.nama); write(’Inputkan nrp’);readln(mhs.nrp); write(’Inputkan alamat’);readln(mhs.alamat); {dengan begitu kita sudah mempunyai sebuah entitas mahasiswa lengkap dengan nilai atributnya untuk menampilkan datanya} writeln(mhs.nama,mhs.nrp,mhs.alamat); end.

  • ARRAY DAN RECORD

    ARRAY Suatu hari karena melihat kemajuan teknologi seorang guru ingin mengetahui bilangan prima yang ada pada bilangan antara 1 sampai dengan 200 tanpa harus menghitung manual,maka guru tersebut menyuruh anaknya yang seorang programmer untuk membuatkan program mencari bilangan prima antara 1 sampai 200, si programmer membuat program tersebut dengan turbo pascal,program tersebut dibuat dengan bagian…

  • Program Stat Game

    Program StatGame oleh Yogi Priyo Prayogo program StatGame; uses Wincrt; type Game=record Judul : string[15]; Genre : string[10]; Versi : string[10]; Rating : string[10]; Vendor : string[20]; Harga : integer; end; var x : Game; Jwbn : char; begin repeat writeln(‘Entry data game’); writeln; writeln; write(‘Judul Game : ‘); readln(x.Judul); write(‘Genre Game : ‘); readln(x.Genre);…

  • Dirman Record

    Program ditulis oleh Sudirman uses wincrt; Var tanggal : record hari, bulan, tahun : integer end; begin write(‘tanggal : ‘) ; readln(tanggal.hari); write(‘bulan : ‘); readln(tanggal.bulan); write(‘tahun : ‘); readln(tanggal.tahun); write(‘tanggal lahir anda : ‘); write(tanggal.hari); write(tanggal.bulan); write(tanggal.tahun); readln; end. Sudirman [email protected]

  • Intan Record

    Contoh program dengan record di pascal kiriman Made Intan Dwipayani program datamhs; uses wincrt; type mahasiswa = record nim : string[8]; nama : string[30]; gender : string[1]; nilai1 : real; nilai2 : real; End; var data : mahasiswa; total, mean : real; konversi, ulang : char; begin repeat writeln(‘input data mahasiswa : ‘); writeln(‘***********************’); writeln(‘NIM…

  • Contoh Program Record

    Yang contoh program-nya. kalau ada masukan dari teman-teman, langsung ditanggapi saja ya. Source codenya seperti di bawah ini: program list; {untuk menampilkan list data karyawan} uses wincrt; type karyawan=record nama: string; kelamin: string; alamat : string; end; var kry: karyawan; begin clrscr; write(‘Masukkan Nama: ‘); readln(kry.nama); write(‘Masukkan Jenis Kelamin: ‘); readln(kry.kelamin); write(‘Masukkan Alamat: ‘); readln(kry.alamat);…

  • Program Data Mahasiswa

    Berikut ini contoh program data mahasiswa di pascal kiriman Dianita Wahyu Kurniasih Program data_mhs; uses wincrt; type mahasiswa = record nim : string[8]; nama : string[25]; umur : integer; end; var data:mahasiswa; begin clrScr; writeln (‘Masukkan data diri Anda : ‘ ); write (‘Nim : ‘ );readln(data.Nim); write (‘Nama : ‘ );readln(data.Nama); write (‘Umur :…