Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197217
26.11.2019, 22:43
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! 14Прошу вас ответить на следующий вопрос:

Напишите программу, с использованием пользовательской функции, которая вычисляет u = min(a, b),
v = min(ab, a+b), min(u+v2, 3.14), где a и b действительные числа.

pascal

Приложение:
pascal

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
28.11.2019, 15:11
общий
это ответ
Здравствуйте, rail!

Смотрите приложение:
[code lang=pascal]type
f=function(a:real):real;
{$F+}
function f2(a:real):real;
begin
f2:=a*a
end;
function fe(a:real):real;
begin
fe:=exp(a)
end;
function fs(a:real):real;
begin
fs:=(exp(a)-exp(a))/2
end;
{$F-}
function fmin(a,b:real):real;
begin
if a>b then fmin:=b
else fmin:=a
end;
var
a:integer;
b:f;
x,y,z:real;
begin
write('Enter X:=');readln(x);
write('Enter Y:=');readln(y);
write('Enter Z:=');readln(z);
repeat
write('select function:',#10,#13,'1-x^2',#10,#13,'2-sh(x)',#10,#13,'3-e^x');
readln(a);
until a in[1..3];
case a of
1:b:=f2;
2:b:=fs;
3:b:=fe;
end;
if fmin(b(x),y)<>0then writeln('Result:=',fmin(b(x)+y,y-z)/fmin(b(x),y))
else writeln('Result - undefined')
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа