0 / 0 / 0
Регистрация: 26.02.2020
Сообщений: 2
|
|
|
1
|
Нужно сделать тест на PascalABC, чтобы он был на форме
26.02.2020, 18:34. Показов 792. Ответов 0
Всем привет. Ребят нужна ваша помощь. Надо сделать тест в Паскале, но чтобы он отображался на форме и чтобы в конце теста показывало кол-во ошибок и оценка за тест. Как бы сам тест есть, но не знаю как вывести его на форму и сделать красивым. Помогите пожалуйста кому не сложно. Буду очень благодарен 
Вот сам тест:
| 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
| program Test2;
uses crt;
label 10,11,12;
var a,b,c,t,PR,NE:byte;
begin
PR:=0;
NE:=0;
11:writeln('Выберете предмет: ');
writeln('1) Математика 2) Музыка');
readln(a);
clrscr;
case a of
1:begin
b:=0;
10:inc(b);
case b of
1:begin
writeln('Частное 63 и 3');
writeln;
writeln('1)15 3)189');
writeln('2)66 4)21');
readln(c);
t:=4;
end;
2:begin
writeln('Чему равно число Пи');
writeln;
writeln('1) 3.14... 3) 1.15763');
writeln('2) 4 4) Пи -это не число. Пи-это мышка говорит');
readln(c);
t:=1;
end;
3:begin
writeln('Корень из 225');
writeln;
writeln('1)23 3)15');
writeln('2)24 4)0');
readln(c);
t:=3;
end;
4:begin
writeln('Катет противолежащий углу в 30*=');
writeln;
writeln('1) Половине катета 3) Полторы гипотинузы');
writeln('2) n*34 4) Половине гипотенузы');
readln(c);
t:=4;
end;
5:begin
writeln('Выберете дробное число');
writeln;
writeln('1) 23.5 3) Ой, я не знаю');
writeln('2) 2a 4) 100/5');
readln(c);
t:=1;
end;
end;
if c=t then inc(pr)
else
inc(ne);
clrscr;
if b<5 then goto 10;
end;
2:begin
b:=0;
12:inc(b);
case b of
1:begin
writeln('Какая нота находяится на 3 стане бассового ключа');
writeln;
writeln('1) ми 3) ре');
writeln('2) соль 4) до');
readln(c);
t:=3;
end;
2:begin
writeln('Лунная соната- это произведение');
writeln;
writeln('1) Бетховена 3) Медведева');
writeln('2) Моцарта 4) Баха');
readln(c);
t:=1;
end;
3:begin
writeln('Дубль диез-');
writeln;
writeln('1) Понижение на тон 3) Пометить место ноты');
writeln('2) Повышение на тон 4) Знак в матиматике');
readln(c);
t:=2;
end;
4:begin
writeln('В гармонической гамме повышается');
writeln;
writeln('1) Тоника 3) 1 ступень');
writeln('2) 7-я ступень 4) Лад');
readln(c);
t:=2;
end;
5:begin
writeln('Доминантовый септаккорд разрешается в');
writeln;
writeln('1) Уменьшенную квинту 3) Увеличиную септу');
writeln('2) Домминантовый квинтсептаккорд 4) Тонику');
readln(c);
t:=4;
end;
end;
if c=t then inc(pr)
else
inc(ne);
clrscr;
if b<5 then goto 12;
end;
else
begin
writeln('Ошибка ввода. Попробуйте еще раз');
readln;
clrscr;
goto 11;
end
end;
clrscr;
writeln('Вы ответили правильно на ',PR, ' и на ',NE,' не правильно ');
writeln('Или-же на ',100/(PR+NE)*PR,'%');
write('И получили оценку: ');
case 20*pr of
0..50:write('2');
51..79:write('3');
80..94:write('4');
95..100:write('5');
end;
writeln;
end. |
|
0
|
(
