Ветвление. Если сумма трех попарно различных действительных чисел x, y, z меньше 1, то наименьшее из этих трех чисел заменить полусуммой двух других

@SkadiReaver · Регистрация: 06.06.2012

Студворк — интернет-сервис помощи студентам

Если сумма трех попарно различных действительных чисел x, y, z меньше 1, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений.

@Lilu666 · 06.06.2012, 14:02

Pascal

uses crt;
var x,y,z,s,min: real;
begin
clrscr;
      write ('vvedite X: '); readln (x);
      write ('vvedite Y: '); readln (y);
      write ('vvedite Z: '); readln (z);
      s:=x+y+z;
      if s<1 then
         begin
              writeln ('summa menshe 1');
              if (x<y) and (x<z) then x:=(y+z)/2
                 else if y<z then y:=(x+z)/2
                      else z:=(x+y)/2;
         end
         else writeln ('summa bolshe 1');
      writeln ('X = ',x:3:2,' Y = ',y:3:2, ' Z = ',z:3:2);
 
readkey;
end.

@SkadiReaver · 06.06.2012, 14:47 **[ТС]**

Огромное спасибо за помощь!

@Mark33 · 11.10.2012, 23:35

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

writeln ('X = ',x:3:2,' Y = ',y:3:2, ' Z = ',z:3:2);

вопрос: зачем x:3:2 y:3:2 z:3:2 ???

@КонецСвета · 12.10.2012, 03:40

Mark33, это формат вывода. почитайте здесь Форматированный вывод вещественного числа

@SkadiReaver 0 / 0 / 0 Регистрация: 06.06.2012 Сообщений: 8
		1
	Ветвление. Если сумма трех попарно различных действительных чисел x, y, z меньше 1, то наименьшее из этих трех чисел заменить полусуммой двух других 06.06.2012, 11:59. Показов 17437. Ответов 4 Метки нет (Все метки) Если сумма трех попарно различных действительных чисел x, y, z меньше 1, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений. 0

@SkadiReaver 0 / 0 / 0 Регистрация: 06.06.2012 Сообщений: 8
	06.06.2012, 14:47 [ТС]	3
	Огромное спасибо за помощь! 0

@Mark33 0 / 0 / 0 Регистрация: 13.09.2012 Сообщений: 13
	11.10.2012, 23:35	4
	Сообщение от Lilu666 writeln ('X = ',x:3:2,' Y = ',y:3:2, ' Z = ',z:3:2); вопрос: зачем x:3:2 y:3:2 z:3:2 ??? 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	12.10.2012, 03:40	5
	Mark33, это формат вывода. почитайте здесь Форматированный вывод вещественного числа 0

Опции темы