У меня почти решена одна задачка. Оенчь нужна помощь!!! Необходимо построить таблицу функции У на отрезке [a,b] с шагом h, вводя соответствующую функцию в разделе Function. Найти min и max значения y и соответствующие им значения аргумента. Величину шага h взять равной равной 0.1, если модуль х<1, и 0.2 для других значений х. y=x в степени 7 - 7 в степени x, a=0.1;b=3.0;
program funkcia;
uses crt;
var
x,y,h:real;
function NUM(x,y:real):real;
begin
y:=exp(7*ln(x) - exp(x*ln(7));
writeln ('x=',x:5:2,' ','y=',y:5:3);
readln;
end;
begin
clrscr;
x:=0;
repeat
if abs(x)<1 then
h:=0.1 else
h:=0.2;
x:=x+h;
y:=NUM(x,h);
until x>3;
readln;
end.
М | не забывай про теги. мисс_граффити |
С копированием разобралась, оказывается можно открыть исходники через блокнот. А вот как с остальным??? Неужели никто не знает???
program funkcia;
uses crt;
const n=20;
var
fun: array['x'..'y',1..n] of real;
h:real;
i,mini,maxi: integer;
function NUM(x:real):real;
begin
NUM:=exp(7*ln(x)) - exp(x*ln(7));
end;
begin
clrscr;
i:=1;
mini:=1;
maxi:=1;
fun['x',1]:=0.1;
repeat
if abs(fun['x',i])<1 then
h:=0.1
else
h:=0.2;
fun['y',i]:=NUM(fun['x',i]);
writeln ('x=',fun['x',i]:5:2,' ','y=',fun['y',i]:5:3);
if fun['y',i]<fun['y',mini] then
mini:=i
else
if fun['y',i]>fun['y',maxi] then
maxi:=i;
inc(i);
fun['x',i]:=fun['x',i-1]+h;
until fun['x',i]>3.001;
writeln('max y=',fun['y',maxi]:5:2,' sootv x=',fun['x',maxi]:5:2);
writeln('min y=',fun['y',mini]:5:2,' sootv x=',fun['x',mini]:5:2);
readln;
end.
Спасибо большое!!! Помогли!!! А скобочку да, забыла, но в программе то она у меня была