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

Установить таймер

27.04.2017, 16:54. Показов 2162. Ответов 8
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Здравствуйте! Помогите мне вставить таймер в мою программу чтоб при вводе слова старт таймер работать и показывался в верхнем левом углу.
Программа: (после программы мой таймер)
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
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
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419

program test;
Uses crt;
var a, b, c, q, w, e, r, t, y, u:integer;
 d:integer;
 p:integer;
 o:string;
 s:integer;
 f:integer;
 Label
 M1;
begin
M1: clrscr;
Textcolor(13);
 writeln('                  ____________________________________________');
 writeln('                 |  ________________________________________  |');
 writeln('                 | |                                        | |');
 writeln('                 | |                 МЕНЮ:                  | |');
 writeln('                 | |        Добро пожаловать в ТЕСТ!        | |');
 writeln('                 | |                                        | |');
 writeln('                 | | ПРОГРАММУ создал Мелентьев Семён 9"а". | |');
 writeln('                 | |________________________________________| |');
 writeln('                 |____________________________________________|');
Textcolor(14);
Writeln('                    Нажмите "1" для открытия табло оценивания');
Write('                            или "2" для запуска теста:'); Textcolor(12); Readln(s);
if s=1 then
begin
clrscr;
Textcolor(12);
Writeln('                   ____________________________________________');
Writeln('                  |            Оценка за баллы:                |');
Writeln('                  |         10-9 баллов оценка 5               |');
Writeln('                  |         8-7 баллов оценка 4                |');
Writeln('                  |         6-5 баллов оценка 3                |');
Writeln('                  |         4-0 баллов оценка 2                |');
Writeln('                  |____________________________________________|');
Textcolor(11);
Write('Введите "1" для выхода в меню:'); Readln(f);
if f=1 then
goto M1;
End;
begin
clrscr;
Textcolor(11);
Writeln('                     Если вы готовы к ТЕСТУ, введите слово "старт". ');
Textcolor(13);
Write('                                    Вот тут-->');
Textcolor(14);
Readln(o);
clrscr;
Textcolor(green);
writeln('[1] С помощью какой опции запускается выполнение программы?');
writeln('1) Open');
writeln('2) Run');
writeln('3) Paste');
writeln('4) Exit');
Textcolor(14);
write('Ответ:=');
Readln(a);
Textcolor(green);
writeln('[2] Как записывается оператор вывода?');
writeln('1) Writeln');
writeln('2) Readkey');
writeln('3) Readln');
writeln('4) begin');
Textcolor(14);
write('Ответ:=');
Readln(b);
Textcolor(green);
writeln('[3] Как записывается оператор присвоения?');
writeln('1) a=1');
writeln('2) a=:1');
writeln('3) 1=a');
writeln('4) a:=1');
Textcolor(14);
write('Ответ:=');
Readln(c);
Textcolor(green);
writeln('[4] Вещественные числа имеют тип данных:');
writeln('1) real');
writeln('2) integer');
writeln('3) bollean');
writeln('4) string');
Textcolor(14);
write('Ответ:=');
Readln(q);
Textcolor(green);
writeln('[5] Как Вы думаете, какая команда обеспечивает ввод данных в Паскале?');
writeln('1) writeln');
writeln('2) read');
writeln('3) begin');
writeln('4) then');
Textcolor(14);
write('Ответ:=');
Readln(w);
Textcolor(green);
writeln('[6] Укажите недопустимые имена программ на Паскале');
writeln('1) 2chisla');
writeln('2) kalkulator-dohodov');
writeln('3) level_1');
writeln('4) xc55po');
Textcolor(14);
write('Ответ:=');
Readln(e);
Textcolor(green);
writeln('[7] Для отделения операторов друг от друга в языке Паскаль используют:');
writeln('1) Пробел');
writeln('2) Двоеточие');
writeln('3) Запятая');
writeln('4) Точка с запятой');
Textcolor(14);
write('Ответ:=');
Readln(r);
Textcolor(green);
writeln('[8] Начало раздела программы, в котором описывают типы используемых переменных');
writeln('1) Begin');
writeln('2) Var');
writeln('3) Enter');
writeln('4) Const');
Textcolor(14);
write('Ответ:=');
Readln(t);
Textcolor(green);
writeln('[9] Конечное значение переменной Х в результате выполнения следующих действий:');
Textcolor(13);
writeln('Х:=2;');
writeln('У:=0;');
writeln('Х:=(У+Х)*5-2+Х');
Textcolor(green);
writeln('1) 2');
writeln('2) 0,5');
writeln('3) 10');
writeln('4) 6');
Textcolor(14);
write('Ответ:=');
Readln(y);
Textcolor(green);
writeln('[10]Кто изобрёл язык PASCAL?');
writeln('1) Б.Паскаль');
writeln('2) Н.Вирт');
writeln('3) М.Фортран');
writeln('4) Нет правильного ответа');
Textcolor(14);
write('Ответ:=');
Readln(u);
clrscr;
Textcolor(13);
Writeln('                                        ИТОГ:');
d:=0;
begin
if a=2 then d:=d+1 else d:=0
end;
begin
if b=1 then d:=d+1 else d:=d
end;
begin
if c=4 then d:=d+1 else d:=d
end;
begin
if q=1 then d:=d+1 else d:=d
end;
begin
if w=2 then d:=d+1 else d:=d
end;
begin
if e=3 then d:=d+1 else d:=d
end;
begin
if r=4 then d:=d+1 else d:=d
end;
begin
if t=2 then d:=d+1 else d:=d
end;
begin
if y=3 then d:=d+1 else d:=d
end;
begin
if u=2 then d:=d+1 else d:=d
end;
begin
Textcolor(10);
if d>0 then Writeln('                        Вы ответили правильно на ',d,' вопроса.');
if d<0 then writeln('                        Вы ответили неправильно на все вопросы!');
End;
begin
textcolor(6);
case d of
10: Writeln('                                   Ваша оценка 5.');
9: Writeln('                                    Ваша оценка 5.');
8: Writeln('                                    Ваша оценка 4.');
7: Writeln('                                    Ваша оценка 4.');
6: Writeln('                                    Ваша оценка 3.');
5: Writeln('                                    Ваша оценка 3.');
4: Writeln('                                    Ваша оценка 2.');
3: Writeln('                                    Ваша оценка 2.');
2: Writeln('                                    Ваша оценка 2.');
1: Writeln('                                    Ваша оценка 2.');
end;
End;
Textcolor(15);
begin
Writeln('Хотите увидеть свои ошибки?(ДА=1,НЕТ=2)');
Read(p);
if p=1 then 
begin
Textcolor(14);
if a=1 then
begin
Writeln('[1] С помощью какой опции запускается выполнение программы?');
Writeln('Вы выбрали 1) Open');
Writeln('Правильный ответ 2) Run');
End;
if a=3 then
begin
Writeln('[1] С помощью какой опции запускается выполнение программы?');
Writeln('Вы выбрали 3) Paste');
Writeln('Правильный ответ 2) Run');
End;
if a=4 then
begin
Writeln('[1] С помощью какой опции запускается выполнение программы?');
Writeln('Вы выбрали 4) Exit');
Writeln('Правильный ответ 2) Run');
End;
 
