Алгоритмы и программы. Афанасьева Т. В - 112 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

112
begin
writeln('перестановка строк');
for i:=1 to 3 do
for j:=1 to 2 do
read(b[i,j]);
c:=b[1]; { перестановка }
b[1]:=b[3];
b[3]:=c;
for i:=1 to 3 do
for j:=1 to 2 do
write(b[i,j]);
end.
Замена или перестановка элементов мaccива с порядковыми но-
мерами n и m:
var
a:array[1..4]of real;
p:real;
i,n,m:integer;
begin
read(n,m);
for i:=1 to 4 do
read(a[i]);
p:=a[n]; { перестановка }
a[n]:=a[m];
a[m]:=p;
for i:=1 to 4 do
write(a[i]);
end.
2) Удаление из массива одного элемента с номером k.
Алгоритм:
a) ввод элементов массива;
b) удаление, которое осуществляется следующим образом:
for i:=k to n–1 do a[i]:=a[i+1];
a[i]:=0; {n – количество элементов массива, k – номер удаляемого
элемента};
c) перенос в хвост массива из 10 элементов
элемент с k-й позиции.
3) Перенос в конец одномерного массива элемента с k-й позиции.
Алгоритм:
a) ввод элементов массива;
b) сохранение элемента с k-й позиции в дополнительной переменной:

Страницы