record_array

PROGRAM RECORD_PENGULANGAN;

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 :');READLN (a.TELP);

      WRITE ('TANGGAL LAHIR :');READLN (a.TANGGALLAHIR);

      WRITELN;

      WRITELN('NAMA ANDA :',a.NAMA);

      WRITELN ('ALAMAT ANDA : ',a.ALAMAT);

      WRITELN ('JK :',a.JK);

      WRITELN ('TELP :',a.TELP);

      WRITELN ('TANGGAL LAHIR :', a.TANGGALLAHIR);

      WRITELN ('APAKAH ANDA AKAN ENTRI DATA LAGI(Y/T):');

      READLN(JAWABAN);

    END;

  UNTIL (JAWABAN='T');

END.

program array_angka;

uses wincrt;

var angka:array[1..100] of integer;

  i,n:integer;

begin

     clrscr;

     writeln('Jumlah data : ');

     readln(n);

     for i:=1 to n do

         begin

              writeln('Masukkan angka ke-',i,':');

              readln(angka[i]);

         end;

             writeln;

             for i:=1 to n do

             writeln('Angka ke-',i,':',angka[i]);

End.

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   : ' );readln(data.Umur);

  writeln;  {Memasukkan baris kosong}

  {Menampilkan data yang telah dimasukan}

  writeln ('Beikut ini informasi data diri yang telah anda masukkan : ');

  writeln ('Nim    : ' , data.Nim);

  writeln ('Nama   : ' , data.Nama);

  writeln ('Umur   : ' , data.Umur);

  readln ;

end.