Jak napisać program w Pascalu do obliczania pola pod wykresem funkcji?

Question

Witam :!: Potrzebuję napisać program liczący pole pod wykresem dowolnej funkcji... przy zdefiniowanym przedziale X'ów Z tego co wiem, ma on dzielić pole pod wykresem na b.małe prostokąty i je sumować. Pachnie mi tu całką, której z resztą nie miałem... :/ Program najlepiej w pascalu, VBasic, czy...

radekr · Accepted Answer

Dokładnie, ma to działać tak jak napisałeś. Dzielisz przedział X'ów na odpowiednio dużą ilość podprzedziałów, a następnie sumujesz po tych podprzedziałach iloczyn jego szerokości i wartości funkcji w tym podprzedziale (na jego środku, albo na początku) P.S. Podałem jedynie powierzchowny opis metody, jeśli jest to zadanie na metody numeryczne to jednak radze zerknąć do literatury fachowej, choćby po to aby wiedzieć jak dobrać ilość podprzedziałów, czy też jakim błędem obarczony jest uzyskaną za jej pomocą wynik. P.S.2 Zgodnie z Zasady pisania postów i FAQ Programowanie Ogólne nie można prosić o podanie gotowego rozwiązania problemu, sugeruję więc próbę samodzielnego napisania programu, a w przypadku pojawienia się jakiś konkretnych problemów zadawanie tu pytań, na pewno ktoś pomoże.

zaytzev · Accepted Answer

Szukaj w google pod całkowanie numeryczne.

Stepel · Accepted Answer

dopisać readln;

trelek · Answer

Heh... no nie wiele mi się rozjaśniło, bo to, to ja wiedziałem... bardziej mi chodziło o bardziej techniczny opis, no ale i tak dzięki

Konto nie istnieje · Answer

Można to zrobić w Excelu i VBA. Jak byś chciał to napiszę program w VBA Excela.

trelek · Answer

WojcikW dzięki, ale na razie nie trzeba.. spróbuje zrobić to sam - a nuż się dowartościuje zaytzev wielkie dizęki tylko pojawił się problem. pisze to wszystko w pascalu (no cóż, język szkolny ) i mam problem jak zdefiniować zmienną czy coś, żeby można było podać własną funkcję. by nie była stała, a definiowalna... Ta z linku od zaytzev jest stała... na razie mam tyle : Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaprogram pole pod wykresem; const n=1000; function f(x : real) : real;  / begin                               /   f := x * x;                      /--> potrzeba mi zmienić tą czesć, by  end;                                 /    zamiast stałej, była tu zmienna...                                        / var x1, x2, s, d : real; i : integer; begin write ('podaj początek przedziału x1= '); readln (x1); write ('podaj początek przedziału x2= '); readln (x2); s:=0; d:=(x2-x1)/n; for i:= 1 to n do s:= s+ f(x1 + i*d); s:= s*d; writeln('wartość pola pod wykresem wynosi: ',s:8:3); end. any idea

zaytzev · Answer

Najprościej, jeżeli zrobisz wybór kilku określonych funkcji.
Żeby wprowadzać własną funkcję musiałbyś zrobić parser strumienia wejściowego z konwersją np. na odwrotną notację polską. Ale to jest już dość skomplikowane i raczej zadaje się to studentom na bardziej zaawansowanym poziomie.

trelek · Answer

hehe...

nie to raczej nie dla mnie

A czy mógłbyś napisać fragment kodu, czy coś podobnego, bo szczerze mówiąc nie wiem jak się do tego zabrać. Wiem co masz namyśli, rodzaj :
1. dla x2
2. dla x3
3. dla 2x+13
itd...

tylko ..... " jak " :?:

zaytzev · Answer

Kombinuj. Zakładam, że znasz if i case. Nic więcej Ci nie potrzeba.

trelek · Answer

hm.. jeśli będę mógł zdefiniować na początku kilka funkcji to już chyba wiem jak...

po chwili

zaytzev, masz u mnie piwo :!:

, albo nie 2 :!:

udało się, obyło się bez "if'a" , a case nie znałem, ale się nauczyłem

wszystko śmiga jak malina

oto wynik: (załącznik)

jeszcze raz wielkie dzięki

/tylko pytanie, co mam dopisać na końcu kodu, by się program nie wyłączał do póki nie wcisnę klawisza, bo tak szybko się wyłącza, że nie zauważe wyniku

kompilator: TurboPascal 7.0

trelek · Answer

dzięki works !

Jak napisać program w Pascalu do obliczania pola pod wykresem funkcji?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Podsumowanie tematu