Týmová tvorba programu

Program řešící výpočet kořenů kvadratické rovnice.
Postup tvorby:
team leader vysvětlí problém, uvede dohodu o použitých proměnných
tým č. 1 píše proceduru na vkládání dat
tým č. 2 píše proceduru na výpočet diskriminantu
tým č. 3 píše proceduru na výpočet kořenů
tým č. 4 píše proceduru na zobrazení výsledků
tým č. 5 píše hlavičku programu včetně deklarace proměnných
tým č. 6 píše vlastní program
tým č. 7 ladí program, odstraňuje chyby



neodladěný výsledek:

program kvadrov;

    uses crt;
    var a,b,c,D :real;
         klavesa: integer;

    procedure zadani;
    begin
    writeln('zadej postupne hodnoty a,b,c v rovnici ax^2+bx+c=0');
    readln(a) ;
    readln(b) ;
    readln(c) ;
    end;





procedure diskriminant;
    begin
       D:=a*a-4*a*c;
    end;

procedure vypocet;
 begin
    x1=-b+sqrt(d)/2a
    x2=-b-sqrt(d)/2a
  end.

procedure ZobrVysledku;
          begin
               readln(x1,x2);
               writeln('x1=', x1);
               writlen('x2=', x2);
               else
               writeln('Rovnice nema reseni')
          end;

BEGIN
     zadani;
     diskriminant;
     vypocet;
     ZobrVysledku;
END.