Исходники и листинги ::: 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
  Uses crt;
  var a,aa,b,bb,summa,c:integer;
  begin
  repeat
  writeln('Если вы хотите пройти тест нажмите 1');
  writeln;
  writeln('Если вы хотите выйти нажмите 2');
  writeln;
  writeln('Ваш выбор: ');
  readln(c)
  if c=1 then goto 1;
  if c=2 then exit;
  until a in [1,2];
  1:clrscr;textcolor(yellow);
  gotoxy(13,1);writeln('Как вы думаете сколько миллионов человек живет в России?');
  gotoxy(35,4);writeln('1) 200');
  gotoxy(35,6);writeln('2) 167');
  gotoxy(35,8);writeln('3) 144');
  gotoxy(35,10);writeln('4) 129');
  gotoxy(35,13);writeln('Ваш выбор: ');
  readln(a);
  gotoxy(35,18);if a=3 then writeln('Bерно!!!') else writeln('Неверно!!!');
  delay(2000);
  clrscr;textcolor(cyan);
  gotoxy(13,1);writeln('Как вы думаете какова площадь России? (100 км в квадрате)');
  gotoxy(35,4);writeln('1) 17000');
  gotoxy(35,6);writeln('2) 14000');
  gotoxy(35,8);writeln('3) 19000');
  gotoxy(35,10);writeln('4) 15000');
  gotoxy(35,13);writeln('Ваш выбор: ');
  readln(b);
  gotoxy(35,18);if a=1 then writeln('Bерно!!!') else writeln('Неверно!!!');
  delay(2000);{Таким же образом делаются остальные вопросы}
  clrscr;textcolor(red);
  gotoxy(20,12);writeln('Loading progressing 5 seconds');delay(1000);
  clrscr;
  gotoxy(20,12);writeln('Loading progressing 4 seconds');delay(1000);
  clrscr;
  gotoxy(20,12);writeln('Loading progressing 3 seconds');delay(1000);
  clrscr;
  gotoxy(20,12);writeln('Loading progressing 2 seconds');delay(1000);
  clrscr;
  gotoxy(20,12);writeln('Loading progressing 1 seconds');delay(1000);
  clrscr;
  gotoxy(20,12);writeln('Loading progressing complete!');delay(1000);{Имитация загрузки}
  clrscr;
  gotoxy(20,2);if a=1 then writeln('1) Неправильно (0 баллов)');delay(200);
  gotoxy(20,2);if a=2 then writeln('1) Неправильно (0 баллов)');delay(200);
  gotoxy(20,2);if a=3 then writeln('1) Правильно (2 балла)');delay(200);
  gotoxy(20,2);if a=4 then writeln('1) Неправильно (0 баллов)');delay(200);
  gotoxy(20,2);if b=1 then writeln('2) Правильно (2 балла)');delay(200);
  gotoxy(20,2);if b=2 then writeln('2) Неправильно (0 баллов)');delay(200);
  gotoxy(20,2);if b=3 then writeln('2) Неправильно (0 баллов)');delay(200);
  gotoxy(20,2);if b=4 then writeln('2) Неправильно (0 баллов)');delay(200);
  if a=3 then aa:=2;
  if b=1 then bb:=2;
  summa:=aa+bb;
  gotoxy(1,22);writeln('Всего баллов: ', summa);
  clrscr;textcolor(yellow);
  repeat
  writeln('Если вы хотите пройти тест еще раз нажмите 1');
  writeln;
  writeln('Если вы хотите выйти нажмите 2');
  writeln;
  writeln('Ваш выбор: ');
  readln(c)
  if c=1 then goto 1;
  if c=2 then exit;
  until a in [1,2];
  end.
<<< Предыдущая работа

Вернуться в галерею исходников
Исходник теста
Автор: HawK210294*
Город: Новокузнецк
Дата: 01.01.2009  05:59
Комментариев: 9
Просмотров: 3962
Оценка: 0 (0|0|0|0|0) [0]

