Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как узнать минимальное и максимальное число

Автор: motomen 13.10.2011, 01:56

http://s1.ipicture.ru/ мне надо перебрать в цикле все значения аргумента и функции и вывести минимальное и максимальное значение функции вот код

Код


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

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

max:=-50000;
min:=50000;

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

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

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

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

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

Автор: motomen 13.10.2011, 20:40

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