if b=2 then
begin
writeln('[2] Как записывается оператор вывода?');
Writeln('Вы выбрали 2)Readkey');
Writeln('Правильный ответ 1) Writeln');
End;
if b=3 then
begin
writeln('[2] Как записывается оператор вывода?');
Writeln('Вы выбрали 3) Readln');
Writeln('Правильный ответ 1) Writeln');
End;
if b=4 then
begin
writeln('[2] Как записывается оператор вывода?');
Writeln('Вы выбрали 4) Begin');
Writeln('Правильный ответ 1) Writeln');
End;
 
if c=1 then
begin
writeln('[3] Как записывается оператор присвоения?');
Writeln('Вы выбрали 1) a=1');
Writeln('Правильный ответ 4) a:=1');
End;
if c=2 then
begin
writeln('[3] Как записывается оператор присвоения?');
Writeln('Вы выбрали 2) a=:1');
Writeln('Правильный ответ 4) a:=1');
End;
if c=3 then
begin
writeln('[3] Как записывается оператор присвоения?');
Writeln('Вы выбрали 3) 1=a');
Writeln('Правильный ответ 4) a:=1');
End;
 
if q=2 then
begin
writeln('[4] Вещественные числа имеют тип данных:');
Writeln('Вы выбрали 2) integer');
Writeln('Правильный ответ 1) real');
End;
if q=3 then
begin
writeln('[4] Вещественные числа имеют тип данных:');
Writeln('Вы выбрали 3) bollean');
Writeln('Правильный ответ 1) real');
End;
if q=4 then
begin
writeln('[4] Вещественные числа имеют тип данных:');
Writeln('Вы выбрали 4) string');
Writeln('Правильный ответ 1) real');
End;
 
