ZADANIE 1: 1. Vytvorte program v jazyku Pascal, ktorý vyrieši kvadratickú rovnicu s parametrami a,b,c.
1. Vytvorte program v jazyku Pascal, ktorý vyrieši kvadratickú rovnicu s parametrami a,b,c.
var a,b,c,d:real;
begin
writeln(‚Zadaj koeficienty rovnice A*x*x+B*x+C=0‘);
readln(a,b,c);
if a=0 then
begin
writeln(‚Linearna rovnica‘);
if (b=0) and (c=0) then writeln(‚nekonecne vela rieseni‘);
if (b=0) and (c0) then writeln(‚nema riesenie‘);
if (b0) and (c0) then writeln(‚jedno riesenie: ‚,-c/b:10);
end
else
begin
d:=b*b-4*a*c;
if d0 then
writeln(‚ma dve riesenia ‚,(-b+sqrt(d))/(2*a):10,(-b-sqrt(d))/(2*a):10)
end;
readln
end.
2. Vytvorte prezentáciu na tému „Naša trieda“, ktorá bude obsahovať aspoň 5 snímok, efekty, farebné pozadie, mená aspoň 5 spolužiakov, fotky a hypertextové prepojenia.
