Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Рассчитать ввп и рассортировать по убыванию https://www.cyberforum.ru/ turbo-pascal/ thread251553.html
Страна, Население, ВВП. Требуется рассчитать ввп на душу населения и рассортировать по убыванию. Данные произвольные. с блок схемой
Turbo Pascal Найти сумму и количество положительных элементов, расположенных между минимальным и максимальными
задание написать программу с блок -схемой используя одномерный массив.Дан массив A(30).Найи сумму и количество положительных элементов, расположнных между минимальным и максимальными элементами...
Turbo Pascal Дана строка, состоящая из букв и цифр. Найти сумму всех цифр, входящих в эту строку. Дана строка, состоящая из букв и цифр. Найти сумму всех цифр, входящих в эту строку. if s in then begin val(s,X,cod); sum:=sum+X; end; почему результат не выводит ? ) https://www.cyberforum.ru/ turbo-pascal/ thread251544.html Turbo Pascal Вычислить значение многочлена https://www.cyberforum.ru/ turbo-pascal/ thread251543.html
7х в степени 7 плюс 6х в степени 6 плюс 5х в степени 5 плюс 4х в степени 4; и еще одну прогу чтобы затабулировать эту функцию спомощью операторов циклов for while repeat x принадлежит n=10
Turbo Pascal Записи
Написать программу, определяющую количество авто. Для каждого владельца известны количество авто (тип integer), марка автомобиля (тип string), фамилия (тип string).
Turbo Pascal Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга Помогите написать, заранее благодарен. Четыре круга заданы радиусами и координатами своих центров на плоскости. Найти пару кругов, имеющих наибольшую площадь и не перекрывающих друг друга. https://www.cyberforum.ru/ turbo-pascal/ thread251534.html
Turbo Pascal Найти сумму ряда, используя смешанный кэффициент https://www.cyberforum.ru/ turbo-pascal/ thread251517.html
Задали задание, описанное в заголовке темы. S=\cos(x)+ \frac{\cos (3x)}{{3}^{2}}+...+ \frac{\cos(2n-1)*x}{{(2n-1)}^{2}} n=40 Коэффициент вычисляется по формуле k=\frac{{a}_{n}}{{a}_{n-1}} Потом...
Записи Turbo Pascal
имеется n аудиокассет про каждую известно, что кол-во записей не превышает 20-ти. название продолжительность (в минутах) жанр (рок,романс,попса) Найти и вывести название и продолжительность самой...
Turbo Pascal Подсчет количеста аннаграм =) https://www.cyberforum.ru/ turbo-pascal/ thread251473.html
Здравствуйте var s, s1: string; i, j, kol, fac, fact, res, q: longint; begin readln(s); q:= 1; fac:= 1; for i:= 1 to length(s) do begin
Turbo Pascal обработка файлов 1. Создайте файл f, компоненты которого являются действительными числами. Напишите программу вычисления суммы компонент файла f и наименьший компонент файла. 2. Создайте текстовый файл p так, что бы... https://www.cyberforum.ru/ turbo-pascal/ thread251472.html
Turbo Pascal Вычислить сумму S=1*2+2*3*4+3*4*5*6+...+n(n+1)...2n.
Вот такое вот задание: дано натуральное число n= 15. Вычислить сумму S=1*2+2*3*4+3*4*5*6+...+n(n+1)...2n. Вот такая получилась программа: n:=15; s:=0; for i:=1 to 15 do begin ...
Turbo Pascal Если скобки расставлены правильно (т.е. каждой открывающейся соответствует одна закрывающаяся), то вывести число 0 Дана строка, содержащая несколько круглых скобок. Если скобки расставлены правильно (т.е. каждой открывающейся соответствует одна закрывающаяся), то вывести число 0. В противном случае вывести или... https://www.cyberforum.ru/ turbo-pascal/ thread251422.html
66 / 63 / 63
Регистрация: 15.12.2010
Сообщений: 150
03.03.2011, 17:43 0

Вычислить сумму элементов, расположенных на главной и побочной диагоналях матрицы - Turbo Pascal - Ответ 1417915

03.03.2011, 17:43. Показов 1222. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var a:array[1..100,1..100]of integer;
    i,j,n,sg,sp:integer;
begin
clrscr;
writeln('vvedite razmernost massiva');
readln(n);
randomize;
for i:=1 to n do
    begin
         for j:=1 to n do
             begin
                  a[i,j]:=random(15);
                  write(a[i,j],' ');
                  if i=j then sg:=sg+a[i,j];
                  if j=n-i+1 then sp:=sp+a[i,j];
             end;writeln;
    end;writeln;
writeln('summa po pobochnoi diagonali = ',sp);
writeln('summa po glavnoi diagonali = ',sg);
readln;
end.


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

Вычислить сумму элементов, расположенных на главной и побочной диагоналях - решить с использованием процедуры
помогите сделать задачу через процедуру: const n = 6; var a : array of integer; j, i,...

Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях
Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной...

Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях
Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной...

Вычислить сумму элементов, расположенных на главной и побочной диагоналях массива
Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной...

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

Найти сумму элементов на главной и побочной диагоналях матрицы
Задана матрица (9х9) из вещественных чисел.найти сумму элементов по диагонали выглядет на рис....

Сформировать массив из элементов матрицы, расположенных на главной и побочной диагоналях
Дан динамический массив из n строк и m столбцов. Сформировать одномерный массив из элементов...

Определить суммы элементов матрицы расположенных на главной и побочной диагоналях
Объявить массив данных типа int размером 3 на 3. Ввести с консоли его значения, вывести на консоль...

Определить количество четных элементов, расположенных на главной и побочной диагоналях матрицы
Люди добрые помогите пожалуйста. Срочно нужно сделать задание. Задание 5. Ввести матрицу...

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