Вернуться на главную
Авторский комментарий к работе: Решил все-таки выложить этот исходник, может кто и не знает как сделать тест на паскале, кому надо вот он (несколько вопросов и подведение итогов). Как сделать проще тест пока не знаю!!! Ну это один вариант
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Qwerty47 ::: комментарий от 25.04.2010 | 20:31
Qwerty47 Сведущий (ур.9)
Очки: 2294
Город:
Тв. работ: 14
Рег: 23.04.2007 (4420)
Ответ для Dim0N 19.04.2010 | 14:51:
думаю потому, что в предыдущей строке не хватает точки с запятой
цитирую:
readln(c)


--------------------
"Человек - нечаянная, прекрасная, мучительная попытка природы, осознать самое себя" - В.М.ШУКШИН
Dim0N* ::: комментарий от 19.04.2010 | 14:51
  Дух (ур.1)
Очки: 16
Город: НижнийТагил
Тв. работ: 0
Рег: 19.04.2010 (16232)
Народ почему у меня выдает ошибку в строке 11.3

(Syntax error, "UNTIL" expected but "IF" found.)

помогите кто нить пожалуйста!!!

Объясните мне а то я тока начал и пока ваще не бум бум в этом!!!
Ant_on92* ::: комментарий от 15.06.2009 | 13:03
Ant_on92 Перспективный (ур.8)
Очки: 1538
Город: с.Тогур
Тв. работ: 2
Рег: 13.09.2006 (615)
А почему метки не объявлены?


--------------------
Hello, World!
Kane* ::: комментарий от 14.01.2009 | 05:58
Kane Перспективный (ур.8)
Очки: 1556
Город: Якутск
Тв. работ: 9
Рег: 09.10.2008 (8737)
Ответ для HawK210294 11.01.2009 | 21:24:
Дерзай. Юзай.


--------------------
Все что хорошо начинается кончается плохо. А что плохо начинается кончается еще хуже.
HawK210294* ::: комментарий от 11.01.2009 | 21:24
Хавк Последователь (ур.13)
Очки: 11694
Город: Новокузнецк
Тв. работ: 15
Рег: 13.03.2008 (7297)
Ответ для Kane 11.01.2009 | 08:48:



Согласен, просто по программе проходим Паскаль вот я и делаю, хоть чето


--------------------
Не говори, что знаешь, а знай, что говоришь
Kane* ::: комментарий от 11.01.2009 | 08:48
Kane Перспективный (ур.8)
Очки: 1556
Город: Якутск
Тв. работ: 9
Рег: 09.10.2008 (8737)
стока writeln('Loading ...'); целесообразней поставить на цикл а вместо цифры секунды поставить переменную. Надо все упрощать. А тебя все наоборот. А проверка зделана х**ново. Если бы у тебя была большая прога то ты бы запарился для каждого варианта прописывать вывод сообщения. Вобщем работай лучше. Лично я считаю делать тесты в консольном виде тупо. Черный экран. Постоянно тыркать по клаве... В общем учите Delphi. А кто совсем дерзкий Visual C++/


--------------------
Все что хорошо начинается кончается плохо. А что плохо начинается кончается еще хуже.
Blackcat92 ::: комментарий от 07.01.2009 | 23:34
Blackcat92 Сведущий (ур.9)
Очки: 2248
Город: Юрга
Тв. работ: 7
Рег: 10.09.2007 (5423)
Ответ для HawK210294 07.01.2009 | 18:42:

Блин, сяду как-нибудь, норм тоже самое кодить... )) Потом покажу листинге


--------------------
...уважаю Танюшку^^ и обожаю Олю^^)
HawK210294* ::: комментарий от 07.01.2009 | 18:42
Хавк Последователь (ур.13)
Очки: 11694
Город: Новокузнецк
Тв. работ: 15
Рег: 13.03.2008 (7297)
Ответ для Blackcat92 06.01.2009 | 14:32:



Может быть, не догадался я


--------------------
Не говори, что знаешь, а знай, что говоришь
Blackcat92 ::: комментарий от 06.01.2009 | 14:32
Blackcat92 Сведущий (ур.9)
Очки: 2248
Город: Юрга
Тв. работ: 7
Рег: 10.09.2007 (5423)
Нерациональное подведение итогов. Проще сделать через case .. of вот так (имхо):



case a of

правильный ответ : + баллы;

else неправильно



Да и вопросы\ответы проще брать из внешнего файла...


--------------------
...уважаю Танюшку^^ и обожаю Олю^^)