siszzz
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
вот что то подобное, ... но работает только когда вводиш а =11 и b=16
PROGRAM TablFunc_1;
VAR
a,b,d,x,y,y1,dx : Real;
BEGIN
Writeln('введите min и max');
Writeln('введите a');
Readln(a);
Writeln('введите b');
Readln(b);
y:=a;
y1:=(b-a)/2.83;
x:=0.564;
WHILE y<b DO begin
if y<y1 then dx := 0.2
else dx:=0.25;
d := ((a-b)*(a-b)+ln(y))/(1+sqr(sin(x+y)))+ln((a-b)/y+sqrt(x));
Writeln(d:6:3,' ', y:6:3);
y:= y+dx;
end;
Readln;
END.
смысл должен быть таков - подставили y, высчитали d, к y прибавили интервал и сравниваем его с y1, определям интервал который будет прибавляться, высчитываем d и прибавляем определенный интервал и так далее пока y не будет больше b |
Всего записей: 28 | Зарегистр. 05-07-2011 | Отправлено: 20:04 12-12-2011 | Исправлено: siszzz, 20:10 12-12-2011 |
|
