составить таблицу.
Практическая работа №1
«Создание, редактирование и форматирование таблиц в MS Excel 2007»
Цель занятия: сформировать навыки запуска, закрытия электронных таблиц и ввода, редактирования и форматирования данных.
Откройте рабочую книгу электронной таблицы Microsoft Excel 2007: Пуск→Все программы (или Программы) →Microsoft Office→ Microsoft Office Excel 2007.
Перейдите в ячейку A1 и введите текстовую информацию «Оплата доставки груза».
Нажмите клавишу для завершения ввода.
Выделите диапазон ячеек A1:I1 и нажмите кнопку «Объединить ячейки» (Рис.1)
Рис.1 Объединение ячеек
Для перехода на новую строку в рамках одной ячейки используют комбинацию клавиш +(Рис. 2).
hello_html_mf0d5504.pnghello_html_20b61599.png
Рис.2 До и после перемещения на новую строку
Остальные ячейки заполните текстовой и числовой информацией по образцу (Рис.3):
hello_html_m784a4c10.png
Рис.3 Ввод данных
Автоматическая нумерация строк. В ячейку A3 введите число 1, а ячейку A4 -2. Выделите обе ячейки, нажмите на появившийся черный маркер в правом нижнем углу выделенного диапазона и потянуть вниз до ячейки А7 включительно (Рис.4,5).
hello_html_m7f0d9ec3.pnghello_html_6d6df899.png
Рис.4, Рис. 5 Автоматическая нумерация
Выделите и объедините ячейки F3:F7 и H3:H7.
Для ввода повторяющейся информации используйте возможности автоматического заполнения ячеек. Выделите ячейку G3, нажмите на маркер и протяните до ячейки G7(включительно).
В ячейку А8 введите слово «Итого» и объедините ячейки А8:Н8.
Используя пункт «Выравнивание» на вкладке «Главная» выравните информацию в ячейках по образцу (Рис.6):
hello_html_7bbc4679.png
Рис. 6 Выравнивание
Используя инструмент «Заливка» hello_html_419f266.png, оформите цветом созданную таблицу (Рис.7):
hello_html_444772a5.png
Рис. 7 Изменение цвета ячеек
Используя инструмент «Границы» hello_html_419f266.png, добавьте границы (Рис.8).
hello_html_m47fac4b8.png
Рис. 8 Добавление границ
Сохраните получившуюся таблицу под именем «Доставка груза».
МБОУ СШ №74 г. Ульяновска Учитель информатики - Терехова У.И. Страница 3
fsz,indf,indl: int64;
f: file of integer;
begin
write('n = '); readln(n);
// запись в файл целых чисел
assign(f,'input.txt');
rewrite(f);
for i:=1 to n do write(f,random(-3000,8000));
close(f);
// замена элементов в файле
assign(f,'input.txt');
reset(f);
fsz:=FileSize(f);
indf:=0;
for i:=0 to fsz-1 do
begin
read(f,n);
if ((n mod 2)<>0) and (indf=0) then
begin
indf:=i; fs:=n;
end;
if (n mod 2)=0 then
begin
indl:=i; ls:=n;
end;
end;
reset(f);
seek(f,indf);
write(f,ls);
reset(f);
seek(f,indl);
write(f,fs);
close(f);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var fn:='MtFile.bin';
var n:=ReadInteger;
var f:file of integer;
var s:=SeqRandom(n,-3000,8000); // последовательность не хранится
Rewrite(f,fn);
foreach var m in s do Write(f,m);
f.Close; // файл создан и закрыт
Reset(f,fn);
var b:integer; // буфер
while not Eof(f) do begin Read(f,b); Print(b) end; Writeln;
Seek(f,0); // стали в начало файла
Read(f,b);
var iOdd:=0;
while not Eof(f) and b.IsEven do
begin Read(f,b); iOdd+=1 end;
if Eof(f) and b.IsEven then
begin Writeln('Нет нечетных компонентов'); exit end;
var (bb,iEven):=(b,n);
repeat
iEven-=1; Seek(f,iEven); Read(f,b)
until (iEven=1) or b.IsEven;
if b.IsOdd then begin Writeln('Нет четных компонентов'); exit end;
Seek(f,iEven); Write(f,bb);
Seek(f,iOdd); Write(f,b);
Seek(f,0);
while not Eof(f) do begin Read(f,b); Print(b) end; Writeln;
f.Close
end.
Пример
10
3166 6355 3596 6926 1266 6143 7401 7624 1402 -627
3166 1402 3596 6926 1266 6143 7401 7624 6355 -627