Задание 1
1. Наберите текст с соблюдением всех элементов форматирования, используя диалоговое окно Шрифт или
соответствующие кнопки на панели инструментов
2. Исправить все ошибки, используя орфографический контроль Word.
3. Сохранить созданный текст в своей рабочей папке под именем Текст1.doc.
Шрифты
Шрифт — это набор букв, цифр, специальных символов и знаков препинания, отображаемых
определенным образом. В понятие шрифта входят: тип шрифта, размер шрифта, начертание, цвет,
специальные эффекты.
Наиболее рас шрифтами в России являются Times ET, Times New Roman
Schoolbook, Optima, Arial New и т.д.
Размер обычно выражается в пунктах, или point. Один пункт соответствует 0,376 мм
(американская единица — Pica Point соответствует 0,351 мм).
Для основного текста обычно выбирают размер 12, 14, для заголовков — более крупные
размеры (16 и выше), для сносок и примечаний — 10.
Процесс форматирования сводится к установке требуемых параметров для символов. Можно
осуществить форматирование ранее введенного текста или выполнить установки, после чего
вводимый текст будет форматироваться необходимым образом.
Основные параметры шрифта (тип, размер и начертание) назначаются с команды
Формат, панели инструментов «Форматирование», клавиш и контекстного меню.
for i:=1 to 9 do write(i); writeln(10);
for i:=0 to 8 do write(i); writeln(9);
for i:=1 to 2 do write('0'); for i:=1 to 7 do write(i); writeln('8');
for i:=1 to 3 do write('0'); for i:=1 to 6 do write(i); writeln('7');
for i:=1 to 4 do write('0'); for i:=1 to 5 do write(i); writeln('6');
for i:=1 to 5 do write('0'); for i:=1 to 4 do write(i); writeln(5);
for i:=1 to 6 do write('0'); for i:=1 to 3 do write(i); writeln('4');
for i:=1 to 7 do write('0'); for i:=1 to 2 do write(i); writeln(3);
for i:=1 to 8 do write('0'); write('1');writeln('2');
for i:=1 to 9 do write('0'); writeln(1);
end.
Как сделать более кратко не знаю. Но эта программа работает.
begin
var m:=ReadInteger('Число строк=');
var n:=ReadInteger('Число стролбцов=');
var a:=MatrixRandom(m,n,-99,99);
var imax:=-1; var jmax:=0;
var imin:=0; var jmin:=0;
var min:=100; var max:=-100; // больше большего, меньше меньшего
for var i:=0 to m-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:4);
if (a[i,j]>0) and (a[i,j] mod 2=0) then begin
if a[i,j]<min then begin imin:=i; jmin:=j; min:=a[i,j] end;
if a[i,j]>max then begin imax:=i; jmax:=j; max:=a[i,j] end
end
end;
Writeln
end;
if imax<>-1 then begin
Writeln('Минимальный четный положительный элемент A[',
imin+1,',',jmin+1,']=',a[imin,jmin]);
Writeln('Максимальный четный положительный элемент A[',
imax+1,',',jmax+1,']=',a[imax,jmax])
end
else
Writeln('В массиве нет положительных четных элементов')
end.
Тестовое решение
Число строк= 5
Число стролбцов= 8
-59 98 55 -92 -98 68 5 -82
63 49 41 7 51 22 55 -4
-78 42 -35 -60 -6 -15 -34 -28
-14 55 -44 22 74 -50 -98 85
50 2 65 39 -47 -59 -7 -87
Минимальный четный положительный элемент A[5,2]=2
Максимальный четный положительный элемент A[1,2]=98