if w=1 then
begin
writeln('[5] Как вы думаете, какая команда обеспечивает ввод данных?');
Writeln('Вы выбрали 1) writeln');
Writeln('Правильный ответ 1) read');
End;
if w=3 then
begin
writeln('[5] Как вы думаете, какая команда обеспечивает ввод данных?');
Writeln('Вы выбрали 3) degin');
Writeln('Правильный ответ 1) read');
End;
if w=4 then
begin
writeln('[5] Как вы думаете, какая команда обеспечивает ввод данных?');
Writeln('Вы выбрали 4) then');
Writeln('Правильный ответ 1) read');
End;
 
if e=1 then
begin
writeln('[6] Укажите недопустимые имена программ на Паскале');
Writeln('Вы выбрали 1) 2chisla');
Writeln('Правильный ответ 3)level_1');
End;
if e=2 then
begin
writeln('[6] Укажите недопустимые имена программ на Паскале');
Writeln('Вы выбрали 2) kalkulator-dohodov');
Writeln('Правильный ответ 3)level_1');
End;
if e=4 then
begin
writeln('[6] Укажите недопустимые имена программ на Паскале');
Writeln('Вы выбрали 4) xc55po');
Writeln('Правильный ответ 3)level_1');
End;
 
if r=1 then
begin
writeln('[7] Для отделения операторов друг от друга в языке Паскаль используют:');
Writeln('Вы выбрали 1) Пробел');
Writeln('Правильный ответ 4)Точка с запятой');
End;
if r=2 then
begin
writeln('[7] Для отделения операторов друг от друга в языке Паскаль используют:');
Writeln('Вы выбрали 2) Двоеточие');
Writeln('Правильный ответ 4)Точка с запятой');
End;
if r=3 then
begin
writeln('[7] Для отделения операторов друг от друга в языке Паскаль используют:');
Writeln('Вы выбрали 3) Запятая');
Writeln('Правильный ответ 4)Точка с запятой');
End;
 
if t=1 then
begin
writeln('[8] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 1) begin');
Writeln('Правильный ответ 2) var');
End;
if t=3 then
begin
writeln('[8] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 4) Enter');
Writeln('Правильный ответ 2) var');
End;
if t=4 then
begin
writeln('[8] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 4) Const');
Writeln('Правильный ответ 2) var');
End;
 
if y=1 then
begin
writeln('[9] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 1) 2');
Writeln('Правильный ответ 3) 10');
End;
if y=2 then
begin
writeln('[9] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 4) 0,5');
Writeln('Правильный ответ 3) 10');
End;
if y=4 then
begin
writeln('[9] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 4) 6');
Writeln('Правильный ответ 3) 10');
End;
 
