Составить в Turbo Pascal программу, используя пользовательские функции. Сама программа должна быть как можно меньше, соответственно, раздел описания
10-11 класс
|
функций больше.
F=n!/(a-b) + (n-1)!/(a^2 - b^2) + ... + 1/(a^n - b^n)
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.
Другие вопросы из категории
массива сначала задаются, а затем меняются.
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.
Читайте также
2. написать программу, вычисляющую значение функции (y=f(x))
y=x-2, если x>0,
y=0, если x=0,
y=x*x, если x<0
Напишите функцию, которая вычисляет значение ab. Числа a и b могут быть любыми дробными положительными числами. И программу, использующую эту функцию для вывода результата на экран.
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
2. Составьте программу, определяющую, является ли данное число делителем числа 3.
3*. Составьте программу, заменяющую из двух данных чисел меньшее число суммой, а большее – произведением этих чисел.
результата введите ограничение на количество знаков после запятой. Примечание. В Паскале используются стандартные функции: SIN(X) - синус Х (аргумент задается в радианах); COS(X) - косинус Х (аргумент задается в радианах); Для подсчета угла в радианах используйте формулу: угол в радианах = (угол в градусах)*/180. Результат представьте в виде: Программа вычисления значений тригонометрических функций x° Sin(x) Cos(x) Tg(x) 1 2 3 .. 45