Проанализируйте приведенную ниже процедуру вывода общего решения. В чем ее отличие от предложенной ранее?
Предложите свой вариант реализации алгоритма. Можно
ли в нем обойтись без цикла и некоторых условий для a, b
и c?
Procedure Diofant2 (a,b,c:Integer);
Var d,x,y,cd,bd,ad:Integer;
Begin
ExEuclid (abs(a),abs(b),d,x,y);1.5. Расширенный алгоритм Евклида 87
If c Mod d<>0 Then WriteLn('ɪɟɲɟɧɢɣ ɧɟɬ')
Else Begin
cd:=Abs(c) Div d;
x:=x*cd;
y:=y*cd;
bd:=Abs(b) Div d;
ad:=Abs(a) Div d;
If x>0 Then bd:=-bd Else ad:=-ad;
While Abs(x+bd)+Abs(y+ad) Do Begin
x:=x+bd;
y:=y+ad;
End;
If a<0 Then Begin x:=-x; bd:=-bd; End;
If b<0 Then Begin y:=-y; ad:=-ad; End;
If c<0 Then Begin
x:=-x; bd:=-bd;
y:=-y; ad:=-ad;
End;
WriteLn(x,' ',bd, '*k');
WriteLn(y,' ',ad, '*k');
End;
End; в Pascal

Program pr;
uses crt;
Var N,M:array[1..15] of integer;
    i,kNp,kMp,kNo,kMo:integer;
Begin
kNp:=0;
kMp:=0;
kNo:=0;
kMo:=0;
Writeln('mas(N)');
for i:=1 to 15 do Begin N[i]:=random(36)-15; Write(N[i],';') end;
Writeln;
Writeln('mas(M)');
for i:=1 to 15 do Begin M[i]:=random(36)-15; Write(M[i],';') end;

for i:=1 to 15 do Begin
                  if N[i]>=0 then kNp:=kNp+1
                             else kNo:=kNo+1;
                  if M[i]>=0 then kMp:=kMp+1
                             else kMo:=kMo+1;
                  end;
Writeln;
Writeln('Кол-во положительных массива N=',kNp);
Writeln('Кол-во отрицательных массива N=',kNo);
Writeln('Кол-во положительных массива M=',kMp);
Writeln('Кол-во отрицательных массива M=',kMo);
readln;
end.

Данная задача является алгоритмом. Мы должны выстроить последовательность действий так,чтобы не остаться в проигрыше.

Цель: перевезти животных и капусту,так,чтобы никто из них не наведил друг другу. Перевозчик-это исполнитель(объект выполняющий действие)

1)Взять козу,переплыть,высадить.

2)Переплыть, взять волка,переплыть,высадить,взять козу,переплыть высадить.

3) Взять капусту, переплыть, высадить.

4)Переплыть,взять козу, переплыть,высадить.

5) Конец алгоритма(4 пункт является результатом последовательно выполненных действий)