Тест

@Яков1 · Регистрация: 26.04.2020

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

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

@Sun Serega · 26.04.2020, 13:28

Что за

Сообщение от Яков1

текстовую кто хочет стать милионером

И где собственно сама программа?

@Яков1 · 26.04.2020, 14:24 **[ТС]**

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
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
Program NewGameCode;
Uses GraphABC;
var 
a : integer;
 
Begin
SetWindowSize(1280,720);
CenterWindow;
 
writeln(' 1 вопрос. Кто из президентов США написал свой собственный рассказ про Шерлока Холмса?   1) Джон Кеннеди   2)Франклин Рузвельт   3)Рональд Рейган ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=2 then
begin
writeln ('Правильно.32-1 президент США Франклин Рузвельт был известен и как писатель. В 1945 году он попытался воскресить образ знаменитого литературного героя, написав сочинение «Бейкер-стрит фолио: пять записок о Шерлоке Холмсе от Франклина Делано Рузвельта». ')
end
else
begin
writeln('Неправильно')
 
end;
writeln('2 вопрос.Какую пошлину ввели в XII  веке в Англии для того чтобы заставить мужчин пойти на войну?   1)Налог на тунеядство   2)Налог на трусость   3)Налог на отсутствие сапог  ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=2 then
begin
writeln ('Правильно.Англичанам приходилось платить налог на трусость. Им облагали всех, кто не желал принимать участие в войнах во славу короля. ')
end
else
begin
writeln('Неправильно')
 
end;
writeln('3.вопрос. Откуда пошло выражение «деньги не пахнут?     1) От подателей за провоз парфюмерии    2) От сборов за нестиранные носки     3)От налога на туалеты    ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=3 then
begin
writeln ('Правильно.Римский император Веспасиан ввел для горожан налог на общественные туалеты. Сын не поддержал идею отца. Тогда монарх поднес к носу отпрыска деньги и спросил, пахнут ли они. Отсюда произошло выражение. ')
end
else
begin
writeln('Неправильно')
end;
writeln('4 вопрос. Туристы, приезжающие на Майорку, обязаны заплатить налог…     1)На плавки      2)На пальмы.    3)На солнце    ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=3 then
begin
writeln('Правильно.Налог на солнце обязаны платить все туристы, которые приезжают на Майорку. Плата невысокая, всего 1 евро в день, Власти говорят, то собранные деньги тратятся на улучшение туристической инфраструктуры.')
end
else
begin
writeln('Неправильно');
end;
writeln('5 вопрос.Основой для «Сказки о рыбаке и рыбке Пушкина послужила сказка братьев Гримм «Рыбак и его жена». В ней немецкая «коллега» нашей старухи превратилась в:   1)Папу Римского   2)Королеву    3)Директора рыбзавода    4)Командира отряда водолазов     ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=1 then
begin
writeln('Правильно.Героиня сказки братьев Гримм «Рыбак и его жена» превратилась в папу Римского. И только после желания стать Господом Богом осталась ни с чем.');
end
else
begin
write('Неправильно');
end;
writeln('6 вопрос.Найдите ошибку в отрывке из басни Крылова: «Попрыгунья Стрекоза лето красное пропела; оглянуться не успела, как зима катит в глаза».   1)Стрекозы не умеют прыгать   2)Эти насекомые совсем не издают звуков   3) Зимы в тех местах, о которых писал Крылов, нет   4)Здесь нет ошибки, все правильно');
readln(a);
writeln('Ваш ответ ',a) ;
if a=2 then
begin
writeln('Правильно.Стрекоза совсем не издает звуков, поэтому петь она никак не могла. Во времена Крылова «стрекоза» являлось обобщенным названием для нескольких видов насекомых. Так что в басне под «попрыгуньей», скорее всего, подразумевается кузнечик.');
end
else
begin
writeln('Неправильно ');
end;
writeln('7 вопрос. Российский мультфильм, удостоенный «Оскара», — это…     1)«Простоквашино»     2)«Винни-Пух»    3)«Старик и море»   4)«Ну, погоди!»');
readln(a);
writeln('Ваш ответ ',a) ;
if a=3 then
begin
writeln('Правильно.В 2000 году премию «Оскар» вручили российскому режиссеру, художнику-мультипликатору Александру Петрову за лучший короткометражный мультфильм года «Старик и море», снятый по мотивам повести Эрнеста Хемингуэя.');
end
else
begin
writeln('Неправильно ');
end;
writeln('8 вопрос.Кто из знаменитых художников за жизнь продал всего одну картину?        1) Винсент Ван Гог    2)Пьер Огюст Ренуар   ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=1 then
begin
writeln('Правильно.Единственная проданная при жизни картина Ван Гога — Красные виноградники в Арле');
end
else
begin
writeln('Неправильно ');
end;
writeln('9 вопрос.Один известный писатель рассказывал, что списал образ старушки-вредины со своей бывшей жены. При этом бабулька оказалась удивительно похожей на Коко Шанель. На голове у нее всегда была шляпка со складной тульей, благодаря которой она и получила прозвище  1)Шапокляк     2)Красная Шапочка    3)Мадам Баттерфляй.');
readln(a);
writeln('Ваш ответ ',a) ;
if a=1 then
begin
writeln('Правильно');
end
else
begin
writeln('Неправильно ');
end;
writeln('10 вопрос.Что в Российской империи было вещевым эквивалентом денег?   1) Шкуры пушных зверей    2)Крупный рогатый скот     3)Табак   4)Женские серьги');
readln(a);
writeln('Ваш ответ ',a) ;
if a=1 then
begin
writeln('Правильно.В качестве денег использовали шкурки пушных зверей. Одна шкурка — одна копейка, сто шкурок — один рубль.');
end
else
begin
writeln('Неправильно ');
end;
writeln('11 вопрос.У индейцев из немногочисленного североамериканского племени квакиутл есть традиция: беря деньги в долг, они оставляют в залог…   1) Душу     2)Имя    3)Скальп тещи    4)   Амулет    ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=2 then
begin
writeln('Правильно.Индеец племени квакиутль, беря деньги в долг, может оставить в залог свое имя. Пока он не возвратит долг, к нему никто не обратится по имени.');
end
else
begin
writeln('Неправильно ');
end;
writeln('12 вопрос.Высота Останкинской башни — 540 метров. Сколько нужно размотать рулонов туалетной бумаги, чтобы получилось столько же метров?      1)1000    2)100   3)50  4)10');
readln(a);
writeln('Ваш ответ ',a) ;
if a=4 then
begin
writeln('Правильно.Это всего 10 рулонов (стандартный рулон — 54 метра). ');
end
else
begin
writeln('Неправильно ');
end;
 
End.

Добавлено через 46 минут
Sun Serega, помоги

@Яков1 · 26.04.2020, 15:17 **[ТС]**

Здрасте всем!)Пишу текстовую игру,но не могу придумать ,как добавить попытки!Кто поможет?Игра кто хочет стать миллионером и после проигрыша игра заканчивается,незнаю что делать(((

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
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
Program NewGameCode;
Uses GraphABC;
var 
a : integer;
 
Begin
SetWindowSize(1280,720);
CenterWindow;
writeln(' 1 вопрос. Кто из президентов США написал свой собственный рассказ про Шерлока Холмса?   1) Джон Кеннеди   2)Франклин Рузвельт   3)Рональд Рейган ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=2 then
begin
writeln ('Правильно.32-1 президент США Франклин Рузвельт был известен и как писатель. В 1945 году он попытался воскресить образ знаменитого литературного героя, написав сочинение «Бейкер-стрит фолио: пять записок о Шерлоке Холмсе от Франклина Делано Рузвельта». ')
end
else
begin
writeln('Неправильно');
end;
writeln('2 вопрос.Какую пошлину ввели в XII  веке в Англии для того чтобы заставить мужчин пойти на войну?   1)Налог на тунеядство   2)Налог на трусость   3)Налог на отсутствие сапог  ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=2 then
begin
writeln ('Правильно.Англичанам приходилось платить налог на трусость. Им облагали всех, кто не желал принимать участие в войнах во славу короля. ')
end
else
begin
writeln('Неправильно')
 
end;
writeln('3.вопрос. Откуда пошло выражение «деньги не пахнут?     1) От подателей за провоз парфюмерии    2) От сборов за нестиранные носки     3)От налога на туалеты    ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=3 then
begin
writeln ('Правильно.Римский император Веспасиан ввел для горожан налог на общественные туалеты. Сын не поддержал идею отца. Тогда монарх поднес к носу отпрыска деньги и спросил, пахнут ли они. Отсюда произошло выражение. ')
end
else
begin
writeln('Неправильно')
end;
writeln('4 вопрос. Туристы, приезжающие на Майорку, обязаны заплатить налог…     1)На плавки      2)На пальмы.    3)На солнце    ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=3 then
begin
writeln('Правильно.Налог на солнце обязаны платить все туристы, которые приезжают на Майорку. Плата невысокая, всего 1 евро в день, Власти говорят, то собранные деньги тратятся на улучшение туристической инфраструктуры.')
end
else
begin
writeln('Неправильно');
end;
writeln('5 вопрос.Основой для «Сказки о рыбаке и рыбке Пушкина послужила сказка братьев Гримм «Рыбак и его жена». В ней немецкая «коллега» нашей старухи превратилась в:   1)Папу Римского   2)Королеву    3)Директора рыбзавода    4)Командира отряда водолазов     ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=1 then
begin
writeln('Правильно.Героиня сказки братьев Гримм «Рыбак и его жена» превратилась в папу Римского. И только после желания стать Господом Богом осталась ни с чем.');
end
else
begin
write('Неправильно');
end;
writeln('6 вопрос.Найдите ошибку в отрывке из басни Крылова: «Попрыгунья Стрекоза лето красное пропела; оглянуться не успела, как зима катит в глаза».   1)Стрекозы не умеют прыгать   2)Эти насекомые совсем не издают звуков   3) Зимы в тех местах, о которых писал Крылов, нет   4)Здесь нет ошибки, все правильно');
readln(a);
writeln('Ваш ответ ',a) ;
if a=2 then
begin
writeln('Правильно.Стрекоза совсем не издает звуков, поэтому петь она никак не могла. Во времена Крылова «стрекоза» являлось обобщенным названием для нескольких видов насекомых. Так что в басне под «попрыгуньей», скорее всего, подразумевается кузнечик.');
end
else
begin
writeln('Неправильно ');
end;
writeln('7 вопрос. Российский мультфильм, удостоенный «Оскара», — это…     1)«Простоквашино»     2)«Винни-Пух»    3)«Старик и море»   4)«Ну, погоди!»');
readln(a);
writeln('Ваш ответ ',a) ;
if a=3 then
begin
writeln('Правильно.В 2000 году премию «Оскар» вручили российскому режиссеру, художнику-мультипликатору Александру Петрову за лучший короткометражный мультфильм года «Старик и море», снятый по мотивам повести Эрнеста Хемингуэя.');
end
else
begin
writeln('Неправильно ');
end;
writeln('8 вопрос.Кто из знаменитых художников за жизнь продал всего одну картину?        1) Винсент Ван Гог    2)Пьер Огюст Ренуар   ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=1 then
begin
writeln('Правильно.Единственная проданная при жизни картина Ван Гога — Красные виноградники в Арле');
end
else
begin
writeln('Неправильно ');
end;
writeln('9 вопрос.Один известный писатель рассказывал, что списал образ старушки-вредины со своей бывшей жены. При этом бабулька оказалась удивительно похожей на Коко Шанель. На голове у нее всегда была шляпка со складной тульей, благодаря которой она и получила прозвище  1)Шапокляк     2)Красная Шапочка    3)Мадам Баттерфляй.');
readln(a);
writeln('Ваш ответ ',a) ;
if a=1 then
begin
writeln('Правильно');
end
else
begin
writeln('Неправильно ');
end;
writeln('10 вопрос.Что в Российской империи было вещевым эквивалентом денег?   1) Шкуры пушных зверей    2)Крупный рогатый скот     3)Табак   4)Женские серьги');
readln(a);
writeln('Ваш ответ ',a) ;
if a=1 then
begin
writeln('Правильно.В качестве денег использовали шкурки пушных зверей. Одна шкурка — одна копейка, сто шкурок — один рубль.');
end
else
begin
writeln('Неправильно ');
end;
writeln('11 вопрос.У индейцев из немногочисленного североамериканского племени квакиутл есть традиция: беря деньги в долг, они оставляют в залог…   1) Душу     2)Имя    3)Скальп тещи    4)   Амулет    ');
readln(a);
writeln('Ваш ответ ',a) ;
if a=2 then
begin
writeln('Правильно.Индеец племени квакиутль, беря деньги в долг, может оставить в залог свое имя. Пока он не возвратит долг, к нему никто не обратится по имени.');
end
else
begin
writeln('Неправильно ');
end;
writeln('12 вопрос.Высота Останкинской башни — 540 метров. Сколько нужно размотать рулонов туалетной бумаги, чтобы получилось столько же метров?      1)1000    2)100   3)50  4)10');
readln(a);
writeln('Ваш ответ ',a) ;
if a=4 then
begin
writeln('Правильно.Это всего 10 рулонов (стандартный рулон — 54 метра). ');
end
else
begin
writeln('Неправильно ');
end;
 
End.

@Sun Serega · 26.04.2020, 15:44

Не создавайте дубли, от этого вам раньше не ответят:
Тест
Лучше бы задание нормально и подробно описали.

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	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 На первой гифке отладочные линии отключены, а на второй включены:. . .

@Яков1 0 / 0 / 0 Регистрация: 26.04.2020 Сообщений: 3

	Тест 26.04.2020, 13:27. Показов 873. Ответов 4 Метки pascal abc net (Все метки) Здравствуйте,пишу текстовую кто хочет стать милионером и столкнулся с проблемой,что после неверного ответа программа заканчивается,подскажите,как решить! 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	26.04.2020, 15:44
	Не создавайте дубли, от этого вам раньше не ответят: Тест Лучше бы задание нормально и подробно описали. 0