Завдання. У середовищі Скретч сплануй та створи гру, у якій за

до дощечки чорного кольору (як на малюнку), яку можна рухати вліво-
вправо за до мишки і відбивати м'яч. М'яч у довільному напрямку

відбивається як від стін, так і від дощечки. Якщо м'яч торкається червоної лінії
внизу – гра припиняється. На початку гри можна обрати два рівні – легкий, коли
дощечка широка та м'яч рухається не швидко, або складний – розмір дощечки
зменшується, а швидкість руху м'яча збільшується.

Элементы управления в диалоговых окнах немало и наша задача – узнать, как называются элементы управления в диалоговых окнах и как ими пользоваться.

Вкладки.

Чтобы с диалоговыми окнами было проще работать, в них есть вкладки. Их можно сравнить с карточками в картотеках. Посмотрите на диалоговое окно «Свойства: Мышь» (Рис. 21). В его верхней части есть несколько вкладок: Параметры указателя, Колесико, Оборудование, Кнопки мыши, Указатели. Все эти вкладки служат для настройки работы мыши. При переключением между вкладками будет меняться содержание диалогового окна.

Кнопки.

Кнопки в диалоговых окнах применяют для того, чтобы выполнить какую-то команду (ОК, Отмена, Применить). Нажатием левой клавишей мыши по такой кнопке мы отдаем команду (Рис. 21).

Флажки

Флажки изображаются квадратиками и их можно установить столько, сколько требуется. Можно много выбрать флажков, а можно – ни одного. Про флажки говорят, что они устанавливаются или сбрасываются (Рис. 21).

Движки

Для плавных настроек элементов управления диалоговых окон применяют движки. Их перемещают методом перетаскивания. При такого движка можно отрегулировать работу мыши (Рис. 21).

Переключатели.

Переключатели выглядят, как круглые кнопочки с точечкой в центре. Обычно переключатели находятся в группах. В такой группе устанавливается один переключатель. Если, допустим, надо включить другой переключатель, то тот, который до него был включен, выключится. Невозможно включить одновременно несколько переключателей, как и нельзя все их выключить. Тот переключатель, который был включен до нашего выбора, называется переключателем по умолчанию. Если мы не сделаем никакого выбора, то он останется включенным (Рис. 22).

Счетчики.

Для ввода чисел применяются элементы управления, которые называют счетчиками. Рядом со счетчиком есть кнопки. Одна кнопка число увеличивает, а другая – уменьшает (Рис. 22).

Раскрывающиеся списки.

У такого списка есть раскрывающая кнопка. Чтобы список раскрылся, надо щелкнуть по этой кнопке. В раскрывающемся списке можно выбрать только один пункт. Этим своим свойством они похожи на переключатели. Но, если длинный ряд переключателей занимает довольно много места, то раскрывающийся список гораздо экономичнее (Рис 23, Рис 24, Рис. 25 ).

Прокручиваемые списки.

В этих списках тоже можно сделать только один выбор. Если список длинный, то он имеет вертикальную полосу прокрутки, с которой этот список можно просмотреть (Рис. 24).

Списки с множественным выбором.

В этих списках напротив каждого пункта находится элемент управления «Флажок». Чтобы пункт был выбран, надо установить флажок, а чтобы отказаться от выбора, флажок надо сбросить (Рис 24).

Если фон у флажка окрашен в серый цвет, то этот пункт списка отмечен не полностью и, значит, за этим пунктом скрывается еще что-то. Чтобы посмотреть, что там еще есть внутри этого пункта, надо щелкнуть на значке пункта дважды. Откроется новый список, который называется вложенным списком. Если список с множественным выбором длинный, то он тоже может иметь вертикальную полосу прокрутки.

Текстовые поля.

В тех случаях, когда система требует, чтобы были введены, какие-то текстовые данные (например, записано название файла, который нужно сохранить), применяются текстовые поля. Щелкните левой кнопкой мыши внутри такого поля – появится текстовый курсор в виде вертикальной черты. После ее появления можно вводить текст

Объяснение:

"Типовой школьный" Паскаль:

// PascalABC.Net 3.0, сборка 1064
const
  k = 100;

var
  s, wd: string;
  i, j, m, n, pt, step: integer;
  Words, WordsSort: array[1..k] of string;
  InOrder: boolean;

begin
  Write('Введите строку: '); Readln(s);
  n := Length(s); pt := 1; m := 0;
  repeat
    // Пропускаем все символы до первого непробельного
    while pt <= n do
      if Ord(s[pt]) <= 32 then Inc(pt) else break;
    if pt <= n then begin
      // Выделяем очередное слово
      wd := '';
      while pt <= n do
        if Ord(s[pt]) > 32 then begin wd := wd + s[pt];Inc(pt) end
        else break;
      if wd <> '' then begin Inc(m);Words[m] := wd end
    end
  until pt > n;
  // Теперь Words содержит все m слов.
  // Отсортируем их в массиве WordsSort методом Шелла
  for i := 1 to m do WordsSort[i] := Words[i];
  step := m div 2;
  while step > 0 do begin
    for j := m - step downto 1 do begin
      i := j;
      while i <= m - step do begin
        if WordsSort[i] > WordsSort[i + step] then begin
          wd := WordsSort[i];
          WordsSort[i] := WordsSort[i + 1];
          WordsSort[i + 1] := wd
        end;
        i := i + step
      end
    end;
    step := step div 2
  end;
  // Осталось поэлементно сравнить оба массива
  InOrder := true; i := 1;
  while InOrder and (i <= m) do
  begin InOrder := (Words[i] = WordsSort[i]); Inc(i) end;
  if m = 0 then Writeln('Строка не содержит слов')
  else
    if InOrder then Writeln('Cлова упорядочены')
    else Writeln('Cлова не упорядочены')
end.

Тестовое решение:
Введите строку: слово1    слово2    слово3    слово4 слово5
Cлова упорядочены

Введите строку: слово1    слово2    слово4    слово3 слово5
Cлова не упорядочены

"Современный" вариант решения на Паскале:

// PascalABC.Net 3.0, сборка 1064
var
  s:string;
begin
  Write('Введите строку: '); Readln(s);
  var Delim:=Range(0,32).Select(x->Chr(x)).ToArray;
  var Words:=s.Split(Delim).Where(x->x<>'');
  var WordsSort:=Words.Sorted;
  if Words.SequenceEqual(WordsSort) then Writeln('Cлова упорядочены')
  else Writeln('Cлова не упорядочены')
end.

Тестовое решение совпадает с вышеприведенным.