|
|
|
| Другие темы раздела | |||||||||||||||||||||||
|
Pascal Вычислить корень методом половинного деления, проверить программу
https://www.cyberforum.ru/ pascal/ thread1856371.html Проверьте, пожалуйста, программу. Дано: f(a)=\int_{0.1}^{a}\left( e^{-2.8x^2}-0.4x^2\right)\operatorname{d}x Вычислить корень f(x) на промежутке методом половинного деления с точностью 10-3. Будем каждый раз после деления пополам увеличивать точность в 2 раза до нахождения корня x. Выведем f(x) с точностью 10-5 |
Pascal массивы 1) дан массив из 15 целых чисел найти сумму первых семи чисел и поставить ее на восьмое место (присвоить возьмому элементу сумму 7) 2) дан массив из 20 чисел отсортировать в порядке возрастания 3) даны 10 треугольников со сторонами a,b,c (массив - сторона треугольника) Определить номер треугольника с наибольшой площадью. | ||||||||||||||||||||||
|
Pascal Напечатать гласные буквы, входящие в каждое слово, и согласные буквы, не входящие ни в одно слово
https://www.cyberforum.ru/ pascal/ thread1856119.html Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово; все согласные буквы, которые не входят ни в одно слово. Помогите с программой, пожалуйста. |
Pascal Решение задачи по поиску двух различных max в массиве Всем доброго времени суток! Подскажите пожалуйста, вреде бы делаю все правильно, но программа находит два одинаковых максимальных элемента массива, а мне нужно, чтобы они были разные, если два одинаковых числа в массиве, то должны указываться разные места этих чисел. Вот код программы: program massiv5; const N=25; type x=array of integer; var a:x; i:integer; max1,max2:integer; imax1,... https://www.cyberforum.ru/ pascal/ thread1856058.html | ||||||||||||||||||||||
|
Pascal Вывести множество значений функции, удовлетворяющих условию, и подсчитать количество остальных значений Дана целочисленная функция f(k)= K^3-25K^2+50K+1000 определена только для целых значений аргумента К. Составить программу вычисления значений функции f(k) для 20 значений аргумента К в интервале (-30,60) с выводом лишь тех значений, которые удовлетворяют заданному условию, и подсчетом остальных ее значений. Задать А=30000, В=60000, М=4. Значение f(K) заключено либо между значениями... |
Pascal Написать программу которая запрашивает ряд чисел и считает их сумму
https://www.cyberforum.ru/ pascal/ thread1855747.html написать программу которая запрашивает ряд чисел и считает их сумму. количество чисел не ограничено. при нажатии цифры "1" - ввод чисел прекращается | ||||||||||||||||||||||
| Pascal Переписать в отдельный текстовый файл строки, содержащие заданный символ не более одного раза Необходимо написать программу,которая будет сохранять в отдельный текстовый документ строки содержащие заданный. символ не более одного раза. Входные данные: текстовый документ со строками Выходные данные: текстовый документ содержащий строки с заданным символом не более одного раза. Добавлено через 1 час 44 минуты Решил сам , вот код кому интересно var input, output: text; ... https://www.cyberforum.ru/ pascal/ thread1855720.html |
Pascal Преобразовать массив методом "пузырьков" Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине — элементы, стоявшие в нечетных позициях. Упорядочить каждую часть массива по возрастанию, используя алгоритм сортировки методом прямого обмена. изначальный массив - (-1 4 7 6 0 9) мой результат после выполнения программы - (-1 -1 0 6) ДОЛЖНО БЫТЬ - (4 6 9... | ||||||||||||||||||||||
|
Pascal Метод Лагранжа
https://www.cyberforum.ru/ pascal/ thread1855535.html Не совсем правильно работает код, в чем может быть проблема? Пробовал добавлять к знаменателям 1 - все равно. Заранее спасибо за помощь. var i, M, N: integer; h, A, B: real; Xn, Yn: array of real; function F(x:real): real; begin F:=x*ln(x)-1.2; end; function Lagr(X:real):real; |
Pascal Найти сумму цифр числа, записанного прописью
https://www.cyberforum.ru/ pascal/ thread1855529.html Всем доброго времени суток! Помогите, пожалуйста, с задачей. Дана строка, в которой записано целое число, например: триста двадцать один. Найти сумму цифр этого числа. В приведенном примере это 6. Проблема в том, что вроде понимаю как делать, но написать код ума не хватает. Заранее спасибо за помощь. | ||||||||||||||||||||||
|
Pascal Найти внешние диаметры колец, площадь которых больше площади заданного прямоугольника, и число таких колец Дана матрица из 2 столбцов и 10 строк. Первый элемент каждой из них представляет диаметр внутренней, а второй-диаметр внешней окружности кольца. Отсчитать внешние диаметры тех колец, площадь которых больше площади прямоугольника с заданными сторонами и число таких колец. |
Pascal Типизированный файл и сортировка
https://www.cyberforum.ru/ pascal/ thread1855345.html Помогите, пожалуйста, написать программу для контрольной. Условие: Ввести неупорядоченную последовательность из 20 элементов. Сохранить последовательность в файле. Написать процедуры упорядочивания последовательности методом шейкер-сортировки, вставки К новых элем
Наверх
| ||||||||||||||||||||||
Сообщение было отмечено азазин как решение