14.12.2019, 07:28 [+3 UTC]
в нашей команде: 4 066 чел. | участники онлайн: 1 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.79 (12.12.2019)
JS-v.1.35 | CSS-v.3.36

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

Форум:
29.11.2019, 17:59

Последний вопрос:
13.12.2019, 23:25
Всего: 151261

Последний ответ:
14.12.2019, 00:35
Всего: 259569

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

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

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

Наша кнопка:

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

Отзывы о нас:
23.06.2010, 18:03 »
Петров Юрий Иванович
Спасибо, прога работает отлично) [вопрос № 179126, ответ № 262238]
25.08.2019, 22:30 »
dar777
Это самое лучшее решение! [вопрос № 196199, ответ № 278578]

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 695
puporev
Статус: Профессионал
Рейтинг: 463
Gluck
Статус: 10-й класс
Рейтинг: 462

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

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

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