Witam
Mam problem, musze zrobic prace zaliczeniowa na przedmiot "programowanie" a jestem w tym zielony. po prostu bardziej nadaje sie na grafiak niz na programiste, to troceh dla mnei czarna magia. Prosilbym wiec o mala pomoc.
Mam napisac program w tyrbo pascalu o nazwie "Bisekcja". Mam go również opisac ( cokolwiek to znaczy ).
Udalo mi sie stworzyć coś takiego:
var
a, b, c : real;
eps : real;
begin
writeln('Program znajduje miejsce zerowe funkcji');
writeln('w przedziale [a;b]');
write('Podaj wartosc a : ');
readln(a);
write('Podaj wartosc b: ');
readln(b);
write('Podaj dokladnosc: ');
readln(eps);
repeat
c := (a + b)/2;
if (1 - exp(sin(a)cos(a)))(1 - exp(sin(c)*cos(c))) < 0
then
b := c
else
a := c;
writeln(c);
until abs(1 - exp(sin(c)*cos(c))) < eps;
{ badamy wartość bezwzględną! }
writeln('Miejsce zerowe: c = ',c8);
readln;
end.
Moglby mi ktos pomoc ? Skorygowac ewentyalne błedy, wytlumaczyc o co w tycm chodzi, a przede wszystkim pomoc w opisaniu tego programu ? Bo nawet nie wiem co mam pisac.
Pozdrawiam
Ronek