plocha_pod_grafem [Programování]

Zadání

Napište program, který přečte meze intervalu, tj. čísla a a b, a spočítá plochu pod grafem funkce sin(5cosx), a to tak, že interval (a; b) rozdělí na spoustu malých podintervalů a aproximuje celkovou plochu jako součet ploch obdelníků které budou těmito podintervaly a grafem vytyčeny.

Řešení

 
const DELTA = 0.001; {delka obdelnicku}
 
var A,               {dolni mez intervalu}
    B,               {horni mez intervalu}
    TMP,             {pomocna promenna}
    X,               {X-ova souradnice aktualniho obdelnicku}
    Y,               {X-ova souradnice horniho rohu aktualniho obdelnicku}
    OBD,             {plocha aktualniho obdelnicku}
    PLOCHA: real;    {vysledna plocha}
 
 
begin
  {nacteme meze}
  readln(A);
  readln(B);
 
  {k teto promenne pricitame plochy obdelnicku, zatim jsme zadny obdelnicek nepricetli}
  PLOCHA := 0;
 
  {kdyby uzivatel zadal horni mez mensi nez dolni, pak prohodime horni a dolni mez}
  if A > B then begin
    TMP := A; A := B; B := TMP;
  end;
 
  if A < B then begin
    {zacneme dolni mezi intervalu}
    X := A;
 
    {posunujeme se vpravo k horni mezi, v kazdem kroku se posumene o DELTA}
    while X <= (B - DELTA) do begin
      {spocitame vysku obdelnicku}
      Y := Sin(5*(Cos(X + DELTA / 2)));
 
      {spocitame plochu obdelnicku a pricteme ji k celkove plose}
      OBD:= Y * DELTA;
      PLOCHA := PLOCHA  + OBD;
 
      {posuneme se doprava o DELTA, tj. o sirku odbelnicku}
      X := X + DELTA;
    end;
 
  end;
 
  {vypis vysledku}
  writeln('Plocha je ', PLOCHA, 'jednotek ctverecnych.');
  readln;
 
end.