|
|
Другие темы раздела | |
PascalABC.NET Заливка фигур Помогите, как залить эту фигуру. Заливает весь фон. uses graphABC; var x0,y0:integer; begin SetWindowSize(800, 800); Centerwindow; x0 := windowwidth div 2; y0 := windowheight div 2; FloodFill(x0 - 150, y0 - 200, clBlue); line(x0 - 150, y0 - 200, x0 + 100, y0 - 200); https://www.cyberforum.ru/ pascalabc-net/ thread1945550.html |
PascalABC.NET В двумерном массиве целых чисел размерности 5×9 поменять местами строки и столбцы с одинаковыми номерами В двумерном массиве целых чисел размерности 5×9 поменять местами строки и столбцы с одинаковыми номерами. Двумерный массив заполнить случайными числами от 0 до 15. Помогите, пожалуйста, решить задачку. Сама бум-бум в этом. Буду очень признательна:) |
PascalABC.NET Вычислить сумму ряда с точностью e=10-5
https://www.cyberforum.ru/ pascalabc-net/ thread1945371.html Вычислить сумму ряда с точностью ε = 10-5 \sum_{k=1}^{\infty}(-1)^k\,\frac{x^{2k}}{2k(2k-1)} Помогите, пожалуйста решить задачу! Сама я совсем в этом не понимаю, а лабу надо сдать. Буду очень благодарна :) |
PascalABC.NET Определить порядковый номер максимальной цифры числа, считая номера от конца числа Дано натуральное число, в котором все цифры различны. Определить порядковый номер его максимальной цифры, считая номера от конца числа с помощью WHILE https://www.cyberforum.ru/ pascalabc-net/ thread1945296.html |
PascalABC.NET Дано натуральное число N. Определить сумму m его последних цифр Дано натуральное число N. Определить сумму m его последних цифр. |
PascalABC.NET Перевод действительного числа X из с/с с основанием q в с/с с основанием p (нужны комментарии) Задача Разработать программу, выполняющую перевод действительного числа X заданного в системе счисления с основанием q в систему счисления с основанием p (2≤ q,p ≤16). На просторах интернета удалось найти программу, но никак не могу в ней разобраться, помогите пожалуйста program lab_14; const digit:string='0123456789ABCDEF'; https://www.cyberforum.ru/ pascalabc-net/ thread1945148.html |
PascalABC.NET Дробная часть числа Доброго времени суток! Нужно вывести дробную часть числа(это часть программы),но если,например,ввести "1.6", то выдает "0,599999999" var a:real; begin read(a); writeln(frac(a)); end. https://www.cyberforum.ru/ pascalabc-net/ thread1945086.html |
PascalABC.NET Произведение не нулевых элементов побочной диагонали матрицы Программа выводит слишком большое число. Что нужно исправить? const n=4; var i,j,p:integer; a:array of integer; begin p:=1; for i:=1 to n do for j:=1 to n do a:=random(10); |
PascalABC.NET Рекуррентное соотношение Здравствуйте, уважаемые программисты! Я недавно начал изучать PascalABC.NET, но передо мной встала задача, которую я не могу решить своими силами. Нужно вывести на экран n членов последовательности, которая задана рекуррентным соотношением a{}_n_+_1{}=3a{}_n{}-2a{}_n_-_1{} При этом a{}_1{}=3 a{}_2{}=8 a{}_3{}=18 Напишите, пожалуйста, программу, чтобы я не дай бог не ошибся в расчете... https://www.cyberforum.ru/ pascalabc-net/ thread1945034.html |
PascalABC.NET Разложить N яблок по мин.корзинам по кругу так, чтобы разница между яблоками двух соседних корзин составляла 1
https://www.cyberforum.ru/ pascalabc-net/ thread1944919.html Решить с помощью рекурсии. "Разложить N яблок по мин.корзинам по кругу так, чтобы разница между яблоками двух соседних корзин составляла 1." |
PascalABC.NET Найти все простые делители натурального числа N Нужно нарисовать блок-схему :cry: program ZCHT7; uses crt; var i,n,j,a,flag:longint; b:array of longint;label met; begin clrscr; write('Введите число: ');readln(n); b:=2;a:=3;j:=1;flag:=0; |
PascalABC.NET Программирование задач с использованием процедур или функций
https://www.cyberforum.ru/ pascalabc-net/ thread1944875.html Составить процедуру (или функцию), вычисляющую: N= \begin{cases} 0, & \text{ npu } {x}_{1}\neq 0 \\ n, & \text{ npu } {x}_{1}={x}_{2}=...={x}_{n}=0 \\ m, & \text{ npu } {x}_{1}={x}_{2}=...={x}_{m}=0\ {x}_{m+1}\neq 0 (m<n) \end{cases} для некоторого одномерного массива X(x1, x2, ... , xn). Дана квадратная матрица A(R,R). Определить значение N для четных строк и нечетных столбцов. ... |
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
|
|
24.03.2017, 21:05 | 0 |
Принадлежность числа последовательности - PascalABC.NET - Ответ 1025373724.03.2017, 21:05. Показов 811. Ответов 5
Метки (Все метки)
Ответ
СКРИПКИН, 5-ю строку в коде можно удалить в принципе. 18 через рекурсию получится всё равно
Вернуться к обсуждению: Принадлежность числа последовательности PascalABC.NET
0
|
24.03.2017, 21:05 | |
Готовые ответы и решения:
5
как проверить принадлежность числа к последовательности чисел Принадлежность символа к последовательности Переставить числа последовательности таким образом, чтобы в начале этой последовательности оказались все положительные числа, а в конце отрицательные Найти числа из заданной последовательности, которые делятся на все числа из другой последовательности |
24.03.2017, 21:05 | |
24.03.2017, 21:05 | |
Помогаю со студенческими работами здесь
0
Принадлежность числа диапозону Проверить принадлежность числа множеству Принадлежность дробного числа интервалу Проверить принадлежность числа x интервалам |