Контекстное меню<span> – это меню, которое отображается в отдельном окошке и показывает действия, которые можно произвести с выбранными файлами, папками или отдельными элементами!</span><span>
</span>
Элементы массива считываются из области ячеек A1:E5. Они могут быть как целочисленными, так и вещественными. Для контрольного решения можно заполнить эти ячейки при помощи макроса InitCells, который выполняет инициализацию случайными числами из интервала [-10;10]
Sub InitCells()
Dim a(1 To 5, 1 To 5)
Randomize Timer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(21 * Rnd - 10)
Next j
Next i
Range("A1:E5") = a
End Sub
Ниже представлен текст программы, вычисляющей значение t по формуле
Sub Main()
a = Range("A1:E5")
s = 0
For i = 1 To 5
p = 1
For j = 1 To 5
p = p * a(i, j)
Next j
s = s + p
Next i
MsgBox "t=" + CStr(s)
End Sub
Во вложении - рабочая книга Excel-2003 с тестовым примером и блок-схемой. Макросы находятся на листе 1 рабочей книги.
1) var ar:array of integer;
<span>n,i:integer;
procedure writing(ar:array of integer; var i,n:integer);
begin;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
end;
begin;
readln(n);
writeln('Array:');
SetLength(ar,n+1);
for i:=1 to n do
readln(ar[i]);
i:=1;
writeln('Result:');
writing(ar,i,n);
<span>end.
</span>2) </span>var ar:array[1..10] of integer;
n,i:integer;
sr,otk,otkm:real;
begin;
randomize;
otkm:=-1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
sr:=sr+ar[i];
write(ar[i]:4);
end;
sr:=sr/10;
for i:=1 to 10 do
begin;
otk:=ar[i]-sr;
if otkm<otk then otkm:=otk;
end;
writeln;
writeln('Среднее арифметическое:',sr);
write('Максимальное отклонение:',otkm);
end.
Положить альбом в портфель.
наточить цветные карандаши.
положить в пенал цветные карандаши и простой карандаш.
взять если нужно краски, кисть и стаканчик для воды.