Получить t=min(k+n,n/k), v=min(3kn, k+2n2), g=min (t-v, t/v)...

@Supirmin · Регистрация: 16.05.2018

Даны действительные числа k, n. Получить

t=min(k+n,n/k), v=min(3kn, k+2n2), g=min (t-v, t/v)

@Puporev · 20.12.2018, 09:49

Pascal

function min(a,b:real):real;
begin
if a<b then min:=a else min:=b;
end;
var k,n,t,v,g:real;
begin
writeln('Введите значения k,n');
readln(k,n);
if k=0 then writeln('Значение t не определено, деление на 0')
else
 begin
  t:=min(k+n,n/k);
  writeln('t=',t:0:2);
 end;
v:=min(3*k*n,k+2*n*n);
writeln('v=',v:0:2);
if v=0 then writeln('Значение g не определено, деление на 0')
else
 begin
  g:=min(t-v,t/v);
  writeln('g=',g:0:2);
 end;
end.

@Supirmin 0 / 0 / 0 Регистрация: 16.05.2018 Сообщений: 83
		1
	Получить t=min(k+n,n/k), v=min(3kn, k+2n2), g=min (t-v, t/v)... 20.12.2018, 06:16. Показов 750. Ответов 1 Метки нет (Все метки) Даны действительные числа k, n. Получить t=min(k+n,n/k), v=min(3kn, k+2n2), g=min (t-v, t/v) 0

Опции темы