VPF::Как узнать минимальное и максимальное число

motomen

Дата 13.10.2011, 01:56 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Код


uses crt;

var
  a, b, i, z1, z2, z3,z, k: real;
  
begin

  readln(a, b, i);


  b := b + i;
  repeat
  if a < -1
    then
      z := sqr(a)*a+pi*(a-sqr(sin(a)))
    else
      begin
      if (a < 2) and (0<a) then
        z:=5.2*sqr(10)*sqr(10) + sqr(a) +sqr(cos(a))
      else
        z:=(sqr(sin(a)/cos(a))*(sqr(a) + 3) -a)/(a-pi);
        end;
        writeln('A = ',a:0:2,' <=> ','Z(A) ',z:0:2);
        a := a + i
    until a >= b;
    


    readln;
end.

пол работы я сделал а как найти максимальное и минимальное число?

maniaks1

Дата 13.10.2011, 16:44 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

например создать 2 переменные max,min:real;
перед циклом присвоить их например:

max:=-50000;
min:=50000;

в цикле проверять:

if max<Текущее значение then max:= Текущее значение;
if min>Текущее значение then min:=Текущее значение.

Таким образом после окончания цикла узнаешь максимум и минимум. Это простейший вариант без создания дополнительных массивов.

Минусы способа: нужно правильно задать начальные значения max и min
Плюсы: нет лишних переменных

Но правильнее наверно в цикле заполнять массив, и потом уже работать с ним.
Например методом пузырька.

motomen

Дата 13.10.2011, 20:40 (ссылка)

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

Загрузка ...

Новичок

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

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

спасибо сейчас попробую.

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