Нахождение наибольшего и наименьшего значения функции.

@геймер · Регистрация: 10.06.2009

Author24 — интернет-сервис помощи студентам

Найти наибольшее и наименьшее значения функции в заданном интервале с заданным шагом:

@Puporev · 15.06.2009, 06:58

Pascal

uses crt;
function F(x:real):real;
begin
F:=x+cos(x*x);
end;
var x,mx,mn:real;
begin
clrscr;
mx:=F(0);
mn:=F(0);
x:=-0.2;
while x<=2 do
 begin
  x:=x+0.2;
  if F(x)>mx then mx:=F(x);
  if F(x)<mn then mn:=F(x);
  writeln('x=',x:4:1,'   F(x)=',F(x):5:2);
 end;
writeln('Max=',mx:5:2,'   Min=',mn:5:2);
readln
end.

16.06.2010, 09:42

А как записать эту программу через repeat ... until с исходными данными ?

@Puporev · 16.06.2010, 11:23

Pascal

1
2
3

repeat
вычисляем
until x>2;

16.06.2010, 11:27

спасибо большое

@геймер 0 / 0 / 0 Регистрация: 10.06.2009 Сообщений: 8
		1
	Нахождение наибольшего и наименьшего значения функции. 15.06.2009, 00:58. Показов 3733. Ответов 4 Метки нет (Все метки) Найти наибольшее и наименьшее значения функции в заданном интервале с заданным шагом: Миниатюры 0

dragonmag
	16.06.2010, 09:42	3
	А как записать эту программу через repeat ... until с исходными данными ?

	16.06.2010, 11:27