tugas 2 pemrograman dasar

download

script program :

uses wincrt;
type siswa=record
     nama:array[1..30] of string;
     nim:array[1..30] of string;
     alamat:array[1..30] of string;
     tgl:array[1..30] of string;
     end;

var data:siswa;
    i,n:integer;
    lagi:char;

begin
lagi:='y';
while lagi='y' do
begin 
  write('masukkan jumlah siswa = ');
  readln(n);
    for i:=1 to n do
    begin
      writeln;
      writeln(i);
      write('masukkan nama siswa = ');readln(data.nama[i]);
      write('masukkan nim siswa = ');readln(data.nim[i]);
      write('masukkan alamat = ');readln(data.alamat[i]);
      write('masukkan tempat dan tanggal ahir = ');readln(data.tgl[i]);
    end;
  clrscr;
  writeln('data yang telah di inputkan :');
  writeln;
  writeln('---------------------------------------------------------');
  writeln('|','no':2,'|','nama':10,'|','nim':10,'|','alamat':10,'|':2,'tempat tgl lahir':18,'|');
  writeln('---------------------------------------------------------');
    for i:=1 to n do
    begin
      writeln('|',i:2,'|',data.nama[i]:10,'|',data.nim[i]:10,'|',data.alamat[i]:10,'|':2,data.tgl[i]:18,'|');
    end; 
  writeln('---------------------------------------------------------');
  writeln;
  write('apakah anda ingin mencoba lagi???(y/t) ');
  readln(lagi);
  clrscr;
end;
end.

screen shoot :