Kasus : buatlah sebuah program pengulangan yang dapat menginput banyak nama mahasiswa.
Berikut kode programnya :
program p_mahasiswa;
uses wincrt;
var nama :string;
tanya:char;
program p_mahasiswa;
uses wincrt;
var nama :string;
tanya:char;
tanya:='y';
while tanya='y' do
begin
write('Input Nama Mahasiswa : ');readln(nama);
writeln;
write('Masih Ada Nama yang Ingin Diinput ? (y/t) : ');readln(tanya);
writeln;
end;
end.
Output programnnya :
gan ene cuma namanya aja ya,, ? klo gtu izin copas buat di test dan di kembangin
ReplyDelete