М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
BratiSHkaXD
BratiSHkaXD
14.02.2023 21:11 •  Информатика

Написать формулы для написания линейных программ turbo paskal : найти сумму 1-ых n-членов арифметической прогрессии, если 2-ой элемент=5 а 4-ый=6

👇
Ответ:
Arina4dyuzhova
Arina4dyuzhova
14.02.2023

const a1=4.5; d=0.5;

var S:real; n:integer;

begin

readln(n);

S:=(2*a1*n+d*n*(n-1))/(2);

writeln(S);

end.

4,6(22 оценок)
Открыть все ответы
Ответ:
DikONd
DikONd
14.02.2023

главная диагональ --- это набор элементов с координатами (индексами) (i,i), где i∈[1, n]. n -- размерность матрицы, а вот как быть с транспонированием, например, трёхмерной матрицы? какой смысл оно имеет в этом случае? как составить условие обмена элементов? примечание: вообще состоит в том, чтобы сделать матрицу самосопряжённой, переписать такой вот код для случая произвольной конечной размерности: -- данный код для двумерной матрицы копирует одну её половину (если резать по диагонали) на вторую, при этом комплексно сопрягая элементы. а точнее -- в этом коде непонятно только условие обмена новое -то есть какие координаты поставить: если очередной matrixelement (в эту переменную получаем очередной элемент матрицы) имеет набор координат (x,).

4,6(50 оценок)
Ответ:
veyper1
veyper1
14.02.2023

#include

#include

int main()

{

int n;

int cnt = 0;

std: : cin > > n;

int **arr = new int*[n];

for(int i=0; i

{

arr[i] = new int[n];

for(int j=0; j

{

std: : cin > > arr[i][j];

//arr[i][j] = ++cnt;

}

}

cnt = 0;

while(cnt < n)

{

for(int i=0; i< (n-cnt); i++) std: : cout < < std: : setw(2) < < arr[cnt][i] < < " ";

std: : cout < < std: : endl;

cnt++;

}

for(int i=0; i

delete [] arr[i];

delete [] arr;

arr = nullptr;

system("pause");

return 0;

}

4,7(58 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