Нужна помощь в переводе 3-х программ с языка Pascal в VBA Program num2; Uses crt; Var a :array [1..100] of integer; i,k,n, s : integer; Begin clrscr; s:=0; write('K=');readln(k); write('N=');readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do if (a[i] MOD k)=0 then s:=s+a[i]; writeln('S=',s); End. Program num1; Uses crt; Var i, E : integer; Begin clrscr; i:=0; write('E=');readln(E); while i begin i:=i+sqrt(2); end; writeln('I=',i); End. Program num3; Uses crt; Var A, T :array [1..100, 1..100] of integer; i, j, x : integer; Begin clrscr; for i:=1 to 100 do for j:=1 to 100 do A[i,j]:=random(10); for i:=1 to 100 do for j:=i+1 to 100 do T[i,j]:=A[i,j]; for i:=1 to 100 do for j:=1 to 100 do begin x:=0,5*((A[i,j]^2)+(A[i,j]^T[i,j])); writeln('X[',i,',',j,']=',x); end; End.
Нужна помощь в переводе 3-х программ с языка Pascal в VBA Program num2; Uses crt; Var a :array [1..100] of integer; i,k,n, s : integer; Begin clrscr; s:=0; write('K=');readln(k); write('N=');readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do if (a[i] MOD k)=0 then s:=s+a[i]; writeln('S=',s); End. Program num1; Uses crt; Var i, E : integer; Begin clrscr; i:=0; write('E=');readln(E); while i begin i:=i+sqrt(2); end; writeln('I=',i); End. Program num3; Uses crt; Var A, T :array [1..100, 1..100] of integer; i, j, x : integer; Begin clrscr; for i:=1 to 100 do for j:=1 to 100 do A[i,j]:=random(10); for i:=1 to 100 do for j:=i+1 to 100 do T[i,j]:=A[i,j]; for i:=1 to 100 do for j:=1 to 100 do begin x:=0,5*((A[i,j]^2)+(A[i,j]^T[i,j])); writeln('X[',i,',',j,']=',x); end; End.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Sub num2()
Dim a(1 To 100) As Integer
Dim i As Integer
Dim k As Integer
Dim n As Integer
Dim s As Integer
s = 0
k = InputBox("K=", "Enter K")
n = InputBox("N=", "Enter N")
For i = 1 To n
a(i) = InputBox("Enter number " & i, "Enter number")
Next i
For i = 1 To n
If (a(i) Mod k) = 0 Then
s = s + a(i)
End If
Next i
MsgBox "S=" & s
End Sub
Sub num1()
Dim i As Double
Dim E As Integer
i = 0
E = InputBox("Enter E")
Do While i < E
i = i + Sqr(2)
Loop
MsgBox "I=" & i
End Sub
Sub num3()
Dim A(1 To 100, 1 To 100) As Integer
Dim T(1 To 100, 1 To 100) As Integer
Dim i As Integer
Dim j As Integer
Dim x As Double
Randomize
For i = 1 To 100
For j = 1 To 100
A(i, j) = Int((10 * Rnd) + 1)
Next j
Next i
For i = 1 To 100
For j = i + 1 To 100
T(i, j) = A(i, j)
Next j
Next i
For i = 1 To 100
For j = 1 To 100
x = 0.5 * ((A(i, j) ^ 2) + (A(i, j) ^ T(i, j)))
MsgBox "X[" & i & "," & j & "]=" & x
Next j
Next i
End Sub