Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
MsKesha
0 / 0 / 0
Регистрация: 28.11.2012
Сообщений: 1
#1

Двумерный массив (матрица) - Turbo Pascal

01.12.2012, 20:31. Просмотров 352. Ответов 1
Метки нет (Все метки)

Квадратный массив размером МхМ заполняется числами входного текстового файла. Исходный массив распечатывается. Главную диагональ массива упорядочить по убыванию. Переделанный массив распечатать. Исходный массив и упорядоченный записать в файл.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.12.2012, 20:31
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Двумерный массив (матрица) (Turbo Pascal):

Двумерный массив (матрица)
Помогите, пожалуйста, составить матрицу. Не выдает на экран элементы... Где...

Двумерный массив (матрица)
Написать функцию находения среднего арифметического только тех элементов из...

Двумерный массив. Матрица
Дана матрица С(5*5) положительных и отрицательных элементов. 1) Заполнить...

вычислить двумерный массив(матрица)
Дана целочисленная прямоугольная матрица. Определить: 1) количество строк,...

Двумерный массив. Матрица 5х10
Дана матрица размера 5 x 10. Вывести номер ее первой1/последней2...

Задана матрица (двумерный массив) A размером N x М
Добрый вечер Форумчане!!! Помогите пожалуйста с написанием программы на...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,651
Записей в блоге: 1
02.12.2012, 09:56 #2
Лучший ответ Сообщение было отмечено как решение

Решение

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
39
40
41
42
Var A:array[1..20,1..20] of integer;
    i,j,m,t:integer;
    f,g:text;
Begin
    write('Введите размерность: ');readln(m);
    Assign(f,'in.txt');Reset(f);
    For i:=1 to m do
     For j:=1 to m do
     Begin
       read(f,t);
       A[i,j]:=t;
     End;
    writeln('Исходная матрица');
    For i:=1 to m do
    Begin
      For j:=1 to m do
       write(A[i,j]:4);
      writeln;
    End;
    For i:=m downto 2 do
     For j:=2 to i do
      if A[j,j]>A[j-1,j-1] then
      Begin
        t:=A[j,j];
        A[j,j]:=A[j-1,j-1];
        A[j-1,j-1]:=t;
      End;
    Assign(g,'out.txt');Rewrite(g);
    writeln('Преобразованная матрица');
    For i:=1 to m do
    Begin
      For j:=1 to m do
      Begin
        write(A[i,j]:4);
        write(g,A[i,j]:4);
      End;
      writeln(g);
      writeln;
    End;
    Close(f);Close(g);
    readln;
End.
Во входном файле in.txt должно быть чисел не меньше чем M*M (M- размерность массива)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2012, 09:56
Привет! Вот еще темы с решениями:

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

Двумерный массив.Дан массив 5 х 5. Определить сумму элементов тех строк, где диагональный элемент равен нулю и записать их в отдельный массив.
помогите составить программу. во задание:Дан массив 5 х 5. Определить сумму...

Двумерный массив. Вывести массив без i-той строки, и j-того столбца
Дан двумерный массив, а также целые числа i и j.Вывести массив без i-той...

Дан двумерный массив a (m, n) отсортировать строки матрицы по возрастанию (массив вводить самой)
дан двумерный массив a ( m, n ) отсортировать строки матрицы по возрастанию (...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru