1.Что понимается под термином информационная технология? 2.Что представляет собой текстовый редактор?
3.Каково назначение текстового процессора?
4.Почему текстовый процессор Word можно использовать для подготовки публикаций?
5.Опишите структурные элементы окна программного приложения Word.
6.Как выполнить создание документа в текстовом процессоре MS Word?
7.Как выполнить сохранение документа с изменением имени в текстовом процессоре MS Word?
8.Как выполнить сохранение изменений в документе в текстовом процессоре MS Word?
9.Как выполнить открытие документа в текстовом процессоре MS Word? Для чего выполняют открытие документа?
10.Какие правила необходимо соблюдать при вводе текста?
11.Что означает выделение фрагмента текста?
12.Опишите выделения фрагментов?
13.Какой пункт меню текстового процессора MS Word предназначен для форматирования шрифта?
14.Как изменить размер шрифта?
15.Как изменить начертание шрифта?
16.Как изменить гарнитуру шрифта?
17.Перечислите виды горизонтального выравнивания? Как выполнить горизонтальное выравнивание?
18.Как добавить Надпись в текстовый документ?
19.Как изменить цвет текста?
20.Как изменить цвет линии?
21.Как изменить цвет заливки?
22.Как выполнить включение непечатаемых знаков, каково их назначение? Укажите клавиши, имеющие непечатаемые знаки.
23.Опишите процесс вставки и редактирования горизонтальной рамки.
24.Как вставить и отредактировать автофигуру в документах, как ее переместить или повернуть?
25.Как выполнить группировку и разгруппировку графических объектов?
26.Как вставить объект WordАrt в документ?
27.Опишите работы с инструментом Надпись
type matrix = array [1..8] of integer;var F, output: text; i, n, cc, sum: integer; c: char; x: matrix; ma: real;
procedure convert (var c: char; var cc: integer);begin if c='1' then cc:=1; if c='2' then cc:=2; if c='3' then cc:=3; if c='4' then cc:=4; if c='5' then cc:=5; if c='6' then cc:=6; if c='7' then cc:=7; if c='8' then cc:=8; if c='9' then cc:=9; if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin for n:=1 to 7 do begin if x[n]>x[n+1] then swap(x[n],x[n+1]); end;end;
begin Assign(F, '1.txt'); Reset(F); for i:=1 to 8 do begin read(F, c); convert(c,cc); x[i]:=cc; end; Close(F);
sorting(n,x); sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8]; ma:=sum/8; Assign(output, 'output.txt'); rewrite(output); writeln(output, sum); writeln(output, ma); Close(output);end.
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.