06.12.2019, 16:22 [+3 UTC]
в нашей команде: 4 035 чел. | участники онлайн: 6 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.78 (18.11.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
29.11.2019, 17:59

Последний вопрос:
06.12.2019, 12:38
Всего: 151177

Последний ответ:
05.12.2019, 15:20
Всего: 259536

Последняя рассылка:
06.12.2019, 16:15

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

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

Наша кнопка:

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

Отзывы о нас:
14.01.2010, 18:58 »
Антонов А.В
Спасибо большое не ожидал,что так быстро ответят,спасибо!!! [вопрос № 176040, ответ № 258618]
14.02.2017, 20:27 »
svrvsvrv
Большое спасибо за консультацию. Очень подробно и доступно. [вопрос № 190562, ответ № 274649]
16.10.2017, 21:54 »
svrvsvrv
Спасибо за подробную консультацию! [вопрос № 191493, ответ № 275380]

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 697
puporev
Статус: Профессионал
Рейтинг: 484
Gluck
Статус: 9-й класс
Рейтинг: 446

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

Консультация онлайн # 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.13510 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.78 от 18.11.2019
Версия JS: 1.34 | Версия CSS: 3.35