14.12.2019, 18:54 [+3 UTC]
в нашей команде: 4 068 чел. | участники онлайн: 6 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.79 (12.12.2019)
JS-v.1.35 | CSS-v.3.36

Общие новости:
28.04.2019, 09:13

Форум:
29.11.2019, 17:59

Последний вопрос:
14.12.2019, 18:25
Всего: 151277

Последний ответ:
14.12.2019, 18:42
Всего: 259574

Последняя рассылка:
14.12.2019, 14:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
12.01.2012, 22:06 »
korsar
Не совсем то, что я хотел, но за альтернативный вариант всё равно спасибо. [вопрос № 185141, ответ № 269534]
19.04.2012, 04:07 »
Arman Muratuly
Короткий и ясный ответ. Спасибо. [вопрос № 185855, ответ № 270577]
21.04.2010, 07:58 »
Катя Лапшенкова
Все отлично! Более подробного и обоснованного ответа представить невозмоно!Спасибо Вам!!!!! [вопрос № 177940, ответ № 260942]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 705
puporev
Статус: Профессионал
Рейтинг: 459
Gluck
Статус: 10-й класс
Рейтинг: 458

Перейти к консультации №:
 

Консультация онлайн # 197286
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: bodya (Посетитель)
Отправлена: 02.12.2019, 12:43
Поступило ответов: 2

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Составьте программу, упорядочивающую по убыванию элементы каждого строки матрицы размером m*n. (размер матрицы вводится с клавиатуры, но не более 10). Массив заполнить случайными вещественными числами от 0 до 20.

Приложение:

Состояние: Консультация закрыта

Ответ # 279204 от puporev (Профессионал)

Здравствуйте, bodya!

Код (Pascal) :: выделить код
var a:array[1..10,1..10] of real;
    m,n,i,j,k:integer;
    x:real;
begin
randomize;
repeat
writeln('Введите размеры матрицы m,n от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(2001)/100;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
for i:=1 to m do
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]<a[i,k] then
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
writeln('Сортировка строк по убыванию');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
end.


Консультировал: puporev (Профессионал)
Дата отправки: 02.12.2019, 13:33

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Ответ # 279205 от Gluck (10-й класс)

Здравствуйте, bodya!
Вот еще вариант... Тип массива в описании и сортировке - поставишь Сам
program Sort_Matr_Stroki;

uses crt;

var
c: array[1..10, 1..10] of double; // описание массива - тип ????
i, j: integer;
n, m: integer;

procedure Sort(l: integer);
var
i, j: integer; k: double;// сортировка массива - тип ????
begin
for i := 1 to m do
for j := 1 to m do
if c[l, i] < c[l, j] then
begin
k := c[l, i];
c[l, i] := c[l, j];
c[l, j] := k;
end;
end;

begin
writeln('Введите размер матрицы, n,m <= 10');
write('Введите n= ');
readln(n); // Вводим размер матрицы
write('Введите m= ');
readln(m); // Вводим размер матрицы
for i := 1 to n do
begin
for j := 1 to m do
begin
c[i, j] := random(20);
Write(c[i, j]:8:2);
end;
writeln;
end;
writeln;
for i := 1 to n do Sort(i);
for i := 1 to n do
begin
for j := 1 to m do
begin
Write(c[i, j]:8:2);
end;
writeln;
end;
writeln('Для выхода -> Enter');
readln;
end.


Консультировал: Gluck (10-й класс)
Дата отправки: 02.12.2019, 13:50

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.19380 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.79 от 12.12.2019
Версия JS: 1.35 | Версия CSS: 3.36