использовать Чертежник алг Богдан_1 нач опустить перо сместиться в точку(0, 11) сместиться в точку(6, 11) поднять перо сместиться в точку(0, 6) опустить перо сместиться в точку(6, 6) сместиться в точку(6, 0) сместиться в точку(0, 0) поднять перо сместиться в точку(8, 0) опустить перо сместиться в точку(8, 11) сместиться в точку(14, 11) сместиться в точку(14, 0) сместиться в точку(8, 0) поднять перо сместиться в точку(16, 0) опустить перо сместиться в точку(16, 11) сместиться в точку(22, 11) поднять перо сместиться в точку(22, 0) опустить перо сместиться в точку(22, -2) сместиться в точку(22, 0) сместиться в точку(30, 0) сместиться в точку(30, -2) сместиться в точку(30, 0) сместиться в точку(28, 0) сместиться в точку(28, 11) сместиться в точку(24, 11) сместиться в точку(24, 0) поднять перо сместиться в точку(32, 0) опустить перо сместиться в точку(32, 11) сместиться в точку(38, 11) сместиться в точку(38, 0) сместиться в точку(38, 5) сместиться в точку(32, 5) поднять перо сместиться в точку(40,0) опустить перо сместиться в точку(40, 11) сместиться в точку(40, 5) сместиться в точку(46, 5) сместиться в точку(46, 11) сместиться в точку(46, 0) кон
Второй способ (короткий):
использовать Чертежник алг Богдан_2 нач написать(30, "Богдан") кон
Var S, C, Cmax: string; i, j, k, max: integer; Begin Write('Введите предложение: ');ReadLn(S); S := UpperCase(S) + '.'; max := 0; i := 1; while (i <= Length(S)) do begin C := ''; while (S[i] in ['А'..'Я']) do begin C := C + S[i]; i += 1; end; k := 0; For j := 1 to Length(C) do if (C[j] in ['А','Е','Ё','И','О','У','Э','Ю','Я']) then k := k + 1; if (k > max) then begin max := k; Cmax := C; end; i += 1; end; WriteLn('Слово с наибольшим количеством гласных: ',Cmax); End.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
10. Подставляем значения переменных х1, х2, х3, х4 во все функции и получается, что подходит только 4 функция. Ответ: 4 11. Также можно подставить все данные числа в функцию, и только при х=8 значение функции равно 0. Ответ: 4. 12. ГВБА
В Linux панель окна выглядит иначе, если же в Windows XP кнопки развернуть, свернуть, закрыть находятся справа, то в Linux наоборот. Также если брать Ubuntu (Linux) то мы заметим что название папки или директории (где же мы находимся?) то он всегда скрывается, но при наведении на панель окна он сразу появляется, в Windows название папки или путь всегда отображается. Еще одна особенность в том что в Linux всё очень интересно сделано и красиво отсортировано по полачкам. Например: В панель окна Windows вы можете настроить Вид, Файл, Веб-узлы и.т.д. В Linux вы такого не увидите, но за то панель слева как и в Windows 7 отображает все устройства и необходимые папки. Есть достаточно много особенностей которые схожи с Windows. Например: Оформление. Это самое первое что бросается в глаза. В Linux они выглядят иначе, по другому оформлены значки. (И всё очень синхронно, опять же примером является Ubuntu). Как и в Windows и Linux есть контекстное меню которое отображет действие над папками и файлами. Панель навигации (Назад, Вперед, Вырезать, Копировать) в Linux естественно этого нет, но за то панель слева как я уже и сказал в Windows 7, отображает в виде дерева папки открытые нами.