Цитата:
Сообщение от Рома123
4) упорядочить значения трёх переменных a,b и c в порядке их убывания.
|
Тут есть куча способов. Например, так. Поясняю:
1. Введены вспомогательные функции поиска максимума двух (Max2) и (Max3) чисел.
2. Из трех введенных ищется максимальное.
3. Если это не первое из них (а), то путем обмена переменной а присваивается максимальное значение, а бывшей максимальной (b или c) - старое значение переменной а.
4. Делается аналогичная манипуляция по двум оставшимся переменным (b и c).
Код:
Var
a,b,c,d,m:Real;
Function Max2(q1,q2:real):real;
begin
if q1>q2 then Max2:=q1 else Max2:=q2;
end;
Function Max3(q1,q2,q3:real):real;
var p:real;
begin
p:=max2(q1,q2);
if p>q3 then Max3:=p else Max3:=q3;
end;
Begin
Write('a = ');
Readln(a);
Write('b = ');
Readln(b);
Write('c = ');
Readln(c);
m:=Max3(a,b,c);
if m=b then
begin
d:=a;
a:=b;
b:=d;
end;
if m=c then
begin
d:=a;
a:=c;
c:=d;
end;
m:=Max2(b,c);
if m=c then
begin
d:=b;
b:=c;
c:=d;
end;
Writeln(a:0:3,' ',b:0:3,' ',c:0:3);
Readln
End.