smirnvlad
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: на отрезке [a;b] с шагом h с приостановкой выдачи результатов через каждые N строк таблицы. Найти максимальное и минимальное значение “y” и соответствующие им значения аргумента “x”. y(x)=(x(в квадрате))*е(в степени -х) а=-2, b=7, h=0.1,N=15
Замечание: Таблица должна иметь следующий вид:
N’ п/п x Y
…. … …
|
Код:
uses crt;
const
N = 15;
var
A,B,H,Y,X: real;
maxx,minx: real;
begin
A:=-2;
B:=7;
H:=0.1;
x:=A;
Write('N p/p ');
Write('X ');
Write('Y ');
Writeln;
minx:=a;
maxx:=a;
while (x>=A) and (x<=B) do
begin
Y := sqr(x)*exp(-x);
if Y<sqr(minx)*exp(-minx) then minx := x;
if Y>sqr(maxx)*exp(-maxx) then maxx := x;
Write((X-A)/H+1:5:0, ' ');
Write(X:7:4,' ');
Write(Y:7:4,' ');
Writeln;
X:=X+H;
if (x<b) and (Trunc((X-A)/H) mod N = N-1) then
while true do if keypressed then begin readkey; break; end;
end;
Writeln('Min: x = ', minx:7:4, ' y = ', (sqr(minx)*exp(-minx)):7:4);
Writeln('Max: x = ', maxx:7:4, ' y = ', (sqr(maxx)*exp(-maxx)):7:4);
end.
|
|
Всего записей: 417 | Зарегистр. 31-03-2009 | Отправлено: 17:35 26-05-2011 | Исправлено: smirnvlad, 21:36 26-05-2011 |
|
