Тесты (несколько вариантов ответов, число правильных ответов, оценка)

@Eithery · Регистрация: 04.06.2009

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

Please, помогите написать тесты в QBasic
чтоб было несколько вариантов ответов, еще чтоб в конце показывало сколько правельных ответов и какая оценка!!!!!!!
ПО-МО-ГИ-ТЕ!!!!!!

@BasicMan · 05.06.2009, 09:01

а вопросы какие? в тестах-то

@Eithery · 05.06.2009, 09:05 **[ТС]**

ну про ПК например =)

@BasicMan · 05.06.2009, 09:11

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

ну про ПК например

ага, ну тады, типа, так:
1 Вопрос. нафик тебе, ламер, ПК нужен:
а) для красоты, он у меня в интерьер вписался
б) ребята сказали что так круче
в) подарили, а выбросить жалко
д) что такое ПК? О_о

пойдет?

@Eithery · 05.06.2009, 09:13 **[ТС]**

ну типа такого

@BasicMan · 05.06.2009, 09:15

Не по теме:

ага, ч/з час (когда буду на работе) начну писать, шо-нибудь придумаю )))

@Eithery · 05.06.2009, 09:22 **[ТС]**

спасибо!!!!!

Добавлено через 5 минут 45 секунд
ну тока попроще какнибудь, ато я только на 1-м курсе
а это зачетка =)))

@BasicMan · 05.06.2009, 12:10

PureBasic
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
dim n as Integer, m as Integer, s as Integer, ans as Integer
 
CLS
 
OPEN "test.txt" FOR INPUT AS #1
rem открытие файла теста
 
INPUT #1, n
rem n - колво вопросов
INPUT #1, m
rem m - колво ответов в вопросе
 
DIM a(1 TO m+2, 1 TO n) as String
FOR i=1 TO m+2 
FOR j=1 TO n
INPUT #1, a(i,j)
NEXT J
NEXT i
rem заполнения массива тестом
 
CLOSE #1
rem закрытие файла теста
 
ans=0
for j = 1 TO n
100:
print "Вопрос ", j,": ", a(1,j)
print "Варианты ответов:"
for i=2 to m+1
print i-1, " ", a(i,j)
NEXT i
input "Введите ваш вариант",s
if s<=0 and s>m+1 then
print "ты чо тут самый умный? О_о"
goto 100
end if
if a(m+2,j)=Str$(s) then
ans=ans+1
end if
NEXT J
rem CAM TECT
 
print "количество правильных ответов ", ans
end

Не по теме:

будут вопросы - приходи еще

Добавлено через 4 минуты 9 секунд
формат тестового файла
колво вопросов Н (число)
колво ответов в вопросе М (число)
вопрос 1 (текст)
ответ1 на вопрос1 (текст)
..............
ответМ на вопрос1 (текст)
номер правильного ответа на вопрос1(число)
..............
...............
вопрос Н (текст)
ответ1 на вопросН (текст)
..............
ответМ на вопросН (текст)
номер правильного ответа на вопросН(число)

Не по теме:

текст теста пиши сам, бо я кроме матерных слов ничо не знаю )))

@Eithery · 05.06.2009, 18:34 **[ТС]**

спасибо!!!!!!!!! но вот мы тут в лицеее половино не проходили

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

@BasicMan · 05.06.2009, 19:08

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

но вот мы тут в лицеее половино не проходили

шо не так? конкретнее.

@Eithery · 05.06.2009, 19:23 **[ТС]**

ну я не знаю че за функции:
DIM, AS STRING, AS STRING, DIM, ну и т.д.

Добавлено через 2 минуты 30 секунд
пожалуйста!!! можно краткий курс всех функций

@BasicMan · 05.06.2009, 19:34

Eithery, ты ваще кубасик знаешь? О_о
DIM - обьявление переменной
AS STRING - обьявить переменную как тип строка, т.е. так "чтото я написал"
AS INTEGER - обьявить переменную как тип цклое число, т.е. так 123 или 42
строки которые с rem ваще можешь нафиг убрать ))) это ремарка или примечание, они на работу программы не влияют.
шо еще не понятно ? ты спрашивай. кстати в разделе Васик есть тема важная про книжки. скачай любую, почитай на досуге, вместо того чтобы футбол ганять.

Добавлено через 6 минут 24 секунды
CLS - очистить екран нафиг

Сообщение от Бурундук

OPEN "test.txt" FOR INPUT AS #1

открыть файл "test.txt" для чтения данных как #1

Сообщение от Бурундук

INPUT #1, n

прочитать из файла #1 переменную

Сообщение от Бурундук

FOR j=1 TO n

цикл по переменной j от 1 до n
NEXT - конец цикла

Сообщение от Бурундук

CLOSE #1

закрыть файл #1
PRINT - вывести данные, в данном случае на екран

