Sub aaa()
Const t = 24.683, s = -15000
Dim x As Double, y As Double, z As Double
Select Case t
Case Is > 0
x = 3 * t ^ 2
Case 0
x = 4
Case Else
x = 24 * t
End Select
If t - s > x Then
y = 0
Else
y = 241
End If
z = x + y
MsgBox z
End Sub
Результат - во вложении.
d[x][y] - это точка с координатами
0 < d[x] <2
0 < d[y] < 1
То есть d(x0,y0) и d(x,y)
x0 = y0 = 0;
x = 2; y = 1;
Program z1;
var i,n:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:= 1 to 4 do
begin
readln (A[I] );
end;
for i := 1 to 4 do
begin
If A [i] > n then writeln (A [i]);
end;readln;end.
Имеют единый графический интерфейс пользователя Windows 95;поддерживают многозадачные и многопоточные вычисления;имеют встроенную поддержку мультимедиа.поддерживают различные аппаратные платформы: Intel-совместимые, на основе RISC-процессоров и на базе процессоров PowerPC;поддерживают файловую систему FAT