Здравствуйте сформулировать правильно вывод(Цель работы:закрепление практических навыков и умений в работе с программой MS Excel: с ячейками, строками, столбцами, выделениями строк и столбцов, с формулами и с функциями.) очень нужно
Закрепил практические навыки и умение в работе с программой ms excel : работа с ячейками, строками, столбцами, выделениями строк и столбцов, формулами и функциями.
Если выводом будут недовольны - отвечай что писал исключительно по ТЗ, т.к. другие варианты не рассматривались.
1а) Почти любые, даже в играх есть карты 1б) В данном случае похоже подразумевается навигатор по картам. Т.е. некое ПО позволяющая работать с моделями карт, создавать разные виды, передвигаться по картам и тд 1в) Собственно карты разных типов и маштабов, объекты на картах с данными об этих объектах, дороги как связи и данные о них тоже, данные о транспорте и тд 1г) С векторными изображениями легче работать в плане маштабирования, изменения, растягивания и тп. Потому все изображения приводятся к векторному типу частично или полностью.
2) Как пример возьмем ЯндехКарты. Нахождение обьекта по адресу, нахождение по текущему местоположению если есть чем определить, выдача данных об обьекте (как набор данных об организациях которые там находятся), проложение маршрута от точки к точке, навигация пробок, навигация по фото местности (панорама), измерение расстояния некой траектории (линейка) и тд
3) Быстрее всего найти по названию поиском, тут опорными точками могут область и район, если вдруг объектов с таким названием больше одного Если искать зрительно, то легче всего ориентируясь по водным объектам и горам, возможно лесам, если они показаны. Другим городам и областям. Но для этого надо знать примерно карту
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 слово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.
Закрепил практические навыки и умение в работе с программой ms excel : работа с ячейками, строками, столбцами, выделениями строк и столбцов, формулами и функциями.
Если выводом будут недовольны - отвечай что писал исключительно по ТЗ, т.к. другие варианты не рассматривались.