if u=1 then
begin
writeln('[10]Кто изобрёл язык PASCAL?');
Writeln('Вы выбрали 1) Б.Паскаль');
Writeln('Правильный ответ Н.Вирт');
End;
if u=3 then
begin
writeln('[10]Кто изобрёл язык PASCAL?');
Writeln('Вы выбрали 3) М.Фортран');
Writeln('Правильный ответ Н.Вирт');
End;
if u=4 then
begin
writeln('[10]Кто изобрёл язык PASCAL?');
Writeln('Вы выбрали 4) Нет правильного ответа');
Writeln('Правильный ответ Н.Вирт');
End;
end
else
begin
Textcolor(red);
halt;
end;
End;
Textcolor(red);
End;
end.
 
Таймер:
uses crt;
begin
for var ch:=0 to 23 do
 for var min:=0 to 59 do
 for var sec:=0 to 59 do
 for var ms:=0 to 99 do
 begin
 gotoxy(1,1);
 writelnformat('{0:00}:{1:00}:{2:00}:{3:00}',ch,min,sec,ms);
 Sleep(10);
 end;
end.
0
Лучшие ответы (1)
Сообщение: #10379971
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 27.04.2017, 16:54
Ответы с готовыми решениями:

Установить таймер
Добрый вечер, подскажите, как добавить таймер к слайдеру. Есть код слайдера, взятый с сайта w3cschool: var slideIndex = 1; ...

Установить таймер на форме и Recordset
Доброго времени суток! Помогите, пожалуйста, реализовать следующее. Необходимо, перемещаясь по записям в форме (с помощью Recordset),...

Как корректно установить таймер чтобы
Как корректно установить таймер чтобы после запуска игры выводило сообщение &quot;Ты проиграл&quot; если ты успеваешь убить все...

8
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
28.04.2017, 05:58
Лучший ответ Сообщение было отмечено DIP_2017 как решение

Решение

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
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
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433

program test;
Uses crt, timers;
var a, b, c, q, w, e, r, t, y, u:integer;
 d:integer;
 p:integer;
 o:string;
 s:integer;
 f:integer;
 Timer_pic:integer;
 Label
 M1;
 
procedure TimerProc;
var
  x,y:integer;
begin
  //сохраняем текущее положение курсора
  x:=WhereX;
  y:=WhereY;
  Timer_pic:=Timer_pic+1;
  gotoxy(70,15);
 write(format('{0:00}:{1:00}:{2:00}',(Timer_pic div 3600) mod 24,(Timer_pic div 60) mod 60,timer_pic mod 60));
 gotoxy(x,y);
end; 
 
begin
M1: clrscr;
Textcolor(13);
 writeln('                  ____________________________________________');
 writeln('                 |  ________________________________________  |');
 writeln('                 | |                                        | |');
 writeln('                 | |                 МЕНЮ:                  | |');
 writeln('                 | |        Добро пожаловать в ТЕСТ!        | |');
 writeln('                 | |                                        | |');
 writeln('                 | | ПРОГРАММУ создал Мелентьев Семён 9"а". | |');
 writeln('                 | |________________________________________| |');
 writeln('                 |____________________________________________|');
Textcolor(14);
Writeln('                    Нажмите "1" для открытия табло оценивания');
Write('                            или "2" для запуска теста:'); Textcolor(12); Readln(s);
if s=1 then
begin
clrscr;
Textcolor(12);
Writeln('                   ____________________________________________');
Writeln('                  |            Оценка за баллы:                |');
Writeln('                  |         10-9 баллов оценка 5               |');
Writeln('                  |         8-7 баллов оценка 4                |');
Writeln('                  |         6-5 баллов оценка 3                |');
Writeln('                  |         4-0 баллов оценка 2                |');
Writeln('                  |____________________________________________|');
Textcolor(11);
Write('Введите "1" для выхода в меню:'); Readln(f);
if f=1 then
goto M1;
End;
begin
clrscr;
Textcolor(11);
Writeln('                     Если вы готовы к ТЕСТУ, введите слово "старт". ');
Textcolor(13);
Write('                                    Вот тут-->');
Textcolor(14);
Readln(o);
clrscr;
  var Tmr:=new Timer(1000, TimerProc);
  Tmr.Start;
Textcolor(green);
writeln('[1] С помощью какой опции запускается выполнение программы?');
writeln('1) Open');
writeln('2) Run');
writeln('3) Paste');
writeln('4) Exit');
Textcolor(14);
write('Ответ:=');
Readln(a);
clrscr;
Textcolor(green);
writeln('[2] Как записывается оператор вывода?');
writeln('1) Writeln');
writeln('2) Readkey');
writeln('3) Readln');
writeln('4) begin');
Textcolor(14);
write('Ответ:=');
Readln(b);
clrscr;
Textcolor(green);
writeln('[3] Как записывается оператор присвоения?');
writeln('1) a=1');
writeln('2) a=:1');
writeln('3) 1=a');
writeln('4) a:=1');
Textcolor(14);
write('Ответ:=');
Readln(c);
clrscr;
Textcolor(green);
writeln('[4] Вещественные числа имеют тип данных:');
writeln('1) real');
writeln('2) integer');
writeln('3) bollean');
writeln('4) string');
Textcolor(14);
write('Ответ:=');
Readln(q);
clrscr;
Textcolor(green);
writeln('[5] Как Вы думаете, какая команда обеспечивает ввод данных в Паскале?');
writeln('1) writeln');
writeln('2) read');
writeln('3) begin');
writeln('4) then');
Textcolor(14);
write('Ответ:=');
Readln(w);
clrscr;
Textcolor(green);
writeln('[6] Укажите недопустимые имена программ на Паскале');
writeln('1) 2chisla');
writeln('2) kalkulator-dohodov');
writeln('3) level_1');
writeln('4) xc55po');
Textcolor(14);
write('Ответ:=');
Readln(e);
clrscr;
Textcolor(green);
writeln('[7] Для отделения операторов друг от друга в языке Паскаль используют:');
writeln('1) Пробел');
writeln('2) Двоеточие');
writeln('3) Запятая');
writeln('4) Точка с запятой');
Textcolor(14);
write('Ответ:=');
Readln(r);
clrscr;
Textcolor(green);
writeln('[8] Начало раздела программы, в котором описывают типы используемых переменных');
writeln('1) Begin');
writeln('2) Var');
writeln('3) Enter');
writeln('4) Const');
Textcolor(14);
write('Ответ:=');
Readln(t);
clrscr;
Textcolor(green);
writeln('[9] Конечное значение переменной Х в результате выполнения следующих действий:');
Textcolor(13);
writeln('Х:=2;');
writeln('У:=0;');
writeln('Х:=(У+Х)*5-2+Х');
Textcolor(green);
writeln('1) 2');
writeln('2) 0,5');
writeln('3) 10');
writeln('4) 6');
Textcolor(14);
write('Ответ:=');
Readln(y);
clrscr;
Textcolor(green);
writeln('[10]Кто изобрёл язык PASCAL?');
writeln('1) Б.Паскаль');
writeln('2) Н.Вирт');
writeln('3) М.Фортран');
writeln('4) Нет правильного ответа');
Textcolor(14);
write('Ответ:=');
Readln(u);
clrscr;
Textcolor(13);
Writeln('                                        ИТОГ:');
Tmr.stop;
d:=0;
begin
if a=2 then d:=d+1 else d:=0
end;
begin
if b=1 then d:=d+1 else d:=d
end;
begin
if c=4 then d:=d+1 else d:=d
end;
begin
if q=1 then d:=d+1 else d:=d
end;
begin
if w=2 then d:=d+1 else d:=d
end;
begin
if e=3 then d:=d+1 else d:=d
end;
begin
if r=4 then d:=d+1 else d:=d
end;
begin
if t=2 then d:=d+1 else d:=d
end;
begin
if y=3 then d:=d+1 else d:=d
end;
begin
if u=2 then d:=d+1 else d:=d
end;
begin
Textcolor(10);
if d>0 then Writeln('                        Вы ответили правильно на ',d,' вопроса.');
if d<0 then writeln('                        Вы ответили неправильно на все вопросы!');
writelnformat('затрачено времени: {0:00}:{1:00}:{2:00}',(Timer_pic div 3600) mod 24,(Timer_pic div 60) mod 60,timer_pic mod 60);
End;
begin
textcolor(6);
case d of
10: Writeln('                                   Ваша оценка 5.');
9: Writeln('                                    Ваша оценка 5.');
8: Writeln('                                    Ваша оценка 4.');
7: Writeln('                                    Ваша оценка 4.');
6: Writeln('                                    Ваша оценка 3.');
5: Writeln('                                    Ваша оценка 3.');
4: Writeln('                                    Ваша оценка 2.');
3: Writeln('                                    Ваша оценка 2.');
2: Writeln('                                    Ваша оценка 2.');
1: Writeln('                                    Ваша оценка 2.');
end;
End;
Textcolor(15);
begin
Writeln('Хотите увидеть свои ошибки?(ДА=1,НЕТ=2)');
Read(p);
if p=1 then 
begin
Textcolor(14);
if a=1 then
begin
Writeln('[1] С помощью какой опции запускается выполнение программы?');
Writeln('Вы выбрали 1) Open');
Writeln('Правильный ответ 2) Run');
End;
if a=3 then
begin
Writeln('[1] С помощью какой опции запускается выполнение программы?');
Writeln('Вы выбрали 3) Paste');
Writeln('Правильный ответ 2) Run');
End;
if a=4 then
begin
Writeln('[1] С помощью какой опции запускается выполнение программы?');
Writeln('Вы выбрали 4) Exit');
Writeln('Правильный ответ 2) Run');
End;
 
