Перевод программы из Pascal в VBA

@cvt · Регистрация: 18.12.2017

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

Помогите перевести в vba
1

Кликните здесь для просмотра всего текста

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
26
program Matrix20;
var
a:array [1..10,1..10] of real;
Mult:real;
i,j,M,N:integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
For j:=1 to N do
begin
Mult:=1;
for i:=1 to M do Mult:=Mult*a[i,j];
Writeln(j,' Произведение :',Mult);
end;
end.

2

Кликните здесь для просмотра всего текста

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
26
27
28
29
30
31
program Matrix30;
var
a:array [1..10,1..10] of real;
Sum,Num:real;
M, N, i, j:Integer;
Sred:Real;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for  i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
for  j:=1 to N do
begin
Sum:=0;
for i:=1 to M do Sum:=Sum+a[i,j];
Sred:=Sum/N;
Num:=0;
for i:=1 to M do
if a[i,j]>Sred then Num:=Num+1;
Writeln(j,' Количество:',Num);
end;
end.

3

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program prog;
var
n,i: integer;
s,st: string;
BEGIN
Write('Введите число: ');
Readln(n);
While n>0 do
begin
i:=n mod 10;
n:=n div 10;
Str(i,s);
st:=st+s;
end;
Writeln('Набор: ');
For i:=Length(st) downto 1 do
Write(st[i],' ');
END.

4

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program String30;
var
s, s0, f: string;
c: char;
i: integer;
begin
write('S = '); readln(s);
write('S0 = '); readln(s0);
write('C = '); readln(c);
for i := 1 to length(s) do
if s[i] = c then f := f + s0 + c
else f := f + s[i];
writeln(f);
end.

shanemac51 · 18.12.2017, 12:39

Возможно программа 4

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub M4_String30()
 
Dim s As String, s0 As String, f As String
Dim C  As String
Dim I As Integer
 
s = InputBox("S = ", , "HJKLIU")
s0 = InputBox("S0 = ", , "--")
C = InputBox("C = ", , "K")
For I = 1 To Len(s)
If Mid(s, I, 1) = C Then
f = f & s0 & C
Else
f = f & Mid(s, I, 1)
End If
Next I
Debug.Print "F="; (f)
''F=HJ--KLIU
End Sub

@Сосна15 · 19.12.2017, 10:50

Очевидно, требуется консольное приложение. Первый вариант, насколько я понял, представляет собой задачу на задание массива 10х10, а потом нужно умножить каждое значение на значение в предыдущей строке и вывести на экран.
Если всё так, то первый вариант будет такой:

Visual Basic
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
26
27
28
29
30
31
32
33
34
35
36
37
Module Module1
                          'Перевод программы из Pascal в VBA - VBA Вариант 1 Matrix20
    Sub Main()                      'консольное приложение
        Console.Clear()
 
        Dim a(10, 10) As Decimal  ' задаём массив 10 на 10 типа Decimal
                                               ' - наиболее близкий к типу Real  в Паскале
        Dim Mult As Single            ' для произведения задаём тип Single, чтобы не было переполнения.
        Dim i, j, M, N As Integer
 
        Console.Write("N: ")       ' Предлагаем ввести кол-во строк
        N = Console.ReadLine()  ' запоминаем кол-во строк в переменную N
 
 
        Console.Write("M: ")      'Предлагаем ввести кол-во столбцов
        M = Console.ReadLine() 'Запоминаем кол-во столбцов в переменную M
        Console.Write("")        ' Отступаем одну строчку
 
        For j = 1 To N             'цикл ввода элементов массива                
            For i = 1 To M
                Console.Write("a(" & i & "," & j & ")=")
                a(i, j) = Console.ReadLine()
            Next
        Next
 
        For j = 1 To N     ' цикл умножения и вывода результата умножения на экран.
            Mult = 1
            For i = 1 To M
                Mult = Mult * a(i, j)
                Console.WriteLine(j & " Произведение : " & Mult)
            Next
        Next
        Stop  ' остановка проги для оценки результатов
 
    End Sub
 
End Module

@Pro_grammer · 19.12.2017, 10:58

Сообщение от Сосна15

VBA 'консольное приложение

Да Вы гений VBA!

@Сосна15 · 19.12.2017, 16:07

Ой, увлёкся..)) Было интересно что-то консольное сделать. Вспомнить школу...
Вот код в ВБА для Ворда (для того же варианта Matrix20)

Visual Basic
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Matrix20()
 
    Dim a(10, 10) As Single
                             
        Dim Mult As Single
        Dim i, j, M, N As Integer
 
        N = InputBox("N: ", "Введите кол-во строк")        ' Задаём параметры массива
        M = InputBox("M: ", "Введите кол-во столбцов")  ' кол-во строки столбцов
        
            
        ActiveDocument.Range.Text = "Массив данных:" & vbCrLf & "          "   'Выводим заголовок массива
        
       pos1 = ActiveDocument.Paragraphs.Add.Range.Start        ' создаём параграф и задаём начало фрагмента для вставки
       
      Set myRange = ActiveDocument.Range(pos1, pos1 + 9)    ' задаём фрагмент для вставки
            
        For i = 1 To M                        ' задаём цикла для ввода и вывода
            For j = 1 To N                    ' на экран элементов массива построчно
               a(i, j) = InputBox("a(" & i & "," & j & ")=", "Введите элемент массива")
                
               myRange.Text = "a(" & i & "," & j & ")=" & a(i, j) & "  "
               myRange.SetRange Start:=myRange.Start + 11, End:=myRange.End
 
            Next
                myRange.Text = vbCrLf                                        'перенос на другую строку
                pos1 = ActiveDocument.Paragraphs.Add.Range.Start 'изменяем начало фрагмента вставки
                myRange.SetRange Start:=pos1, End:=myRange.End
        Next
 
                myRange.SetRange Start:=myRange.Start + 11, End:=myRange.End  'отступаем параграф для вывода 
                myRange.Text = vbCrLf                                    ' массива с произведениями
                pos1 = ActiveDocument.Paragraphs.Add.Range.Start
                
                For i = 1 To M   ' задаём цикл для вывода произведений
            Mult = 1                ' построчно
            For j = 1 To N
                
            myRange.SetRange Start:=myRange.Start + 24, End:=myRange.End
                Mult = Mult * a(i, j)
                myRange.Text = j & " Произведение : " & Mult & "  "
            Next
            myRange.SetRange Start:=myRange.Start + 24, End:=myRange.End
            myRange.Text = vbCrLf
            pos1 = ActiveDocument.Paragraphs.Add.Range.Start
        Next
 
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-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .