29.05.2020, 04:07 [+3 UTC]
в нашей команде: 4 568 чел. | участники онлайн: 2 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.89 (25.04.2020)
JS-v.1.45 | CSS-v.3.39

Общие новости:
13.04.2020, 00:02

Форум:
28.05.2020, 23:29

Последний вопрос:
28.05.2020, 16:14
Всего: 152510

Последний ответ:
28.05.2020, 18:16
Всего: 260210

Последняя рассылка:
29.05.2020, 01:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
25.03.2011, 04:01 »
Данилов Артем Владимирович
Большое спасибо за быстрый и точный ответ - дело было как раз в данном обновлении [вопрос № 182556, ответ № 266377]
31.03.2010, 08:51 »
Бескровный Дмитрий Петрович
Выражаю благодарность за столь развёрнутый ответ, несколько вариантов решения проблемы - это всегда хорошо, так что отдельное спасибо за альтернативу. [вопрос № 177509, ответ № 260425]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 462
Delph
Статус: 3-й класс
Рейтинг: 317
puporev
Статус: Профессор
Рейтинг: 209

Перейти к консультации №:
 

Консультация онлайн # 197217
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: rail (Посетитель)
Отправлена: 26.11.2019, 22:43
Поступило ответов: 1

Здравствуйте, уважаемые эксперты! 14Прошу вас ответить на следующий вопрос:

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

pascal

Приложение:

Состояние: Консультация закрыта

Здравствуйте, rail!

Смотрите приложение:

Код (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.

Удачи!


Консультировал: Зенченко Константин Николаевич (Старший модератор)
Дата отправки: 28.11.2019, 15:11

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14542 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.89 от 25.04.2020
Версия JS: 1.45 | Версия CSS: 3.39