|
|
| Другие темы раздела | |
| Pascal ABC Подсчитать количество пар соседних взаимно обратных чисел 2. Решить задачу: дан массив целых чисел. Подсчитать количество пар соседних взаимно обратных чисел. Вывести на экран те из них, которые по модулю больше заданного положительного K. https://www.cyberforum.ru/ pascalabc/ thread755984.html |
Pascal ABC 8 1. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже Program Kr_N_4; Const NMax = 50; Type Mass = Array Of Real; Var A : Mass; I, J, N : 0..NMax; C : Real; Begin Write('Размерность массива N='); ReadLn(N); For I := 1 To N Do For J := 0 To N-1 Do Begin Write('A= '); Readln(A)End; For I := 1 To N Do For J := 0 To N-1 Do Begin C := A; A := A; A := C End; |
| Pascal ABC Найти путь максимальной длины и отразить дерево зеркально относительно этого пути Найти путь максимальной длины и отразить дерево зеркально относительно этого пути. ==== T ===== === T === ==H====G=== =G====H= J ==L ====O= O====L==J= ====R====== ====R==== только вместо букв используются цифры. https://www.cyberforum.ru/ pascalabc/ thread755946.html |
Pascal ABC Заполнить квадратную матрицу порядка N по следующему правилу
https://www.cyberforum.ru/ pascalabc/ thread755939.html Заполнить квадратную матрицу порядка N по следующему правилу: элементы четных строк совпадают с удвоенным произведением своих индексов, а элементы нечетных строк — с модулем разности своих индексов. |
|
Pascal ABC Среди всех пар элементов массива найти те, разность между которыми есть величина, наибольшая для данного массива Составить программу, отыскивающую среди всех возможных пар элементов одномерного массива те, разность между которыми есть величина, наибольшая для данного массива. |
Pascal ABC Точно и однозначно сформулировать условие задачи
https://www.cyberforum.ru/ pascalabc/ thread755933.html Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. Program Kr_N_4; Const N = 10; Type Mass = Array Of Integer; Var A : Mass; I, K: 1..N+1; X : Integer; Begin Write('Введите номер (от 1 до', N, '):'); ReadLn(K); Write('Введите значение: '); ReadLn(X); Randomize; For I := 1 To N Do Begin A := -15 + Random(30); Write(A,' ') End; For I := N DownTo K Do |
|
Pascal ABC Заполнить квадратную матрицу порядка N по следующему правилу
https://www.cyberforum.ru/ pascalabc/ thread755931.html Заполнить квадратную матрицу порядка N по следующему правилу: "шахматная доска" — чередовать в каждой строке числа 0 и 1, причём одна строка начинается с 0, другая с 1, и т.д. |
Pascal ABC Найти произведение тех элементов массива, произведение цифр которых больше заданного K Найти произведение тех элементов массива, содержащего натуральные числа, произведение цифр которых больше заданного K. |
|
Pascal ABC Точно и однозначно сформулировать условие задачи
https://www.cyberforum.ru/ pascalabc/ thread755929.html Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. Program Sort_Nat; Const NMax = 100; Type Natur = 1..32767; Function Summa(N : Natur) : Byte; Var S : Byte; Begin S := 0; While N <> 0 Do Begin S := S + N Mod 10; N := N Div 10 End; Summa := S End; Var A : Array Of Natur; I, J, N, K, Z, No : 1..(NMax+1); Min, Max : Byte; Vsp : Natur; Begin ... |
Pascal ABC Получить квадратную матрицу по правилу Заполнить квадратную матрицу порядка N по следующему правилу: элементом массива является степень, основание которой — первый индекс, показатель — второй индекс. https://www.cyberforum.ru/ pascalabc/ thread755924.html |
|
Pascal ABC Просуммировать элементы массива до первого нуля или сообщить об отсутствии нулей в массиве Просуммировать элементы массива до первого нуля или сообщить об отсутствии нулей в массиве. |
Pascal ABC Точно и однозначно сформулировать условие задачи, решение которой приведено ниже
https://www.cyberforum.ru/ pascalabc/ thread755921.html Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. Program Ex_4_5; Type LinMass = Array Of Integer; Var I, N : Byte; K : Integer; A : LinMass; Begin Randomize; Write('Сколько элементов в массиве (ввести N)? '); ReadLn(N); Write('Введите заданное число K (K < N): '); ReadLn(K); For I := 1 To N Do Begin A := -100 + Random(201); Write(A :... |
|
0 / 0 / 0
Регистрация: 25.12.2012
Сообщений: 54
|
|
| 0 | |
Получить квадратную матрицу по правилу - Pascal ABC - Ответ 396966508.01.2013, 19:13. Показов 1233. Ответов 1
Метки (Все метки)
Вернуться к обсуждению: Получить квадратную матрицу по правилу Pascal ABC
0
|
|
Лучшие ответы (1)
|
|
| 08.01.2013, 19:13 | |
|
Готовые ответы и решения:
1
|
| 08.01.2013, 19:13 | |
|
Помогаю со студенческими работами здесь
0
|
Наверх