Элементы массива считываются из области ячеек 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 рабочей книги.
P.S Программа написана для Pascal.
program summa;
var
s:real;
i, n: integer;
begin
writeln('Введите число n: ');
read(n);
s:=0;
for i:=1 to n do
s:=s+(i+1)/i;
writeln('S= ',s:4:2);
end.
1.Составление фоторобота по словесному описанию.
Дано словесное описание. Значит когда составляется фоторобот идет работа над описанием, фактический, это действие над информацией которая дана.
2. Передача смс сообщения. В нем так же работаю с информацией. Для того что бы передать сообщение, для начала нужно его составить. Значит будет проведена работа с информацией. Фактический среди действий с информацией есть такое как передача.
В <span>байте 8 бит, 1 символ кодируется одним байтом, соответственно урок - 4 байт... Но это зависит от кодировки, в разных кодировках символ занимает разное количество байт.</span>
<span>#include <iostream>
using namespace std;
int main() {
int x1, x2, y1, y2;
cin >> x1 >> y1 >> x2 >> y2;
if ((x1 > 0 && y1 > 0) && (x2 > 0 && y2 > 0)) {
cout << "YES";
} else if ((x1 < 0 && y1 < 0) && (x2 < 0 && y2 < 0)) {
cout << "YES";
} else if ((x1 > 0 && y1 < 0) && (x2 > 0 && y2 < 0)) {
cout << "YES";
} else if ((x1 < 0 && y1 > 0) && (x2 < 0 && y2 > 0)) {
cout << "YES";
} else {
cout << "NO";
}
<span>}</span></span>