Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

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

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

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

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

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

Двумерный массив (матрица) - Turbo Pascal
Помогите, пожалуйста, составить матрицу. Не выдает на экран элементы... Где ошибка? program Lab7_V7; uses crt; const n=20; var ...

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

вычислить двумерный массив(матрица) - Turbo Pascal
Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, содержащих хотя бы один нулевой элемент; 2) номер столбца, в...

Двумерный массив. Матрица 5х10 - Turbo Pascal
Дана матрица размера 5 x 10. Вывести номер ее первой1/последней2 строки3/столбца4, содержащего только положительные элементы. Если таких...

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

1
CodeR
Фрилансер
3365 / 2774 / 787
Регистрация: 08.02.2012
Сообщений: 6,172
Записей в блоге: 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
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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