Tugas-1 Algoritma & Pemrograman II

Untuk para pemirsa yang telah bersedia mampir ke blog ini, sebelumnya saran kritik sangat saya harapkan, so pasti yaa gimana lg, masuk pertama kali eeeh langsung kasih tugas.
Pada tugas Algoritma dan Pemrograman kali ini, saya menitik beratkan pada fungsi string. Yang mana fungsi string ini saya mengkondisikan melalui perulangan IF.
Apabila dalam pernyataan yang berada diatas sama atau masuk salah satu dalam perulangan tersebut, maka eksekusi akan dilaksanakan.

Berikut adalah scriptnya :

  • uses wincrt;
  • var
  • tulisan:string[9];
  • i,j,keterangan:string;
  • begin
  • write('Input Nama Mahasiswa : ');readln(i);
  • write('tuliskan NIM Anda    : ');readln(tulisan);
  • write('Isikan Alamat anda   : ');readln(j);
  • writeln;
  • if (length(tulisan)>9) then
  • keterangan:='NIM apa ini'
  • else
  • if(copy(tulisan,3,2)='11') then
  • keterangan:='anda Mahasiswa S1'
  • else
  • if(copy(tulisan,3,2)='31') then
  • keterangan:='anda Mahasiswa D3'
  • else
  • keterangan:='Maaf, anda Bukan Mahasiswa UNISLA';
  • clrscr;
  • begin
  • writeln('Input Biodata Mahasiswa : ');
  • writeln('---------------------------');
  • writeln;
  • writeln('Nama anda  : ',i);
  • writeln('Dengan NIM : ',tulisan);
  • writeln('Alamat     : ',j);
  • writeln;
  • writeln('Keterangan : ',keterangan);
  • end
  • end.
Semoga bermanfaat untuk semua .....


Share this post!

Bookmark and Share

My Blog List