PROGRAM TIPE DATA STRING

(Menentukan Jenis Kelamin)

program menentukan_jenis_kelamin;

uses crt;

var

        jk:string;

begin

write('Masukan Jenis Kelamin L/P= '); readln(jk);

if (jk='L') then

writeln('Laki-Laki')

else

if (jk='l') then

writeln('laki-laki')

else

if (jk='P') then

writeln('Perempuan')

else

if (jk='p') then

writeln('perempuan')

else

writeln('coba lagi');

readln;

end.