- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
program test;
uses crt;
label ww,1,2,ww2,ee,ee2,rr,rr2,tt,tt2,tt3,yy,yy2,yy3,uu,uu2,uu3,ii,ii2,ii3,ii4,oo,oo2,oo3,oo4,00,z,x,c,v;
var q,q2,w,e,r,t,w2,e2,r2,t2,t3,y,y2,y3,u,u2,u3,i,i2,i3,i4,o,o2,o3,o4:real;
begin
1:clrscr;
textcolor(4);
writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
textcolor(2);
writeln('+Если вы отвечаете "ДА",то нажимайте "1" ,а если "НЕТ",то "0"+ ');
textcolor(4);
writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
writeln;
textcolor(2);
writeln('Ответьте пожалуйста на следующие вопросы:');
writeln('*****************************************');
textcolor(8);
writeln('Вы помните всю таблицу умножения?');
read(q);
if q=1 then begin writeln('Вы давно были на рок-концерте?');read(w);goto ww end;
if q=0 then begin writeln('Вы играете в волейбол?');read(w2);goto ww2 end;
ww:if w=1 then begin writeln('Вы играете в волейбол?');read(w2);goto ww2 end;
if w=0 then begin writeln('Вы йог?');read(e);goto ee end;
ww2:if w2=1 then begin writeln('Вы летали на истребителе?');read(e2);goto ee2 end;
if w2=0 then begin writeln('Вы йог?');read(e);goto ee end;
ee:if e=1 then begin writeln('Вы играете в очко?');read(r2);goto rr2 end;
if e=0 then begin writeln('У вас часто болит голова?');read(r);goto rr end;
ee2:if e2=1 then begin writeln('У вас часто болит голова?');read(r);goto rr end;
if e2=0 then begin writeln('Вы играете в очко?');read(r2);goto rr2 end;
rr:if r=1 then begin writeln('У вас смуглая кожа?');read(t);goto tt end;
if r=0 then begin writeln('У вас есть загородный дом?');read(t2);goto tt2 end;
rr2:if r2=1 then begin writeln('Вы часто лежите в больнице?');read(t3);goto tt3 end;
if r2=0 then begin writeln('У вас часто болит голова?');read(r);goto rr end;
tt:if t=1 then begin writeln('У вас есть загородный дом?');read(t2);goto tt2 end;
if t=0 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end;
tt2:if t2=1 then begin writeln('Вы часто лежите в больнице?');read(t3);goto tt3 end;
if t2=0 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end;
tt3:if t3=1 then begin writeln('Телесериалы бывают интересными?');read(y3);goto yy3 end;
if t3=0 then begin writeln('Вы пишете роман?');read(y2);goto yy2 end;
yy:if y=1 then begin writeln('Вы знаете что такое "дежа вю"?');read(u2);goto uu2 end;
if y=0 then begin writeln('Вам всегда жалко бездомных собак?');read(u);goto uu end;
yy2:if y2=1 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end;
if y2=0 then begin writeln('Телесериалы бывают интересными?');read(y3);goto yy3 end;
yy3:if y3=1 then begin writeln('Вы знаете что такое "дежа вю"?');read(u2);goto uu2 end;
if y3=0 then begin writeln('В детстве вы играли в индейцев?');read(u3);goto uu3 end;
uu:if u=1 then begin writeln('Вы любите варёную рыбу?');read(i);goto ii end;
if u=0 then begin writeln('Вы знаете что такое ДЕЖА ВЮ ?');read(u2);goto uu2 end;
uu2:if u2=1 then begin writeln('Вы любите вареную рыбу?');read(i);goto ii end;
if u2=0 then begin writeln('В детстве вы играли в индейцев?');read(u3);goto uu3 end;
uu3:if u3=1 then begin writeln('У вас отключена горячая вода?');read(i4);goto ii4 end;
if u3=0 then begin writeln('Макароны вы едите с хлебом ?');read(i3);goto ii3 end;
ii:if i=1 then begin writeln('Вы могли бы рекламировать бельё?');read(i2);goto ii2 end;
if i=0 then begin writeln('Вы любите петь?');read(o);goto oo end;
ii2:if i2=1 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end;
if i2=0 then begin writeln('Вы хотите стать гражданином США ?');read(o2);goto oo2 end;
ii3:if i3=1 then begin writeln('Вам нравятся горы?');read(o4);goto oo4 end;
if i3=0 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end;
ii4:if i4=1 then begin writeln('Вам нравятся горы?');read(o4);goto oo4 end;
if i4=0 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end;
oo:if o=1 then goto z;
if o=0 then goto x;
oo2:if o2=1 then goto z;
if o2=0 then goto x;
oo3:if o3=1 then goto c;
if o3=0 then begin writeln('Вы хотите стать гражданином США ?');read(o2);goto oo2 end;
oo4:if o4=1 then goto v;
if o4=0 then goto c;
z:clrscr;
textcolor(5);
writeln(' ------ИТОГ: добрый ли вы человек?-------');
textcolor(14);
writeln('Вы случайно не мать Тереза?Бескрайняя ваша доброта...почти также как и глупость');
writeln('Мало настрадались по своей вине?То ли ещё будет.');goto 00;
x:clrscr;
textcolor(5);
writeln(' ------ИТОГ: добрый ли вы человек? -------');
textcolor(14);
writeln('Вы не безнадёжны.В детстве с вами явно занимались.Но годы делают своё дело-');
writeln('ещё немного и от ваших лучших качеств не останется и следа.');goto 00;
c:clrscr;
textcolor(5);
writeln(' -------ИТОГ: добрый ли вы человек?-------');
textcolor(14);
writeln('Брр... С вами близко лучше не знакомиться.Кошек вы конечно не мучаете ,но и на');
writeln('гуманиста абсолютно не тянете.Надо за собой следить');goto 00;
v:clrscr;
textcolor(5);
writeln(' ------ИТОГ: добрый ли вы человек? -------');
textcolor(14);
writeln('Бесцветность вашей натуры не оставляет места для разговоров о добре и зле');
writeln('В вас всего по немногу-может это и есть идеальный вариант?');goto 00;
00:writeln;
...
writeln('Если вы хотите ещё раз протестироваться нажмите "1",если нет "0"');
textcolor(4);
writeln('-----------------------------------------------------------------');
read(q2);
if q2=1 then goto 1;
if q2=0 then goto 2;
2:end.
Нашел свой старый код на паскале. Код был написан сразу после изучение конструкции if и goto. Было это в 10 классе, т.е. где-то лет 10 назад :))
Программа является реализацией точной копии теста из журнала "МК-бульвар" того времени
Follow us!