Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Разделить программу на процедуры https://www.cyberforum.ru/ pascal/ thread1198187.html
Помогите разделить программу на процедуры. {Zadaem razmernost massiva: m-koli4estvo strok,n-koli4estvo elementov v stroke} const m=4; n=5; var i,j,min1,min2:integer; s:real; a:array of real; f:text; begin {4isla iz waila input.txt perepisivaem v massive a}
Pascal Вставить строку из единиц после строк, первый элемент которых четный
Вставить строку из единиц после строк, первый элемент которых четный. Помогите пожалуйста!!! (тема: Вставка строк и столбцов в двумерный массив.)
Pascal Вывести элементы массива, с помощью которых можно собрать заданное число Например, число 6 нужно собрать из двух(k=2) элементов массива 2 2 2 4 5 5. Нужно вывести элементы массива, с помощью которых можно собрать данное число. https://www.cyberforum.ru/ pascal/ thread1198026.html Pascal Написать методы: добавление элемента в список, удаление элемента из списка https://www.cyberforum.ru/ pascal/ thread1197999.html
Написать методы: добавление элемента в список, удаление элемента из списка, нахождение ссылки на первый элемент, нахождение ссылки на последний элемент, вывод списка.
Найти количество элементов, стоящих на местах, кратных трем - составить блок-схему Pascal
Нужно сделать блок-схемы к двум программам. Спасибо program pro; uses crt; var A:array of integer; B:array of integer; i,p,n,f,s,c,d,kol,max,min,mestomin,sa:integer; k: real; begin for i:=1 to 15 do
Pascal Вычислить сумму ряда двумя способами https://www.cyberforum.ru/ pascal/ thread1197937.html
помогите решить задачу двумя способами: 1) задается n слагаемых, используется цикл for 2) задается точность ε, определяющаяся как разность функции контроля( в задании срава от знака равно) и суммы ряда. \frac{\sin x}{x}=\sum_{n=0}^{\infty}\frac{\left(-1 \right)^nx^^{2n}}{\left(2n+1 \right)!}=1-\frac{x^^2}{3!}+\frac{x^^4}{5!}-\frac{x^^6}{7!}+...\ ,\ \ \left|x \right|<\infty
Pascal Создать класс автомобиль, имеющий марку, число цилиндров и мощность. Определить конструктор и функцию печати Добрый вечер,помогите пожалуйста с программой:Нужно создать класс автомобиль, имеющий марку, число цилиндров и мощность. Определить конструктор и функцию печати. Создать производный класс-общественный транспорт, имеющий общее число пассажиров. Определить методы для производного класса. Программа должна позволить осуществить проверку всех методов. https://www.cyberforum.ru/ pascal/ thread1197918.html Составить программу, которая содержит текущую информацию о книгах в библиотеке Pascal
Составить программу, которая содержит текущую информацию о книгах в библиотеке. Сведения о книгах включают: • номер УДК; • фамилию и инициалы автора; • название; • год издания; • количество экземпляров данной книге в библиотеке. Программа должна обеспечивать: • начальное формирование данных обо всех книгах в библиотеке в виде двоичного дерева; • добавление данных о книгах, вновь...
Pascal Простейшая арифметика: переписать код с использованием модуля Type dm=^real; Var a,b:dm; Begin New(a);New(b); write('a,b: ');readln(a^,b^); writeln('a + b = ',a^+b^:0:4); writeln('a - b = ',a^-b^:0:4); writeln('a * b = ',a^*b^:0:4); if b^=0 then writeln('Деление на ноль!') else writeln('a / b = ',a^/b^:0:4); https://www.cyberforum.ru/ pascal/ thread1197856.html Pascal Разработать программу поиска наименьшего значения для всех элементов массивов Ввести n произвольных масовов. Разработать программу поиска наименьшего значения для всех элементов https://www.cyberforum.ru/ pascal/ thread1197712.html
Pascal Из массива В удалить числа в двоичном представлении которых единиц больше, чем нулей
Переписать положительные числа из матрицы целых чисел А в массив В. Из массива В удалить числа в двоичном представлении которых единиц больше, чем нулей.
Pascal Прокомментировать код для подсчёта количества слов в тексте Есть программа для подсчёта количества слов в тексте. Var f:text; s:string; k:integer; Begin Assign(f,'a.txt');Reset(f); k:=0; While not Eof(f) do Begin readln(f,s); https://www.cyberforum.ru/ pascal/ thread1197352.html
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,603
Записей в блоге: 1
04.06.2014, 07:41 0

Создайте новый одномерный массив из элементов двумерного массива, стоящих на главной диагонали - Pascal - Ответ 6271092

04.06.2014, 07:41. Показов 2201. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено aleksandr 0326 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const n=8;
Var D:array[1..n,1..n] of integer;
    A:array[1..n] of integer;
    i,j:byte;
Begin
    writeln('Матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        D[i,j]:=random(91)-45;
        write(D[i,j]:4);
      End;
      A[i]:=D[i,i];
      writeln;
    End;
    writeln('Массив');
    For i:=1 to n do
     write(A[i]:4);
    readln;
End.


Вернуться к обсуждению:
Создайте новый одномерный массив из элементов двумерного массива, стоящих на главной диагонали Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2014, 07:41
Готовые ответы и решения:

Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера которых кратны 3
Создайте новый одномерный массив из элементов двумерного массива, стоящих в столбцах, номера...

Создайте новый одномерный массив из элементов двумерного массива, имеющих нечетное значение
Нужны алгоритм и программа. Заполнить двумерный числовой массив B(6,6) случайными целыми числами в...

Найти количество нулевых элементов матрицы, стоящих: выше главной диагонали; ниже главной диагонали
Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих:...

Проверить, среднее арифметическое элементов двумерного массива больше произведения элементов главной диагонали
2)Присвоить переменной t значение true, если среднее арифметическое элементов двумерного массива...

1
04.06.2014, 07:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2014, 07:41
Помогаю со студенческими работами здесь

Найти сумму всех элементов двумерного массива, расположенных на главной диагонали
Помогите пожалуйста решить задачки на массив в паскале : 3-Найти сумму всех элементов двумерного...

Найти количество отрицательных элементов двумерного массива, расположенных ниже главной диагонали
: Найти количество отрицательных элементов двумерного массива, расположенных ниже главной...

написать программу нахождения суммы элементов двумерного массива, расположенных ниже главной диагонали
пожалуйста, помогите решить две задачи через процедуры: 1. написать программу заполнения...

В матрице сумма элементов, стоящих на главной диагонали, равна сумме элементов, стоящих на побочной диагонали
⦁ «В данной матрице сумма элементов, стоящих на главной диагонали, равна сумме элементов, стоящих...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru