| ← Январь 2020 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
9
|
10
|
12
|
|
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
|
20
|
22
|
23
|
24
|
25
|
||
|
27
|
28
|
29
|
30
|
|||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 197658: Здравствуйте! Прошу помощи в следующем вопросе: Составьте программу упорядочения по убыванию элементов каждого столбца двумерного массива C[1.5, 1..4]. Массив заполнен случайными вещественными числами от -20 до 20 ... Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дата отправки: 26.01.2020, 12:16 Консультирует puporev (Профессор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код const n=8;
var a:array[1..n] of real;
i,j:integer;
x:real;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
a[i]:=-10+20*random;
write(a[i]:6:2);
end;
writeln;
for i:=1 to n do
for j:=i+1 to n-1 do
if a[i]<a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln('Сортировка массива по убыванию');
for i:=1 to n do
write(a[i]:6:2);
end.
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 26.01.2020, 12:17 Консультирует puporev (Профессор): Здравствуйте, JonMoxley! Код (Pascal) :: выделить код const m=5;
n=4;
var c:array[1..m,1..n] of integer;
i,j,k,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=-20+random(41);
write(c[i,j]:4);
end;
writeln;
end;
for j:=1 to n do
for i:=1 to m-1 do
for k:=i+1 to m do
if c[i,j]<c[k,j] then
begin
x:=c[i,j];
c[i,j]:=c[k,j];
c[k,j]:=x;
end;
writeln('Сортировка столбцов по убыванию');
for i:=1 to m do
begin
for j:=1 to n do
write(c[i,j]:4);
writeln;
end;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
