Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Вычислить значение выражения немогу перевисти хелп. https://www.cyberforum.ru/ turbo-pascal/ thread182400.html Turbo Pascal База данных ФИО+Телефон
Нужна база данных в которой бы хранились записи о ФИО и телефоне, с возможностью просмотра, добавления записей, обновления записей, удаления записей, поиска, сортировки и выхода. Добавлено через 21 час 53 минуты up!:cry:
Turbo Pascal Определить, во сколько заканчивается k- тый урок https://www.cyberforum.ru/ turbo-pascal/ thread182369.html
вот дали 15 задач, первые не могу понять как решить, не доходит)) просто недавно начал изучать паскаль :) дайте толчек в правильную сторону Задача №1. Конец К-ого урока В школе продолжительность каждого урока 45 минут, а перемены между уроками - всего 5 минут. Первый урок начинается ровно в 8 часов утра. Напишите программу, отвечающую на вопрос «во сколько в этой школе заканчивается К-ый...
Turbo Pascal Скорректируйте модуль работы с таблицей Скорректируйте пожалуйста мой модуль работы с таблицей,,ввод происходит,,вывод в файл вродь делает,, делаю редактирование и ост. действия выдает разбросанные символы...Unit Firma; Interface Uses MyType, WinCrt; Procedure VvodTablFirma; Procedure VyvodTablFirma; Procedure RedZapFirma; Procedure UdalZapFirma; Procedure DobZapFirma; Implementation https://www.cyberforum.ru/ turbo-pascal/ thread182360.html
Turbo Pascal Осуществить циклический сдвиг элементов
Осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов вправо,n может быть больше количества элементов в строке
Turbo Pascal Подскажите как сюда впарить бесконечный цикл? program Caesar; const n=3; function asc2(toCode:string):string; var x,y:integer; begin for x:=1 to length(toCode) do begin y:=(Ord(toCode)+n); toCode:=Chr(y); end; https://www.cyberforum.ru/ turbo-pascal/ thread182356.html
Turbo Pascal Посчитать количество четных чисел из 21, что вводит пользователь https://www.cyberforum.ru/ turbo-pascal/ thread182353.html
Посчитать количество парных чисел из 21 что вводит пользователь.
Количество изменений знака в каждой строке массива Turbo Pascal
Дано файл в котором записана прямоугольная матрица целых чисел.Для каждой строки подсчитать количество изменений знаков и вывести ее в результирующий файл. var a: array of integer; i, j, n, m,k: integer; f: text; begin assign(f, 'in.txt'); reset(f);
Turbo Pascal Упорядочить по возрастания элементы, Упорядочить по возрастания элементы,находящиеся между минимальными и максимальными элементами целочисленного массива Y https://www.cyberforum.ru/ turbo-pascal/ thread182340.html Turbo Pascal Возведение в степень https://www.cyberforum.ru/ turbo-pascal/ thread182337.html
Написать подпрограмму возведения числа в целую степень. Проверить ее работу на следующих данных: 2 в 10-той, З в 5-той,7 в 0-вой.
геометричное моделирование Turbo Pascal
помогите пожалуйста решить задачу, кто может... нужно написать обучающую программу по геометрию демонстрационного типа, которая поэтапно демонстрирует построение с помощью циркуля и линейки: построение касательной к данной окружности в данном пункте.
Turbo Pascal Метод Симпсона и трапеций https://www.cyberforum.ru/ turbo-pascal/ thread182313.html
Задание: 1.Вычислить разность в количестве итераций, необходимых для получения значения определенного интеграла (в прикрепленных файлах под номером 1) с точностью 0,001 методами трапеций и Симпсона. 2.Вычислить методом Ньютона значение корня уравнения (в прикрепленных файлах под номером 2) на интервале . Заранее благодарен...
Почетный модератор
64301 / 47596 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
27.10.2010, 18:30 0

Матрица. В квадратной матрице поменять местами элементы симметричные отностиельно главной диагонали - Turbo Pascal - Ответ 1062974

27.10.2010, 18:30. Показов 1954. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=x;
 end;
writeln('Отражение по главной диагонали:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln;
end.


Вернуться к обсуждению:
Матрица. В квадратной матрице поменять местами элементы симметричные отностиельно главной диагонали Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.10.2010, 18:30
Готовые ответы и решения:

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

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

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

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

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

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

Поменять местами элементы матрицы, симметричные относительно побочной диагонали
люди помогите решить задачку!!! Разработка в среде Turbo Pascal программы перестановки местами...

Сформировать из одной матрицы другую, поменяв местами элементы, симметричные относительно главной диагонали
Квадратный массив С(m,n) преобразовать в массив D(m,n), в котором элементы массива C поменяются...

В квадратной матрице найти максимальные элементы ниже главной диагонали
Дана матрица А .Найти max элементы ниже главной диагонали .Квадратная матрица ,ввод и вывод был...

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