Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найти количество положительных нечетных элементов массива Найти количество положительных нечетных элементов массива https://www.cyberforum.ru/ pascalabc/ thread2009006.html Прямоугольник Pascal ABC
Здравствуйте. Возникло желание (нет) сделать программу где у нас даны ширина и длинна прямоугольника. Ну это просто вычислить. Вопрос возникает в том как построить прямоугольник по этим сторонам...
Pascal ABC Вычислить сумму игр Добрый день. Прошу помочь в написание программы на языке Pascal, Исходные данные: Дан ориентированный граф. Стандартная игра на графе заключается в следующем: изначально на одной из вершин... https://www.cyberforum.ru/ pascalabc/ thread2008666.html Pascal ABC Вычислить произведение отрицательных элементов, стоящих на чётных местах нечётных столбцов матрицы https://www.cyberforum.ru/ pascalabc/ thread2008655.html
Вычислить произведение отрицательных элементов, стоящих на четных местах нечетных столб та двумерного массива N(3,4).
В строке найти количество слов - перевертыш, содержащих не менее 2 символов Pascal ABC
В строке найти количество слов - перевертыш, содержащих не менее 2 символов.
Pascal ABC Вычислить значение выражения Оператор CASE Задача. Решить систему Y= х+1, если а € ; x^2, если а=19; х-10,... https://www.cyberforum.ru/ pascalabc/ thread2008598.html
Pascal ABC Создание списков Всем доброго времени суток!!! Помогите с кодом, пожалуйста!!!! Даны натуральное число n, действительные числа x1, ..., xn (n ≥ 2). Получить последовательность x1 - xn, x2 - xn..., xn-1 - xn. https://www.cyberforum.ru/ pascalabc/ thread2008522.html Pascal ABC Найти значение уравнения по схеме Горнера
Помогите найти значение уравнения по методу Горнера и записать в PascalABC.Очень нужно ,пожалуйста. p=3*x6-5*x3+x-4
Pascal ABC В заданном интервале найти все числа, которые делятся на каждую из своих чётных цифр Составить программу, обеспечивающую в интервале от N1 до N2 (N1, N2 – натуральные числа) поиск и вывод на экран всех чисел, которые делятся на каждую из своих четных цифр. На экран должны... https://www.cyberforum.ru/ pascalabc/ thread2007820.html Pascal ABC Вывести путешественников, попавших в лабиринт, к выходу Вывести путешественников, попавших в лабиринт, к выходу. Лабиринт представляет собой совокупность коридоров и перекрестков. Местом начала пути может быть любой из имеющихся перекрестков. Скажите,... https://www.cyberforum.ru/ pascalabc/ thread2007750.html
Получить список всех выданных книг и подсчитать их количество Pascal ABC
О каждой книге в читальном зале имеются следующие сведения: Ф.И.О автора, название, инвертарный номер, год издания, количество запросов книги, сведения о наличии (на руках или нет) (Файл 1) ...
Pascal ABC Задача на массивы Вариант19 Дан массив Y = }, i=1,10; j=1,10 ] (элементы выбираются случайным образом): 1. Найти произведение элементов, которые удовлетворяют условию -5 < y ( i , j)<15. 2. Вычислить... https://www.cyberforum.ru/ pascalabc/ thread2007478.html
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
24.06.2017, 19:04 0

Вычисление факториала и вычисление степени числа - Pascal ABC - Ответ 10574311

24.06.2017, 19:04. Показов 1821. Ответов 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
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.


Вернуться к обсуждению:
Вычисление факториала и вычисление степени числа Pascal ABC
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.06.2017, 19:04
Готовые ответы и решения:

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

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

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

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

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...

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