Tugas Algoritma dan Struktur Data Statistika B 07

Ini program buat tugas SDA buat temen2 kalau pengen tau program yang aku buat secara lengkap dan telah teruji 100% worked. Tetapi jangan lupa untuk mengganti variabel supaya tidak terlihat sama. Trims...
Untuk program selain Delphi, tambahkan ClrScr; setelah begin ke-2.


var
nim,nama:string;
ulang:char;

function name(nim:string):string;
begin
if nim = '0710950004' then
name:= 'Henny Dwi Restuti'
else if nim = '0710950006' then
name:= 'Nikmatun Nikmah'
else if nim = '0710950008' then
name:= 'Dewi Ratnasari'
else if nim = '0710950010' then
name:= 'Adysti Rizky'
else if nim = '0710950012' then
name:= 'Salisa Ratna Abidin'
else if nim = '0710950014' then
name:= 'Gita Gumilar'
else if nim = '0710950016' then
name:= 'Vionita Indriani'
else if nim = '0710950018' then
name:= 'Tutus Suratina'
else if nim = '0710950020' then
name:= 'Effendi Susanto'
else if nim = '0710950022' then
name:= 'Bimanto Dwi Cahyadi'
else if nim = '0710950028' then
name:= 'Henky Rizky Widiardi'
else if nim = '0710950032' then
name:= 'Muhammad Izzul Anwar'
else if nim = '0710950034' then
name:= 'Sandi Ratna'
else if nim = '0710950036' then
name:= 'Astri Yuliana'
else if nim = '0710950038' then
name:= 'Desi Mariyana'
else if nim = '0710950042' then
name:= 'Siti Khoirun Nisak'
else if nim = '0710950046' then
name:= 'Jefry Damai'
else if nim = '0710950047' then
name:= 'Angga Dwi M'
else if nim = '0710953002' then
name:= 'Winda Dwi Krismawati'
else if nim = '0710953004' then
name:= 'Sulis Harmamik'
else if nim = '0710953006' then
name:= 'Nidia Rinasa'
else if nim = '0710953008' then
name:= 'Tri Handiyah'
else if nim = '0710953010' then
name:= 'Latiffatul Haniffa'
else if nim = '0710953012' then
name:= 'Rifal Purbaya'
else if nim = '0710953016' then
name:= 'Vierkury Metyopandi'
else if nim = '0710953018' then
name:= 'Layinatus Sofa'
else if nim = '0710953022' then
name:= 'Ika Novita Delima'
else if nim = '0710953024' then
name:= 'Achmad Bara'
else if nim = '0710953026' then
name:= 'Sakib'
else if nim = '0710953028' then
name:= 'Winda Arika'
else if nim = '0710953030' then
name:= 'Risdiana Chandra'
else if nim = '0710953032' then
name:= 'Deni Apriyanto'
else if nim = '0710953034' then
name:= 'Fahmi Khuluqin Nafik'
else if nim = '0710953036' then
name:= 'Myta Fitriany'
else if nim = '0710953040' then
name:= 'Haris Susilo Efendi'
else if nim = '0710953042' then
name:= 'Ahmad Fauzy Ridwan'
else
name:= 'salah';
end;

begin
WriteLn('-------------------------------------');
WriteLn('- TUGAS ALGORITMA DAN STRUKTUR DATA -');
WriteLn('--------------------------[by. Henky]');
repeat
WriteLn;
Write('Masukkan NIM : ');
ReadLn(nim);
nama:=name(nim);
if nama = 'salah' then
WriteLn('NIM yang dimasukkan salah')
else
begin
WriteLn('NIM : ',nim);
WriteLn('Nama : ',nama);
end;
WriteLn;
Write('Ulang lagi (ketik Y jika mengulang) : ');
ReadLn(ulang);
WriteLn;
until UpCase(ulang)<>'Y'; {program akan kembali jika memilih Y}
end.


Untuk teman-teman yang namanya salah atau tidak sesuai dengan NIM ataupun belum tercantum di dalam daftar di atas, harap segera menghubungi saya agar segera dikonfirmasi. Trims...