Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2011, 22:46   #1
NXZ
 
Регистрация: 24.03.2011
Сообщений: 9
По умолчанию Вычислить значения функции.

Вычислить значения функции,используя подпрограмму.Безымянныйsss.JPG
Ни кто еще не решил я в том числе
NXZ вне форума Ответить с цитированием
Старый 06.06.2011, 23:52   #2
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 530
По умолчанию

разбей на две подпрограммы... одна вычисляет факториал, вторая непосредственно значение функции....

в цикле подставляй иксы и проверяй на равенство функции одному

только странно, почему не дано промежутка в котором лежит икс
unbanned вне форума Ответить с цитированием
Старый 07.06.2011, 20:01   #3
NXZ
 
Регистрация: 24.03.2011
Сообщений: 9
По умолчанию

Я как бы не силен в программирование не могли бы помочь,я из-за этого и обратился за помощью.
NXZ вне форума Ответить с цитированием
Старый 07.06.2011, 20:14   #4
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 530
По умолчанию

Код:
function factr(var f: integer): longint;
var
  fact: longint;
begin
  fact := 1;
  if f=0 then exit;
  for f := 1 to f do
  fact := fact*f;
  factr := fact;
end;

function calc(var n:integer):longint;
var
  i:integer;
  y:longint;
begin
  y:=0;
  for i:=1 to 3 do
  y:=y+(i+n)*factr(n);
  calc:=y;
end;

var 
  x:integer;
begin
  for x:= "нижний предел x" to "верхний предел" do
    if calc(x)=1 then writeln(x);
end.
должно типо такого получиться, код не проверял

Последний раз редактировалось unbanned; 07.06.2011 в 20:20.
unbanned вне форума Ответить с цитированием
Старый 07.06.2011, 22:11   #5
NXZ
 
Регистрация: 24.03.2011
Сообщений: 9
По умолчанию По другому

Вы меня извините за дерзость,а можно ведь как то по другому сделать,мне же надо будет защитить программу примерно вот так делали P1010923.jpg
NXZ вне форума Ответить с цитированием
Старый 09.06.2011, 20:43   #6
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 530
По умолчанию

ну я и не говорил что именно так... можно и по другому. просто написал что примерно должно быть (опять же, ИМХО).
unbanned вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вычислить значения функции tapah4ik Помощь студентам 8 29.04.2011 16:38
Вычислить значения функции, найти принадлежит ли точка заштрихованной области на графике(Задачи в Delphi) Dikoder Помощь студентам 1 16.04.2011 11:43
Вычислить значения функции, найти принадлежит ли точка заштрихованной области на графике(Задачи в Delphi) Dikoder Помощь студентам 1 09.04.2011 07:23
Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Хнач. до Хкон. с шагом dX. blondino4ka_milk Общие вопросы C/C++ 2 04.03.2010 16:49
Вычислить значения функции и вывести результаты в виде графика (функцию см.далее) {Please} timepoka Помощь студентам 10 28.02.2010 12:43