Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Пояснения к программе. В заданном выражении необходимо три раза вычислить значение факториала, поэтому вводится целочисленная функция вычисления факториала от n





В заданном выражении необходимо три раза вычислить значение факториала, поэтому вводится целочисленная функция вычисления факториала от n.

program combination;

Var M, N, C: Integer;

function Factorial(n: Integer): Integer;

Var i, k: Integer;

Begin

k:= 1;

for i:= 2 to n do

k:= k * i;

Factorial:= k

end {Factorial};

Begin

Repeat

WriteLn ('Введите число элементов в группе(N) ',
'и общее количество элементов(M)');

ReadLn(N, M)

until N <= M;

C:= Factorial(M) div (Factorial(N) * Factorial(M-N));

WriteLn ('Число сочетаний = ', C);

End.

5.8. Пусть функция y(x) задана таблицей:

x1 x2 x2 xm
y1 y2 y3 ym

Составить программу для вычисления значения этой функции в произ­вольной точке x1xxm по формуле линейной интерполяции:

 

где xixxi+1. Расчет функции оформить в виде подпрограммы. Значение функции и аргумента вводятся, результат расчета выводится в главной программе.

5.9. Для заданной вещественной матрицы определите, образуют ли ее элементы упорядоченную последовательность при их переборе по схеме, представлен­ной на рис. 5.1. Для определения факта упорядоченности части строки (столб­ца) используйте функции.

Рис. 5.1. Схема расположения последовательности

5.10. Пусть дана вещественная квадратная матрица порядка 2n. Получите новую матрицу, переставляя ее блоки размером n так, как показано на рис. 5.2. Для обмена четырех заданных фрагментов матрицы напишите функцию.

а) б)

Рис. 5.2. Переставляемые блоки матрицы

5.11. Пусть дана прямоугольная матрица А(n х m), элементами которой являются целые числа. Определите, в какой строке матрицы находится наибольшее количество симметричных чисел. Составьте функцию, проверяющую сим­метричность числа.

5.12. Пусть дана прямоугольная матрица А(n х m), элементами которой являются целые числа. Определите для каждого элемента позиции элементов матрицы с такой же суммой цифр.

5.13. Пусть дана прямоугольная матрица А(n х m), элементами которой являются целые числа. Замените все положительные четные числа на числа, являю­щиеся их «перевертышами». Составьте программу, получающую для за­данного числа его «перевертыш» (число а будем считать «перевертышем» числа b, если, читая число а справа налево, получаем число b ).

5.14. Пусть дано n треугольников, заданных координатами своих вершин. Найдите треугольник с максимальной площадью. Напишите функцию для нахожде­ния площади одного треугольника.

5.15. Пусть дано n прямоугольников, заданных координатами левой верхней и пра­вой нижней вершины. Стороны прямоугольников параллельны осям координат. Определите пару прямоугольников с максимальной площадью пере­сечения. Напишите функцию для определения площади пересечения двух прямоугольников.

5.16. Составьте процедуру выравнивания строки, которая преобразует строку к строке указанной длины путем добавления пробелов между словами.

5.17. Напишите процедуру сложения двух многочленов. Представьте каждый мно­гочлен в виде массива коэффициентов, где Ai — коэффициент перед хi.

5.18. В заданной матрице А(n х m) определите количество строк, которые упоря­дочены по возрастанию. Используйте подпрограмму проверки упорядочен­ности строки.

5.19. В матрице А(n х m) определите количество строк, элементы которой образуют арифметическую прогрессию. Используйте подпрограмму проверки строки.

5.20. В заданной матрице А(n х m) найдите максимум из всех минимальных эле­ментов матрицы по столбцам.

5.21. В заданной матрице А(n х m) найдите минимум всех сумм абсолютных вели­чин элементов матрицы по столбцам. Для нахождения суммы абсолютных величин столбца используйте функцию.

5.22. Подсчитайте количество строк матрицы А(n х m), элементы которых образу­ют монотонную последовательность. Для определения факта монотонности используйте подпрограмму.

5.23. Пусть дана матрица А(n х m). Постройте вектор, каждый элемент которого содержит наименьший по абсолютной величине элемент строки.

5.24. Составьте программу поиска минимального элемента, расположенного под главной диагональю, и максимального элемента, расположенного над глав­ной диагональю заданной вещественной матрицы А(n х m).

5.25. Пусть дана матрица А(n х m). Постройте логический вектор, каждый элемент которого принимает значение true, если среди элементов i -й строки матри­цы А есть хотя бы два равных, и значение false — в противном случае. Вос­пользуйтесь логической функцией, которая для i -й строки выполняет ука­занную проверку.

5.26. Пусть дана матрица А(n х m). Постройте вектор, каждый элемент которого равен наибольшему количеству равных элементов в соответствующей строке матрицы А. Воспользуйтесь функцией, которая определяет это количество в i -й строке матрицы А.

5.27. Пусть дана матрица А(n х m). Постройте вектор, каждый элемент которого равен количеству элементов в i -й строке матрицы А, не принадлежащих от­резку [0, 10]. Воспользуйтесь функцией, делающей соответствующую про­верку в i -й строке.

5.28. Пусть дана матрица А(n х m). Постройте вектор, каждый элемент которого равен сумме элементов i -й строки матрицы А, больших, чем значение мини­мального элемента в этой строке. Воспользуйтесь функцией, определяющей соответствующую операцию в каждой строке матрицы А.

5.29. Пусть дана матрица А(n х m). Упорядочьте строки по неубыванию сумм цифр элементов этой строки. Воспользуйтесь функцией, определяющей для каж­дого числа сумму его цифр.

 

Date: 2015-07-23; view: 623; Нарушение авторских прав; Помощь в написании работы --> СЮДА...



mydocx.ru - 2015-2024 year. (0.007 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию