Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Составить в Turbo Pascal программу, используя пользовательские функции. Сама программа должна быть как можно меньше, соответственно, раздел описания

10-11 класс

функций больше.

F=n!/(a-b) + (n-1)!/(a^2 - b^2) + ... + 1/(a^n - b^n)

F = \frac{n!}{a-b} + \frac{(n-1)!}{a^{2} -b^{2} } + ... + \frac{1}{a^{n} - b^{n}}

Tatamelina2011 28 янв. 2017 г., 2:56:31 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Wwwavaraaz
28 янв. 2017 г., 4:40:27 (7 лет назад)

function Fact(n:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 2 to n do

    rez := rez * i;

  Fact := rez;

end;

 

function Pow(a, x:integer):integer;

var

  rez, i:integer;

begin

  rez := 1;

  for i := 1 to x do

    rez := a * rez;

  Pow := rez;

end;

 

var

  a, b, n, i:integer;

  F:real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('n = '); readln(n);

  F := 0;

  for i := 1 to n do

    F := F + Fact(n - i + 1)/(Pow(a,i) - Pow(b, i));

  writeln('F = ', F);

end.

 

Ответить

Другие вопросы из категории

Вычислить сумму (QBasic)
В программе описан одномерный целочисленный массив А с индексами от 1 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов

массива сначала задаются, а затем меняются.
for i:=1 to 10 do

A[i]:=5*i;

for i:=1 to 10 do begin
k:= A[i]-2

A[10-i+1]:=k;

end;

Чему будут равны элементы этого массива?

1) 1 6 11 16 21 23 18 13 8 3

2) 3 8 13 18 23 28 33 38 43 48

3) 48 43 38 33 28 23 18 13 8 3

4) 1 6 11 16 21 26 31 36 41 46

ДУЖЕ ТРЕБА!!!!!!!!!!!!!!!!

допоможіть розібрати коди в делфі(напишіть що це все означає)
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='' then ShowMessage('Ïóñò³ çíà÷åííÿ íåäîïóñòèì³') else
if edit2.Text='' then ShowMessage('Ïóñò³ çíà÷åííÿ íåäîïóñòèì³') else
if edit3.Text='' then ShowMessage('Ïóñò³ çíà÷åííÿ íåäîïóñòèì³') else
if edit4.Text='' then ShowMessage('Ïóñò³ çíà÷åííÿ íåäîïóñòèì³') else
if edit5.Text='' then ShowMessage('Ïóñò³ çíà÷åííÿ íåäîïóñòèì³')else
if edit6.Text='' then ShowMessage('Ïóñò³ çíà÷åííÿ íåäîïóñòèì³')else
begin
edit7.Text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit4.Text));
edit10.Text:=floattostr(strtofloat(edit7.Text)/100*13);
edit13.Text:=floattostr(strtofloat(edit7.Text)-strtofloat(edit10.Text));
edit8.Text:=floattostr(strtofloat(edit2.Text)*strtofloat(edit5.Text));
edit11.Text:=floattostr(strtofloat(edit8.Text)/100*13);
edit14.Text:=floattostr(strtofloat(edit8.Text)-strtofloat(edit11.Text));
edit9.Text:=floattostr(strtofloat(edit3.Text)*strtofloat(edit6.Text));
edit12.Text:=floattostr(strtofloat(edit9.Text)/100*13);
edit15.Text:=floattostr(strtofloat(edit9.Text)-strtofloat(edit12.Text));
edit16.Text:=floattostr(strtofloat(edit13.Text)+strtofloat(edit14.Text)+strtofloat(edit15.Text));
end;

end;

end.

Читайте также

1. написать программу, вычисляющую значение функции y=x-24

2. написать программу, вычисляющую значение функции (y=f(x))
y=x-2, если x>0,
y=0, если x=0,
y=x*x, если x<0

Помогите написать программу на с++.

Напишите функцию, которая вычисляет значение ab. Числа a и b могут быть любыми дробными положительными числами. И программу, использующую эту функцию для вывода результата на экран.

Помогите пожалуйста!! ) составить программу в "Pascal abc"!!)

Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"

1. Составьте блок-схему и программу вычисления значения функции:

2. Составьте программу, определяющую, является ли данное число делителем числа 3.
3*. Составьте программу, заменяющую из двух данных чисел меньшее число суммой, а большее – произведением этих чисел.

Составьте программу вычисления значение Sin, Cos и Tg углов от 0 до 45 градусов с шагом 1 градус (с использованием оператора цикла FOR). Для вы-вода

результата введите ограничение на количество знаков после запятой. Примечание. В Паскале используются стандартные функции: SIN(X) - синус Х (аргумент задается в радианах); COS(X) - косинус Х (аргумент задается в радианах); Для подсчета угла в радианах используйте формулу: угол в радианах = (угол в градусах)*/180. Результат представьте в виде: Программа вычисления значений тригонометрических функций x° Sin(x) Cos(x) Tg(x) 1 2 3 .. 45



Вы находитесь на странице вопроса "Составить в Turbo Pascal программу, используя пользовательские функции. Сама программа должна быть как можно меньше, соответственно, раздел описания", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.