VPF::Max и min с помощью циклов - Форум программистов

rojam

Дата 6.7.2006, 07:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.2.2006

Репутация: нет
Всего: нет

Помогите советом, в решении задачи!
Найдите наибольшее и наименьшее значение функции f(x)=3x^2+x-4, если на заданном промежутке [Xmin;Xmax] аргумент меняется с шагом dx.
Решение только циклами!

Вот мой набросанный исходный код. Уажите на ошибки.

Код


var
 y,xmax,xmin,dx,y1,x,min,max: real;
 i: integer;
begin
 write('Vvedite Xmin: ');
 readln(xmin);
 write('Vvedite Xmax: ');
 readln(xmax);
 write('Vvedite shag dx: ');
 readln(dx);

 x:=xmin;
 y1:= 3*sqr(x)+x-4;
 while x<(xmax+dx/2) do begin
    y:= 3*sqr(x)+x-4;

    if y>y1 then max:=y
    else if y = y1 then y1:=y
    else min:=y;

    if y<y1 then max:=y1
    else if y = y1 then y1:=y
    else min:=y1;

    x:= x+dx;
    y1:=y;
    end;
    writeln('Ymax: ',max:0:2,' Ymin: ', min:0:2);
    readln
end.

Palladin

Дата 6.7.2006, 08:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Писал навскидку smile

Код



Program RooR;
var
xmin,xmax:real;
f,dx,min,max:real;
Writeln('vvedite xmin:');
Readln(xmin);
Writeln('Vvedite xmax');
Readln(xmax);
Writeln('vveddite dx');
Readln(dx);
  if xmax>xmin then 
    begin
      min:=3*xmin*xmin+xmin-4;
      max:=3*xmin*xmin+xmin-4;
         repeat 
           f:=3*xmin*xmin+xmin-4;
           xmin:=xmin+dx;
           if min>f then min:=f;
           if max<f then max:=f;
         until xmax>xmin;
      end;

Writeln('Max функции:',max:4:4);
Writeln('Min функции:',min:4:4);
Writeln('F=',f:4:4);
Readln;
end.

Должно работать smile

Добавлено @ 08:23
Щас просто на экзамен спешу, приду проверю код, но вроде этот должен работать

P.S. Volvo спасибо что репутациию мне скинул, век не забуду, понимаю еслиб за дело smile

Это сообщение отредактировал(а) RooR - 6.7.2006, 08:25

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Palladin

Дата 6.7.2006, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Вот так точно правильно, проверил smile

Код


Program RooR;
var
xmin,xmax:real;
f,dx,min,max:real;
begin
Writeln('vvedite xmin:');
Readln(xmin);
Writeln('Vvedite xmax');
Readln(xmax);
Writeln('vveddite dx');
Readln(dx);
  if xmax>xmin then
    begin
      min:=3*xmin*xmin+xmin-4;
      max:=3*xmin*xmin+xmin-4;
         repeat
           f:=3*xmin*xmin+xmin-4;
           xmin:=xmin+dx;
           if min>f then min:=f;
           if max<f then max:=f;
         until xmax>xmin;
      end;

Writeln('Max:',max:4:4);
Writeln('Min:',min:4:4);
Readln;
end.

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Palladin

Дата 6.7.2006, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Автор ты вообще заходил в топик, отпиши чтонить smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »