PROGRAM FUNGSI_SARAF_KRANIAL;
uses crt;
VAR pil:integer;
BEGIN
clrscr;
gotoxy(30,4);writeln(‘”FUNGSI SARAF KRANIAL”’);
gotoxy(33,7);write(’01. Olfaktori’);
gotoxy(33,8);write(’02. Optikus’);
gotoxy(33,9);write(’03. Okulamotorik’);
gotoxy(33,10);write(’04. Troklearis’);
gotoxy(33,11);write(’05. Trigeminus’);
gotoxy(33,12);write(’06. Abdusen );
gotoxy(33,13);write(’07. Fasialis’);
gotoxy(33,14);write(’08. Versibulus’);
gotoxy(33,15);write(’09. Glosofaringus’);
gotoxy(33,16);write(’10. Vagus’);
gotoxy(33,17);write(’11. Asesori’);
gotoxy(33,18);write(’12. Hipoglosus’);
gotoxy(35,22);write(‘PILIHAN : ‘);
read(pil);
READLN;
if pil=1 then
BEGIN
clrscr;
gotoxy(5,12);write(‘Menerima rangsang dari hidung
untuk diproses di otak menjadi sensasi bau.’);
end;
if pil=2 then
BEGIN
clrscr;
gotoxy(4,12);write(‘Menerima rangsang dari mata
untuk diproses di otak menjadi persepsi visual.’);
end;
if pil=3 then
BEGIN
clrscr;
gotoxy(20,12);write(‘Menggerakkan otot mata ke kiri
dan ke kanan.’);
end;
if pil=4 then
BEGIN
clrscr;
gotoxy(27,12);write(‘Mengatur daya akomodasi
mata.’);
end;
if pil=5 then
BEGIN
clrscr;
gotoxy(31,12);write(‘Menggerakkan rahang.’);
end;
if pil=6 then
BEGIN
clrscr;
gotoxy(32,12);write(‘Memutar bola mata.’);
end;
if pil=7 then
BEGIN
clrscr;
gotoxy(27,12);write(‘Menciptakan ekspresi muka.’);
end;
if pil=8 then
BEGIN
clrscr;
gotoxy(14,12);write(‘Menerima rangsang untuk
diproses di otak menjadi suara.’);
end;
if pil=9 then
BEGIN
clrscr;
gotoxy(3,12);write(‘Menerima rangsang dari posterior
lidah untuk diproses di otak sebagai rasa.’);
end;
if pil=10 then
BEGIN
clrscr;
gotoxy(25,12);write(‘Mengatur kerja organ bagian
dalam.’);
end;
if pil=11 then
BEGIN
clrscr;
gotoxy(17,12);write(‘Menggerakkan otot faring,
laring, dan otot leher.’);
end;
if pil=12 then
BEGIN
clrscr;
gotoxy(22,12);write(‘Menggerakkan otot lidah dan
otot leher.’);
end;
READKEY;
END.
