"Простые" программы
| 1. | Определить объём и площадь боковой поверхности цилиндра с заданными радиусом основания R и высотой H. | скачать |
| 2. | Даны три точки на плоскости. Определить, какая из них ближе к началу координат. | скачать |
|
3. |
Найти произведение цифр заданного целого четырехзначного числа. | скачать |
|
4. |
Решить квадратное уравнение | скачать |
|
5. |
Напечатать координаты точки пересечения этих прямых, либо сообщить, что эти прямые совпадают, не пересекаются или вовсе не cуществуют. | скачать |
|
6. |
Вычислить сумму элементов числового массива... | скачать |
|
7. |
Вычислить сумму элементов числового массива... | скачать |
|
8. |
Найти наибольший элемент числового массива... | скачать |
|
9. |
В баскетбольную команду могут быть приняты ученики, рост которых превышает 170 см. Составьте список кандидатов в команду из учеников класса. | скачать |
|
10. |
Для заданного x вычислить... | скачать |
|
11. |
Дан массив X(N). Получить новый массив Y(N) такой, что в нем сначала идут положительные числа, затем нулевые, и затем отрицательные из X. | скачать |
| 12. | Вычислить суммы элементов столбцов заданной матрицы A(N, M). | скачать |
| 13. | Подсчитать, сколько раз встречается в заданной целочисленной матрице A(N, M) максимальное по величине число. | скачать |
| 14. | В заданной матрице A(N, M) поменять местами строки с номерами P и Q (1 <= P <= N, 1 <= Q <= N). | скачать |
| 15. | Элементы заданного числового массива... | скачать |
| 16. | В массиве A(N, N) вычислить две суммы элементов, расположенных ниже и выше главной диагонали. | скачать |
| 17. | Определить, является ли заданная последовательность чисел... | скачать |
| 18. | Задано множество точек на плоскости. Oпределить, принадлежит ли хотя бы одна точка множества внутренней области круга с центром в точке (a, b) и радиусом R. | скачать |
| 19. | Определить, имеется ли среди элементов главной диагонали заданной целочисленной матрицы A(N, N) хотя бы один положительный нечётный элемент | скачать |
| 20. | Вычислить сумму всех чисел Фибоначчи, которые не превосходят заданного натурального числа М. | скачать |
| 21. | Включить заданное число D в массив A(N), упорядоченный по возрастанию, с сохранением упорядоченности | скачать |
| 22. | Определить, имеется ли в заданном целочисленном массиве A(N) хотя бы одна пара совпадающих по значению чисел. | скачать |
| 22. | Дана целочисленная матрица A(N, N). Определить, имеются ли среди её элементов, лежащих ниже главной диагонали, отрицательные числа | скачать |
| 23. | Выяснить, есть ли в баскетбольных командах "Спартак" и "Зенит" игроки одинакового роста. | скачать |
| 24. | Из партии шин отобрать две шины, диаметры которых отличаются не более, чем на D см, а вес — не более, чем на W грамм. | скачать |
| 25. | В заданной целочисленной матрице A(N, M) найти количество строк, содержащих нули. | скачать |
| 26. | Дана целочисленная матрица A(N, M). Определить, встречается ли заданное целое K среди максимальных элементов столбцов этой матрицы. | скачать |
| 27. | Проверить, является ли заданная целочисленная матрица A(N, N) "магическим квадратом"... | скачать |
| 28. | Дана матрица A(N, N). Если хотя бы один элемент строки матрицы отрицателен, то все элементы этой строки заменить нулями. | скачать |
| 29. | Сколько лет нужно хранить N долларов в банке под Р% годовых, чтобы стать миллионером | скачать |
| 30. | Начав тренировки спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Какова длина дистанции в N-й день и каков СУММАРНЫЙ пробег спортсмена за все эти N дней. Ответ получить в км с точностью до метра. | скачать |
| 31. | Найти N-й элемент, сумму N элементов, произведение N элементов и среднее арифметическое N элементов следующего ряда 2/2 4/5 6/10 8/17 10/26 ...Все вещественные результаты получить с точностью до ДВУХ десятичных знаков. | скачать |
| 32. | У Васи в мешке было N орехов. Каждый день он брал половину для себя и своих друзей. Если число орехов было нечетным, то он откладывал один орех в сторону, а остальные делил пополам, причем отложенный орех опять возвращал в мешок. Сколько орехов останется в мешке через K дней ? | скачать |
| 33. | Клиент положил D долларов в банк на N лет под P процентов годовых. Определить величину вклада по прошесвии срока хранения с точностью до цента | скачать |
| 34. | Сколько лет нужно хранить N долларов в банке под Р% годовых, чтобы стать миллионером? | скачать |
| 35. | Через сколько дней в зоне заражения уровень радиации упадет до безопасного значения в 100 единиц, если начальное значение nZ и каждый день оно уменьшается на 5% по отношению к предыдущему дню. | скачать |
| 36 | Имеется ряд чисел: 2, 4, 6, 8, ... Вывести на экран номера таких двух подряд идущих элементов, произведение которых превышает N. | скачать |
| 37. | В результате применения пеницилина концентрация болезнетворных бактерий в крови больного уменьшается на 1/3 в день от содержимого предыдущего дня. Через сколько дней наступит выздоровление, если концентрация бактерий должна уменьшиться от N1 до N2 ? (N1 > N2) | скачать |
| 38. | Расход топлива нового трактора составляет 4 литра в час. За каждый рабочий день в связи с износом расход топлива увеличивается на 0.01% в сравнении с предыдущим днем. Через сколько рабочих дней двигатель потребует капитального ремонта, если предельный расход топлива равен Z литров в час? | скачать |
| 39. | Имеется убывающий ряд чисел: 1/2, 1/3, 1/4, 1/5,...Найти сумму всех элементов ряда с точностью Z (т.е. если очередной элемент ряда стал меньше Z, то его суммировать уже не нужно | скачать |
| 40 | Программа для сортировки чисел как от большого к меньшему так и от меньшего к большему. Авторы: Vartanov Vigen & Nonikoff Alex | скачать |
| 41 | 1. Подпрограмма-функция - считает x^1/3 + y^1/3 Автор:Mouse | скачать |
| 42 | Вычисляет sinx, где Х = x-x^3\3!+x^5\5!-x^7\7!... Автор:Mouse | скачать |
| 43 | Наибольший общий делитель | скачать |
| 44 | Пирамида из звездочек Автор: Бахтин Сергей aka Clipper Chip. clippersoft( ? )mail.ru. |
скачать |
| 45 | Программа запрашивает Имена получателей пенсий и размер их пенсий, затем выводит эти имена в порядке возрастания размера пенсии. Автор Rasim Aliyev, E-mail:rasim( ? )rambler.ru | скачать |
| 46 | Треугольник Паскаля в двухмерных массивах. До 11 рядов по умолчанию. Автор Rasim Aliyev, E-mail:rasim( ? )rambler.ru | скачать |
| 47 | Программа запрашивает у пользователя отдельные числа и затем собирает их в одно целое число Автор Rasim Aliyev, E-mail:rasim( ? )rambler.ru | скачать |
| 48 | Считает время работы программы Автор Яковлева Алёна Владимировна E-mail bkaa( ? )mail.ur.ru | скачать |
| 49 | Дано натуральное число: а)сколько чётных цифр в данном целом числе; б)верно ли, что в данном числе встречаются цифры А и В (А и В вводятся с клавиатуры). Борис |
скачать |
| 50 | Найти все натуральные числа a, b и c из интервала от 1 до 20, для которых выполняется равенство: a*a + b*b = c*c. Борис |
скачать |
| 51 | 1)дано натуральное число, удалить все цифры А
(А вводится с клавиатуры) 2)найти все числа от 1 до 200,у которых количество делителей равно N(N вводится с клавиатуры) 3)найти сумму чисел от 1 до 200,у которых 5 делителей. Борис |
скачать |
| 52 | Простой способ удаления двойных, тройных и т.д. пробелов. Борис | скачать |
| 53 | Дано натуральное число: найти количество цифр данного числа, больших А (А вводится с клавиатуры); верно ли, что данное число принадлежит промежутку от А до В и кратно 3, 4 и 5 (А и В вводятся с клавиатуры. Борис | скачать |
| 54 |
Найти сумму всех чисел из промежутка от А до В, кратных 13 и 5 (А и В
вводятся с клавиатуры. Борис |
скачать |
| 55 | Найти все симметричные
натуральные числа из промежутка от А до В (А и В
вводятся с клавиатуры). Борис |
скачать |
| 56 | Найти все натуральные
числа из промежутка от a до b, у которых количество делителей превышает
заданное число К. Борис |
скачать |
| 57 | Найти все натуральные
числа a, b и c из интервала от 1 до 20, для которых выполняется равенство:
a + b = c2. Борис |
скачать |
| 58 | Дано натуральное
число. Найти произведение цифр числа, отличных от нуля.
Борис |
скачать |
| 59 | Дано натуральное
число. Верно ли, что в данном числе нет цирфы A? Цифра A вводится с
клавиатуры.
Борис |
скачать |
| 60 | Найти все трехзначные
числа, которые при увеличении на 1 делятся на 2, при увеличении на 2
делятся на 3, при увеличении на 3 делятся на 4 и при увеличении на 4
делятся на 5.
Борис |
скачать |
| 61 | Из данного
натурального числа удалить все цифры A. A вводится с клавиатуры.
Борис: Решение двумя способами |
скачать |
| 62 | Найти сумму
нечетных делителей натурального числа.
Борис |
скачать |
| 63 | Найти все равновеликие прямоугольники, стороны которых выражены целыми числами a и b, а площадь равна S (a и b принадлежат интервалу от 1 до 20, а S вводится с клавиатуры). Борис | скачать |
| 64 | Заполните файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле g те компоненты файла f, которые являются четными. Борис | скачать |
| 65 | Среди членов последовательности
1,1+N ,1+2N ,1+3N ,... найти и вывести первое число большее М. N и M вводятся. Борис |
скачать |
| 66 | Дано натуральное число. Найти сумму цифр этого числа. Верно ли что число начинается и заканчивается одной и той же цифрой. Борис | скачать |
| 67 | Найти все трехзначные числа, такие что сумма цифр равна М а само число делится на В. Борис | скачать |
| 68 | Составить программу, вычисляющую сумму членов геометрической прогрессии до тех пор, пока сумма не превысит заданное число Х. b1=1,q=2,bn=b(n-1)*q (n и n-1 это индексы) . Борис | скачать |
| 69 | Среди всех натуральных двузначных чисел найти и вывести на экран только нечетные и вычислить их количество. Борис | скачать |
| 70 | Ввести с клавиатуры 10 чисел - положительных и отрицательных. Заменить все отрицательные числа их модулями и напечатать все полученные числа. Отрабатываются ошибки ввода. Борис | скачать |
| 71 | Дана строка S, изображающая вещественное число в формате с плавающей точкой, и целое число N (> 0). Вывести набор символов, изображающих первые N цифр. Борис | скачать |
| 72 | Программа табулирования функции одной переменной F(x, y), считая у параметром, значение которого задается пользователем. Сама функция в виде дроби (ctgx+tgx)/в знаменателе корень кубический xy-ln(x/y). Борис | скачать |
| 73 |
Дана матрица M(n,n). Получить одномерный массив A,элементы которого
равны сумме элементов каждой строки исходной матрицы.
В полученном массиве поменять местами первый и последний элементы.
Получить результат при n=4.
M=-12,2 35,1 -2,5 -1,4
7,8 -7,6 0,1 0,8
14,6 6,6 -26,2 -3,7
-25,8 8,5 4,5 4,3
Написать спомощью ввода массива из файла.
Написал Борис |
скачать архив с файлом исходных данных и исходником |
| 74 | Построить множество, состоящее из совершенных чисел в интервале от 1 до 255. Совершенным называется такое число, которое равно сумме всех своих делителей, за исключением самого числа, например, 28 = 1 + 2 + 4 + 7 + 14. Написал Борис | скачать PERFECT.PAS |
| 75 |
Дано натуральное число n (n<=99) Выяснить верно ли, что n равно кубу суммы цифр числа n. Решение с защитой от неправльного ввода и комментариями Написал Борис |
скачать KRIM.PAS |
| 76 | Два способа вывести нечетные числа в диапазоне [a,b] с помощью цикла FOR Написал Борис | скачать SIMFOR.PAS |
