Показать сообщение отдельно
Старый 27.12.2010, 21:05   #1 (permalink)
Major_Pain
Новичок
 
Регистрация: 27.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Условный оператор

Задача: значения переменных x,y,z поменять местами так, чтобы оказалось x<y<z;
решениеrogram n6;
var x1,y1,z1,x2,y2,z2:integer;
begin
writeln ('x1=','y1=','z1='); readln(x1,y1,z1);
if (z1>y1) and (z1>x1) and (y1>x1)
then begin writeln ('x1=',x1,' y1=',y1,' z1=',z1); end;
if (z1>y1) and (z1>x1) and (y1<x1) then begin
x2:=y1; y2:=x1; z2:=z1;
writeln('x2=',x2,' y2=',y2,' z2=',z2); end;
if (z1>y1) and (z1<x1) and (x1>y1)
then begin x2:=y1; y2:=z1; z2:=x1;
writeln('x2=',x2,' y2=',y2,' z2=',z2);end;
if (y1>x1) and (y1>z1) and (x1>z1) then begin
z2:=y1; y2:=x1; x2:=z1; writeln('x2=',x2,' y2=',y2,' z2=',z2);end;
if (y1>x1) and (y1<z1) and (x1>z1) then begin
z2:=y1; y2:=x1; x2:=z1; writeln('x2=',x2,' y2=',y2,' z2=',z2); end;
if (x1>y1) and (x1>z1) and (y1>z1) then begin
x2:=z1; y2:=y1; z2:=x1; writeln('x2=',x2,' y2=',y2,' z2=',z2); end;
if (y1>z1)and (y1>x1) and (z1>x1) then begin
z2:=y1; y2:=z1; x2:=x1; writeln('x2=',x2,' y2=',y2,' z2=',z2); end;
end.

Как сократить решение? Чё-то я не вдуплю((
Major_Pain вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070