Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Найти длину самого короткого слова. 1. Найти длину самого короткого слова. 2. Среди слов данного предложения найдите такое, которое встречается найбольшее число раз. 3. Задано предложение. Удалите из него повторные вхождения слов 4. Будем называть соседями элементас индексом i,j некоторой матрицы такие элементы этой матрицы, соответствующие индексы которых отличаются от i и j не более чем на 1. Для данной целочисленной матрицы ... https://www.cyberforum.ru/ pascal/ thread137642.html	Помогите сделать блок-схему Pascal Помогите пожайлуста, в понедельник защита курсовой, я сделал текстовый редактор в C#, теперь нужно пояснительную записку. В частности нужна блок-схема на меню файл (состоящий из: новый, сохранить, открыть и выход) и меню правка (шаг назад, шаг вперед, копировать, вырезать и вставить). Буду очень благодарен!!!
Pascal Подпрограммы - функция. https://www.cyberforum.ru/ pascal/ thread137637.html Задание Создать функцию Даны целые числа n, a1,…,an, где 1≤n≤50. Найти количество и сумму тех членов данной последовательности, которые удовлетворяют условию \|ak\|<k2. Массив написал: uses crt; var a: array of integer;	Pascal Вывести результат игры на экран (графический режим) https://www.cyberforum.ru/ pascal/ thread137633.html Есть игра...нужно в графическом режиме вывести в любую часть экрана переменную Score т.е. результат. Как ни запишу пишет ошибки...помогите плз..
Подпрограммы Pascal Задание Создать процедуру Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n≤15. Найти минимальный элемент и его индексы среди значений, лежащих на побочной диагонали матрицы и ниже нее. Методика выполнения: в основной программе должно выполнятся только: 1)ввод исходных данных 2)вывод результата в процедуре должно выполняться:	Pascal Определить сумму четных натуральных чисел от 2 до 100. https://www.cyberforum.ru/ pascal/ thread137609.html Из этих задач помогите решить пожалуйста хотя бы 2. Буду очень благодарен за помощь -) 1). Определить сумму четных натуральных чисел от 2 до 100. 2).Написать программу, определяющую, сколько нужно взять, начиная с единицы, последовательно расположеннных чисел натурального ряда, чтобы их сумма превысила 1000? 3). Известен рост спортсменов стартовой пятёрки баскетбольной команды:195, 205, 22,...
Pascal Как проверить, является ли строка записью двоичного числа? https://www.cyberforum.ru/ pascal/ thread137585.html ПОМАГИТЕ КТО ПОЖАЛУЙСТА НЕ МОГУ РЕШИТЬ ЗАДАЧКУ!!!! задание на строки: Написать программу, котрая проверяет, является ли введённая с клавиатуры строка двоичным числом.	Pascal как проверять являются ли символы буквами??? ПОМАГИТЕ КТО ПОЖАЛУЙСТА НЕ МОГУ РЕШИТЬ ЗАДАЧКУ!!!! задание на строки: Запросите у пользователя несколько символов и выведите на экран их коды. Проверьте, являются ли они буквами.
Pascal оператор For с блок-схемой https://www.cyberforum.ru/ pascal/ thread137583.html написать программу определения суммы всех нечетных чисел в диапазоне от 1 до 99 включительно. С блок-схемой.Через оператор For. Зарание спасибо.	Pascal Одномерный массив https://www.cyberforum.ru/ pascal/ thread137581.html Помогите пожалуйста найти ошибку в программе: Даны натуральные числа n, b0,b1,…,bn.Вычислить: f(b0)+f(b1)+…+f(bn), где f(x)=x^2,если х кратно 3 f(x)=х,если х при делении на 3 дает остаток 1 f(x)= в остальных случаях program primer; uses crt; const N=5; var b: array of real;
Pascal Сортировка массива Дан двумерный массив 4х4. Упорядочить его по возрастанию произведения элементов столбцов.	Pascal Оператор выбора https://www.cyberforum.ru/ pascal/ thread137577.html Даны два целых числа: D (день) и M (месяц), определяющие правильную дату невисокосного года. Вывести значения D и M для даты, следующей за указанной. Program N; var D,M,D1,M1:integer; begin write('введите число'); readln(D); write ('введите месяц'); readln(M);

Puporev

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

64300 / 47595 / 32743

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

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

29.05.2010, 19:20

Биноминальный коэффициент - Pascal - Ответ 763894

29.05.2010, 19:20. Показов 1997. Ответов 1

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

Сообщение было отмечено dukesoteg как решение

Решение

Pascal

uses crt;
function C(n,m:word):word;
begin
if (m=0)or(m=n) then C:=1
else C:=C(n-1,m)+C(n-1,m-1);
end;
var a,b:word;
begin
clrscr;
repeat
writeln('Введите 2 положительных натуральных числа a>=b>0:');
readln(a,b);
until(b>=0)and(b<=a);
write('Биноминальный коэффициет из ',a,' по ',b,'=',C(a,b));
readln
end.

Вернуться к обсуждению:
Биноминальный коэффициент Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

29.05.2010, 19:20

Готовые ответы и решения:

Коэффициент расширения/ высота и ширина
Подскажите пожалуйста,как это реализовать, 0 идей.Нужно,чтобы при коэффициенте 1 или одинаковой...

Коэффициент сверхсжимаемости газа (разветвляющиеся)
Друзья, здравствуйте еще раз. Не могли бы вы помочь с этой задачей? ...

коэффициент ранговой корреляции Спирмена
См. пост №3.

Баллистический коэффициент пули
Нужна помощь. Нужно создать Баллистический калькулятор на PascalABC.NET

	29.05.2010, 19:20

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

29.05.2010, 19:20

Помогаю со студенческими работами здесь

Найти коэффициент бинома Ньютона
Нужно найти коэффициент бинома Ньютона. При вводе чисел больше 10 выдает неверные значения . ...

F = 10! Напишите программу, которая рассчитывает числовой коэффициент. Примите решение пока, повторите . с циклами
F = 10! Напишите программу, которая рассчитывает числовой коэффициент. Примите решение пока,...

Определить коэффициент газонасыщенности смеси
Здравствуйте, уважаемые программисты! пишу программу на TP и столкнулся со сложностью - программа...

Вычислить расчётный коэффициент сцепления для тепловозов ТЭ10
Нужно написать 3 программы(через for, while, repeat). Буду очень благодарен в помощи,так как...

Наверх