| ← Февраль 2016 → | ||||||
|
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
|
28
|
|
|
29
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 188838: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Подскажите, пожалуйста, как в программе BPascal отсортировать двумерный массив по убыванию по пятой строке?... Консультация # 188839: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Подскажите, пожалуйста, как в программе BPascal отсортировать двумерный массив по возрастанию k-го столбца?... Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 22.02.2016, 13:44 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal) :: выделить код const n=5;
var
a:array[1..n,1..n]of integer;
b,c,d:integer;
begin
for b:=1 to n do
begin
for c:=1 to n do
begin
a[b,c]:=random(100);
write(a[b,c]:3);
end;
writeln;
end;
for b:=1 to n-1 do
for c:=b+1 to n do
if a[b,3]>a[c,3]then
begin
d:=a[b,3];
a[b,3]:=a[c,3];
a[c,3]:=d;
end;
writeln;
for b:=1 to n do
begin
for c:=1 to n do
write(a[b,c]:3);
writeln;
end;
end.вопросы в минифоруме. Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 22.02.2016, 13:46 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal) :: выделить код const n=5;
var
a:array[1..n,1..n]of integer;
b,c,d,e,f:integer;
begin
for b:=1 to n do
begin
for c:=1 to n do
begin
a[b,c]:=random(100);
write(a[b,c]:3);
end;
writeln;
end;
for b:=1 to n-1 do
for c:=b+1 to n do
if a[5,b]<a[5,c]then
for d:=1 to n do
begin
e:=a[d,b];
a[d,b]:=a[d,c];
a[d,c]:=e;
end;
writeln;
for b:=1 to n do
begin
for c:=1 to n do
write(a[b,c]:3);
writeln;
end;
end.Вопросы в минифоруме. Удачи!
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 22.02.2016, 13:47 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Посетитель - 399097! Код (Pascal) :: выделить код const n=5;
var
a:array[1..n,1..n]of integer;
b,c,d,e,f:integer;
begin
for b:=1 to n do
begin
for c:=1 to n do
begin
a[b,c]:=random(100);
write(a[b,c]:3);
end;
writeln;
end;
repeat
write('Enter K:=');
readln(d);
until d in [1..n];
for b:=1 to n-1 do
for c:=b+1 to n do
if a[b,d]>a[c,d]then
for e:=1 to n do
begin
f:=a[b,e];
a[b,e]:=a[c,e];
a[c,e]:=f;
end;
for b:=1 to n do
begin
for c:=1 to n do
write(a[b,c]:3);
writeln;
end;
end.Вопросы в минифоруме. Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
