Pascal Error rossz aktuális paraméterek száma
Célkitűzés: kiszámítja a szélsőértékek függvény iteratív módon.
A parancssorba írja:
writeln ( 'Minimum elem f (x): X =', iter1);
kiüti a hibát.
Kérem, mondja meg, hogyan kell rögzíteni
Felhasználás Crt;
Const dx = 0,01;
var
x0, xn, x, y: real;
integ: real;
f (x: valós): valós;
kezdődik
Eredmény: = sin (x) -cos (2 * x);
végén;
működni iter1 (x0, xn: real): real;
kezdődik
y: = f (x0);
míg x0 xn do
kezdődik
x0: = x0 + dx;
ha f (x0)> y, majd
kezdődik
iter2: = f (x0);
végén; végén;
kezdődik
ClrScr;
kezdődik
writeln ( „Add meg az alsó határ”); readln (X0);
writeln ( „Add meg a felső határt”); readln (xn);
writeln ( 'Iteratív kiviteli alak:');
writeln ( 'Minimum elem f (x): X =', iter1);
writeln ( 'maximális elemnek f (x): X =', iter2);
readln; végén;
végén.
Jönni és beszélgetni - nem fog unatkozni!
integ: real;
Nem szükséges megnevezni néhány változót más (fajta). még rövid. Ez összezavarja.
míg x0 xn do
Nem számított, hogy szar. Ha szükség van összehasonlítani az XH x0, majd hasonlítsa össze vele. És, mint egy általános értelemben nincs jelen.
Mi iter2. Akkor használják, de nem mondta el 2-szer.
ClrScr;
kezd - ez Begin felesleges. Ő nem sérült meg, de a jelentése még nincs jelen.