if b=2 then
begin
writeln('[2] Как записывается оператор вывода?');
Writeln('Вы выбрали 2)Readkey');
Writeln('Правильный ответ 1) Writeln');
End;
if b=3 then
begin
writeln('[2] Как записывается оператор вывода?');
Writeln('Вы выбрали 3) Readln');
Writeln('Правильный ответ 1) Writeln');
End;
if b=4 then
begin
writeln('[2] Как записывается оператор вывода?');
Writeln('Вы выбрали 4) Begin');
Writeln('Правильный ответ 1) Writeln');
End;
 
if c=1 then
begin
writeln('[3] Как записывается оператор присвоения?');
Writeln('Вы выбрали 1) a=1');
Writeln('Правильный ответ 4) a:=1');
End;
if c=2 then
begin
writeln('[3] Как записывается оператор присвоения?');
Writeln('Вы выбрали 2) a=:1');
Writeln('Правильный ответ 4) a:=1');
End;
if c=3 then
begin
writeln('[3] Как записывается оператор присвоения?');
Writeln('Вы выбрали 3) 1=a');
Writeln('Правильный ответ 4) a:=1');
End;
 
if q=2 then
begin
writeln('[4] Вещественные числа имеют тип данных:');
Writeln('Вы выбрали 2) integer');
Writeln('Правильный ответ 1) real');
End;
if q=3 then
begin
writeln('[4] Вещественные числа имеют тип данных:');
Writeln('Вы выбрали 3) bollean');
Writeln('Правильный ответ 1) real');
End;
if q=4 then
begin
writeln('[4] Вещественные числа имеют тип данных:');
Writeln('Вы выбрали 4) string');
Writeln('Правильный ответ 1) real');
End;
 
if w=1 then
begin
writeln('[5] Как вы думаете, какая команда обеспечивает ввод данных?');
Writeln('Вы выбрали 1) writeln');
Writeln('Правильный ответ 1) read');
End;
if w=3 then
begin
writeln('[5] Как вы думаете, какая команда обеспечивает ввод данных?');
Writeln('Вы выбрали 3) degin');
Writeln('Правильный ответ 1) read');
End;
if w=4 then
begin
writeln('[5] Как вы думаете, какая команда обеспечивает ввод данных?');
Writeln('Вы выбрали 4) then');
Writeln('Правильный ответ 1) read');
End;
 
