0 / 0 / 0
Регистрация: 20.04.2017
Сообщений: 11
1

Вычисление факториала и вычисление степени числа

24.06.2017, 16:46. Показов 1761. Ответов 1
Метки нет (Все метки)

Нужно проверить правильность сделанной программы если не правильно помогите исправить.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Var a,a1,a2,a3,x,c,st,otvet:real;
               n,k,y,fac:integer;
 
procedure stepen(sl1:real; nn:integer; var st:real);
  begin
  st:=Power(sl1,nn);
  end;
procedure factorial(f:integer; var fac:integer);
var i,fn:integer;
  begin
  fn:=1;
  For i:=1 to f do fn:=fn*i;
  fac:=fn;
  end;
 
BEGIN
//1 часть
Write('c=');Read(c);
Write('x=');Read(x);
Write('k=');Read(k);
stepen(c-y,k,st);
a1:=st;
//Writeln('a1=',a1);
//2 часть
Write('c=');Read(c);
Write('k=');Read(k);
factorial(c,fac);
a2:=fac;
//Writeln('a2=',a2);
//3 часть
Write('c=');Read(c);
Write('m=');Read(m);
stepen(c,k,st);
a3:=st;
Writeln('a3=',a3);
otvet:=a1/(a2*a3);
Writeln('Ответ равен: ',otvet);
END.
https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
F=\frac{(c-x)^k}{c^k(c!-k!)}<br />
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.06.2017, 16:46
Ответы с готовыми решениями:

Вычисление факториала числа с использованием рекурсии
Очень срочно нужно, помогите если кто знает. Задача 11 Вычисление факториала числа с...

Вычисление факториала целого положительного числа
Составить реккурсивную подпрограмму функцию для вычисления факториала целого положительного числа....

Вычисление числа 4 в степени 500
Народ, нужно дорешать пару задач на паскале! 1. Составить программу вычисления числа 4 в степени...

Рекурсивное вычисление корня третьей степени из числа
Что в данном случае означают параметры функции k и n? program qroot; function f(x:real;...

1
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
24.06.2017, 19:04 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure stepen(sl1:real; nn:integer; var st:real);
begin
st:=Power(sl1,nn);
end;
procedure factorial(f:integer; var fn:real);
var i:integer;
begin
fn:=1;
for i:=1 to f do fn:=fn*i;
end;
 
var x,a1,a2,f1,f2,f:real;
    k,c:integer;
begin
repeat
write('Введите натуральное число k=');
readln(k);
until k>0;
repeat
write('Введите натуральное число c<>',k,'c='); //если c=k, то дедленте на 0
readln(c);
until c>0;
write('x=');
readln(x);
stepen(c-x,k,a1);
stepen(c,k,a2);
factorial(c,f1);
factorial(k,f2);
f:=a1/a2/(f1-f2);
writeln('Ответ равен: ',f);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.06.2017, 19:04
Помогаю со студенческими работами здесь

Вычисление двойного факториала
Помогите пожалуйста,исправить ошибку. Вычисление двойного факториала (2n+1)!! (например...

Вычисление факториала в графике
Реализовать с графическим интерфейсом вычисление факториала ( рекурсивно и генерационно ) ...

Вычисление факториала с помощью рекурсии
Составление и отладка программы с внешними модулями. Написать внешний модуль для вычисления с...

Вычисление факториала с использованием функции
function fact(n:byte):integer; var k : longint; j : byte; begin k:= 1; for j:= 2 to n do...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru