Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 16.05.2009
Сообщений: 4

Меню для программы-тест

16.05.2009, 00:11. Показов 1829. Ответов 3
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Народ, помогите пожалуйста!!!!!!!!!!!! У меня есть код проги-теста, нужно сделать для неё меню!!! оч нада!!! плс!
Меню нужно елементарное - кнопка запуска теста, выхода, место для написания назв теста, и ищё одно поле в котором написано кто сделал! оч прошу помогите!!!

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

Program HistoryTest;
var RightCount:byte;
answer:byte;
 
begin
RightCount := 0;
writeln('Dlja vidpovidi na zapitannja vvedit nomer punktu pravilnoi vidpovidi ta natisnit Enter');
 
writeln('1. Ukazhit rik v jakomu bula provedena Ljublinska unija mizh Litvoju ta Polwoju:');
writeln('1 - 1556 r.');
writeln('2 - 1565 r.');
writeln('3 - 1569 r.');
writeln('4 - 1572 r.');
readln(answer);
if (answer = 3) then inc(RightCount);
 
writeln('2. V jakih rokah vidbulosja kozacko-seljanske povstannja pid provodom S. Nalivajka?');
writeln('1 - 1590-1592 rr.');
writeln('2 - 1592-1594 rr.');
writeln('3 - 1594-1596 rr.');
writeln('4 - 1596-1598 rr.');
readln(answer);
if (answer = 3) then inc(RightCount);
 
writeln('3. Koli vidbulas porazka kozackogo vijska v bitvi pid Berestechkom?');
writeln('1 - 1651 r.');
writeln('2 - 1649 r.');
writeln('3 - 1653 r.');
writeln('4 - 1645 r.');
readln(answer);
if (answer = 1) then inc(RightCount);
 
writeln('4. Ukazhit period getmanuvannja K. Rozumovskogo:');
writeln('1 - 1722-1727 rr.');
writeln('2 - 1734-1750 rr.');
writeln('3 - 1750-1756 rr.');
writeln('4 - 1750-1764 rr.');
readln(answer);
if (answer = 4) then inc(RightCount);
 
writeln('5. Ukazhit datu provedennja Perjaslavskoi radi:');
writeln('1 - 22 sichnja 1654 r.');
writeln('2 - 18 sichnja 1654 r.');
writeln('3 - 8 sichnja 1654 r.');
writeln('4 - 2 sichnja 1654 r.');
readln(answer);
if (answer = 3) then inc(RightCount);
 
writeln('6. U jakomu roci V. Vinnichenko ocholiv Direktoriju UNR?');
writeln('1 - 1910 r.');
writeln('2 - 1918 r.');
writeln('3 - 1925 r.');
writeln('4 - 1916 r.');
readln(answer);
if (answer = 2) then inc(RightCount);
 
writeln('7. Ukazhit rik, u jakomu buv progoloshenij kurs na sucilnu kolektivizaciju silskogo gospodarstva:');
writeln('1 - 1925 r.');
writeln('2 - 1929 r.');
writeln('3 - 1930 r.');
writeln('4 - 1932 r.');
readln(answer);
if (answer = 2) then inc(RightCount);
 
writeln('8. U jakomu roci Ugorwina okupuvala Karpatsku Ukrainu?');
writeln('1 - 1940 r.');
writeln('2 - 1937 r.');
writeln('3 - 1946 r.');
writeln('4 - 1939 r.');
readln(answer);
if (answer = 4) then inc(RightCount);
 
writeln('9. Koli bulo likvidovano kriposne pravo na Galichini ta Bukovini?');
writeln('1 - 1848 r.');
writeln('2 - 1834 r.');
writeln('3 - 1840 r.');
writeln('4 - 1852 r.');
readln(answer);
if (answer = 1) then inc(RightCount);
 
writeln('10. Koli Galichina ostatochna priednalas do Polskogo korolivstva?');
writeln('1 - 1379 r.');
writeln('2 - 1387 r.');
writeln('3 - 1384 r.');
writeln('4 - 1389 r.');
readln(answer);
if (answer = 2) then inc(RightCount);
 
writeln('11. U jakomu roci vidbulasja Chorna rada u Nizhini?');
writeln('1 - 1663 r.');
writeln('2 - 1659 r.');
writeln('3 - 1666 r.');
writeln('4 - 1657 r.');
readln(answer);
if (answer = 1) then inc(RightCount);
 
writeln('12. U jakomu roci vidbulos pidpisannja Andrusivskogo peremirja mizh Rosijskoju derzhavoju ta Krimskim hanstvom?');
writeln('1 - 1670 r.');
writeln('2 - 1664 r.');
writeln('3 - 1667 r.');
writeln('4 - 1665 r.');
readln(answer);
if (answer = 3) then inc(RightCount);
 
 
 
