//Это человечек в профиль. //Pascal ABC.NET v3.1 сборка 1172
Uses GraphABC;
Var i:integer; begin maximizewindow; for i:=100 to 500 do begin clearwindow(); setbrushcolor(clGold); circle(i,i,10); circle(i,i+30,6); circle(i,i+65,6); setbrushcolor(clgray); ellipse(i-15,i+10,i+15,i+60); setbrushcolor(clGold); circle(i,i+30,6); sleep(40); end; end.
Const destinations = 'СЗЮВСЗЮВСЗЮВ'; {Предварительно сформированная строка ориентаций} var C : char; N1, N2, Position : integer; begin write('Исходная ориентация локатора: '); readln(C); write('Первая команда поворота: '); readln(N1); write('Вторая команда поворота: '); readln(N2); Position := Pos(C, destinations) + 4; {Устанавливаем позицию на положение заданного направления} Position := Position + N1; {Направление после первого поворота (Определяется destinations[Pos])} Position := Position + N2; {Направление после второго поворота (Определяется destinations[Pos])} writeln('Конечная ориентация: ', destinations[Position]); end.
Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные. var a, b: array[1..20]of integer; i, s,n: integer; begin writeln('Массив А:'); randomize; for i := 1 to 20 do begin a[i] := random(100) - 50; write(a[i],' '); if (a[i] > 0) and (i mod 2 = 0) then begin n:=n+1; b[n]:= a[i]; s := s + b[n] * b[n]; end; end; writeln(); writeln('Массив В:'); for i:=1 to n do write(b[n]); writeln; writeln('S = ', s); end.
//Pascal ABC.NET v3.1 сборка 1172
Uses
GraphABC;
Var
i:integer;
begin
maximizewindow;
for i:=100 to 500 do
begin
clearwindow();
setbrushcolor(clGold);
circle(i,i,10);
circle(i,i+30,6);
circle(i,i+65,6);
setbrushcolor(clgray);
ellipse(i-15,i+10,i+15,i+60);
setbrushcolor(clGold);
circle(i,i+30,6);
sleep(40);
end;
end.