Перевести программу с Паскаля на VBA

@John_Shepard · Регистрация: 10.10.2014

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
const 
N=9; 
var 
i: integer; 
Max: integer; 
A: array [1..N] of integer; 
B: array [1..N+1] of integer; 
begin 
Max:=-4; 
for i:=1 to N do 
begin 
write('A[',i,']: = '); 
readln(A); 
end; 
for i:=1 to N do 
if ((A>=-3)and(A<=2))and(A>Max) then 
Max:=A 
else if A<-3 then 
B:=A; 
if (Max<>-4)and(Max<0) then B[N+1]:=Max; 
for i:=1 to N+1 do 
if B<>0 then 
write(B,'; '); 
readln; 
end.

@Антихакер32 · 15.10.2014, 18:09

это легко, если в течении дня никто не поможет, то я скину вам код

Добавлено через 1 минуту

Не по теме:

паскаль я знал даже раньше чем байсик, просто
обращений больше по байсику, подожду что скажут другие

Добавлено через 4 минуты
.. хотя код уже написал, осталость только выложить ))

SoftIce · 15.10.2014, 20:16

Сообщение от Антихакер32

.. хотя код уже написал, осталость только выложить

А почему не выкладываешь?

@Антихакер32 · 15.10.2014, 20:19

да вот тебя жду

Добавлено через 1 минуту
Меня тут позавчера кое-за что наказали..
так вот я не буду бежать впереди паровоза ))

SoftIce · 15.10.2014, 20:19

Если у тебя код готов, то зачем меня ждать?

@The trick · 15.10.2014, 20:22

Сообщение от Антихакер32

Меня тут позавчера кое-за что наказали..
так вот я не буду бежать впереди паровоза ))

Тебя наказали за нарушение правил.

SoftIce · 15.10.2014, 20:40

Так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub main()
    Const N = 9
    Dim i As Integer, Max As Integer, s As String
    Dim A(1 To N) As Integer
    Dim B(1 To N + 1) As Integer
    Max = -4
    For i = 1 To N
       A(i) = Val(InputBox("A(" & i & ") = "))
    Next i
    For i = 1 To N
        If ((A(i) >= -3) And (A(i) <= 2)) And (A(i) > Max) Then
            Max = A(i)
        ElseIf A(i) < -3 Then
            B(i) = A(i)
        End If
    Next i
    If (Max <> -4) And (Max < 0) Then B(N + 1) = Max
    For i = 1 To N + 1
        If B(i) <> 0 Then s = s & B(i) & "; "
    Next i
    MsgBox "Массив В " & vbCrLf & s
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	15.10.2014, 18:09
	это легко, если в течении дня никто не поможет, то я скину вам код Добавлено через 1 минуту Не по теме: паскаль я знал даже раньше чем байсик, просто обращений больше по байсику, подожду что скажут другие Добавлено через 4 минуты .. хотя код уже написал, осталость только выложить )) 1

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	15.10.2014, 20:19
	да вот тебя жду Добавлено через 1 минуту Меня тут позавчера кое-за что наказали.. так вот я не буду бежать впереди паровоза )) 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	15.10.2014, 20:19
	Если у тебя код готов, то зачем меня ждать? 1

Перевести программу с Паскаля на VBA

Решение