1.Что нужно использовать для выделения текста? А) мышь, клавиатуру- это правильный ответ Б) Enter B) Alt Г) Ctrl 2. Как удаляем переносы? А) Нажимаем два раза левую кнопку мыши Б) Можно удалить автоматическую расстановку переносов и любой перенос, вставленный вручную (мягкие переносы и неразрывные дефисы).- это прав. ответ В) Ориентация- разрывы- удалить 3. Как создаём таблицу? А) Меню-таблица-создать Б) разметки страниц-таблицы В) вставка-таблица-вставить таблицу.-это правильный ответ Г) главная-вставить 4. Текстовой редактор-это? А) прикладное программное обеспечение используемое для создания текстовых документов и для работы с ними.- это правильный ответ Б) программное обеспечение для создания таблиц В) программное обеспечение для создания базы данных 5. Какие основные функции форматирования текста вы знаете? А) ввод текста Б) корректировка текста В) установление значений полей страницы, форматирование абзацев, установка шрифтов –это правильный ответ. 6. Какие основные функции редактирования текста вы знаете? А) установка межстрочных интервалов б) ввод текста, коррекция, удаление, копирование, вставка, перемещение-это прав.ответ в) выделение фрагментов текста. 7. Что нужно сделать чтоб сохранить документ Word? А) Щелкнуть на левой кнопке мыши и выбрать сохранить Б) щелкнуть пиктограмму «сохранить» на панели инструментов- это прав. ответ В) выйти из редактора и нажать Enter 8. Ячейка электронной таблицы определяется: А) именами столбцов Б) областью пересечения строк и столбцов- это прав. ответ В) номерами строк 9. К табличным процессорам относиться: А) Word Б) Excel— это прав. ответ В) Poent 10. Для создания нового файла в редакторе Word нужно: А) выбрать команду «открыть» Б) выбрать команду «файл» В) выполнит команду «создать-файл-общие-обычный- ок» — это прав. ответ 11. К текстовым редакторам относят: А) Word, блокнот-это прав. ответ Б) Internet Explorer В) Poent 12. В Word невозможно применить форматирование к? А) рисунку, колонтитулу Б) номеру страницы
arr = array[,] of integer;
arrB = array[1..3] of integer;
var
i, n, m: integer;
A1, A2, A3: arr;
B1, B2, B3: arrB;
procedure FormB(var A: arr;var B:arrB);
var i, j, n, m: integer;
begin
n:= Length(A,0);
m:= Length(A,1);
for i := 0 to n-1 do
begin
for j := 0 to m-1 do
begin
A[i,j]:=random(10);
write(A[i,j]:2);
if A[i,j]=1 then B[1]:=B[1]+1;
if A[i,j]=2 then B[2]:=B[2]+1;
if A[i,j]=3 then B[3]:=B[3]+1
end;
writeln
end
end;
begin
write('Введите N1 и M1:');
readln(n,m);
SetLength(A1, n, m);
FormB(A1,B1);
write('Число единиц, двоек и троек соответственно равно: ');
for i := 1 to 3 do write(B1[i]:4);
writeln;
write('Введите N2 и M2:');
readln(n,m);
SetLength(A2, n, m);
FormB(A2,B2);
write('Число единиц, двоек и троек соответственно равно: ');
for i := 1 to 3 do write(B2[i]:4);
writeln;
write('Введите N3 и M3:');
readln(n,m);SetLength(A3, n, m);
FormB(A3,B3);
write('Число единиц, двоек и троек соответственно равно: ');
for i := 1 to 3 do write(B3[i]:4)
end.
Сделал еще вариант с двумя процедурами:
type
arr = array[,] of integer;
arrB = array[1..3] of integer;
var
A1, A2, A3: arr;
B1, B2, B3: arrB;
procedure FormB(var A: arr;var B:arrB);
var i, j, n, m: integer;
begin
for i:=1 to 3 do B[i]:=0;
n:= Length(A,0);
m:= Length(A,1);
for i := 0 to n-1 do
begin
for j := 0 to m-1 do
begin
A[i,j]:=random(10);
write(A[i,j]:2);
if A[i,j]=1 then B[1]:=B[1]+1;
if A[i,j]=2 then B[2]:=B[2]+1;
if A[i,j]=3 then B[3]:=B[3]+1
end;
writeln
end
end;
procedure Inp(var A: arr;var B:arrB);
var i,n,m:integer;
begin
write('Введите N и M: ');
readln(n,m);
SetLength(A, n, m);
FormB(A,B);
write('Число единиц, двоек и троек соответственно равно: ');
for i := 1 to 3 do write(B[i]:4);
writeln
end;
begin
Inp(A1,B1);
Inp(A2,B2);
Inp(A3,B3)
end.
type mas=array[1..a] of integer;
mas1=array[1..3] of byte;
var R, Q, P:mas;
X:mas1;
i:byte;
procedure Form(var R, Q, P:mas);
var sr, sq, sp:byte;
begin
sr:=0;
sq:=0;
sp:=0;
for i:=1 to a do
begin
if (R[i]>=2) and (R[i]<=4) then sr:=sr+R[i];
if (Q[i]>=2) and (R[i]<=4) then sq:=sq+R[i];
if (P[i]>=2) and (R[i]<=4) then sp:=sp+R[i];
end;
x[1]:=sr;
x[2]:=sq;
x[3]:=sp;
writeln('Massiv x');
for i:=1 to 3 do
write(x[i]:3);
end;
begin
randomize;
for i:=1 to a do
begin
R[i]:=random(10);
Q[i]:=random(10);
P[i]:=random(10);
end;
writeln('Massiv r');
for i:=1 to a do
write(R[i]:3);
writeln;
writeln('Massiv Q');
for i:=1 to a do
write(Q[i]:3);
writeln;
writeln('Massiv P');
for i:=1 to a do
write(P[i]:3);
end.