PureBasic
1
2
3
IF условие THEN
операторы чотоделанья
END IF

оператор анализа условия (условный оператор)

STR$ - функция преобразования числа в строку
END - кирдык программы

@Eithery · 05.06.2009, 19:48 **[ТС]**

ну в общем практически все понял, но мне надо написать тока с теми фми, которые мы прошли

@BasicMan · 05.06.2009, 19:49

ну дык, пиши, я ж не знаю какие

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

фми

вы прошли

@Eithery · 05.06.2009, 19:54 **[ТС]**

а мы прошли:
PRINT, INPUT, IF-THEN-ELSE, FOR-NEXT, CLS

Добавлено через 1 минуту 19 секунд
ну и в основном для рисования

@BasicMan · 05.06.2009, 20:02

ну так моя прога отличается только работой с файлами, и еще функцией STR$
в принципе можно попробовать без этой функции (но, имхо, не получится)
а работу с файлом заменить на заполнение массива из программы
типа,

PureBasic
1
2
3
4
a(1,1)="вопрос 1"
a(1,2)="вопрос 2"
................
a(1,10)="вопрос 10"

но этож не так круто

@Eithery · 05.06.2009, 20:07 **[ТС]**

ну можно и так

@BasicMan · 05.06.2009, 20:13

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

ну можно и так

вот и флаг тебе в руки, барабан на грудь и ветер в спину.
решай. удачи. или книжки читай, хотя бы эти: https://www.cyberforum.ru/basic/thread19447.html

@Eithery · 05.06.2009, 20:20 **[ТС]**

ну спасибо и на этом,
что на меня время потратил

@Toxa33rus · 06.06.2009, 08:59

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

ну в общем практически все понял, но мне надо написать тока с теми фми, которые мы прошли

Обычно делают наоборот: учат то чего пока не знают что б получилась хорошая программа

Проще прочитать что означает какая-то функция чем переделывать весь код.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Eithery 1 / 1 / 0 Регистрация: 04.06.2009 Сообщений: 20

	Тесты (несколько вариантов ответов, число правильных ответов, оценка) 05.06.2009, 08:53. Показов 5213. Ответов 19 Метки нет (Все метки) Please, помогите написать тесты в QBasic чтоб было несколько вариантов ответов, еще чтоб в конце показывало сколько правельных ответов и какая оценка!!!!!!! ПО-МО-ГИ-ТЕ!!!!!! 0

@BasicMan 19318 / 2625 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	05.06.2009, 09:01
	а вопросы какие? в тестах-то 0

@Eithery 1 / 1 / 0 Регистрация: 04.06.2009 Сообщений: 20
	05.06.2009, 09:05 [ТС]
	ну про ПК например =) 0

@Eithery 1 / 1 / 0 Регистрация: 04.06.2009 Сообщений: 20
	05.06.2009, 09:13 [ТС]
	ну типа такого 0

@BasicMan
	05.06.2009, 09:15
	Не по теме: ага, ч/з час (когда буду на работе) начну писать, шо-нибудь придумаю ))) 0

@Eithery 1 / 1 / 0 Регистрация: 04.06.2009 Сообщений: 20
	05.06.2009, 09:22 [ТС]
	спасибо!!!!! Добавлено через 5 минут 45 секунд ну тока попроще какнибудь, ато я только на 1-м курсе а это зачетка =))) 0

@Eithery 1 / 1 / 0 Регистрация: 04.06.2009 Сообщений: 20
	05.06.2009, 18:34 [ТС]
	спасибо!!!!!!!!! но вот мы тут в лицеее половино не проходили но всеравно спасибо!!! 0

@Eithery 1 / 1 / 0 Регистрация: 04.06.2009 Сообщений: 20
	05.06.2009, 19:23 [ТС]
	ну я не знаю че за функции: DIM, AS STRING, AS STRING, DIM, ну и т.д. Добавлено через 2 минуты 30 секунд пожалуйста!!! можно краткий курс всех функций 0

@Eithery 1 / 1 / 0 Регистрация: 04.06.2009 Сообщений: 20
	05.06.2009, 19:48 [ТС]
	ну в общем практически все понял, но мне надо написать тока с теми фми, которые мы прошли 0

@Eithery 1 / 1 / 0 Регистрация: 04.06.2009 Сообщений: 20
	05.06.2009, 19:54 [ТС]
	а мы прошли: PRINT, INPUT, IF-THEN-ELSE, FOR-NEXT, CLS Добавлено через 1 минуту 19 секунд ну и в основном для рисования 0

@Eithery 1 / 1 / 0 Регистрация: 04.06.2009 Сообщений: 20
	05.06.2009, 20:07 [ТС]
	ну можно и так 0

@Eithery 1 / 1 / 0 Регистрация: 04.06.2009 Сообщений: 20
	05.06.2009, 20:20 [ТС]
	ну спасибо и на этом, что на меня время потратил 0