Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.03.2017, 12:08
Sempai Sempai вне форума
Прохожий
 
Регистрация: 27.03.2017
Сообщения: 4
Версия Delphi: Delphi 5
Репутация: 10
Лампочка найти f = ((tgX^2) + (Sin^3)X) / (e^-y) - ln|y|

необходимо сделать с подпрограммой функции
найти f=((tgX^2)+(Sin^3)X)/(e^-y)-ln|y| где X и Y- значение минимальный элементов массивов A[N] и B[M] соответственно

Прошу у умных людей помощи т.к сам глупый
Ответить с цитированием
  #2  
Старый 27.03.2017, 18:49
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну. например, так:
Код:
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, Math;

function f(x, y : integer) : double;
begin
  result := (sqr(tan(x))+sqr(sin(x))*sin(x)) / (exp(-1*y)-ln(abs(y)));
end;

function getmin(a : array of integer) : Integer;
var
  i : integer;
begin
  result := a[low(a)];
  for i := low(a)+1 to high(a) do
    if a[i] < result then result := a[i];
end;

procedure randomizearray(var a : array of integer);
var
  i : integer;
begin
  for i := low(a) to high(a) do
    a[i] := random(100);
end;

var
  a, b : array of integer;
  res : double;
  m_a, m_b : integer;

begin
  randomize;
  try
    // create arrays
    setlength(a,random(100));
    setlength(b,random(100));
    randomizearray(a);
    randomizearray(b);

    // find the result
    m_a := getmin(a);
    m_b := getmin(b);
    res := f(m_a,m_b);
    writeln(format('f(%d,%d)=%f',[m_a,m_b,res]));
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо lmikle за это полезное сообщение:
denzenit (12.01.2021), Sempai (28.03.2017)
  #3  
Старый 28.03.2017, 16:56
Sempai Sempai вне форума
Прохожий
 
Регистрация: 27.03.2017
Сообщения: 4
Версия Delphi: Delphi 5
Репутация: 10
По умолчанию

Огромное спасибо
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:16.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter