Contoh Program Turbo Pascal

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.