Memasukkan data sesorang secara software

TUGAS PASCAL

SOAL 10

Nama: Miftachul Bahri // 153600033

             Rifqi Nazrudin //153600034

Tujuan:

     Memasukkan data sesorang secara software

Program:

uses wincrt;

var

 nama :string[20];

 jur  :string[10];

 angk :integer;

 kls  : char;

 alamat:string[40];

 status: string[20];

Begin

   write('1.Ketik nama mahasiswa=');

   readln(nama);

  write('2.Ketik jurusannya=');

   readln(jur);

   write('3.Ketik angkatannya=');

   readln(angk);

   write('4.Ketik kelasnya=');

   readln(kls);

   write('5.Ketik alamatnya=');

   readln(alamat);

   write('Ketik status =');

   readln(status);

   clrscr;

   writeln('Namamahasiswa :',nama);

   writeln('Jurusan :',jur);

   writeln('Angkatan:',angk);

   writeln('Kelas  :',kls);

   writeln('Alamat :',alamat);

   writeln('Status  :',status);

 End.

Proyek: