Как составить программу на QBasic?

@IgorKls · Регистрация: 09.05.2020

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

Я новичок в этом языке, проходим в колледже по МДК 03.02, задали практическую из 4-х заданий, 3 из которых уже успешно выполнил. Так вот 4-ю так и не могу, искал в интернете решения, но так и не нашёл, очень прошу помочь.
Задача звучит так:

Составить программу на языке QBasic:

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

1) общую сумму, выплаченную за квартал всем работникам;
2) заработную плату, полученную за квартал каждым работником;
3) общую заработную плату всех работников за каждый месяц.

Заранее спасибо всем!

@кот Бегемот · 10.05.2020, 09:36

Объявляете двумерный массив из 12 строк и трёх столбцов, заносите данные.
1 - это сумма всех элементов массива
2 - сумма элементов каждой строки
3 - сумма элементов каждого столбца

Как находить сумму, надеюсь, знаете

@IgorKls · 10.05.2020, 22:02 **[ТС]**

Спасибо

@qbfan · 11.05.2020, 17:40

Моя программа показывает, как можно легко вводить данные при помощи стрелок.
Также таблицу можно сохранить на диске клавишей S и загрузить клавишей L,
что избавляет от необходимости набивать каждый раз вручную весь массив данных.

QBasic/QuickBASIC
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
DECLARE SUB savefile ()
DECLARE SUB loadfile ()
DECLARE SUB inputv ()
DECLARE FUNCTION xinkey! ()
'qbasic
' размеры таблицы
CONST x = 3
CONST y = 12
' коды клавиш стрелок
CONST KRT = 333
CONST KLT = 331
CONST KUP = 328
CONST KDN = 336
 
' таблица
DIM SHARED money(x + 1, y + 1)
' координаты выделенной ячейки
DIM SHARED curx AS INTEGER
DIM SHARED cury AS INTEGER
' имя файла данных
DIM SHARED nam$
 
CLS
PRINT "use cursor keys and Enter to input values"
PRINT "l - load table"
PRINT "s - save table"
PRINT "ESC - exit program"
PRINT "Press any key to continue"
d = xinkey
 
curx = 1: cury = 1
 
' отладочный код
' Здесь во все ячейки можно ввести одинаковую зарплату
FOR j = 1 TO y
FOR i = 1 TO x
money(i, j) = 0
NEXT i
NEXT j
 
nam$ = "mymoney.txt"
 
' основной цикл
DO
CLS
' вывести номера строк
COLOR 15, 1
FOR j = 1 TO y
LOCATE j + 2, 10: PRINT USING "##"; j;
NEXT j
COLOR 7, 0
 
' вывести ячейки с зарплатой
FOR j = 1 TO y
FOR i = 1 TO x
LOCATE j + 2, 1 + 12 * i
PRINT USING " ######.##"; money(i, j);
NEXT i
NEXT j
 
' вывести суммы по строкам
FOR j = 1 TO y
s = 0
FOR i = 1 TO x
s = s + money(i, j)
NEXT i
i = x + 1
money(i, j) = s
 
LOCATE j + 2, 1 + 12 * i
COLOR 15, 1
PRINT USING " ######.##"; money(i, j);
COLOR 7, 0
NEXT j
 
' вывести суммы по столбцам
FOR i = 1 TO x
s = 0
FOR j = 1 TO y
s = s + money(i, j)
NEXT j
j = y + 1
money(i, j) = s
 
LOCATE j + 2, 1 + 12 * i
COLOR 15, 1
PRINT USING " ######.##"; money(i, j);
COLOR 7, 0
NEXT i
 
' вывести общую сумму
s = 0
FOR j = 1 TO y
FOR i = 1 TO x
s = s + money(i, j)
NEXT i
NEXT j
i = x + 1
j = y + 1
money(i, j) = s
 
LOCATE j + 2, 1 + 12 * i
COLOR 14, 1
PRINT USING " ######.##"; money(i, j);
COLOR 7, 0
' ввести число в ячейку таблицы
inputv
' конец основного цикла
LOOP
 
' ввод числа в ячейку
SUB inputv
' цикл выбрать ячейку стрелками
DO
i = curx: j = cury
LOCATE j + 2, 1 + 12 * i
' подсветить текущую ячейку
COLOR 15, 2
PRINT USING " ######.##"; money(i, j);
COLOR 7, 0
' ожидать нажатия клавиши
d = xinkey
' сделать (старую) ячейку нормальным цветом
COLOR 7, 0
LOCATE j + 2, 1 + 12 * i
PRINT USING " ######.##"; money(i, j);
' переместить курсор
i = i - (d = KRT) + (d = KLT)
j = j - (d = KDN) + (d = KUP)
IF i > x THEN i = 1: j = j + 1
IF i < 1 THEN i = x: j = j - 1
IF j < 1 THEN j = 1
IF j > y THEN j = y
curx = i: cury = j
' конец цикла
' повторять пока НЕ придет один из перечисленных кодов клавиш
' 13 - Enter, 27 - ESC
LOOP WHILE NOT (d = 13 OR d = ASC("s") OR d = ASC("l") OR d = 27)
' Нажата s - сохранить файл и выйти
IF d = ASC("s") THEN savefile: EXIT SUB
' Нажата l - загрузить файл и выйти
IF d = ASC("l") THEN loadfile: EXIT SUB
' Нажата Esc - закончить программу
IF d = 27 THEN END
' Нажата Enter - ввести число в ячейку
' Подсветить число в таблице
LOCATE j + 2, 1 + 12 * i
COLOR 15, 2
PRINT USING " ######.##"; money(i, j);
' Ввести число
COLOR 7, 0
LOCATE 24, 1
INPUT ">", money(i, j)
END SUB
 
SUB loadfile
OPEN nam$ FOR INPUT AS #1
FOR j = 1 TO y
FOR i = 1 TO x
INPUT #1, money(i, j)
NEXT i
NEXT j
CLOSE #1
LOCATE 24, 1
PRINT "data loaded, press a key";
BEEP: d = xinkey
END SUB
 
SUB savefile
OPEN nam$ FOR OUTPUT AS #1
FOR j = 1 TO y
FOR i = 1 TO x
PRINT #1, money(i, j)
NEXT i
NEXT j
CLOSE #1
LOCATE 24, 1
PRINT "data saved, press a key";
BEEP: d = xinkey
END SUB
 
'Функция ввода кода клавиши
FUNCTION xinkey
DO: q$ = INKEY$: LOOP WHILE q$ = ""
IF LEN(q$) = 1 THEN xinkey = ASC(q$) ELSE xinkey = ASC(MID$(q$, 2, 1)) + 256
END FUNCTION

@boxxxop · 12.05.2020, 04:23

АФТАР, ты где учился программировать на васике? Так программировали 100лет назад. Щас на васике так ни-кто не программирует. Ты ещё goto забыл написать. Что васик, что qbasic - один хрен в таком стиле ни кто не программирует. Я - в смысле таким стилем, как у тебя. Ты бы хоть отступов наставил, для порядку.

@qbfan · 12.05.2020, 13:48

Ты бы хоть отступов наставил, для порядку.

Как в Питоне ?

Вот несколько менее поспешный вариант, но всё равно это учебный пример, а не
фирменная электронная таблица. Можно вместо 14 писать YELLOW, но ясности
в данном случае это не добавляет.

QBasic/QuickBASIC
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
DECLARE SUB savefile ()
DECLARE SUB loadfile ()
DECLARE SUB inputv ()
DECLARE SUB prt (ii, jj, v, fg, bg)
DECLARE FUNCTION xinkey! ()
'qbasic
' размеры таблицы
CONST x = 3
CONST y = 12
' коды клавиш стрелок
CONST KRT = 333
CONST KLT = 331
CONST KUP = 328
CONST KDN = 336
 
' таблица
DIM SHARED money(x + 1, y + 1)
' координаты выделенной ячейки
DIM SHARED curx AS INTEGER
DIM SHARED cury AS INTEGER
' имя файла данных
DIM SHARED nam$
 
CLS
PRINT "use cursor keys and Enter to input values"
PRINT "l - load table"
PRINT "s - save table"
PRINT "ESC - exit program"
PRINT "Press any key to continue"
d = xinkey
 
curx = 1: cury = 1
 
' отладочный код
' Здесь во все ячейки можно ввести одинаковую зарплату
FOR j = 1 TO y
FOR i = 1 TO x
money(i, j) = 0
NEXT i
NEXT j
 
nam$ = "mymoney.txt"
 
' основной цикл
DO
CLS
' вывести номера строк
COLOR 15, 1
FOR j = 1 TO y
LOCATE j + 2, 10: PRINT USING "##"; j;
NEXT j
COLOR 7, 0
 
' вывести ячейки с зарплатой
FOR j = 1 TO y
FOR i = 1 TO x
prt i, j, money(i, j), 7, 0
NEXT i
NEXT j
 
' вывести суммы по строкам
FOR j = 1 TO y
s = 0
FOR i = 1 TO x
s = s + money(i, j)
NEXT i
i = x + 1
money(i, j) = s
prt i, j, money(i, j), 15, 1
NEXT j
 
' вывести суммы по столбцам
FOR i = 1 TO x
s = 0
FOR j = 1 TO y
s = s + money(i, j)
NEXT j
j = y + 1
money(i, j) = s
prt i, j, money(i, j), 15, 1
NEXT i
 
' вывести общую сумму
s = 0
FOR j = 1 TO y
FOR i = 1 TO x
s = s + money(i, j)
NEXT i
NEXT j
i = x + 1
j = y + 1
money(i, j) = s
prt i, j, money(i, j), 14, 1
' ввести число в ячейку таблицы
inputv
' конец основного цикла
LOOP
 
' ввод числа в ячейку
SUB inputv
' цикл выбрать ячейку стрелками
DO
i = curx: j = cury
' подсветить текущую ячейку
prt i, j, money(i, j), 15, 2
' ожидать нажатия клавиши
d = xinkey
' сделать (старую) ячейку нормальным цветом
prt i, j, money(i, j), 7, 0
' переместить курсор
i = i - (d = KRT) + (d = KLT)
j = j - (d = KDN) + (d = KUP)
IF i > x THEN i = 1: j = j + 1
IF i < 1 THEN i = x: j = j - 1
IF j < 1 THEN j = 1
IF j > y THEN j = y
curx = i: cury = j
' конец цикла
' повторять пока НЕ придет один из перечисленных кодов клавиш
' 13 - Enter, 27 - ESC
LOOP WHILE NOT (d = 13 OR d = ASC("s") OR d = ASC("l") OR d = 27)
' Нажата s - сохранить файл и выйти
IF d = ASC("s") THEN savefile: EXIT SUB
' Нажата l - загрузить файл и выйти
IF d = ASC("l") THEN loadfile: EXIT SUB
' Нажата Esc - закончить программу
IF d = 27 THEN END
' Нажата Enter - ввести число в ячейку
' Подсветить число в таблице
prt i, j, money(i, j), 15, 2
' Ввести число
COLOR 7, 0
LOCATE 24, 1
INPUT ">", money(i, j)
END SUB
 
SUB loadfile
OPEN nam$ FOR INPUT AS #1
FOR j = 1 TO y
FOR i = 1 TO x
INPUT #1, money(i, j)
NEXT i
NEXT j
CLOSE #1
LOCATE 24, 1
PRINT "data loaded, press a key";
BEEP: d = xinkey
END SUB
 
' напечатать ячейку таблицы
' столбец ii,строка jj, значение v
' цвет текста fg,bg
SUB prt (ii, jj, v, fg, bg)
LOCATE jj + 2, 1 + 12 * ii
COLOR fg, bg
PRINT USING " ######.##"; v;
COLOR 7, 0
END SUB
 
SUB savefile
OPEN nam$ FOR OUTPUT AS #1
FOR j = 1 TO y
FOR i = 1 TO x
PRINT #1, money(i, j)
NEXT i
NEXT j
CLOSE #1
LOCATE 24, 1
PRINT "data saved, press a key";
BEEP: d = xinkey
END SUB
 
'Функция ввода кода клавиши
FUNCTION xinkey
DO: q$ = INKEY$: LOOP WHILE q$ = ""
IF LEN(q$) = 1 THEN xinkey = ASC(q$) ELSE xinkey = ASC(MID$(q$, 2, 1)) + 256
END FUNCTION

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

Ты бы хоть отступов наставил, для порядку.

Как в Питоне ?

Вот несколько менее поспешный вариант, но всё равно это учебный пример, а не
фирменная электронная таблица. Можно вместо 14 писать YELLOW, но ясности
в данном случае это не добавляет.

QBasic/QuickBASIC
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
DECLARE SUB savefile ()
DECLARE SUB loadfile ()
DECLARE SUB inputv ()
DECLARE SUB prt (ii, jj, v, fg, bg)
DECLARE FUNCTION xinkey! ()
'qbasic
' размеры таблицы
CONST x = 3
CONST y = 12
' коды клавиш стрелок
CONST KRT = 333
CONST KLT = 331
CONST KUP = 328
CONST KDN = 336
 
' таблица
DIM SHARED money(x + 1, y + 1)
' координаты выделенной ячейки
DIM SHARED curx AS INTEGER
DIM SHARED cury AS INTEGER
' имя файла данных
DIM SHARED nam$
 
CLS
PRINT "use cursor keys and Enter to input values"
PRINT "l - load table"
PRINT "s - save table"
PRINT "ESC - exit program"
PRINT "Press any key to continue"
d = xinkey
 
curx = 1: cury = 1
 
' отладочный код
' Здесь во все ячейки можно ввести одинаковую зарплату
FOR j = 1 TO y
FOR i = 1 TO x
money(i, j) = 0
NEXT i
NEXT j
 
nam$ = "mymoney.txt"
 
' основной цикл
DO
CLS
' вывести номера строк
COLOR 15, 1
FOR j = 1 TO y
LOCATE j + 2, 10: PRINT USING "##"; j;
NEXT j
COLOR 7, 0
 
' вывести ячейки с зарплатой
FOR j = 1 TO y
FOR i = 1 TO x
prt i, j, money(i, j), 7, 0
NEXT i
NEXT j
 
' вывести суммы по строкам
FOR j = 1 TO y
s = 0
FOR i = 1 TO x
s = s + money(i, j)
NEXT i
i = x + 1
money(i, j) = s
prt i, j, money(i, j), 15, 1
NEXT j
 
' вывести суммы по столбцам
FOR i = 1 TO x
s = 0
FOR j = 1 TO y
s = s + money(i, j)
NEXT j
j = y + 1
money(i, j) = s
prt i, j, money(i, j), 15, 1
NEXT i
 
' вывести общую сумму
s = 0
FOR j = 1 TO y
FOR i = 1 TO x
s = s + money(i, j)
NEXT i
NEXT j
i = x + 1
j = y + 1
money(i, j) = s
prt i, j, money(i, j), 14, 1
' ввести число в ячейку таблицы
inputv
' конец основного цикла
LOOP
 
