Программа должна выводить за на полет стрелы и при утвердительном ответе изобразить летящую стрелу слева - id1084072420200810 от Anna678901 10.08.2020 10:10

Question

Информатика: Программа должна выводить за на полет стрелы и при утвердительном ответе изобразить летящую стрелу слева направо до конца графического окна. При отрицательном ответе должен быть выход из программы. Использовать вложенный цикл с предусловием. Внешний цикл организует за и получает ответ пользователя, а внутренний цикл выполняет полет стрелы.

Anna678901 · Accepted Answer

Procedure ShellStr(var s: string); { сортирует символы строки методом Шелла } var   i, j, n, step: integer;   c: char; begin   s := Trim(s);   n := Length(s);   step := n div 2;   while step 0 do   begin     for j := n - step downto 1 do     begin       i := j;       while i = n - step do       begin         if s[i] s[i + step] then         begin           c := s[i];           s[i] := s[i + 1];           s[i + 1] := c         end;         i := i + step       end     end;     step := step div 2  ...

MOGZ ответил