if e=1 then
begin
writeln('[6] Укажите недопустимые имена программ на Паскале');
Writeln('Вы выбрали 1) 2chisla');
Writeln('Правильный ответ 3)level_1');
End;
if e=2 then
begin
writeln('[6] Укажите недопустимые имена программ на Паскале');
Writeln('Вы выбрали 2) kalkulator-dohodov');
Writeln('Правильный ответ 3)level_1');
End;
if e=4 then
begin
writeln('[6] Укажите недопустимые имена программ на Паскале');
Writeln('Вы выбрали 4) xc55po');
Writeln('Правильный ответ 3)level_1');
End;
 
if r=1 then
begin
writeln('[7] Для отделения операторов друг от друга в языке Паскаль используют:');
Writeln('Вы выбрали 1) Пробел');
Writeln('Правильный ответ 4)Точка с запятой');
End;
if r=2 then
begin
writeln('[7] Для отделения операторов друг от друга в языке Паскаль используют:');
Writeln('Вы выбрали 2) Двоеточие');
Writeln('Правильный ответ 4)Точка с запятой');
End;
if r=3 then
begin
writeln('[7] Для отделения операторов друг от друга в языке Паскаль используют:');
Writeln('Вы выбрали 3) Запятая');
Writeln('Правильный ответ 4)Точка с запятой');
End;
 
if t=1 then
begin
writeln('[8] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 1) begin');
Writeln('Правильный ответ 2) var');
End;
if t=3 then
begin
writeln('[8] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 4) Enter');
Writeln('Правильный ответ 2) var');
End;
if t=4 then
begin
writeln('[8] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 4) Const');
Writeln('Правильный ответ 2) var');
End;
 
if y=1 then
begin
writeln('[9] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 1) 2');
Writeln('Правильный ответ 3) 10');
End;
if y=2 then
begin
writeln('[9] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 4) 0,5');
Writeln('Правильный ответ 3) 10');
End;
if y=4 then
begin
writeln('[9] Начало раздела программы, в котором описывают типы используемых переменных');
Writeln('Вы выбрали 4) 6');
Writeln('Правильный ответ 3) 10');
End;
 
if u=1 then
begin
writeln('[10]Кто изобрёл язык PASCAL?');
Writeln('Вы выбрали 1) Б.Паскаль');
Writeln('Правильный ответ Н.Вирт');
End;
if u=3 then
begin
writeln('[10]Кто изобрёл язык PASCAL?');
Writeln('Вы выбрали 3) М.Фортран');
Writeln('Правильный ответ Н.Вирт');
End;
if u=4 then
begin
writeln('[10]Кто изобрёл язык PASCAL?');
Writeln('Вы выбрали 4) Нет правильного ответа');
Writeln('Правильный ответ Н.Вирт');
End;
end
else
begin
Textcolor(red);
halt;
end;
End;
Textcolor(red);
End;
end.
Добавлено через 3 минуты
Вопросы и варианты ответов брать из файла почему не сделали? Это значительно сократит объем программы.
1
0 / 0 / 0
Регистрация: 27.04.2017
Сообщений: 4
28.04.2017, 15:53  [ТС]
Почему таймер в ответе?
С помощью какой опции запускается выполнение программы?
1) Open
2) Run
3) Paste
4) Exit'
Ответ:=00:00:00

Хотелось бы вот так:
00:00:00
С помощью какой опции запускается выполнение программы?
1) Open
2) Run
3) Paste
4) Exit'
Ответ:=
0
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
28.04.2017, 16:58
окно текстовое значит меньше 16 строк и 80 столбцов.

Добавлено через 1 минуту
часы пишутся в позиции 70,15

