Question

Составить программу маленькой вращающейся стрелки. В паскале. Используя массивы состоящий из 4-Х символов |,,_,/

Answer 1

uses
  CRT;

var
  a: array [1..4] of char;
  i: integer;

begin
  i := 1;
  a[1] := '|'; a[2] := '/'; a[3] := '-'; a[4] := '';
  while (true) do
  begin
    ClrScr();
    Write(a[i]);
    if (i = 4) then
      i := 1
    else
      inc(i);
    Sleep(250);
  end;
end.