Условный оператор

Major_Pain · 27.12.2010, 21:05

Задача: значения переменных 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.

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

Vladimir_S · 27.12.2010, 21:30

Да... фундаментальный труд, что и говорить... Но вообще-то можно числа упорядочить и попроще, например, методом "пузырька". Вот так:

Код:

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.

Major_Pain · 27.12.2010, 21:47

а если решать через максимум и минимум, как она будет выглядеть?

Vladimir_S · 27.12.2010, 21:54

Цитата:

Сообщение от Major_Pain

а если решать через максимум и минимум, как она будет выглядеть?

А вы попробуйте - сразу и увидите, как.

Major_Pain · 27.12.2010, 21:58

ладно, спасибо

jax · 30.12.2010, 07:35

я только учюсь писать программы,и меня заинтересовала словосочетание - метод пузырька,вы могли объяснить его.

Vladimir_S · 30.12.2010, 09:46

Цитата:

Сообщение от jax

я только учюсь писать программы,и меня заинтересовала словосочетание - метод пузырька,вы могли объяснить его.

Могли бы. Но, хотя здесь это и не приветствуется, в данном случае считаю уместным предложить Вам набрать в любом поисковике "метод пузырька", и Вы получите кучу ссылок на OnLine публикации, где будет и сам метод рассмотрен, и примеры реализации на различных языках программирования приведены. Начните с этого. А вот если что-то будет непонятно - обращайтесь.

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. Как сократить решение? Чё-то я не вдуплю((

27.12.2010, 21:30	#2 (permalink)
Vladimir_S Специалист Регистрация: 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:47	#3 (permalink)
Major_Pain Новичок Регистрация: 27.12.2010 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	усл оператор а если решать через максимум и минимум, как она будет выглядеть?

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

27.12.2010, 21:05
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Просмотрите содержимое этих ссылок, может быть что то найдете Turbo Pascal. Оператор CASE Оператор выбора CASE. Решить задачу, используя оператор repeat.

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

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

30.12.2010, 07:35	#6 (permalink)
jax Технарёнок Регистрация: 30.12.2010 Сообщений: 77 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	я только учюсь писать программы,и меня заинтересовала словосочетание - метод пузырька,вы могли объяснить его.