30.05.2020, 10:27 [+3 UTC]
в нашей команде: 4 573 чел. | участники онлайн: 5 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

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

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

Форум:
29.05.2020, 13:47

Последний вопрос:
30.05.2020, 09:46
Всего: 152518

Последний ответ:
30.05.2020, 10:24
Всего: 260217

Последняя рассылка:
30.05.2020, 02:15

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

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

Наша кнопка:

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

Отзывы о нас:
30.08.2019, 19:44 »
dar777
Это самое лучшее решение! [вопрос № 196231, ответ № 278614]
22.12.2017, 22:24 »
vasily.evchuk
Спасибо огромное вашему сайту, но большей благодарности достойны вы и ваша команда экспертов, вы меня буквально из могилы "вытащили"! Еще раз безмерно вас благодарю! [вопрос № 192216, ответ № 275910]
18.08.2019, 16:04 »
dar777
Это самое лучшее решение! [вопрос № 196113, ответ № 278526]
Наши встречи:

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

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

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

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

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

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

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

Здравствуйте! У меня возникли сложности с таким вопросом:


Записать в Pascale.

Последнее редактирование 25.11.2019, 16:15 Зенченко Константин Николаевич (Старший модератор)

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

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

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

Код (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, 12:29

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

0

[подробно]

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

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

Мини-форум консультации № 197200

Зенченко Константин Николаевич
Старший модератор

ID: 31795

# 1

= общий = | 25.11.2019, 16:26 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
JonMoxley:

В будущем используйте строку "ВВСode":

Строка "Ссылка" используется вместе с кнопкой .
Ну и картинки правильно разворачивайте.
smile

-----
Последнее редактирование 25.11.2019, 16:29 Зенченко Константин Николаевич (Старший модератор)

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

 

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

Rambler's Top100

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

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

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