Problema: pentru a calcula extremumurile funcției într-un mod iterativ.
În linia:
writeln ('Elementul minim al f (x): X =', iter1);
scapă o eroare.
Spune-mi cum să rezolvi asta
Utilizează CRT;
Const dx = 0,01;
var
x0, xn, x, y: real;
integ: real;
funcția f (x: reală): reală;
începe
rezultat: = sin (x) -cos (2 * x);
se încheie;
funcția iter1 (x0, xn: real): reală;
începe
y: = f (x0);
în timp ce x0 xn face
începe
x0: = x0 + dx;
dacă f (x0)> y atunci
începe
iter2: = f (x0);
se încheie; se încheie;
începe
ClrScr;
începe
writeln ('Introduceți limita inferioară'); readln (x0);
writeln ('Introduceți limita superioară'); readln (xn);
writeln ("Varianta iterativă: ');
writeln ('Elementul minim al f (x): X =', iter1);
writeln ('Elementul maxim al f (x): X =', iter2);
readln; se încheie;
end.
Intră și vorbește - nu se va plictisi!
integ: real;
Nu apelați câteva variabile pentru altele (tipuri). chiar abreviat. Acest lucru este confuz.
în timp ce x0 xn face
Asta este rahatul de neimportant. Dacă doriți să comparați x0 cu x0, comparați-l cu acesta. Și cu mine, pentru a compara, în general, nu are sens.
Ce este iter2. Folosiți-l de 2 ori, dar nu faceți publicitate.
ClrScr;
începe - această alergare sa încheiat. Nu doare, dar nu are sens.