writeln('Kilkist pravilnih vidpovidej: ', RightCount);
if RightCount = 0 then writeln('Ocinka: 2');
if RightCount = 1 then writeln('Ocinka: 2');
if RightCount = 2 then writeln('Ocinka: 2');
if RightCount = 3 then writeln('Ocinka: 2');
if RightCount = 4 then writeln('Ocinka: 3');
if RightCount = 5 then writeln('Ocinka: 3');
if RightCount = 6 then writeln('Ocinka: 3');
if RightCount = 7 then writeln('Ocinka: 4');
if RightCount = 8 then writeln('Ocinka: 4');
if RightCount = 9 then writeln('Ocinka: 4');
if RightCount = 10 then writeln('Ocinka: 4');
if RightCount = 11 then writeln('Ocinka: 5');
if RightCount = 12 then writeln('Ocinka: 5');
readln;
 
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 16.05.2009, 00:11
Ответы с готовыми решениями:

Меню для программы
Здравствуйте. Написал программу, но по заданию надо к ней сделать меню. Я подумал сначала, что сделаю по-простому: считать нажатие той,...

Программы + меню ( надо 2 программы написать с меню вместе )
Ребята есть проблема, что бы в задании выдавало определенное решение то есть, надо что бы решение было через средние выбрал их и ответ,...

Составить меню для программы
Здравствуйте, нужна помощь и советы в довольно объемной работе по Turbo Pascal. Вначале, нужно нужно составить меню, у которого будет...

3
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
16.05.2009, 13:03
Меню нужно елементарное - кнопка запуска теста
Если в Турбо Паскаль, то это далеко не элементарно.
0
0 / 0 / 0
Регистрация: 16.05.2009
Сообщений: 4
02.06.2009, 23:57  [ТС]
кароч всё приходится делать самому, вот кому если ищё нада - ЕЛЕМЕНТАРНАЯ менюшка для теста.

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
146
147

Program HistoryTest;
uses crt;
var RightCount:byte;
answer:byte;
c: char;
 
 
begin
writeln('                                                                               ');
textcolor(yellow);
writeln('                            ±±±±± ±±±±± ±±±±± ±±±±±                       ');
writeln('                              ±   ±     ±       ±                         ');
writeln('                              ±   ±±±±  ±       ±                         ');
writeln('                              ±   ±     ±       ±                         ');
writeln('                              ±   ±±±±± ±±±±±   ±                         ');
writeln('                                                                              ');
textcolor(lightgreen);
writeln('                              Название теста              ');
writeln('                                                                              ');
textcolor(white);
writeln('    Имя разработчика)                                        200_ р.  ');
writeln('                                                                              ');
textcolor(lightred);
writeln(' Для запуска теста нажм ENTER            Для выхода нажм ESC');
c := readkey;
if c = #27 then exit
else
begin clrscr;
 
RightCount := 0;
writeln('Dlja vidpovidi na zapitannja vvedit nomer punktu pravilnoi vidpovidi ta natisnit Enter');
 
writeln('1. Ukazhit rik v jakomu bula provedena Ljublinska unija mizh Litvoju ta Polwoju:');
writeln('1 - 1556 r.');
writeln('2 - 1565 r.');
writeln('3 - 1569 r.');
writeln('4 - 1572 r.');
readln(answer);
if (answer = 3) then inc(RightCount);
 
writeln('2. V jakih rokah vidbulosja kozacko-seljanske povstannja pid provodom S. Nalivajka?');
writeln('1 - 1590-1592 rr.');
writeln('2 - 1592-1594 rr.');
writeln('3 - 1594-1596 rr.');
writeln('4 - 1596-1598 rr.');
readln(answer);
if (answer = 3) then inc(RightCount);
 
writeln('3. Koli vidbulas porazka kozackogo vijska v bitvi pid Berestechkom?');
writeln('1 - 1651 r.');
writeln('2 - 1649 r.');
writeln('3 - 1653 r.');
writeln('4 - 1645 r.');
readln(answer);
if (answer = 1) then inc(RightCount);
 
writeln('4. Ukazhit period getmanuvannja K. Rozumovskogo:');
writeln('1 - 1722-1727 rr.');
writeln('2 - 1734-1750 rr.');
writeln('3 - 1750-1756 rr.');
writeln('4 - 1750-1764 rr.');
readln(answer);
if (answer = 4) then inc(RightCount);
 
writeln('5. Ukazhit datu provedennja Perjaslavskoi radi:');
writeln('1 - 22 sichnja 1654 r.');
writeln('2 - 18 sichnja 1654 r.');
writeln('3 - 8 sichnja 1654 r.');
writeln('4 - 2 sichnja 1654 r.');
readln(answer);
if (answer = 3) then inc(RightCount);
 
