Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 05.04.2009
Сообщений: 16
1

Задача про матрицу и сортировку массива

11.04.2009, 16:05. Просмотров 732. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста решить задачу :

Дана квадратная матрица. Получить одномерный массив состоящий из средних арифметических элементов строк матрицы. Полученный одномерный массив отсортировать в порядке возрастания элементов. Вывести:

- матрицу
- одномерный массив до сортировки
- одномерный массив после сортировки
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2009, 16:05
Ответы с готовыми решениями:

Задача про сортировку массива и его вывод
Помогите пожалуйста решить задачку : Дана квадратная матрица 4х4. Сделать одномерный массив,...

Задача про сортировку слиянием
Помогите, пожалуйста! Изучаю алгоритмы программирования, сейчас на тема сортировки, конкретнее -...

Самая простая задача на свете про сортировку
Супер простая задача на сортировку. Дается N чисел (N ≤ 10^6), которые по абсолютной величине не...

Задача про сортировку с использованием связного списка, нужно найти ошибку
Имеется файл состоящий из данных о студентах(ФИО, номер группы, средний бал). Построить...

2
3 / 3 / 1
Регистрация: 21.04.2009
Сообщений: 35
22.04.2009, 00:16 2
Лучший ответ Сообщение было отмечено Alt+F4 как решение

Решение

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
43
program Project1;
 
 {$APPTYPE CONSOLE}
 var mas : Array [1..100,1..100] of integer;
      ar : array [1..100] of real;
     m,n : integer;
    i,j,k :integer;
     f1,f2:text;
     fn : string;
     sr : real;
 begin write('type file name: ');        {имя массива}
  readln(fn);
  Assign (f1,fn);
  reset(f1);
  write('Type name of file result: ');    {имя результата}
  readln(fn);
  Assign(f2,fn);
  Rewrite(f2);
  readln(f1, n);
  readln (f1, m);
   for i :=1 to n do begin
    for j := 1 to m do  begin
     read (f1, mas[i,j]);
     Write(Mas[i,j]:3);
    write(f2, Mas[i,j]:3);
    end;
    readln(f1);
    writeln;
    writeln(f2);
    end;
   close(f1);
  for i :=1 to n do                   {среднее значение строки}
   begin
   sr:=0;
    for j:=1 to m do
     sr:= sr + mas[i,j];
     sr:= sr/m;
     write (f2, sr:4:2,' ');         {вывод на экран и в файл}
     write (sr:4:2,' ');
    end;
   close(f2);
   readln;
  end.
вид массива
3
3
1 2 3
4 5 6
7 8 9
2
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
22.04.2009, 00:53 3
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
43
44
45
46
47
48
49
50
uses crt;
 
const n=10;
 
var
i,j:integer;
a:array [1..n,1..n] of integer;
b:array [1..n] of integer;
f,sra:integer;
buf,min,k:integer;
begin
clrscr;
randomize;
for i:= 1 to n do
  begin
   for j:= 1 to n do
    begin
     a[i,j]:=random(10);
    write(a[i,j]:2);
    end;
     writeln;
      end;
      {SA}
      writeln;
     for i:= 1 to n do
     begin
     f:=0;
     for j:= 1 to n do
   f:=f+a[i,j];
  sra:=f;
  b[i]:=sra;
 write((b[i]/10):0:0,' '); end;
 writeln;
 
 {sort}
 k:=1;
 min:=k;
 for i:= n-1 downto 1 do
 for j:= 1 to i do
 if b[j]>b[j+1] then begin
 buf:=b[j];
 b[j]:=b[j+1];
 b[j+1]:=buf;
 end;
 
 writeln('Otsortirovanniy: ');
 for i:= 1 to n do
 write((b[i]/10):0:0,' ');
 readkey;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2009, 00:53

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Задача про матрицу
Вообщем завтра сдать надо бы по хорошему. Мне осталось сделать 1 задачу, которую я не знаю как...

Задача про матрицу
Помогите решить задачу или скиньте ссылку на похожую. Заранее спасибо! "Задача 11. Вводится матрица...

Задача про матрицу с заменой элементов
Дана матрица порядка 6х6. Замените элементы, стоящие на побочной диагонали, на минимальный...

задача про матрицу с использованием procedure и function
помогите решить пожалуйста задачу,очень надо)) Найти сумму наибольших элементов строк матрицы А...


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

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

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