Нахождение min оформить в виде функции, а вычисление и введение ai, bi, ci-в виде процедур

@Katiny · Регистрация: 27.12.2013

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

Заданные действительные числа a1, a2, a3; b1, b2, b3; c1, с2, с3.

если

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\left|min({a}_{1},{a}_{2},{a}_{3}) \right|>10,$

получить:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?min({b}_{1},{b}_{2},{b}_{3})+min({c}_{1},{c}_{2},{c}_{3})$ ,

в ином случае получить:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?1+[min(\sum_{i:=1}^{3}{a}_{i},\sum_{i:=1}^{3}{b}_{i},\sum_{i:=1}^{3}{c}_{i}]^2$ ,

предварительные данные задавать самостоятельно; нахождение min оформить в виде функции, а вычисление и введение ai, bi, ci-в виде процедур.

Вот общий вид формулы:

Кликните здесь для просмотра всего текста

$https://www.cyberforum.ru/cgi-bin/latex.cgi?e=\begin{cases} & \min({b}_{1},{b}_{2},{b}_{3})+min({c}_{1},{c}_{2},{c}_{3}),\\<br /> & \ 1+[min(\sum_{i:=1}^{3}{a}_{i},\sum_{i:=1}^{3}{b}_{i},\sum_{i:=1}^{3}{c}_{i}]^2\end{cases}$

@Puporev · 28.12.2013, 08:08

Pascal

uses crt;
function min(a1,a2,a3:real):real;
var mn:real;
begin
if a1<a2 then mn:=a1 else mn:=a2;
if a3<mn then mn:=a3;
min:=mn
end;
procedure sum(a1,a2,a3:real;var s:real);
begin
s:=a1+a2+a3
end;
var a1,a2,a3,b1,b2,b3,c1,c2,c3,m,sa,sb,sc,e:real;
begin
clrscr;
writeln('Введите  значения a1,a2,a3:');
readln(a1,a2,a3);
writeln('Введите  значения b1,b2,b3:');
readln(b1,b2,b3);
writeln('Введите  значения c1,c2,c3:');
readln(c1,c2,c3);
m:=abs(min(a1,a2,a3));
writeln('Модуль минимума А=',m:0:2);
if m>10 then e:=min(b1,b2,b3)+min(c1,c2,c3)
else
 begin
  sum(a1,a2,a3,sa);
  sum(b1,b2,b3,sb);
  sum(c1,c2,c3,sc);
  e:=1+sqr(min(sa,sb,sc));
 end;
write('e=',e:0:2);
readln
end.

@Katiny 1 / 1 / 3 Регистрация: 27.12.2013 Сообщений: 25
		1
	Нахождение min оформить в виде функции, а вычисление и введение ai, bi, ci-в виде процедур 28.12.2013, 00:42. Показов 1586. Ответов 1 Метки нет (Все метки) Заданные действительные числа a1, a2, a3; b1, b2, b3; c1, с2, с3. если $https://www.cyberforum.ru/cgi-bin/latex.cgi?\left\|min({a}_{1},{a}_{2},{a}_{3}) \right\|>10,$ получить: $https://www.cyberforum.ru/cgi-bin/latex.cgi?min({b}_{1},{b}_{2},{b}_{3})+min({c}_{1},{c}_{2},{c}_{3})$ , в ином случае получить: $https://www.cyberforum.ru/cgi-bin/latex.cgi?1+[min(\sum_{i:=1}^{3}{a}_{i},\sum_{i:=1}^{3}{b}_{i},\sum_{i:=1}^{3}{c}_{i}]^2$ , предварительные данные задавать самостоятельно; нахождение min оформить в виде функции, а вычисление и введение ai, bi, ci-в виде процедур. Вот общий вид формулы: Кликните здесь для просмотра всего текста $https://www.cyberforum.ru/cgi-bin/latex.cgi?e=\begin{cases} & \min({b}_{1},{b}_{2},{b}_{3})+min({c}_{1},{c}_{2},{c}_{3}),\\<br /> & \ 1+[min(\sum_{i:=1}^{3}{a}_{i},\sum_{i:=1}^{3}{b}_{i},\sum_{i:=1}^{3}{c}_{i}]^2\end{cases}$ 0

	28.12.2013, 08:08

Нахождение min оформить в виде функции, а вычисление и введение ai, bi, ci-в виде процедур

Решение