Uses CRT;

var

a:array[1..100] of integer;

s:array[1..100] of real;

i,n:integer;

m:real;

begin

writeln ('Функцiї y=x!, y=x!/x^m, y=x^m/x!');

write ('Кiлькiсть елементiв х = ');

readln(n);

write ('Степiнь пiднесення m = ');

readln(m);

for i:=1 to n do

begin

(a[i]):=i;

end;

i:=1;

s[1]:=1;

while i<n do

begin

i:=i+1;

s[i]:=s[i-1]*a[i];

end;

write ('y=x! ');

for i:=1 to n do

write (s[i]:2:2,' ');

writeln ('');

write ('y=x!/x^m ');

for i:=1 to n do

write (s[i]/power(a[i],m):2:2,' ');

writeln ('');

write ('y=x^m/x! ');

for i:=1 to n do

write (power(a[i],m)/s[i]:2:2,' ');

readln;

end.

ЗАУВАЖЕННЯ !!! В Turbo Pascal відсутня загальна функція піднесення до степеня, тому функції більш конкретні

var

a:array[1..100] of integer;

s:array[1..100] of real;

i,n:integer;

begin

writeln ('');

writeln ('ЙННННННННННННННННННННННННННННННННН»');

writeln ('є Њ н¬® дг­Єжiх є');

writeln ('є x!, x!/x, x/x!, x!/x^2, x^2/x!, x!/x^3, x^3/x! є');

writeln ('є x!/x^4, x^4/x!, x!/x^0.5, x^0.5/x!, x!/x^0.25, x^0.25/x! є');

writeln ('є ‡­ ©вЁ хе §­ зҐ­­п ¤«п x Ґ«Ґ¬Ґ­вiў є');

writeln ('ИНННННННННННННННННННННННННННННННННј');

writeln ('');

write ('Ki«мЄiбвм Ґ«Ґ¬Ґ­вiў x = ');

readln(n);

for i:=1 to n do

begin

(a[i]):=i;

end;

i:=1;

s[1]:=1;

while i<n do

begin

i:=i+1;

s[i]:=s[i-1]*a[i];

end;

write ('x! ');

for i:=1 to n do

write (s[i]:2:2,' ');

writeln ('');

write ('x!/x ');

for i:=1 to n do

write (s[i]/a[i]:2:2,' ');

writeln ('');

write ('x/x! ');

for i:=1 to n do

write (a[i]/s[i]:2:2,' ');

writeln ('');

write ('x!/x*x ');

for i:=1 to n do

write (s[i]/(a[i]*a[i]):2:2,' ');

writeln ('');

write ('x*x/x! ');

for i:=1 to n do

write ((a[i]*a[i])/s[i]:2:2,' ');

writeln ('');

write ('x!/x*x*x ');

for i:=1 to n do

write (s[i]/(a[i]*a[i]*a[i]):2:2,' ');

writeln ('');

write ('x*x*x/x! ');

for i:=1 to n do

write ((a[i]*a[i]*a[i])/s[i]:2:2,' ');

writeln ('');

write ('x!/x*x*x*x ');

for i:=1 to n do

write (s[i]/(a[i]*a[i]*a[i]*a[i]):2:2,' ');

writeln ('');

write ('x*x*x*x/x! ');

for i:=1 to n do

write ((a[i]*a[i]*a[i]*a[i])/s[i]:2:2,' ');

writeln ('');

write ('x!/(x)^0.5 ');

for i:=1 to n do

write (s[i]/sqrt(a[i]):2:2,' ');

writeln ('');

write ('(x)^0.5/x! ');

for i:=1 to n do

write (sqrt(a[i])/s[i]:3:3,' ');

writeln ('');

write ('x!/(x)^0.25 ');

for i:=1 to n do

write (s[i]/sqrt(sqrt(a[i])):2:2,' ');

writeln ('');

write ('(x)^0.25/x! ');

for i:=1 to n do

write (sqrt(sqrt(a[i]))/s[i]:3:3,' ');

readln;

end.

#include <stdio.h>

#include < math.h >

int main(void)

