15.07.2019, 22:07 [+3 UTC]
в нашей команде: 3 745 чел. | участники онлайн: 1 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

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

Форум:
05.07.2019, 10:35

Последний вопрос:
15.07.2019, 20:51
Всего: 149927

Последний ответ:
15.07.2019, 15:19
Всего: 258698

Последняя рассылка:
15.07.2019, 18:15

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

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

Наша кнопка:

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

Отзывы о нас:
31.05.2012, 15:49 »
Вадим Исаев ака sir Henry
Всегда завидовал людям с выдающимися математическими способностями. smile [вопрос № 186261, ответ № 271084]
26.01.2010, 22:26 »
Dimon4ik
Даже не мог подумать, что все так просто! Я как только не пробовал обратиться к Sender. Ничего не выходило. А сейчас, попробовал как Вы написали - все работает! Это на много упростит код моих программ в дальнейшем. Отличный ответ! [вопрос № 176317, ответ № 258973]

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 208
puporev
Статус: Профессионал
Рейтинг: 120
Асмик Гаряка
Статус: Советник
Рейтинг: 0

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

Консультация онлайн # 195620
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: tanya.hryanina (Посетитель)
Отправлена: 15.05.2019, 17:08
Поступило ответов: 1

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Написать программу в Pascal ABC
Описать процедуру SwapRow(A,M,N,K1,K2),осуществляющую перемену местами строк вещественной матрицы A размера M на N с номерами K1 и K2.Матрица A является входным и выходным параметром;если K1 или К2 больше М,то матрица не изменяется.Используя эту процедуру,упорядочить строки матрицы А по возрастанию 1-го элемента строки.

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

Ответ # 278152 от zdwork (2-й класс)

Здравствуйте, tanya.hryanina!
Вот код:

Код (Pascal) :: выделить код
uses crt;
type
  matrix = array[1..100, 1..100] of real;//вещественный тип

var
  a: matrix;
  i, j, m, n, max: byte;

procedure SwapRow(m, n, k1, k2: byte; var a: matrix);// сома процедура
var
  j: byte;
  sub: real;
begin
  for j := 1 to n do
  begin
    sub := a[k1, j];
    a[k1, j] := a[k2, j];
    a[k2, j] := sub;
  end;
end;

procedure ToPrint(m, n: byte; a: matrix);
var
  i, j: byte;
begin
  for i := 1 to m do
  begin
    for j := 1 to n do write(a[i, j]:6:1);
    writeln;
  end;
  writeln;
end;

begin
  clrscr;
  write('M: ');
  readln(m);
  write('N: ');
  readln(n);
  for i := 1 to m do
    for j := 1 to n do
      a[i, j] := random(101) - 50.0 + random(10) div 10;
  ToPrint(m, n, a);
  for i := m downto 2 do
  begin
    max := 1;
    for j := 2 to i do
      if a[j, 1] > a[max, 1] then max := j;
    SwapRow(m, n, max, i, a);
  end;
  ToPrint(m, n, a);
  readkey
end.


Ну, как - то так...

Последнее редактирование 16.05.2019, 09:13 Зенченко Константин Николаевич (Старший модератор)

Консультировал: zdwork (2-й класс)
Дата отправки: 15.05.2019, 17:59

3
нет комментария
-----
Дата оценки: 16.05.2019, 15:31

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

0

[подробно]

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

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

Мини-форум консультации № 195620

Зенченко Константин Николаевич
Старший модератор

ID: 31795

# 1

= общий = | 16.05.2019, 09:35 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
zdwork:

Супер!
Два замечания:
1)Обратите внимание:

© Цитата: chernov_m99
SwapRow(A,M,N,K1,K2)

и
© Цитата: zdwork
SwapRow(m, n, k1, k2: byte; var a: matrix)

Это две большие разницы. smile

2)Пользуйтесь тегом CODE , выбираете ЯВУ и размер отображаемого кода, вставляете код и добавляете его в ответ.

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

Зенченко Константин Николаевич
Старший модератор

ID: 31795

# 2

= общий = | 16.05.2019, 11:51 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
zdwork:

© Цитата: zdwork
Это Паскаль...
И, Вы - не в JAVA, C++, PARI, GO и т.д.

Спасибо, что на помнили мне, что я администрирую.
© Цитата:
Создание программ на языках Pascal, Delphi и Lazarus.
[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Нажав на кнопку с двумя А, в фигурных скобках, Вы получаете следующее.
smile

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

-----
 Прикрепленный файл (кликните по картинке для увеличения):

 

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

Яндекс Rambler's Top100

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

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

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