Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  RR
Language: C/C++
Code:
Program Double_LINKED_LIST;
uses crt;
type Asal_Sekolah = Record
     SD : string;
     SMP : String;
     SMA : string;
     end;

type Mahasiswa = record
     NPM : string;
     Alamat : string;
     Asal_Sekolah01 : Asal_Sekolah;
     Nama : string;
     end;

var data_mahasiswa : array [1..9] of Mahasiswa;
     a,b,c : integer;
     
Procedure tambahdata;
var
     d:char;
     e : integer;
     Begin
     writeln('Data Mahasiswa Angkatan 2016');
     e:=0;
         Begin
              Repeat
              d:= 'Y';
              e:= e+1;
              Writeln('Data Mahasiswa ke-',e);
              Write ('Nama : '); readln(data_mahasiswa[e].Nama);
              write ('NPM : '); readln(data_mahasiswa[e].NPM);
              write ('Alamat : '); readln(data_mahasiswa[e].Alamat);
              writeln ('Asal Sekolah : '); 
              write ('SD : '); readln(data_mahasiswa[e].Asal_Sekolah01.SD);
              write ('SMP : '); readln(data_mahasiswa[e].Asal_Sekolah01.SMP);
              write ('SMA : '); readln(data_mahasiswa[e].Asal_Sekolah01.SMA);
              writeln;
              Write ('Ingin input data lagi (Y/T) ?'); read(d);
              writeln;
              Readln;
              Until (d = 'T') or (d = 't');
              Writeln('Terima Kasih atas pengisian datanya');
          end;
     end;

BEGIN

     tambahdata;
END.     
     
     

     
     
Comments: