Составить программу нахождения значений чисел.

@leito.pr · Регистрация: 04.04.2011

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

1) a=(L+2k)/k, b=(2L-k)/(L+L), c=Lk-2. Обчислити і вивести на друк число q=max(min(a,b),c).

@MegaAce · 09.04.2011, 15:49

Pascal

var a,b,c,L,k:real;
 
function min(a,b:real):real;
begin
 if a<b then min:=a
  else min:=b;
end;
 
function max(a,b:real):real;
begin
 if a>b then max:=a
  else max:=b;
end;
 
begin
 readln(L,k);
 a:=(L+2*k)/k;
 b:=(2*l-k)/(L+L);
 c:=L*k-2;
 writeln(a:5:2);
 writeln(b:5:2);
 writeln(c:5:2);
 write('max(min(',a:5:2,',',b:5:2,'),)',c:5:2,')');
 writeln(max(min(a,b),c):5:2);
end.

@leito.pr 1 / 1 / 0 Регистрация: 04.04.2011 Сообщений: 42
		1
	Составить программу нахождения значений чисел. 09.04.2011, 15:32. Показов 1038. Ответов 1 Метки нет (Все метки) 1) a=(L+2k)/k, b=(2L-k)/(L+L), c=Lk-2. Обчислити і вивести на друк число q=max(min(a,b),c). 0

	09.04.2011, 15:49

Составить программу нахождения значений чисел.

Решение