writeln('6. U jakomu roci V. Vinnichenko ocholiv Direktoriju UNR?');
writeln('1 - 1910 r.');
writeln('2 - 1918 r.');
writeln('3 - 1925 r.');
writeln('4 - 1916 r.');
readln(answer);
if (answer = 2) then inc(RightCount);
 
writeln('7. Ukazhit rik, u jakomu buv progoloshenij kurs na sucilnu kolektivizaciju silskogo gospodarstva:');
writeln('1 - 1925 r.');
writeln('2 - 1929 r.');
writeln('3 - 1930 r.');
writeln('4 - 1932 r.');
readln(answer);
if (answer = 2) then inc(RightCount);
 
writeln('8. U jakomu roci Ugorwina okupuvala Karpatsku Ukrainu?');
writeln('1 - 1940 r.');
writeln('2 - 1937 r.');
writeln('3 - 1946 r.');
writeln('4 - 1939 r.');
readln(answer);
if (answer = 4) then inc(RightCount);
 
writeln('9. Koli bulo likvidovano kriposne pravo na Galichini ta Bukovini?');
writeln('1 - 1848 r.');
writeln('2 - 1834 r.');
writeln('3 - 1840 r.');
writeln('4 - 1852 r.');
readln(answer);
if (answer = 1) then inc(RightCount);
 
writeln('10. Koli Galichina ostatochna priednalas do Polskogo korolivstva?');
writeln('1 - 1379 r.');
writeln('2 - 1387 r.');
writeln('3 - 1384 r.');
writeln('4 - 1389 r.');
readln(answer);
if (answer = 2) then inc(RightCount);
 
writeln('11. U jakomu roci vidbulasja Chorna rada u Nizhini?');
writeln('1 - 1663 r.');
writeln('2 - 1659 r.');
writeln('3 - 1666 r.');
writeln('4 - 1657 r.');
readln(answer);
if (answer = 1) then inc(RightCount);
 
writeln('12. U jakomu roci vidbulos pidpisannja Andrusivskogo peremirja mizh Rosijskoju derzhavoju ta Krimskim hanstvom?');
writeln('1 - 1670 r.');
writeln('2 - 1664 r.');
writeln('3 - 1667 r.');
writeln('4 - 1665 r.');
readln(answer);
if (answer = 3) then inc(RightCount);
 
 
 
writeln('Kilkist pravilnih vidpovidej: ', RightCount);
if RightCount = 0 then writeln('Ocinka: 2');
if RightCount = 1 then writeln('Ocinka: 2');
if RightCount = 2 then writeln('Ocinka: 2');
if RightCount = 3 then writeln('Ocinka: 2');
if RightCount = 4 then writeln('Ocinka: 3');
if RightCount = 5 then writeln('Ocinka: 3');
if RightCount = 6 then writeln('Ocinka: 3');
if RightCount = 7 then writeln('Ocinka: 4');
if RightCount = 8 then writeln('Ocinka: 4');
if RightCount = 9 then writeln('Ocinka: 4');
if RightCount = 10 then writeln('Ocinka: 4');
if RightCount = 11 then writeln('Ocinka: 5');
if RightCount = 12 then writeln('Ocinka: 5');
readln;
 
end.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
03.06.2009, 08:01
кароч всё приходится делать самому
Врать только не надо. С чего это тябя вдруг на русский потянуло? Да и цена вроде стоит. А писать надо задание нормально. Где у тебя кнопка? Кнопки в графическом режиме создают, на них нажимать можно.
Хоть бы синтаксические ошибки в проге исправил, мастер.

Добавлено через 2 минуты 16 секунд
А с таким поганым тестом по истории впредь бы не советовал на русские форумы ходить, мы же к вам не лезем со своей историей.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 03.06.2009, 08:01
Помогаю со студенческими работами здесь

Нужно составить меню для программы
Нужно составить меню, которое могло бы выполнить следующее для программы 1- решить программу циклом For 2- решить программу циклом...

Сделано меню программы через case, как сделать цикл для меню
Сделано меню программы через case ,как сделать цикл для меню чтобы после каждого выбранного пункта в меню и отображения действия появлялось...

Справочник. Добавить меню для программы и перемещение по меню
Делаю справочник с пищевыми добавками с редактором. C# Консольное приложение. Можно попросить вашей помощь. Напишите пожалуйста код,...

Как написать тест для программы?
Суть программы заключается в создании последовательности строк.Каждая строка состоит из слов разделенных пробелами. Нужно написать...

Не получается написать тест для проверки программы
Доброго времени суток! Perl мой первый язык программирования и я совсем недавно начал его изучать, пока все более или менее получалось по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
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
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
 Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru