|
|
| Другие темы раздела | |
|
Turbo Pascal Палиндромы и двоичная система
https://www.cyberforum.ru/ turbo-pascal/ thread2107593.html Всем привет! Само задание звучит так : Найти все простые числа, не превосходящие натуральное число N, двоичная запись которых представляет собой палиндром. N задано, и не должно превосходить 1000. Палиндром – это число, которое одинаково читается слева направо и справа налево. Я написал программу , она переводит числа в двоичную систему, а как теперь эту программу перевести , чтобы она работала... |
Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12, . 24 часа Turbo Pascal Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12, .... 24 часа. |
|
Turbo Pascal Дана последовательность из 20 целых чисел. Определить со скольких простых чисел она начинается
https://www.cyberforum.ru/ turbo-pascal/ thread2107419.html Дана последовательность из 20 целых чисел. Определить со скольких простых чисел она начинается. |
Turbo Pascal Матрица B[1:T, 1:T] содержит два одинаковых элемента. Напечатать их индексы
https://www.cyberforum.ru/ turbo-pascal/ thread2107331.html Матрица B содержит два одинаковых элемента. Напечатать их индексы. |
|
Turbo Pascal В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения В таблице из 20 чисел, лежащих в промежутке от -50 до 50, заменить все отрицательные числа на их абсолютные значения. |
Turbo Pascal Оператор выбора Имеется пронумерованный список деталей: 1) шуруп, 2) гайка, 3) винт, 4) гвоздь, 5) болт. Составить программу, которая по номеру детали выводит на экран ее название. https://www.cyberforum.ru/ turbo-pascal/ thread2107268.html |
| Turbo Pascal Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0 Не используя стандартные функции (за исключением abs), вычислить с точностью eps>0 y=sh x=x+ \frac{x^3}{3!} + \frac{x^5}{5!} +...+ \frac{x^{2n+1}}{(2n+1)!}+... Считать, что требуемая точность достигнута, если очередное слагаемое по модулю меньше eps. https://www.cyberforum.ru/ turbo-pascal/ thread2106994.html |
Turbo Pascal Вычислить значение функции при заданном значении х Вычислить значение функции при заданном значении х F(x)=\begin{cases}-x^3+9 & \text{ if } x\leq 13 \\\\ -\frac{3}{x+1} & \text{ if } x>\,13 \end{cases} |
|
Turbo Pascal Error 15
https://www.cyberforum.ru/ turbo-pascal/ thread2106961.html Подскажите ,пожалуйста, что делать, если при подключении модуля Graph "Uses Graph", последующая компиляция выдаёт ошибку 15 ? Я уже выставил в EXE %TPU directory директорию, где лежат модули с расширением TPU, но проблема не исчезла. |
Turbo Pascal для целочисленного массива A[1:15] определить является ли сумма его элементов четным числом.Вывести на печать ДА или НЕТ
https://www.cyberforum.ru/ turbo-pascal/ thread2084473.html для целочисленного массива A определить является ли сумма его элементов четным числом.Вывести на печать ДА или НЕТ |
|
Turbo Pascal Найти сумму ряда с точностью E Найти сумму ряда с точностью \varepsilon ={10}^{-3} , общий член которого определяется формулой {a}_{n}=({n}^{2}+10)/n |
Turbo Pascal Вставить одну строку в другую с заданной позиции
https://www.cyberforum.ru/ turbo-pascal/ thread2083585.html Разработать процедуру. Во входном файле хранится 2 слова и одно число. Пример: vodo provod 4 {номер символа, после которого второе слово, вставляется в первое} В выходном файле должно быть выведено vodoprovod |
|
0 / 0 / 0
Регистрация: 13.10.2017
Сообщений: 13
|
|
| 0 | |
Найти минимум функции, используя цикл с параметром - Turbo Pascal - Ответ 1163955420.10.2017, 19:25. Показов 1140. Ответов 1
Метки (Все метки)
Вернуться к обсуждению: Найти минимум функции, используя цикл с параметром Turbo Pascal
0
|
|
| 20.10.2017, 19:25 | |
|
Готовые ответы и решения:
1
Дано целое число N (> 0). Найти сумму N^2 + (N + 1)^2 + (N + 2)^2 + ... + (2*N)^2 используя цикл с параметром |
| 20.10.2017, 19:25 | |
| 20.10.2017, 19:25 | |
|
Помогаю со студенческими работами здесь
0
Переписать серию команд, используя цикл с параметром (For)
|