Хост компьютеры, персональные компьютеры абонентов (терминалы) , линии связи, модемы.
Различают следующие типы меню:
по исполнению: текстовое графическое;
по функциям: главное меню приложения; всплывающее меню; контекстное меню; <span>системное меню.
Компьютерное меню - это меню через которое мы можем делать разные действия.</span>
Function min(a As Double, b As Double) As Double
Dim a1 As Double, b1 As Double, ab As Double, z As Integer
z = Sgn(Abs(a - b))
a1 = Abs(a)
b1 = Abs(b)
ab = a1 + b1
a1 = a + ab
b1 = b + ab
min = a * Sgn(Int(b1 / a1)) * z + b * Sgn(Int(a1 / b1)) * z
End Function
Function negcube(x As Double, y As Double, z As Double)
Dim i As Double
i = (x - Abs(x)) / 2
x = x + (x * x - 1) * i
i = (y - Abs(y)) / 2
y = y + (y * y - 1) * i
i = (z - Abs(z)) / 2
z = z + (z * z - 1) * i
End Function
Excel VBA
Program svwnx90f;
uses crt;
const n = 100;
var
A:array [1..n] of real;
i,j:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
Randomize;
{ввод чисел}
for i:=0 to 9 do
for j:=1 to 10 do
begin
A[i*10+j]:= Random(101)-50;
write(A[i*10+j]:7:1,' ');
end;
writeln;
writeln('Положительные элементы уменьшаются в 2 раза... ');
writeln('Результат:');
for i:=0 to 9 do
begin
for j:=1 to 10 do
begin
if A[i*10+j]>0 then A[i*10+j]:= A[i*10+j]/2;
write(A[i*10+j]:7:1,' ');
end;
end;
end.