|
|
Другие темы раздела | |
Pascal написать программу, вычисляющую сумму элементов матрицы, не равных заданному числу к
https://www.cyberforum.ru/ pascal/ thread870099.html Не могу написать программу, вычисляющую сумму элементов матрицы, не равных заданному числу к.Помогите, полжалуйста! |
Распределить элементы по массивам Pascal Нужно определить хроматическое число n-мерного двоичного куба n>=1/ Для написания программы взял 3-х мерный куб, потом переделаю для общего случая. Куб задаётся матрицей смежности, через двухмерный массив. Двухмерный масив перевожу в одномерный и получаю вершины которые окрасятся. Нужно сделать так, что если какой-нибудь элемент есть в массиве kraska1, то его не должно быть в kraska2 и если... |
Pascal Удалить столбец и строку, на пересечении которых находиться седловая точка Удалить столбец и строку, на пересечении которых находиться седловая точка. https://www.cyberforum.ru/ pascal/ thread870006.html | Pascal Щахматная доска Имеется шахматная доска. Некоторые поля не ней заняты белыми и черными фигурами и пешками. Каждая занятое поле белыми фигурами и пешками определяется числом -1, а черными - числом 1. Необходимо определить маршрут белого коня с поля (Х1,У1) на поле (Х2,У2), при котором количество его ходов минимально. Сбитие черной фигуры считается дополнительным ходом (т.е. ход на поле, занятое... https://www.cyberforum.ru/ pascal/ thread869884.html |
Найти сумму целых положительных нечетных чисел меньших 50 Pascal Найти сумму целых положительных нечетных чисел меньших 50 |
Pascal Необходимо правильно записать выражение Необходимо правильно записать выражение : (2 – (j – 5)2 )j -3 ( i - |j-7|4 ) (i +7,6) ln(|tg(i/2)|) Мой вариант: a:=((2-(sqr(j-5)))*(1/(j*j*j))*(i-(exp(ABS(j-7)))*(ln(4)))*(i+7.6)*(ln(ABS((sin(i/2)/cos(i/2)))))); При ручном пересчета (при i=1, j=1) выходит a=10542. Результат выполнения: a=-40637.5144191. Вот код всей программы: https://www.cyberforum.ru/ pascal/ thread869680.html |
Pascal Типизированные файлы и массивы
https://www.cyberforum.ru/ pascal/ thread869581.html Помогите решить=( желательно с использованием процедур Сформировать матрицу A(NxN), которую вывести. Строки с отрицательным элементом на главной диагонали последовательно записать в файл F . В конец файла F дописать сумму первой и последней компонент, а затем первый и последний элемент матрицы A. Файл F вывести до и после преобразования при помощи процедуры. |
Pascal Если элементы столбца матрицы образуют убывающую последовательность, то записать номер этого столбца в одномерный массив. Дана действительная матрица порядка n x n. Если элементы столбца матрицы образуют убывающую последовательность, то записать номер этого столбца в одномерный массив. |
Pascal Если произведение элементов, расположенных между первым и вторым положительными элементами кратно 3, то поменять эти элементы местами
https://www.cyberforum.ru/ pascal/ thread869271.html дан массив, состоящий из m элементов. Если произведение элементов, расположенных между первым и вторым положительными элементами кратно 3, то поменять эти элементы местами. Если в массиве нет двух положительных элементов, то поменять местами первый и и последний элементы массива. |
Pascal Сформировать массив
https://www.cyberforum.ru/ pascal/ thread869253.html Сформировать массив |
Решение СЛАУ методом Холецкого Pascal В Паскале совсем новичок, не могу разобраться с типом данных, если в начале задать переменные типа real, то пишет ошибку: Неверная вещественная операция, если integer - попытка присвоить переменной типа integer выражение типа real. Программа для решения СЛАУ методом Холецкого Program holeckogo; Uses crt; const n=3; Var i,j:byte; A,L,Lt: array of integer; B,X,y: array of... |
Pascal Найдите ошибку в коде (Заменить нулями элементы на главной диагонали матрицы и выше) Есть задание : Дана матрица nxn.1)Заменить нулями эл-ты на главной и выше 2) Посчитать сумму эт-тов, расп. на побочной диагонали и ниже const n=5; var a: array of integer; i,j: byte; sum : integer; begin randomize; writeln('исходный массив: '); https://www.cyberforum.ru/ pascal/ thread868888.html |
0 / 0 / 0
Регистрация: 06.03.2013
Сообщений: 13
|
|||||||
0 | |||||||
Информатика - Pascal - Ответ 457905519.05.2013, 12:46. Показов 632. Ответов 2
Метки (Все метки)
ЭТО СРОЧНО в файле все написано.В долгу не останусь.умоляю.
Вернуться к обсуждению: Информатика Pascal
0
|
19.05.2013, 12:46 | |
Готовые ответы и решения:
2
информатика информатика информатика Информатика |
19.05.2013, 12:46 | |
19.05.2013, 12:46 | |
Помогаю со студенческими работами здесь
0
информатика 9 класс Информатика задачка информатика, паскаль Информатика 11 класс |