Program z całkami

Witam!
Chciałam napisac program, obliczający 2 całki z 2 funkcji liniowych. Oto mój program, niestety sie nie komplikuje, jeśli ktoś wie na czym polega błąd proszę o odpowiedź. :)

//*************************************************
//** Obliczanie całki oznaczonej metodą Simpsona **
//** ------------------------------------------- **
//** (C)2004 mgr Jerzy Wałaszek  I LO w Tarnowie **
//*************************************************

program int_simpson;
function f(x : double) : double;
begin
  f := x * x + 2 * x;
end;
const N = 10; //liczba punktów podziałowych
var
  xp,xk,s,st,dx,x : double;
  i : integer;
begin
  writeln('Obliczanie calki oznaczonej');
  writeln;
  writeln('f(x) = x * x + 2 * x');
  writeln;
  writeln('Podaj poczatek przedzialu calkowania');
  writeln;
  write('xp = '); readln(xp);
  writeln;
  writeln('Podaj koniec przedzialu calkowania');
  writeln;
  write('xk = '); readln(xk);
  writeln;
  s  := 0; st := 0;
  dx := (xk - xp) / N;
  for i := 1 to N do
  begin
    x  := xp + i * dx;
    st := st + f(x - dx / 2);
    if i < N then s := s + f(x);
  end;
  s := dx / 6 * (f(xp) + f(xk) + 2 * s + 4 * st);
  writeln('Wartosc calki wynosi : ',s:8:3);
  writeln;
  writeln('Nacisnij klawisz Enter...');
  readln;
end;
  writeln('Obliczanie drugiej calki oznaczonej');
   writeln;
  writeln('f(x) = x * x  * x+ 2 * x');
  writeln;
  writeln('Podaj poczatek przedzialu calkowania');
  writeln;
  write('xp = '); readln(xp);
  writeln;
  writeln('Podaj koniec przedzialu calkowania');
  writeln;
  write('xk = '); readln(xk);
  writeln;
  s  := 0; st := 0;
  dx := (xk - xp) / N;
  for i := 1 to N do
  begin
    x  := xp + i * dx;
    st := st + f(x - dx / 2);
    if i < N then s := s + f(x);
  end;
  s := dx / 6 * (f(xp) + f(xk) + 2 * s + 4 * st);
  writeln('Wartosc calki wynosi : ',s:8:3);
  writeln;
  writeln('Nacisnij klawisz Enter...');
  readln;
end.

Oto mój program

// Obliczanie całki oznaczonej metodą Simpsona
// -------------------------------------------
// (C)2004 mgr Jerzy Wałaszek I LO w Tarnowie

A więc panie Jerzy, panu ten kod od 7 lat się nie kompiluje?

niestety sie nie komplikuje

Jak się nie myśli, się na lekcji nie uważa, to się ma potem takie problemy...
Szkoda, że nie podzielił się pan błędami, panie Jerzy...
Nawet kodu nie potrafi pan porządnie skopiować...
A teraz mamy dla pana zadanie: niech pan gapi się w ten kod dopóty, dopóki nie odnajdzie pan w nim błędu:

  readln;
 end;
   writeln('Obliczanie drugiej calki oznaczonej');

Witam!
No tak wiem, ze sporo błędów, ale jestem dopiero w 3 gimnazjum, więc o całkach nie mam znacznego pojecia, a bierzemy to jakby powiedziec "dla chętnych" , nie wiedziałam jak sie dokońca za to zabrac, wiem skorzystałam z kodu z 1 LO w Tarnowie, ale po to, ze mniej więcej wiedziec jak to zrobic w Free Pascalu , znaczy że dwie funkcje, a nie jedna.Dziękuję, za podpowiedź, żeby skorzystac z pętli.
P.S. Można sie mylic będąc w gimnazjum dopiero, nie jestem na studiach.....

Katrin17 napisał(a)

Witam!
No tak wiem, ze sporo błędów, ale jestem dopiero w 3 gimnazjum, więc o całkach nie mam znacznego pojecia, a bierzemy to jakby powiedziec "dla chętnych" , nie wiedziałam jak sie dokońca za to zabrac, wiem skorzystałam z kodu z 1 LO w Tarnowie, ale po to, ze mniej więcej wiedziec jak to zrobic w Free Pascalu , znaczy że dwie funkcje, a nie jedna.Dziękuję, za podpowiedź, żeby skorzystac z pętli.
P.S. Można sie mylic będąc w gimnazjum dopiero, nie jestem na studiach.....

I powiesz mi po co w gimnazjum kodzić program obliczający całki?

A nie można było sobie wziąć czegoś co się rozumie, lub choćby prostszego? To, że ja rozumiałem zastosowanie całek w gimnazjum nie znaczy, że ty też to ogarniesz. Ja na zakończenie gimnazjum na odczepnego zrobiłem program szyfrujący XOR'em, przy kluczu generowanym przy pomocy SHA512 podzielonym na 4 części i przechaszowanym raz jeszcze. Działało nawet nawet, ale sądzę, że pierwszy lepszy kryptolog by się tym zajął w trymiga.