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

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

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

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

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

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

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

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

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

1
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,719
Записей в блоге: 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

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

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

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


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

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

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