|
|
Другие темы раздела | |
Pascal Факториал (2k)! Можно вообще это как-то сделать без применения функции или только через неё? Можете посмотреть,правильная ли у меня функция,на практике всё считает правильно. program number; var k,a:longint; function fact(n:integer):longint; begin if (n=0) then fact:=1 else fact:=n*fact(n-1); https://www.cyberforum.ru/ pascal/ thread2157390.html |
Знак Зодиака Pascal Срочно дорогие, нужно создать программу, которая при вводе даты рождения выдает знак зодиака и усложнена картинкой или описанием и еще теорию(т.е. какие операторы и где именно использованы и для чего именно) + комментарии к операторам |
Pascal В матрице повернуть средний наибольший ромб элементов на 90 градусов против часовой стрелки Здравствуйте, помогите пожалуйста с написанием кода для следующей задачи. Задача: Создать процедуру, поворачивающую в квадратном массиве matrixnn (n – нечетное) средний наибольший ромб элементов на 90 градусов против часовой стрелки. Использовать подпрограммы. https://www.cyberforum.ru/ pascal/ thread2157146.html | Pascal Задачка на динамические структуры Помогите пожалуйста, написать программу с использованием типа "Линейный двунаправленный список". Даны 2 списка, элементы которых - целые числа. Сформировать новый список, включающий элемнты, которые встречаются в первом, но не встречаются во втором списке. Как я понимаю: создаем новый список и идём по первому списку, для каждого элемента в цикле проверяем есть ли он во втором и, если нет, то... https://www.cyberforum.ru/ pascal/ thread2157136.html |
Как записать (-1)^n? Pascal Как записать (-1)^n? n изменяется от 0 до бесконечности в цикле |
Pascal Какое значение будет выведено в результате выполнения программы
https://www.cyberforum.ru/ pascal/ thread2156811.html Задан одномерный массив A=(7,5,4,6,3,2,1). Какое значение будет выведено в результате выполнения программы: var a:array of integer; i,j,k,c:integer; begin write('Введите семь элементов массива'); for k:=1 to 7 do read(a); i:=3; c:=0; for k:=1 to 100 do |
Pascal Сформулировать задачу по фрагменту Сформулируйте задачу, решаемую в предложенном фрагменте программы, где a - элемент массива размерности N. Определите значение переменной M, если N=7, A= (-2,3,4,-4,6,5,0): m:=0; for i:=1 to n do if a>0 then if a/2=trunc(a/2) then m:=m+1 https://www.cyberforum.ru/ pascal/ thread2156800.html |
Код из C++ в Паскаль Pascal Нужно переделать код из C++ в Паскаль.Помогите пожалуйста. struct item { int key, prior; item * l, * r; item() { } item (int key, int prior) : key(key), prior(prior), l(NULL), r(NULL) { } }; typedef item * pitem; |
Pascal Список списков Может есть у кого исходники списка списков? добавление до, после и удаление и вхождение в элемент и последующее редактирование его списка https://www.cyberforum.ru/ pascal/ thread2156576.html | Pascal Заменить все отрицательные элементы двумерного массива на максимальный элемент Написать программу, которая заменяет все отрицательные элементы двумерного массива на максимальный элемент. Количество строк и столбцов задаётся пользователем, элементы массива задаются программно случайными целыми числами. Заменить все отрицательные элементы массива на максимальный. https://www.cyberforum.ru/ pascal/ thread2156454.html |
Pascal Записать все слова строки (вместе со знаками препинания) в массив строк Записать все слова строки (вместе со знаками препинания) в массив строк { Печать текста по строкам } program stroki; var t:string; i,l,n:integer; a:char; begin ClrScr; write('Текст:');readln(t); l:=length(t); |
Pascal Реализовать в виде модуля набор подпрограмм для выполнения действий над матрицами
https://www.cyberforum.ru/ pascal/ thread2156245.html Реализовать в виде модуля набор подпрограмм для выполнения следующих действий над матрицами: 1) объединение двух матриц с одинаковым числом столбцов в одну матрицу: матрица B(L,M) присоединяется снизу к матрице A(N,M), в результате получается матрица R(L+N,M); 2)объединение двух матриц с одинаковым числом строк в одну матрицу: матрица B(N,L) присоединяется справа к матрице A(N,M), в... |
0 / 0 / 0
Регистрация: 14.12.2017
Сообщений: 7
|
|
0 | |
Найти номер первого элемента последовательности, меньший введённого с клавиатуры числа - Pascal - Ответ 1194650314.12.2017, 19:23. Показов 1431. Ответов 3
Метки (Все метки)
Дано начальное значение a(0)=2 и рекуррентная формула a(i)= 2+a(i-1)^2/2*i*a(i-1). Найти номер первого элемента, который стал меньше введённого с клавиатуры числа.
Вернуться к обсуждению: Найти номер первого элемента последовательности, меньший введённого с клавиатуры числа Pascal
0
|
14.12.2017, 19:23 | |
Готовые ответы и решения:
3
Найти номер первого минимального элемента во вводимой с клавиатуры последовательности чисел С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел. Получить порядковый номер первого четного элемента вводимой последовательности Определить номер и значение первого элемента массива, большего числа M |
14.12.2017, 19:23 | |
14.12.2017, 19:23 | |
Помогаю со студенческими работами здесь
0
Найти номер первого нечётного члена последовательности Найти номер первого четного элемента массива Найти номер первого четного элемента массива. Найти номер первого четного элемента массива |