существуют две разновидности программы – более старая (2003 года и ранее) и более новая (2007-2010). Они несколько отличаются друг от друга, поэтому в этом уроке мы научимся вставлять таблицы и в более старой программе Word, и в современной. Но и в том, и в другом случае для начала нужно указать то место на листе, где должна быть таблица. То есть мигающий курсор (мигающая палочка) должна быть в том месте, куда Вы хотите вставить таблицу. чтобы сместить мигающий курсор вниз, нужно нажать кнопку Enter на клавиатуре. А чтобы поднять его выше – нажать Backspace (кнопку удаления). В программе Microsoft Word более старой версии (2003 года и ранее) для вставки таблиц есть специальный пункт в самом верху программы с правой стороны. Называется он «Таблица». А в программе Word более современной версии (2007-2010) для того, чтобы вставить таблицу, нужно нажать на надпись «Вставка» в левом верхнем углу программы. Когда Вы нажмете на эту надпись, появятся новые кнопки редактирования. Среди них есть кнопка (надпись) «Таблица». Если Вы нажмете на надпись (кнопку) «Таблица», откроется список, в котором программа Word предлагает несколько вставки таблиц. Для начала поговорим о классическом Вставить таблицу...» (Вставить – Таблица). Нажмите на пункт «Вставить таблицу...» (Вставить – Таблица) – откроется небольшое окошко. В верхней части этого окошка нужно напечатать, сколько столбцов и строк должно быть в нашей таблице. Я, например, указал три столбца и четыре строки. Также обратите внимание на нижнюю часть окошка. Точка должна стоять на пункте «Постоянная», и в соседнем белом поле должно быть указано значение «Авто». Другие настройки ширины столбцов применяются крайне редко, в исключительных случаях, и рассматривать их в рамках данного урока мы не будем. И, наконец, нажмите на кнопку ОК. Таблица с указанным нами количеством столбцов и строк должна вставиться в документ (на лист). В моем случае вставилась вот такая таблица:
var i,A,B:integer;
ans:real;
f,g:text;
begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
readln(f,i);
read(f,A,B);
if (i=4) and (B=0)
then
begin
write(g,'Error');
close(g);
exit;
end;
if (i=5) and (B=0)
then
begin
write(g,'Error');
close(g);
exit;
end;
case (i) of
1:ans:=A+B;
2:ans:=A-B;
3:ans:=A*B;
4:ans:=A div B;
5:ans:=A mod B;
end;
write(g,ans);
close(f);
close(g);
end.