Добавлено через 2 минуты
Цитата Сообщение от DIP_2017 Посмотреть сообщение
Хотелось бы вот так:
исправь координаты в процедуре на 1,1 и добавь по пустой строке перед каждым вопросом
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33400 / 21510 / 8236
Регистрация: 22.10.2011
Сообщений: 36,907
Записей в блоге: 12
28.04.2017, 17:08
DIP_2017, 6 и 8 вопросы - это чтобы никто тест не прошел?
0
0 / 0 / 0
Регистрация: 27.04.2017
Сообщений: 4
28.04.2017, 20:14  [ТС]
Теперь вот так:
00:00:00щью какой опции запускается выполнение программы?
1) Open
2) Run
3) Paste
4) Exit'
Ответ:=
0
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
29.04.2017, 02:00
Цитата Сообщение от DIP_2017 Посмотреть сообщение
Теперь вот так:
00:00:00щью какой опции запускается выполнение программы?
выще было написано
Цитата Сообщение от Joy Посмотреть сообщение
и добавь по пустой строке перед каждым вопросом
0
0 / 0 / 0
Регистрация: 27.04.2017
Сообщений: 4
29.04.2017, 22:23  [ТС]
Вот так?:

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

  var Tmr:=new Timer(1000, TimerProc);
  Tmr.Start;
Textcolor(green);
writeln('[1] С помощью какой опции запускается выполнение программы?');
writeln('1) Open');
writeln('2) Run');
writeln('3) Paste');
writeln('4) Exit');
Textcolor(14);
write('Ответ:=');
Readln(a);
clrscr;
 
Textcolor(green);
writeln('[2] Как записывается оператор вывода?');
writeln('1) Writeln');
writeln('2) Readkey');
writeln('3) Readln');
writeln('4) begin');
Textcolor(14);
write('Ответ:=');
Readln(b);
clrscr;
 
Textcolor(green);
writeln('[3] Как записывается оператор присвоения?');
writeln('1) a=1');
writeln('2) a=:1');
writeln('3) 1=a');
writeln('4) a:=1');
Textcolor(14);
write('Ответ:=');
Readln(c);
clrscr;
 
Textcolor(green);
writeln('[4] Вещественные числа имеют тип данных:');
writeln('1) real');
writeln('2) integer');
writeln('3) bollean');
writeln('4) string');
Textcolor(14);
write('Ответ:=');
Readln(q);
clrscr;
 
Textcolor(green);
writeln('[5] Как Вы думаете, какая команда обеспечивает ввод данных в Паскале?');
writeln('1) writeln');
writeln('2) read');
writeln('3) begin');
writeln('4) then');
Textcolor(14);
write('Ответ:=');
0
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
30.04.2017, 04:35
не пустую строку в коде программы, а на экране, например так:
Pascal
1
2
3
4

Textcolor(green);
writeln; // вывод пустой строки
writeln('[2] Как записывается оператор вывода?');
writeln('1) Writeln');
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 30.04.2017, 04:35
Помогаю со студенческими работами здесь

Помогите установить таймер на форму под excel
Написал тест под excel, нужно ограничение по времени выполнения, а я не могу сделать таймер на самой форме. Буду очень благодарен за...

Как установить таймер на событие внутри метода?
Ребят, кто может подсказать, как установить таймер на событие внутри метода? private void Project(List&lt;Limb&gt; limbs) { ...

Как установить таймер в этом коде на управление автоматическим сжатием/увеличением сферы и куба
Private Function Center_X(Width As Integer) As Integer Center_X = Width \ 2 'процедура для нахождения центра по оси x End...

Таймер должен через время положить файл на БД. [Таймер]
Мне нужен таймер, а я не знаю как его делать именно, чтоб в конкретное время он сохранял информацию в файл. Чтобы он в конкретный период...

Поясните за таймер!) Или таймер на формах наследниках
Доброго. В проге есть основная форма и в процессе работы создается 1-2-3-4-5 форм наследников все одного типа, но вот в чем загвоздка, на...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru