Упражнение 15. Применение неразлинованной таблицы для размещения текста в документах. Создание бланка. В верхней части страницы вставьте таблицу, состоящую из трех столбцов и одной строки. В самой первой (левой) ячейке разместите шапку своего бланка, используя вставку символов из символьного шрифта, выравнивание по центру, интервалы перед абзацами, принудительный конец строки. Не применяйте только отступ справа. В этом варианте «отодвигать» абзацы от правого края можно не за счет отступа справа, а перемещением правой вертикальной границы ячейки таблицы. Таким образом, вы можете оптимальным образом расположить шапку своего бланка. Сохраните бланк в виде отдельного файла. Бланк-заготовка создан, можно приступить к его заполнению. Как только понадобится создать новый документ на вашем фирменном бланке, вставьте заготовку следующим образом: выполните команду Вставка - Файл..., выберите предварительно сохраненный файл, содержащий бланк. Содержимое файла-бланка будет вставлено в ваш документ, в то время как сам файл-бланк не пострадает и его можно будет использовать в дальнейшем для подготовки других документов. Начнем с реквизитов адресата. Их нужно вставить в крайнюю правую ячейку таблицы, выровнять по ширине и отодвинуть слева перемещением правой вертикальной границы ячейки таблицы. Таким образом, меняя ширину третьей ячейки таблицы (в зависимости от объема текста) в каждом новом документе, вы можете наилучшим образом сформатировать реквизиты адресата. Остается набрать текст письма ниже таблицы, сформатировать подписи с использованием нерастяжимых пробелов и выравнивания по ширине. Неважно, в какой последовательности вы будете производить действия (сначала вставите реквизиты бланка, а затем наберете содержание письма или наоборот), главное – следите за тем, чтобы при вставке файла курсор находился в нужном месте (выше основного текста документа). Таким образом можно готовить различные письма и другие документы на фирменном бланке ,Компьютера нету , не могу сделать ,очень
Задача №1 var a:array[1..4, 1..5] of integer; i,j,k:integer; begin writeln('Заполните матрицу'); for i:=1 to 4 do for j:=1 to 5 do begin read(a[i,j]); if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j]; end; writeln('Сумма элементов кратных 3-м и > 20 = ',k); end.
Задача №2 var a:array[1..5, 1..5] of integer; i,j,k:integer; begin writeln('Заполните матрицу'); for i:=1 to 5 do for j:=1 to 5 do begin read(a[i,j]); if i=j then k:=k+a[i,j]; end; writeln('Сумма элементов главной диагонали = ',k); end.
Var a, b: integer; var c: string; begin writeln('Введите 1 число.'); readln(a); writeln('Введите 2 число.'); readln(b); writeln('Знак операции.'); readln(c); if c='*' then writeln(a*b); if c='/' then writeln(a/b); if c='-' then writeln(a-b); if c='+' then writeln(a+b); end. 2 ЗАДАЧА var a, b: real; begin writeln('Зарабаток Пети:'); readln(a); writeln('Зарабаток Петрова:'); readln(b); if a>b then writeln('Петя заработал больше Петрова.') else if a=b then writeln('Петров и Петя заработали одинаково.') else writeln('Петров заработал больше Пети.'); writeln('Среднее: ', (a+b)/2); end.
var a:array[1..4, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 4 do
for j:=1 to 5 do begin
read(a[i,j]);
if (a[i,j] mod 3=0) and (a[i,j]>20) then k:=k+a[i,j];
end;
writeln('Сумма элементов кратных 3-м и > 20 = ',k);
end.
Задача №2
var a:array[1..5, 1..5] of integer;
i,j,k:integer;
begin
writeln('Заполните матрицу');
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i=j then k:=k+a[i,j];
end;
writeln('Сумма элементов главной диагонали = ',k);
end.
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.