27.12.2010, 21:05 | #1 (permalink) |
Новичок
Регистрация: 27.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Условный оператор
решение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. Как сократить решение? Чё-то я не вдуплю(( |
27.12.2010, 21:05 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Просмотрите содержимое этих ссылок, может быть что то найдете Turbo Pascal. Оператор CASE Оператор выбора CASE. Решить задачу, используя оператор repeat. |
27.12.2010, 21:30 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да... фундаментальный труд, что и говорить... Но вообще-то можно числа упорядочить и попроще, например, методом "пузырька". Вот так:
Код:
VAR x1,y1,z1,x2,y2,z2:Integer; BEGIN Write('x= '); ReadLn(x1); Write('y= '); ReadLn(y1); Write('z= '); ReadLn(z1); If x1>y1 then begin x2:=y1; y2:=x1; end else begin x2:=x1; y2:=y1; end; If y2>z1 then begin z2:=y2; y2:=z1; end else z2:=z1; If x2>y2 then begin x1:=x2; x2:=y2; y2:=x1; end; WriteLn(x2,' ',y2,' ',z2); ReadLn; END. |
27.12.2010, 21:58 | #5 (permalink) |
Новичок
Регистрация: 27.12.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
ладно, спасибо
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
30.12.2010, 09:46 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Могли бы. Но, хотя здесь это и не приветствуется, в данном случае считаю уместным предложить Вам набрать в любом поисковике "метод пузырька", и Вы получите кучу ссылок на OnLine публикации, где будет и сам метод рассмотрен, и примеры реализации на различных языках программирования приведены. Начните с этого. А вот если что-то будет непонятно - обращайтесь.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|