B.PAS

program b;
uses crt,graph;
var
  k,treiber,modus:integer;
  v,x,t,dt:real;
  wahl:char;
  ortx1,ortx2,ortx3:string;


procedure graphik;
begin
  treiber:=detect;
  initgraph(treiber,modus,'');
  setbkcolor(1);
  setcolor(15);
  line(10,30,630,30);
  line(10,450,630,450);
  line(10,30,10,450);
  line(630,30,630,450);
  str(v:4:2,ortx1);
  outtextxy(445,380,ortx1);
  outtextxy(400,380,'v =        m/s');
  outtextxy(400,400,'t =        s');
  outtextxy(400,420,'x =        m');
  outtextxy(235,15,'Gleichf”rmige Bewegung ');
      outtextxy(35,460,'v vergrӇern (V)    v verkleinern (v)        starten (s)    beenden (b)');
end;

procedure setz;
begin
  setcolor(15);
  str(t:4:2,ortx2);
  outtextxy(445,400,ortx2);
  str(x:4:2,ortx3);
  outtextxy(445,420,ortx3);
  setfillstyle(1,12);
  sector(120+round(80*x),240,0,360,3,3);
end;

procedure loesch;
begin
  setcolor(1);
  outtextxy(445,400,ortx2);
  outtextxy(445,420,ortx3);
  setfillstyle(1,1);
  sector(120+round(80*x),240,0,360,3,3);
end;

procedure setz1;
begin
  setcolor(15);
  str(v:4:2,ortx1);
  outtextxy(445,380,ortx1);
end;

procedure loesch1;
begin
  setcolor(1);
  outtextxy(445,380,ortx1);
end;


procedure auswahl;
begin
  wahl:=' ';
  repeat
    if keypressed then wahl:=readkey;
    case wahl of
    's':
    begin
      loesch;
      t:=0;
      x:=v*t;
      setz;
      delay(10000);
      repeat
        loesch;
        t:=t+dt;
        x:=v*t;
        setz;
      until x>=5;
    wahl:=' ';
    end;
    'v':
    begin
      if v>=0.2 then
      begin
        loesch1;
        v:=v-0.1;
        setz1;
      end;
      wahl:=' ';
    end;
    'V':
    begin
      loesch1;
      v:=v+0.1;
      setz1;
      wahl:=' ';
    end;
  end;
  until wahl='b';
end;

{MAIN}
begin
  v:=1.5;
  t:=0;
  x:=v*t;
  dt:=0.001;
  graphik;
  setz;
  auswahl;
end.