| ← Октябрь 2019 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
||
|
16
|
17
|
18
|
19
|
|||
|
23
|
24
|
25
|
26
|
27
|
||
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 16.10.2019, 20:42 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, 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.Удачи!
Консультирует zdwork (6-й класс): Здравствуйте, 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.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
