1 – OBOZNAMENIE SA – s oblastou z ktorej je uloha
2 – ZADANIE – presna formulacia
3 – ALGORITMUS – Vypracovanie vhodneho postupu
4 – VERIFIKACIA – Overenie spravnosti algoritmu
5 – PROGRAM – Vytvorenie programu
6 – LADENIE – Opravovanie programu
7 – VYSLEDKY – A ich pouzitie
program KvadratickaRovnica;
uses crt;
var a,b,c,d,x1,x2:real;
begin
clrscr;
writeln('Yadaj cisla a,b,c:');
read(a,b,c);
D:=sqr(b)-4*a*c;
if(D>=0)then {vypocet real korenov}
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln('x1=',x1:5:2);
writeln('x2=',x2:5:2);
end
else
writeln('nema riesenie v obore R');
readkey
end.