01.04.2020, 10:00 [+3 UTC]
в нашей команде: 4 318 чел. | участники онлайн: 7 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.83 (12.03.2020)
JS-v.1.35 | CSS-v.3.37

Общие новости:
28.03.2020, 20:29

Форум:
28.03.2020, 21:05

Последний вопрос:
01.04.2020, 04:20
Всего: 151888

Последний ответ:
01.04.2020, 09:47
Всего: 259910

Последняя рассылка:
31.03.2020, 22:45

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

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

Наша кнопка:

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

Отзывы о нас:
11.11.2019, 23:14 »
dar777
Это самое лучшее решение! [вопрос № 196983, ответ № 279082]
25.02.2010, 16:39 »
Андрей Кузнецов aka Dr_Andrew
Спасибо за ценные замечания, которые позволили оптимизировать код! [вопрос № 176905, ответ № 259733]
14.08.2019, 02:02 »
dar777
Это самое лучшее решение! [вопрос № 196101, ответ № 278503]

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший Чебуратор
Рейтинг: 113
Асмик Гаряка
Статус: Бездельник
Рейтинг: 82
Лысков Игорь Витальевич
Статус: Старший Чебуратор
Рейтинг: 0

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

Консультация онлайн # 196693
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: rail (УчаснеГ)
Отправлена: 16.10.2019, 20:42
Поступило ответов: 2

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Дан массив, состоящий из NХM элементов, значения которого вводится с клавиатуры. Поменять местами k1 и k2 столбцы.

pascal

Приложение:

Последнее редактирование 16.10.2019, 20:51 Лысков Игорь Витальевич (Старший Чебуратор)

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

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

Код (Pascal) :: выделить код
const
  n=4;
  m=5;
var
  a:array[1..n,1..m]of integer;
  i,j,k1,k2:integer;
begin
  for i:=1 to n do
    for j:=1 to m do
      begin
        repeat
          write('enter a[',i,',',j,']:=');
          readln(a[i,j])
        until a[i,j]in[10..99]
      end;
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:3);
      writeln;
    end;
  repeat
    write('enter k1:');
    readln(k1);
  until k1 in[1..m];
  repeat
    write('enter k2:');
    readln(k2);
  until(k2 in[1..m])and(k1<>k2);
  for i:=1 to n do
    begin
      j:=a[i,k1];
      a[i,k1]:=a[i,k2];
      a[i,k2]:=j;
    end;
    for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:3);
      writeln;
    end;
end.

Удачи!


Консультировал: Зенченко Константин Николаевич (Старший Чебуратор)
Дата отправки: 17.10.2019, 14:36

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

+1

[подробно]

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

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

Ответ # 278932 от Gluck (Поддатый выпускник)

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

Код (Pascal) :: выделить код
{Дан массив, состоящий из N x M элементов,
 значения которого вводится с клавиатуры.
 Поменять местами k1 и k2 столбцы в матрице.}
program Obmen_Stolbcov;

const
  N = 3; // Число строк
  M = 6;// Число столбцов 

var
  a: array[1..N, 1..M] of integer;// Опишем наш массив а размером N х M
  k, k1, k2: integer; 
  i, j: integer;

begin
  writeln('Вводим числа в матрицу размером ', N, ' X ', M);
  for i := 1 to N do
    for j := 1 to M do
      read(a[i, j]);
  // Вывод исходной матрицы
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(a[i, j]:3);
    writeln;
  end;
  write('Какие столбцы поменять местами: ');
  readln(k1, k2);
  // Перестановка столбцов
  for i := 1 to N do
  begin
    k := a[i, k1];
    a[i, k1] := a[i, k2];
    a[i, k2] := k;
  end;
  // Вывод полученной матрицы
  for i := 1 to N do
  begin
    for j := 1 to M do
      write(a[i, j]:3);
    writeln;
  end;
end.

Последнее редактирование 17.10.2019, 20:55 Зенченко Константин Николаевич (Старший Чебуратор)

Консультировал: Gluck (Поддатый выпускник)
Дата отправки: 17.10.2019, 20:15

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

+1

[подробно]

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

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

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

Лысков Игорь Витальевич
Старший Чебуратор

ID: 7438

# 1

= общий = | 16.10.2019, 20:53 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Экспертам раздела:

Обратите внимание на эту консультацию, перенесенная из другого раздела

=====
"Если вы заметили, что вы на стороне большинства, —
это верный признак того, что пора меняться." Марк Твен

Зенченко Константин Николаевич
Старший Чебуратор

ID: 31795

# 2

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

Ждите ответа, в течении 5-ти суток, это время жизни вопроса.
Будете захламлять рассылку дублями, буду громко махать вилкой smile

-----
Последнее редактирование 17.10.2019, 14:13 Зенченко Константин Николаевич (Старший Чебуратор)

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

Зенченко Константин Николаевич
Старший Чебуратор

ID: 31795

# 3

= общий = | 17.10.2019, 21:01 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер
Gluck:

Переменная К не нужна, у Вас свободна J.
Что будет делать программа, когда К1=К2.
Внимательно изучите мой код, и начинайте использовать кнопку , Вам об этом говорили на экзамене.


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

 

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

Яндекс Rambler's Top100

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

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

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