Во )
крыто
У нас, есть вс алгоритм для рисования звена, как его необходимо
изменить, чтобы для рисования пружинки из трех звеньев, в основном алгоритме
достаточно было вызвать его 3 раза и не использовать никаких других команд.
между
алг доено
ноч
• опустить перо
- сместиться на ректор (2,2)
• сместиться на ректор (2,-2)
кон
имо
Выберите один или несколько ответов
нужно
ого
Заменить все команды относительного смещения командами абсолютного
смещения.
Убрать команду "опустить перо".
добавить в конце команду "поднять перо"
type ar=array[1..n] of integer;
procedure p1(var x:ar);
var i:integer;
begin
for i:=1 to n do x[i]:=random(51);
end;
procedure p2(h:char;var x:ar);
var i:integer;
begin
writeln('---',h,'---');
for i:=1 to n do write(x[i]:4);
writeln;
end;
procedure p3(var x:ar; var min,imin:integer);
var i:integer;
begin
min:=x[1]; imin:=1;
for i:=2 to n do
if x[i]<min then begin min:=x[i]; imin:=i; end;
end;
var a,b : ar;
m1,m2,im1,im2: integer;
begin
Randomize;
p1(a); p2('a',a);
p3(a,m1,im1);
writeln('m1=',m1,' im1=',im1);
p1(b); p2('b',b);
p3(b,m2,im2);
writeln('m2=',m2,' im2=',im2);
if im2<n
then begin b[im2+1]:=m1; p2('b',b); end
else writeln('Минимальный элемент последний');
end.
Пример:
---a---
13 11 4 48 36 25 9 47 40 8
m1=4 im1=3
---b---
45 13 48 18 41 17 5 43 9 21
m2=5 im2=7
---b---
45 13 48 18 41 17 5 4 9 21