В финале турнира Российской Армии по шашкам встретились представители шести воинских званий: подполковник, капитан, старший лейтенант, старшина, сержант и ефрейтор, причём разных специальностей: мотострелок, танкист, артиллерист, миномётчик, сапёр и связист.
Определи специальность и звание каждого из игроков по следующим данным:
1) в первом туре лейтенант выиграл у мотострелка, подполковник — у танкиста, а сержант — у миномётчика;
2) во втором туре капитан выиграл у танкиста;
3) в третьем и четвёртом турах миномётчик из-за болезни не участвовал в турнире, поэтому свободными от игры оказались капитан и ефрейтор;
4) в четвёртом туре подполковник выиграл у связиста;
5) победителями турнира оказались старший лейтенант и подполковник, а хуже всех выступил сапёр.
Наиболее популярной программой для работы с ЭТ является Microsoft
Excel. Это программа созданная корпорацией Microsoft для Microsoft
Windows, Windows NT и Mac OS. Она предоставляет возможности экономико-статистических расчетов, графические инструменты и язык макропрограммирования VBA (Visual Basic for Application).
MS Excel2010 входит в состав пакета Microsoft Office. Позволяет выполнять многие инженерные и экономические задачи, представляя данные не
только в табличном, но и в графическом виде.
Рабочая книга Excel – совокупность рабочих листов (от 1 до 255), сохраняемых на диске в одном файле.
Рабочий лист Excel – основной документ, используемый в Excel для
хранения и обработки данных. Состоит из 65536 строк и 256 столбцов.
52
Ячейка – область рабочего листа, находящаяся на пересечении столбца
и строки.
Текущая ячейка – ячейка, в которой находится курсор.
Диапазон ячеек – группа последовательных ячеек.
выделения фрагментов таблицы:
Объект выделения Технология выполнения операции
Ячейка Щелкнуть мышью по ячейке.
Строка Щелкнуть мышью по соответствующему номеру в заголовке строки.
Столбец Щелкнуть мышью по соответствующей букве (номеру)
в заголовке столбца.
Диапазон смежных
ячеек
1. Установить указатель мыши в начало выделения
(в левой верхней ячейке). Нажать левую клавишу мыши. Протащить указатель мыши, закрашивая область
выделения (смещать указатель к правому нижнему углу блока).
2. Щелкнуть мышью на левой верхней ячейке выделяемого блока, нажать клавишу Shift и щелкнуть
мышью на противоположной крайней ячейке.
Диапазон несмежных ячеек
Выделить блок смежных ячеек. Нажать клавишу Ctrl.
Выделить следующий блок ячеек.
Рабочий лист Щелкнуть по ярлычку рабочего листа.
Несколько смежных
рабочих листов
Выделить ярлычок первого рабочего листа. Нажать
клавишу Shift и, не отпуская ее, выделить ярлычок следующего рабочего листа.
Несколько несмежных рабочих листов
Выделить ярлычок первого рабочего листа. Нажать
клавишу Ctrl и, не отпуская ее, выделить ярлычок следующего рабочего листа.
Вся таблица Щелкнуть на левой «пустой» кнопке в заголовке
столбца.
Отменить выделения можно щелкнув по любой другой ячейке (листу).
окончания ввода данных в ячейку:
– нажать клавишу Enter;
– щелкнуть мышью по другой ячейке;
– перейти к другой ячейке с клавиш управления курсором;
– щелкнуть мышью по кнопке (Ввод) в Строке формул;
– щелкнуть мышью на квадратике в нижнем правом углу ячейке (Маркере заполнения).
изменения ширины столбца (высоты строки):
– с команды Формат – Столбец – Ширина… (Формат –
Строка – Высота) указать точную ширину столбца (высоту строки);
53
– с команды Формат – Столбец – Стандартная ширина задать стандартную ширину выделенным столбцам;
– с команды Формат – Столбец – Автоподбор ширины
(Формат – Строка – Автоподбор высоты) осуществить автоподбор в соответствии с введенными данными;
– дважды щелкнуть по правому разделителю в строке заголовка столбца для автоподбора его ширины;
– дважды щелкнуть по нижнему разделителю в столбце заголовка
строки для автоподбора ее высоты;
– поместить указатель мыши на правую границу столбца в строке с заголовками столбцов (указатель примет вид ) и удерживая нажатой левую
клавишу мыши изменить ширину столбца;
– поместить указатель мыши на нижнюю границу строки в столбце с
заголовками строк (указатель примет вид ) и удерживая нажатой левую
клавишу мыши изменить высоту строки.
Контрольные вопросы
1. Что такое электронная таблица?
2. В чем отличие электронной таблицы от простой?
3. Что такое рабочая книга и рабочий лист в Exel?
4. Что такое диапазон ячеек?
5. Какая ячейка называется текущей?
// 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.
Тестовое решение совпадает с вышеприведенным.