freepascal.ru

Я посмотрел в ответы, я немного понимаю код к этой главе, но не совсем понимаю, выбранный автором математический алгоритм, не могли бы вы мне его объяснить?
А так же почему здесь применяется оператор begin

Код: Выделить всё

if (X>=Y) and (X>=Z)
then { X – длина кирпича }
if Y<Z
then begin Hk:=Y; Sk:=Z end
else begin Hk:=Z; Sk:=Y end

Добавлено спустя 7 минут 48 секунд:
Код из "Ответы на а слабо!"

Код: Выделить всё

Г) В стене прорублено сквозное прямоугольное отверстие со сторонами A и B.
Пусть ваша программа определит, пройдет ли в него кирпич с ребрами X, Y, Z.
Соотношение между сторонами неизвестно, и программе самой следует выяснить высоту
и ширину, как отверстия, так и кирпича.
var A, B : integer; { стороны отверстия }
X, Y, Z : integer; { стороны кирпича }
H, S : integer; { высота и ширина отверстия, H <= S }
Hk, Sk : integer; { высота и ширина кирпича, Hk <= Sk}
begin
Write('Введит две стороны отверстия: '); Readln(A, B);
Write('Введите три стороны кирпича: '); Readln(X, Y, Z);
{ Формируем высоту (H) и ширину (S) отверстия }
if A<B
then begin H:=A; S:=B end
else begin H:=B; S:=A end;
{ Формируем высоту (Hk) и ширину (Sk) кирпича }
if (X>=Y) and (X>=Z)
then { X – длина кирпича }
if Y<Z
then begin Hk:=Y; Sk:=Z end
else begin Hk:=Z; Sk:=Y end
else if (Y>=X) and (Y>=Z)
then { Y – длина кирпича }
if X<Z
then begin Hk:=X; Sk:=Z end
else begin Hk:=Z; Sk:=X end
else { Z – длина кирпича }
if X<Y
then begin Hk:=X; Sk:=Y end
else begin Hk:=Y; Sk:=X end;
{ формируем решение }
if (H>=Hk) and (S>=Sk)
then Writeln ('Проходит')
else Writeln ('Не проходит');
Readln;
end.

Не проще было бы просто воспользоваться операцией сравнения сравнив параметры окна и самого кирпича?

Eskin писал(а):математический алгоритм

Определяем меньшую и большую стороны отверстия, определяем пару меньших измерений кирпича, проверяем, что два меньших размера кирпича поэлементно меньше или равны размерам отверстия.

begin ... end -- составной оператор -- нужен, когда на месте одного оператора нужно записать несколько.

Добавлено спустя 5 минут 15 секунд:
Другой вариант ровно о том же:

Код: Выделить всё

procedure swp(var a, b: Integer);
var t: Integer;
begin
  t:=a; a:=b; b:=t;
end;
var a, b, x, y, z: Integer;
begin
  Write('A B X Y Z: '); ReadLn(a,b,x,y,z);
  if a>b then swp(a,b);
  if x>y then swp(x,y);
  if y>z then swp(y,z);
  if x>y then swp(x,y);
  WriteLn((a>=x) and (b>=y));
end.


Eskin писал(а):Не проще было бы просто воспользоваться операцией сравнения сравнив параметры окна и самого кирпича?

Так именно это мы и делаем: сравниваем высоту кирпича и отверстия (два мЕньших числа) и их ширину (два бОльших числа). Но сначала выясняем эти бОльшие и мЕньшие числа.
Решение от bormant мне нравится , но надо заметить, что на этапе 14-й главы читатель ещё не знаком с процедурами

Oleg_D писал(а):надо заметить, что на этапе 14-й главы читатель ещё не знаком с процедурами

Ага.. раз он не знает о процедурах, значит он не знает и о "запрете" на использование goto! Соответственно наивного читателя можно совсем запутать и предложить ему вот такое "очень вредное" решение , т.к. оно позволяет лучше понять begin end:

Код: Выделить всё

var a, b, x, y, z, t, count, max, min: Integer;
label myRepeat;
begin
  Write('A B X Y Z: '); ReadLn(a,b,x,y,z);
  count := 1;  max := a;  min := b;
  myRepeat:
  if max < min then begin t:=max; max:=min; min:=t; end;
  inc(count);
  case count of
    2:begin a := max; b := min; max := x; min := y; end;
    3:begin x := min; y := max; max := z; min := y; end;
    4:begin y := min; z := max; max := x; min := y; end;
  end;
  if count < 5 then goto myRepeat;
  x := max; y := min;
  WriteLn((a>=x) and (b>=y));
end.


vitaly_l писал(а):Ага.. раз он не знает о процедурах, значит он не знает и о "запрете" на использование goto!

1. Не запрет, а рекоментацию не использовать.
2. Не факт. что это действительно так. Я бы его озвучивал одновременно с разговором о собственно goto/
3. Не смешно. Создается впечатление о тебе как о человеке программирующем исключительно в машинных кодах. И не знающем даже о команде Loop.

Лекс Айрин писал(а):3. Не смешно.

Да ты прав, с циклами - выглядит смешнее:

Код: Выделить всё

var a, b, x, y, z, t, count, max, min: Integer;
begin
  Write('A B X Y Z: '); ReadLn(a,b,x,y,z);
  max := a; min := b;
  for count := 2 to 4 do begin
      if max < min then begin t:=max; max:=min; min:=t; end;
      case count of
        2:begin a := max; b := min; max := x; min := y; end;
        3:begin x := min; y := max; max := z; min := y; end;
        4:begin y := min; z := max; max := x; min := y; end;
      end;
  end;
  x := max; y := min; WriteLn((a>=x) and (b>=y));
end.