| ← Апрель 2020 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
|
13
|
16
|
17
|
18
|
|||
|
21
|
22
|
23
|
24
|
|||
|
30
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 198325: Здравствуйте! Прошу помощи в следующем вопросе: расположить в массиве R сначала положительные, а затем отрицательные элементы массива Z(30) pascal... Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 22.04.2020, 09:00 Консультирует puporev (Профессор): Здравствуйте, Ericsson! Код (Pascal) :: выделить код const m=10;
n=8;
var f:array[1..m,1..m]of integer;
i,j,x:integer;
begin
writeln('Исходная матрица');
for i:=1 to m do
begin
for j:=1 to n do
begin
f[i,j]:=10+random(90);
write(f[i,j]:3);
end;
writeln;
end;
for i:=1 to n do
for j:=i to m do
begin
x:=f[i,j];
f[i,j]:=f[j,i];
f[j,i]:=x;
end;
writeln('Транспонированная матрица');
for i:=1 to n do
begin
for j:=1 to m do
write(f[i,j]:3);
writeln;
end;
writeln('Элементы главой диагонали');
for i:=1 to n do
write(f[i,i]:3);
writeln;
writeln('Элементы диагонали под главной');
for i:=2 to n do
write(f[i,i-1]:3);
end.
Консультирует Gluck (Х Заблокирован): Здравствуйте, Ericsson!
Здравствуйте! Прошу помощи в следующем вопросе:
Дата отправки: 22.04.2020, 09:03 Консультирует puporev (Профессор): Здравствуйте, Ericsson! Код (Pascal) :: выделить код const n=30;
var z:array[1..n] of integer;
i,j,k,x:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
z[i]:=-5+random(11);
write(z[i]:3);
end;
writeln;
//положительные вперед
k:=0;
for i:=1 to n do
if z[i]>0 then
begin
k:=k+1;
x:=z[i];
for j:=i downto k+1 do
z[j]:=z[j-1];
z[k]:=x;
end;
//отрицательные в конец
k:=0;
for i:=n downto 1 do
if z[i]<0 then
begin
k:=k+1;
x:=z[i];
for j:=i to n-k do
z[j]:=z[j+1];
z[n-k+1]:=x;
end;
//ноли останутся в середине
writeln('Перестановка:');
for i:=1 to n do
write(z[i]:3);
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: | В избранное | ||
