Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Нахождение номера максимального элемента массива Помогите пожалуйста, до завтра надо сдать 3 индивидуальные работы, 1 я сделал, но вот эти две вообще без представления. Буду очень признателен. 1. В одномерном массиве, состоящем из n целых... https://www.cyberforum.ru/ pascal/ thread102332.html	Функции и Алгоритм Евклида Pascal Помогите пожалуйста! Даны натуральные числа а и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь т.е найти такие натуральные числа p и q, не имеющие общих делителей,...
Pascal Считывание из файла https://www.cyberforum.ru/ pascal/ thread102329.html вот написал прогу для считывния строк букв и слов, все работает хорошо только с txt файлами, и c небольшими doc. а при большых текстах в doc выдает ошибку, мол, ревышен лимит строки 0..255, как и...	Pascal работа с текстом в паскале помогите пожалуйста хоть чем нибудь) нужно написать код для подсчета и вывода N н/б часто употребленных слов в тексте, слва в различных падежах не учитывать, считая из разными словами, регистр не... https://www.cyberforum.ru/ pascal/ thread102328.html
Pascal алгоритм Кнута-Морисcа-Пратта нужно написать программу по теме "Массивы"...нужно использовать алгоритм Кнута, Мориса и Пратта а я не знаю как это написать	Pascal Вычислить факториал https://www.cyberforum.ru/ pascal/ thread102325.html Дано натуральное число N. Вычислить N!. Дано 3 целых числа. Вывести их в порядке возрастания.
Pascal блок-схема Найти кол-во чисел, являющихся степенью числа 3 https://www.cyberforum.ru/ pascal/ thread102321.html program ololo1; uses crt; var m,n,i,e,x,r,t,u,l:integer; begin x:=0; l:=-1; clrscr; write('vvedite nachalo intervala '); readln(m); write('vvedite konec intervala '); readln(n);	Pascal Решение СЛАУ... Здравствуйте...мне нужно решить СЛАУ методом LU-разложения, методом ортогонализации, методом прогонки, методом простых итераций...могли бы вы мне помочь...мне нужно решить хотя бы одним из этих...
Pascal Нужно доработать программу по рекурсии Извлечь корень m-ой степени из числа с помощью разложения формула на рисунке не знаю как записать дельта "x" и убрать выдачу записи у=0 при x<0 uses crt; var i,m,x,x1:longint; function... https://www.cyberforum.ru/ pascal/ thread102312.html	Pascal Определить кол-во отрицательных элементов https://www.cyberforum.ru/ pascal/ thread102305.html Дан массив B(n). Определите количество отрицательных элементов до первого положительного. Выведите на экран исходный массив количество найденных элементов.
Pascal вычислить сумму элементов четных строк матрицы вычислить сумму элементов четных строк матрицы А размерности 5х4,умноженную на сумму элементов нечетных строк матрицы.матрицу А из целых чисел ввести во входном файле,а результаты вывести в выходной...	Pascal Процедуры Помогите написать процедуру, которая в заданном одномерном массиве меняет местами минимальный и последний элемент . Применить эту процедуру к каждому столбцу заданной прямоугольной матрицы. https://www.cyberforum.ru/ pascal/ thread102292.html

Snoopy

1915 / 1065 / 384

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

Сообщений: 2,802

08.03.2010, 16:43

Для заданной квадратной матрицы порядка n поменять местами элементы главной и побочной диагоналей - Pascal - Ответ 587269

08.03.2010, 16:43. Показов 2255. Ответов 3

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

Ответ

вот вам вторая

Pascal

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,sum,x:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
for i:=1 to n do
begin
  x:=a[i,i];
  a[i,i]:=a[i,(n+1-i)];
  a[i,(n+1-i)]:=x;
end;
for i:=1 to n do
 begin
  for j:=1 to n do
   Write(a[i,j]:4);
  Writeln;
 end;
sum:=0;
for i:=1 to n do
 for j:=1 to n do
  if i mod 2=0 then
   begin
    if (n-j+1<i) then
     sum:=sum+a[i,j];
   end;
Writeln('Sum=',sum);
Readln;
end.

Вернуться к обсуждению:
Для заданной квадратной матрицы порядка n поменять местами элементы главной и побочной диагоналей Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

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

08.03.2010, 16:43

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

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

В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей
В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей.

Поменять местами элементы главной и побочной диагоналей матрицы по строкам (Блок-схема)
Дана вещественная квадратная матрица размерности n. Поменять местами элементы главной и побочной...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

08.03.2010, 16:43

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

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

В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей
В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей.

Дана матрица А порядка n. Поменять местами элементы главной и побочной диагоналей
Нужна срочная помощь) Дана матрица А порядка n. Поменять местами элементы главной и побочной...

В квадратной матрице А(7,7) поменять местами минимальные элементы первой и третьей строк, максимальные элементы главной и побочной диагоналей
Составил программу, но похоже неправильно. При вводе пишет ошибка проверки диапазона и курсор...

Наверх