Перевод программы C++ -> Visual Basic

@vitx · Регистрация: 16.06.2010

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

Друзья, помогите пож. перевести код с языка C++ в Visual Basic, в котором я не очень хорошо разбираюсь.

№1.
Составить блок-схему и написать программу:
Известна зарплата каждого из 12 работников фирмы за каждый месяц первого квартала

Организовать ввод информации по этой таблице и определить:
а) максимальную зарплату из указанных в таблице;
б) порядковый номер работника, получившего за квартал наибольшую
сумму;
в) в каком месяце общая зарплата всех работников была максимальной.

C++
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
#include "stdafx.h"
#include <stdio.h>
#include <iostream>
#include <conio.h>
#include <stdlib.h>
 
using namespace std;
void main()
{
int k,i,j,max,maxr,summP,summV,summT,maxsumm,all;
int a[12][4];
for (j=0; j<12; j++)
{
cout << "vvedite zarplatu za 1,2,3 mecyac " << j+1 <<" rabotnika\n";
for (i=0; i<3; i++)
{ cin >> a[i][j];
}
cout << "\n";
}
cout << "________________________________________________________\n";
cout << "  rabotniki  |______________mesyac______________________\n";
cout << "_____________|________1___________2__________3__________\n";
for (j=0; j<12; j++)
{
cout << j+1 << "\t\t";
for (i=0; i<3; i++)
{ 
cout << a[i][j]<< "\t\t";
}
cout << "\n";
}
max=1;
summV=0;
summP=0;
summT=0;
all=0;
for (j=0; j<12; j++)
{
for (i=0; i<3; i++)
{ 
all=all+a[i][j];
if (a[i][j]>max)
{maxr=j;
max=a[i][j];
};
}
cout << "\n";
}
for (j=0; j<12; j++)
{
for (i=0; i<3; i++)
{ 
if (i=0)
{summP=summP+a[i][j];
};
if (i=1)
{summV=summV+a[i][j];
};
if (i=2)
{summT=summT+a[i][j];
};
}
cout << "\n";
}
if (summP>summV && summP>summT)
{maxsumm=1;
};
if (summV>summP && summV>summT)
{maxsumm=2;
};
if (summT>summV && summT>summP)
{maxsumm=3;
};
 
 
cout << "maksim. poluchen. summa " << max << "\n";
cout << "por.nomer rabotnika, poluchivshego bolsh. summu " << maxr+1 << "\n";
cout << "obshaya zarplata rabotnikov v " << maxsumm << " mesyace byla maksimalnoi \n";
cout << "obshaya summa, vyplachennaya za kvartal vsem rabotnikam " << all;
 
getch();
}

№2.
Составить блок-схему и написать программу:
Известна зарплата каждого из 12 работников фирмы за каждый месяц
первого квартала

Организовать ввод информации по этой таблице и определить:
а) общую сумму, выплаченную за квартал всем работникам;
б) зарплату, полученную за квартал каждым работником;
в) общую зарплату всех работников за каждый месяц.

C++
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#include "stdafx.h"
#include <stdio.h>
#include <iostream>
#include <conio.h>
#include <stdlib.h>
 
using namespace std;
void main()
{
int k,i,j,max,maxr,summP,summV,summT,maxsumm,all,sumrab;
int a[12][4];
for (j=0; j<12; j++)
{
cout << "vvedite zarplatu za 1,2,3 mecyac " << j+1 <<" rabotnika\n";
for (i=0; i<3; i++)
{ cin >> a[i][j];
}
cout << "\n";
}
cout << "________________________________________________________\n";
cout << "  rabotniki  |______________mesyac______________________\n";
cout << "_____________|________1___________2__________3__________\n";
for (j=0; j<12; j++)
{
cout << j+1 << "\t\t";
for (i=0; i<3; i++)
{ 
cout << a[i][j]<< "\t\t";
}
cout << "\n";
}
sumrab=0;
all=0;
summV=0;
summP=0;
summT=0;
for (j=0; j<12; j++)
{
for (i=0; i<3; i++)
{all=all+a[i][j];
sumrab=sumrab+a[i][j];
}
cout << "zarplata, poluchennaya za kvartal " << j+1 << " rabotnikom "<< sumrab << "\n";
sumrab=0;
cout << "\n";
}
for (j=0; j<12; j++)
{
for (i=0; i<3; i++)
{ 
if (i=0)
{summP=summP+a[i][j];
};
if (i=1)
{summV=summV+a[i][j];
};
if (i=2)
{summT=summT+a[i][j];
};
}
cout << "\n";
}
cout << "obshaya zarplata vseh rabotnikov za 1 mesyac " << summP << "\n";
cout << "obshaya zarplata vseh rabotnikov za 2 mesyac " << summV << "\n";
cout << "obshaya zarplata vseh rabotnikov za 3 mesyac " << summT << "\n";
cout << "obshaya summa, vyplachennaya za kvartal vsem rabotnikam " << all;
getch();
}

Буду очень благодарен.

@Abu · 17.06.2010, 02:42

Сообщение от vitx

Друзья, помогите пож. перевести код с языка C++ в Visual Basic, в котором я не очень хорошо разбираюсь.

Если просто перевести, то вот (правильность вывода проверяй сам)
№1

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
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Form_Load()
Dim k As Long, i As Long, j As Long, max As Long, maxr As Long, summP As Long, summV As Long, summT As Long, maxsumm As Long, all As Long
Dim a(2, 11) As Long
Dim s As String
For j = 0 To 11
    For i = 0 To 2
        a(i, j) = Val(InputBox("vvedite zarplatu za 1,2,3 mecyac " & j + 1 & " rabotnika\"))
    Next i
Next j
s = "________________________________________________________\n"
s = s & "  rabotniki  |______________mesyac______________________\n"
s = s & "_____________|________1___________2__________3__________\n"
For j = 0 To 11
    s = s & j + 1 & vbTab & vbTab
    For i = 0 To 2
        s = s & a(i, j) & vbTab & vbTab
    Next i
    s = s & vbCrLf
Next j
max = 1
For j = 0 To 11
    For i = 0 To 2
        all = all + a(i, j)
        If (a(i, j) > max) Then
            maxr = j
            max = a(i, j)
        End If
    Next i
    s = s & vbCrLf
Next j
 
For j = 0 To 11
    For i = 0 To 2
        Select Case i
        Case Is = 0
        summP = summP + a(i, j)
        Case Is = 1
        summV = summV + a(i, j)
        Case i = 2
        summT = summT + a(i, j)
        End Select
    Next i
    s = s & vbCrLf
Next j
 
If (summP > summV) And (summP > summT) Then
maxsumm = 1
ElseIf (summV > summP) And (summV > summT) Then
maxsumm = 2
ElseIf (summT > summV) And (summT > summP) Then
maxsumm = 3
End If
s = s & "maksim. poluchen. summa " & max & vbCrLf _
& "por.nomer rabotnika, poluchivshego bolsh. summu " & maxr + 1 & vbCrLf & _
"obshaya zarplata rabotnikov v " & maxsumm & " mesyace byla maksimalnoi" & vbCrLf _
& "obshaya summa, vyplachennaya za kvartal vsem rabotnikam " & all
 
MsgBox s
 
End Sub

Хотя тут по-моему какая-то путаница в циклах...

@vitx · 17.06.2010, 13:35 **[ТС]**

Abu, большое спасибо, теперь сам разберусь со второй программой

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@vitx 0 / 0 / 0 Регистрация: 16.06.2010 Сообщений: 3
	17.06.2010, 13:35 [ТС]
	Abu, большое спасибо, теперь сам разберусь со второй программой 0