Предмет: Информатика,
автор: Никааааааа123
осуществите циклический сдвиг компонент заданного вектора влево на одну позицию
. на языке паскаля
Ответы
Автор ответа:
0
program sdvig;
uses crt;
cоnst n=10;
k=3;
var
i,c,j:integer;
b:array[1..n] of integer;
BEGIN
randomize;
clrscr;
writeln('решение задачи на сдвиг вектора ');
writeln('---------------------------');
writeln;
writeln('вектор В: ');
for i:=1 to n do begin
b[ i ]:=random(101); write(b [ i ]:3);
end;
writeln;
for j:=1 to k do begin
c:=b[ n ];
for i:=n-1 downto 1 do
b[i+1]:=b[ i ] ;
b[1]:=c;
for i:=1 to n do
write(b[ i ]:3);
writeln; end;
writeln('конец задачи ');
readkey;
END.
uses crt;
cоnst n=10;
k=3;
var
i,c,j:integer;
b:array[1..n] of integer;
BEGIN
randomize;
clrscr;
writeln('решение задачи на сдвиг вектора ');
writeln('---------------------------');
writeln;
writeln('вектор В: ');
for i:=1 to n do begin
b[ i ]:=random(101); write(b [ i ]:3);
end;
writeln;
for j:=1 to k do begin
c:=b[ n ];
for i:=n-1 downto 1 do
b[i+1]:=b[ i ] ;
b[1]:=c;
for i:=1 to n do
write(b[ i ]:3);
writeln; end;
writeln('конец задачи ');
readkey;
END.
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: Другие предметы,
автор: Аноним
Предмет: Математика,
автор: booc48
Предмет: Математика,
автор: Lizik1405
Предмет: Химия,
автор: Катюшка01