' ввод числа в ячейку
SUB inputv
' цикл выбрать ячейку стрелками
DO
i = curx: j = cury
' подсветить текущую ячейку
prt i, j, money(i, j), 15, 2
' ожидать нажатия клавиши
d = xinkey
' сделать (старую) ячейку нормальным цветом
prt i, j, money(i, j), 7, 0
' переместить курсор
i = i - (d = KRT) + (d = KLT)
j = j - (d = KDN) + (d = KUP)
IF i > x THEN i = 1: j = j + 1
IF i < 1 THEN i = x: j = j - 1
IF j < 1 THEN j = 1
IF j > y THEN j = y
curx = i: cury = j
' конец цикла
' повторять пока НЕ придет один из перечисленных кодов клавиш
' 13 - Enter, 27 - ESC
LOOP WHILE NOT (d = 13 OR d = ASC("s") OR d = ASC("l") OR d = 27)
' Нажата s - сохранить файл и выйти
IF d = ASC("s") THEN savefile: EXIT SUB
' Нажата l - загрузить файл и выйти
IF d = ASC("l") THEN loadfile: EXIT SUB
' Нажата Esc - закончить программу
IF d = 27 THEN END
' Нажата Enter - ввести число в ячейку
' Подсветить число в таблице
prt i, j, money(i, j), 15, 2
' Ввести число
COLOR 7, 0
LOCATE 24, 1
INPUT ">", money(i, j)
END SUB
 
SUB loadfile
OPEN nam$ FOR INPUT AS #1
FOR j = 1 TO y
FOR i = 1 TO x
INPUT #1, money(i, j)
NEXT i
NEXT j
CLOSE #1
LOCATE 24, 1
PRINT "data loaded, press a key";
BEEP: d = xinkey
END SUB
 
' напечатать ячейку таблицы
' столбец ii,строка jj, значение v
' цвет текста fg,bg
SUB prt (ii, jj, v, fg, bg)
LOCATE jj + 2, 1 + 12 * ii
COLOR fg, bg
PRINT USING " ######.##"; v;
COLOR 7, 0
END SUB
 
SUB savefile
OPEN nam$ FOR OUTPUT AS #1
FOR j = 1 TO y
FOR i = 1 TO x
PRINT #1, money(i, j)
NEXT i
NEXT j
CLOSE #1
LOCATE 24, 1
PRINT "data saved, press a key";
BEEP: d = xinkey
END SUB
 
'Функция ввода кода клавиши
FUNCTION xinkey
DO: q$ = INKEY$: LOOP WHILE q$ = ""
IF LEN(q$) = 1 THEN xinkey = ASC(q$) ELSE xinkey = ASC(MID$(q$, 2, 1)) + 256
END FUNCTION

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@IgorKls 0 / 0 / 0 Регистрация: 09.05.2020 Сообщений: 2

	Как составить программу на QBasic? 09.05.2020, 23:46. Показов 775. Ответов 5 Метки нет (Все метки) Я новичок в этом языке, проходим в колледже по МДК 03.02, задали практическую из 4-х заданий, 3 из которых уже успешно выполнил. Так вот 4-ю так и не могу, искал в интернете решения, но так и не нашёл, очень прошу помочь. Задача звучит так: Составить программу на языке QBasic: Известна заработная плата каждого из 12 работников фирмы за каждый месяц первого квартала. Разработать таблицу для ввода информации, организовать ввод информации по таблице и определить: 1) общую сумму, выплаченную за квартал всем работникам; 2) заработную плату, полученную за квартал каждым работником; 3) общую заработную плату всех работников за каждый месяц. Заранее спасибо всем! 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	10.05.2020, 09:36
	Объявляете двумерный массив из 12 строк и трёх столбцов, заносите данные. 1 - это сумма всех элементов массива 2 - сумма элементов каждой строки 3 - сумма элементов каждого столбца Как находить сумму, надеюсь, знаете 1

@IgorKls 0 / 0 / 0 Регистрация: 09.05.2020 Сообщений: 2
	10.05.2020, 22:02 [ТС]
	Спасибо 0

@boxxxop 0 / 0 / 0 Регистрация: 12.05.2020 Сообщений: 1
	12.05.2020, 04:23
	АФТАР, ты где учился программировать на васике? Так программировали 100лет назад. Щас на васике так ни-кто не программирует. Ты ещё goto забыл написать. Что васик, что qbasic - один хрен в таком стиле ни кто не программирует. Я - в смысле таким стилем, как у тебя. Ты бы хоть отступов наставил, для порядку. 0