Запустите программу, выберите меню Файл | Создать…. Справа появилась боковая панель создания документа. В разделе «Создание документа с шаблона» щёлкните по пункту «Общие шаблоны…». В появившемся диалоге «Шаблоны» откройте вкладку «Другие документы» и выберите пункт «Мастер календарей». Нажмите OK для продолжения. Если компонент календаря ещё не установлен, то программа сама его установит. На первой странице Мастера календарей щёлкните «Дальше». Выберите стиль оформления календаря: «Строгий», «Стандартный» или «Изысканный». По внешнему виду можно догадаться, как календарь будет выглядеть. Выберите ориентацию календаря и наличие рисунка. С рисунком готовый документ будет выглядеть немного нарядней, особенно, если распечатаете его на цветном принтере. Выберите начальный и конечный месяц и год. По умолчанию выбран текущий месяц и год 2013. Рекомендую сразу распечатать календарь на год – выберите следующий 2014 год. Создание календаря завершено! Нажмите кнопку «Готово», чтобы увидеть получившийся документ.
Справа появилась боковая панель создания документа.
В разделе «Создание документа с шаблона» щёлкните по пункту «Общие шаблоны…».
В появившемся диалоге «Шаблоны» откройте вкладку «Другие документы» и выберите пункт «Мастер календарей». Нажмите OK для продолжения. Если компонент календаря ещё не установлен, то программа сама его установит.
На первой странице Мастера календарей щёлкните «Дальше».
Выберите стиль оформления календаря: «Строгий», «Стандартный» или «Изысканный». По внешнему виду можно догадаться, как календарь будет выглядеть.
Выберите ориентацию календаря и наличие рисунка. С рисунком готовый документ будет выглядеть немного нарядней, особенно, если распечатаете его на цветном принтере.
Выберите начальный и конечный месяц и год. По умолчанию выбран текущий месяц и год 2013. Рекомендую сразу распечатать календарь на год – выберите следующий 2014 год.
Создание календаря завершено! Нажмите кнопку «Готово», чтобы увидеть получившийся документ.
program raf105;
const
n = 4;
var
a,b: array[1..n,1..n] of integer;
Vkol1,Vkol2,Vsum1,Vsum2: array[1..n] of integer;
i,j,sum1,sum2,kol1,kol2: integer;
x1,x2: boolean;
begin
for i:=1 to n do
begin
x1:= False;
x2:= False;
kol1:= 0;
kol2:= 0;
sum1:= 0;
sum2:= 0;
for j:=1 to n do
begin
a[i,j]:= random(-9,9);
b[i,j]:= random(-9,9);
if a[i,j] < 0
then x1:= True;
if b[i,j] < 0
then x2:= True;
if not(x1)
then begin
sum1:= sum1 + a[i,j];
kol1:= kol1 + 1;
end;
if not(x2)
then begin
sum2:= sum2 + b[i,j];
kol2:= kol2 + 1;
end;
end;
Vkol1[i]:= kol1;
Vkol2[i]:= kol2;
Vsum1[i]:= sum1;
Vsum2[i]:= sum2;
end;
writeln('Массив A');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:3);
end;
writeln;
writeln;
writeln('Массив B');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(b[i,j]:3);
end;
writeln;
writeln;
write('Вектор "Количество по строкам A": ');
for i:=1 to n do
write(Vkol1[i],' ');
writeln;
write('Вектор "Количество по строкам B": ');
for i:=1 to n do
write(Vkol2[i],' ');
writeln;
write('Вектор "Сумма по строкам A": ');
for i:=1 to n do
write(Vsum1[i],' ');
writeln;
write('Вектор "Сумма по строкам B": ');
for i:=1 to n do
write(Vsum2[i],' ');
end.
PascalABC 3.4.2