{

float m,n,i;

float a[1000];

float s[1000];

printf("ЙННННННННННННННННННННН»\n");

printf("є Њ н¬® дг­Єжiх є\n");

printf("є y=x!, y=x!/x^m, y=x^m/x! є\n");

printf("є ‡­ ©вЁ хе §­ зҐ­­п ¤«п x Ґ«Ґ¬Ґ­вiў є\n");

printf("ИНННННННННННННННННННННј\n");

printf ("‘⥯i­м Їi¤­ҐбҐ­­п m = ");

scanf("%f", &m);

printf ("Љi«мЄiбвм Ґ«Ґ¬Ґ­вiў (Ї®з в®Є § 0-ў®Ј® Ґ«Ґ¬Ґ­в ) x = ");

scanf("%f", &n);

for (i = 0; i <= n; i++)

{

a[i]=i;

}

s[0] = 1;

i = 0;

while (i < n) {

i += 1;

s[i] = s[i-1]* a[i];

}

printf("y=x! ");

for (i = 0; i <= n; i++)

{

printf(" %0.2f ",s[i]);

}

printf("\ny=x!/x^m");

for (i = 0; i <= n; i++)

{

printf(" %0.2f ",s[i]/pow (a[i], m));

}

printf("\ny=x^m/x!");

for (i = 0; i <= n; i++)

{

printf(" %0.2f ",pow (a[i], m)/s[i]);

}

scanf("\n");

return 0;

}

TextWindow.WriteLine("Функцiї y=x!, y=x!/x^m, y=x^m/x!")

TextWindow.Write("Степiнь пiднесення m = ")

x=TextWindow.ReadNumber()

TextWindow.Write( "Кiлькiсть елементiв х = ")

n=TextWindow.ReadNumber()

For i = 1 To n

a[i] = i

EndFor

S[1]=1

i=1

While i < n

i =i+1

S[i] = S[i-1] * i

EndWHILE

TextWindow.WriteLine("y=x!")

For i=1 To n

TextWindow.Write(" ")

TextWindow.Write(S[i])

EndFor

TextWindow.WriteLine(" ")

TextWindow.WriteLine("y=x!/x^m")

For i=1 To n

TextWindow.Write(" ")

TextWindow.Write(Math.Round((S[i]/Math.power(a[i],x))*100000)/100000)

EndFor

TextWindow.WriteLine(" ")

TextWindow.WriteLine("y=x^m/x!")

For i=1 To n

TextWindow.Write(" ")

TextWindow.Write(Math.Round((Math.power(a[i],x)/S[i])*100000)/100000)

EndFor

TextWindow.WriteLine(" ")

PRINT "ЙНННННННННННННННННННННННННННННННННННННННННННН»"

PRINT "є Њ н¬® дг­Єжiх є"

PRINT "є y=x!, y=x!/x^m, y=x^m/x! є"

PRINT "є ‡­ ©вЁ хе §­ зҐ­­п ¤«п x Ґ«Ґ¬Ґ­вiў є"

PRINT "ИННННННННННННННННННННННННННННННННННННННННННННј"

INPUT "‘⥯i­м Їi¤­ҐбҐ­­п m = ", m

INPUT "Љi«мЄiбвм Ґ«Ґ¬Ґ­вiў x = ", n

DIM a(n)

FOR i = 1 TO n

a(i) = i

NEXT i

DIM b(n)

b(1) = 1

i = 1

WHILE i < n

i = i + 1

b(i) = b(i - 1) * a(i)

WEND

PRINT "y=x!"

FOR i = 1 TO n

PRINT ""; b(i);

NEXT i

PRINT ""

PRINT "y=x!/x^m"

FOR i = 1 TO n

PRINT ""; b(i) / (a(i) ^ m);

NEXT i

PRINT ""

PRINT "y=x^m/x!"

FOR i = 1 TO n

PRINT ""; a(i) / (b(i) ^ m);

NEXT i

INPUT x

#include <conio.h>

#include <iostream>

#include <cmath>

int main(void)

{

int i,n;

double m,a[1000],s[1000];

setlocale(LC_ALL, "");

std::cout << "Функцiї y=x!, y=x!/x^m, y=x^m/x!\n";

std::cout << "Кiлькiсть елементiв(виведеться з 0-вим елементом) х = ";

std::cin >> n;

std::cout << "Степiнь пiднесення m = ";

std::cin >> m;

for (int i = 0; i < n+1; i++) {

a[i]=i;

}

s[0] = 1;

i = 0;

while (i < n) {

i += 1;

s[i] = s[i-1]* a[i];

}

std::cout << "\ny=x! \n";

for (int i = 0; i < n+1; i++) {

std::cout << "Елемент x № ["<< i<<"]= "<<s[i] << std::endl;}

std::cout << "\ny=x!/x^m\n";

for (int i = 0; i < n+1; i++) {

std::cout << "Елемент x № ["<< i<<"]= "<<s[i]/pow (a[i], m) << std::endl;}

std::cout << "\ny=x^m/x!\n";

for (int i = 0; i < n+1; i++) {

std::cout << "Елемент x № ["<< i<<"]= " << pow (a[i], m)/s[i] << std::endl;}

getch();

return 0;

}