Максимальное из трех чисел (pascal)

[fronnya]

Написал прогу для выбора из трех введенных чисел наибольшего. Вот она:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
    x,y,z,max:real;

begin
  writeln ('enter x ');
  readln (x);
  writeln ('enter y ');
  readln (y);
  writeln ('enter z');
  readln (z);
  max:=x;
    if y>x then
      if z>y then
        begin
        max:=z;
        writeln ('max (x,y,z) = ', max:3:3);
        end
             else
        begin
          max:=y;
          writeln ('max (x,y,z) = ', max:3:3);
        end;
    if y<x then
      if z<y then
        begin
        x:=max;
        writeln ('max (x,y,z) = ', max:3:3);
        end
             else
        begin
          if x>z then
            begin
            x:=max;
            writeln ('max (x,y,z) = ', max:3:3);
            end
                 else
            begin
            z:=max;
            writeln ('max (x,y,z) = ', max:3:3);
            end;
        end;
readln;
end.

У меня два вопроса:
1) Как она вам ? Будут ли какие- то комментарии или указания?
2) Как сюда впаять условия для поиска минимального значения? Я делал это, следуя своей "незыблемой" логике, но у меня получались ерунда, не правильно оно определялось.

[мат-ламер]

fronnya в сообщении #953154 писал(а):

1) Как она вам ? Будут ли какие- то комментарии или указания?

Сегодня фильм показывали про графа Калиостро (забыл название). Вопрос там задали мужику: "За сколько дней можешь починить карету?". У меня здесь прямые ассоциации. А если бы вас попросили сделать тоже самое, но чтобы объём программы был бы вдвое больше, то смогли бы справиться с заданием? Вопрос актуальный, поскольку некоторые оценивают сложность программы и кол-во нужных человеко-дней для их разработки по их объёму.

[Progger]

Жесть какая-то (страшно представить, что было бы, если входных значений было больше) . Посмотрите, что программа выдаст при x = y.
Вообще вам не надо рассматривать все варианты, достаточно последовательно сравнить каждое число с максимальным и, если оно больше, изменять делать максимальным. Для минимального аналогично.

[fronnya]

мат-ламер в сообщении #953161 писал(а):

fronnya в сообщении #953154 писал(а):

1) Как она вам ? Будут ли какие- то комментарии или указания?

Сегодня фильм показывали про графа Калиостро (забыл название). Вопрос там задали мужику: "За сколько дней можешь починить карету?". У меня здесь прямые ассоциации. А если бы вас попросили сделать тоже самое, но чтобы объём программы был бы вдвое больше, то смогли бы справиться с заданием? Вопрос актуальный, поскольку некоторые оценивают сложность программы и кол-во нужных человеко-дней для их разработки по их объёму.

Я наоборот хочу максимально укоротить программу.

-- 27.12.2014, 18:29 --

Progger в сообщении #953162 писал(а):

. Посмотрите, что программа выдаст при x = y.

глюк

[electric_retard]

Найдите готовую или напишите свою функцию

float max(float a, float b);

А потом сможете просто написать

max = max(x, max(y, z));

[fronnya]

electric_retard в сообщении #953166 писал(а):

Найдите готовую или напишите свою функцию

float max(float a, float b);

А потом сможете просто написать

max = max(x, max(x, y));

Т.е. функция будет сравнивать только один раз, верно?

[electric_retard]

fronnya
Вызываться будет дважды.
Исправил пред. сообщение.

[fronnya]

electric_retard в сообщении #953170 писал(а):

fronnya
Вызываться будет дважды.
Исправил пред. сообщение.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
procedure bmax (i,j,k :real; Var fmax:real);
    begin
      writeln ('enter x ');
      readln (i);
      writeln ('enter y ');
      readln (j);
      writeln ('enter z');
      readln (k);
        if i>j then
          begin
            fmax:=i;
          end
               else
            fmax:=j;
        if fmax>k then
          begin
            writeln ('max(x,y,z)= ', fmax:3:3);
          end
                  else
            writeln ('max(x,y,z)= ', k:3:3);
    end;


Var
    x,y,z,max, a:real;

begin
bmax (x,y,z,max);
readln;
end.

Уж это куда покороче) Спасибо

[arseniiv]

А теперь добейтесь одного Writeln, и в следующий раз используйте [​syntax] (просто выбираете язык из списка над полем ответа):

Используется синтаксис Delphi

{$APPTYPE CONSOLE}
begin
  // щас каак выведем!
  Writeln("Подсветка синтаксиса радует глаз, и второй глаз тоже!");
end.

-- Вс дек 28, 2014 02:50:15 --

(Кстати, а зачем вам a: Real?)

[Aritaborian]

fronnya, а что, на физфаке на первом курсе есть программирование? И изучают там не Си, а Паскаль? Или вы помимо универа упражняетесь?

[fronnya]

Aritaborian в сообщении #953347 писал(а):

fronnya, а что, на физфаке на первом курсе есть программирование? И изучают там не Си, а Паскаль? Или вы помимо универа упражняетесь?

На всех специальностях, в том числе и на нашей, изучается Delphi, а на компьютерной физике- СИ. Еще Си идет в качестве спецкурса на старших курсах.

[Aritaborian]

Спасибо; не знал.