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=12+234+3456+...+n(n+1)...2n.* Вот такое вот задание: дано натуральное число n= 15. Вычислить сумму S=12+234+3456+...+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

sano32

66 / 63 / 63

Регистрация: 15.12.2010

Сообщений: 150

03.03.2011, 17:43

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

03.03.2011, 17:43. Показов 1222. Ответов 1

Метки (Все метки)

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

Решение

Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

03.03.2011, 17:43

Готовые ответы и решения:

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

03.03.2011, 17:43

Помогаю со студенческими работами здесь

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

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

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

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

Наверх