Tugas Metnum

program metnum;
uses crt;
var a,a1,b,b1,c,c1,d,d1,e,f,f1,g,g1,h,h1:integer;e1:real;
begin;
clrscr;
a:=10;b:=20;c:=30;d:=40;f:=50;g:=60;h:=70;
a1:=12;b1:=21;c1:=46;d1:=65;f1:=90;g1:=111;h1:=148;
writeln('Jika diketahui tabel kecepatan(mil/jam) dan jarak henti(feet) sbb :');
writeln('Ú-------------------Â-------------------¿');
writeln('³kecepatan (mil/jam)³jarak henti (feet) ³');
writeln('Ã-------------------Å-------------------´');
writeln('³        ',a,'         ³         ',a1,'        ³');
writeln('³        ',b,'         ³         ',b1,'        ³');
writeln('³        ',c,'         ³         ',c1,'        ³');
writeln('³        ',d,'         ³         ',d1,'        ³');
writeln('³        ',f,'         ³         ',f1,'        ³');
writeln('³        ',g,'         ³         ',g1,'       ³');
writeln('³        ',h,'         ³         ',h1,'       ³');
writeln('À-------------------Á-------------------Ù');
write('Cari jarak henti(feet) jika kecepatan adalah : ');readln(e);
if (e>=10) and (e<=20) then
begin
     e1:=((b1-a1)/(b-a))*(e-a)+a1;
     writeln('Ú-------------------Â-------------------¿');
     writeln('³kecepatan (mil/jam)³jarak henti (feet) ³');
     writeln('Ã-------------------Å-------------------´');
     writeln('³        ',a,'         ³         ',a1,'        ³');
     writeln('³       [',e,']        ³         ',e1:2:2,'     ³');
     writeln('³        ',b,'         ³         ',b1,'        ³');
     writeln('³        ',c,'         ³         ',c1,'        ³');
     writeln('³        ',d,'         ³         ',d1,'        ³');
     writeln('³        ',f,'         ³         ',f1,'        ³');
     writeln('³        ',g,'         ³         ',g1,'       ³');
     writeln('³        ',h,'         ³         ',h1,'       ³');
     writeln('À-------------------Á-------------------Ù');
end
else if (e>=20) and (e<=30) then
begin
     e1:=((c1-b1)/(c-b))*(e-b)+b1;
     writeln('Ú-------------------Â-------------------¿');
     writeln('³kecepatan (mil/jam)³jarak henti (feet) ³');
     writeln('Ã-------------------Å-------------------´');
     writeln('³        ',a,'         ³         ',a1,'        ³');
     writeln('³        ',b,'         ³         ',b1,'        ³');
     writeln('³       [',e,']        ³         ',e1:2:2,'     ³');
     writeln('³        ',c,'         ³         ',c1,'        ³');
     writeln('³        ',d,'         ³         ',d1,'        ³');
     writeln('³        ',f,'         ³         ',f1,'        ³');
     writeln('³        ',g,'         ³         ',g1,'       ³');
     writeln('³        ',h,'         ³         ',h1,'       ³');
     writeln('À-------------------Á-------------------Ù');
end
else if (e>=30) and (e<=40) then
begin
     e1:=((d1-c1)/(d-c))*(e-c)+c1;
     writeln('Ú-------------------Â-------------------¿');
     writeln('³kecepatan (mil/jam)³jarak henti (feet) ³');
     writeln('Ã-------------------Å-------------------´');
     writeln('³        ',a,'         ³         ',a1,'        ³');
     writeln('³        ',b,'         ³         ',b1,'        ³');
     writeln('³        ',c,'         ³         ',c1,'        ³');
     writeln('³       [',e,']        ³         ',e1:2:2,'     ³');
     writeln('³        ',d,'         ³         ',d1,'        ³');
     writeln('³        ',f,'         ³         ',f1,'        ³');
     writeln('³        ',g,'         ³         ',g1,'       ³');
     writeln('³        ',h,'         ³         ',h1,'       ³');
     writeln('À-------------------Á-------------------Ù');
end
else if (e>=40) and (e<=50) then
begin
     e1:=((f1-d1)/(f-d))*(e-d)+d1;
    writeln('Ú-------------------Â-------------------¿');
    writeln('³kecepatan (mil/jam)³jarak henti (feet) ³');
    writeln('Ã-------------------Å-------------------´');
    writeln('³        ',a,'         ³         ',a1,'        ³');
    writeln('³        ',b,'         ³         ',b1,'        ³');
    writeln('³        ',c,'         ³         ',c1,'        ³');
    writeln('³        ',d,'         ³         ',d1,'        ³');
    writeln('³       [',e,']        ³         ',e1:2:2,'     ³');
    writeln('³        ',f,'         ³         ',f1,'        ³');
    writeln('³        ',g,'         ³         ',g1,'       ³');
    writeln('³        ',h,'         ³         ',h1,'       ³');
    writeln('À-------------------Á-------------------Ù');
end
else if (e>=50) and (e<=60) then
begin
     e1:=((g1-f1)/(g-f))*(e-f)+f1;
     writeln('Ú-------------------Â-------------------¿');
     writeln('³kecepatan (mil/jam)³jarak henti (feet) ³');
     writeln('Ã-------------------Å-------------------´');
     writeln('³        ',a,'         ³         ',a1,'        ³');
     writeln('³        ',b,'         ³         ',b1,'        ³');
     writeln('³        ',c,'         ³         ',c1,'        ³');
     writeln('³        ',d,'         ³         ',d1,'        ³');
     writeln('³        ',f,'         ³         ',f1,'        ³');
     writeln('³       [',e,']        ³         ',e1:2:2,'     ³');
     writeln('³        ',g,'         ³         ',g1,'       ³');
     writeln('³        ',h,'         ³         ',h1,'       ³');
     writeln('À-------------------Á-------------------Ù');
end
else if (e>=60) and (e<=70) then
begin
     e1:=((h1-g1)/(h-g))*(e-g)+g1;
     writeln('Ú-------------------Â-------------------¿');
     writeln('³kecepatan (mil/jam)³jarak henti (feet) ³');
     writeln('Ã-------------------Å-------------------´');
     writeln('³        ',a,'         ³         ',a1,'        ³');
     writeln('³        ',b,'         ³         ',b1,'        ³');
     writeln('³        ',c,'         ³         ',c1,'        ³');
     writeln('³        ',d,'         ³         ',d1,'        ³');
     writeln('³        ',f,'         ³         ',f1,'        ³');
     writeln('³        ',g,'         ³         ',g1,'       ³');
     writeln('³       [',e,']        ³         ',e1:2:2,'    ³');
     writeln('³        ',h,'         ³         ',h1,'       ³');
     writeln('À-------------------Á-------------------Ù');
end
else
begin
writeln('kecepatan yang anda masukan overdosis');
writeln;
writeln(' ERROR ERROR ERROR ERROR ERROR ERROR ');
end;
readkey;
end.