// task 1,2
const n= 15;
var a:array[1..15]of integer;
i,min,max:integer;
begin
min:=99999;
max:=0;
//Заполняем массив случайными числами
//И выводим его
for i:=1 to 15 do begin
a[i]:=random(100);
write(a[i]:5);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln();
//Вывод в обратном порядке
for i:=1 to 15 do write(a[n-i+1]:5);
writeln();
writeln ('Разность max-min ',max-min);
end.
Рабочим полем табличного процессора является экран дисплея, на котором электронная таблица представляется в виде прямоугольника, разделенного на строки и столбцы. Строки нумеруются сверху вниз. Столбцы обозначаются слева направо. На экране виден не весь документ, а только часть его. Документ в полном объеме хранится в оперативной памяти, а экран можно считать окном, через которое пользователь имеет возможность просматривать таблицу. Для работы с таблицей используется табличный курсор, — выделенный прямоугольник, который можно поместить в ту или иную клетку. Минимальным элементом электронной таблицы, над которым можно выполнять те или иные операции, является такая клетка, которую чаще называют ячейкой. Каждая ячейка имеет уникальное имя (идентификатор), которое составляется из номеров столбца и строки, на пересечении которых располагается ячейка. Нумерация столбцов обычно осуществляется с помощью латинских букв (поскольку их всего 26, а столбцов значительно больше, то далее идёт такая нумерация — AA, AB, ..., AZ, BA, BB, BC, ...), а строк — с помощью десятичных чисел, начиная с единицы. Таким образом, возможны имена (или адреса) ячеек B2, C265, AD11 и т.д.
Следующий объект в таблице — диапазон ячеек. Его можно выделить из подряд идущих ячеек в строке, столбце или прямоугольнике. При задании диапазона указывают его начальную и конечную ячейки, в прямоугольном диапазоне — ячейки левого верхнего и правого нижнего углов. Наибольший диапазон представляет вся таблица, наименьший — ячейка. Примеры диапазонов — A1:A100; B12:AZ12; B2:K40.
Если диапазон содержит числовые величины, то они могут быть просуммированы, вычислено среднее значение, найдено минимальное или максимальное значение и т.д.
Иногда электронная таблица может быть составной частью листа, листы, в свою очередь, объединяются в книгу (такая организация используется в Microsoft Excel).
Ячейки в электронных таблицах могут содержать числа (целые и действительные), символьные и строковые величины, логические величины, формулы (алгебраические, логи-ческие, содержащие условие).
<span>В формулах при обращении к ячейкам используется два способа адресации — абсолютная и относительная адресации. При использовании относительной адресации копирование, перемещение формулы, вставка или удаление строки (столбца) с изменением местоположения формулы приводят к перестраиванию формулы относительно её нового местоположения. В силу этого сохраняется правильность расчётов при любых указанных выше действиями над ячейками с формулами. В некоторых же случаях необходимо, чтобы при изменении местоположения формулы адрес ячейки (или ячеек), используемой в формуле, не изменялся. В таких случаях используется абсолютная адресация. В приведенных выше примерах адресов ячеек и диапазонов ячеек адресация является относительной. Примеры абсолютной адресации (в Microsoft Excel): $A$10; $B$5:$D$12; $M10; K$12 (в предпоследнем примере фиксирован только столбец, а строка может изменяться, в последнем — фиксирована строка, столбец может изменяться). </span>
А||В||~В||А•~В
0||0||1||0
0||1||0||0
1||0||1||1
1||1||0||0
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)</span>
begin
var a:=ArrRandom(ReadInteger('Введите размер массива->'),-100,100); Write('Начальный массив: '); a.Println;
a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray; Write('Конечный массив: '); a.Println;
end.
Пример:
Введите размер массива-> 10
Начальный массив: -100 84 -35 -26 -33 63 36 22 60 89
Конечный массив: 84 -26 63 22 89
1)const N=5;
M=6;
var
a: array [1..N,1..M] of integer;
b: array [1..M] of integer;
i,j:integer;
begin
for i:=1 to N do
begin
b[i]:=1;
for j:=1 to M do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
b[M]:=1;
writeln;
for j:=1 to M do
begin
for i:=1 to N do
begin
if (a[i,j]>=0) and (a[i,j] mod 2=0) then
b[j]:= b[j]*a[i,j];
end;
write(b[j]:4);
end;
end.
2)const N=5;
M=6;
var
a: array [1..N,1..M+1] of integer;
i,j:integer;
begin
for i:=1 to N do
begin
a[i,m+1]:=0;
for j:=1 to M do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:4);
if a[i,j]<0 then inc(a[i,m+1]);
end;
writeln;
end;
writeln;
for i:=1 to N do
if a[i,M+1]=2 then write(i:4);
end.
3) Порешай самостоятельно
