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=3x6-5x3+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

Puporev

Почетный модератор

64270 / 47569 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

24.06.2017, 19:04

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

24.06.2017, 19:04. Показов 1821. Ответов 1

Метки (Все метки)

Ответ

Pascal

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

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

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

Наверх