Advertisement
Guest User

Untitled

a guest
Jan 5th, 2016
461
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C# 26.72 KB | None | 0 0
  1.  
  2. void func190()
  3. {
  4.     CLS
  5.     PRINT AT 8,10;"ABAPИЯ!!!"
  6.     PRINT
  7.     GO TO 10
  8. }
  9.  
  10. void func210()
  11. {
  12.     Y = 0.01 * INT(5 + 47.5 * (1 + funcR()));
  13. }
  14.  
  15. void func310()
  16. {
  17.    PRINT " HE ПOHЯТHO.ПOBТOPИТE."    
  18. }
  19.  
  20. void func410()
  21. {
  22.     X = INPUT("ПO PУKAM?");
  23.     if (1 - X < 0)
  24.     {
  25.         func310()
  26.         GO TO 410
  27.     }
  28. }
  29.  
  30. void func510()
  31. {
  32.     while (true)
  33.     {
  34.         X = INPUT(" (ПPOДAЖA=0/ПOKУПKA=1): ");
  35.         Y = INPUT(" (ЧТO=N): ");
  36.         if (X - 1 <= 0)
  37.         {
  38.             if (5 - Y >= 0)
  39.             {
  40.                 return;
  41.             }
  42.         }
  43.         func310();
  44.     }
  45. }
  46.  
  47. void func810()
  48. {
  49.     810 INPUT " (УBOЛЬHEHИE=0/HAЁM=1): ";X
  50.     INPUT " (KOГO=N): ",Y
  51.     if (X-1 < = 0)
  52.     {
  53.         GO TO 830
  54.     }
  55.     820 func310()
  56.     GO TO 810
  57.     830 IF (5-Y)<0 THEN GO TO 820
  58. }
  59.  
  60. void func910()
  61. {
  62.     PRINT " УЧТИТE HA БУДУЩEE."
  63. }
  64.  
  65. void func1010()
  66. {
  67.     A = INT (A + 0.01)
  68.     PRINT " HAЛИЧHЫE CPEДCТBA  ";A
  69. }
  70.  
  71.  void func3610()
  72.  {
  73.     J = 0;
  74.     for (i = 1; i <= 5; i++)
  75.     {
  76.         J = J + C[3, i];
  77.     }
  78.  
  79.     if J < 0 THEN GO TO
  80.     if (J == 0)
  81.     {
  82.         return;
  83.     }
  84.    
  85.     PRINT "BЫ ИMEEТE:"
  86.    
  87.     var str = {
  88.         " KBAPТИPУ",
  89.         " MAШИHУ  ",
  90.         " BИЛЛУ   ",
  91.         " ЯXТУ    ",
  92.         " CAMOЛЁТ "
  93.     };
  94.    
  95.     for (i = 1; i <= 5; i++)
  96.     {
  97.         if ( -(1 - C[3, i]) ^ 2 < 0)
  98.         {
  99.             continue;
  100.         }
  101.        
  102.         PRINT str[i - 1];
  103.     }
  104. };
  105.  
  106. void func3710()
  107. {
  108.     J = 0;
  109.     for (i = 1; i <= 5; i++)
  110.     {
  111.         J = J + D[i];
  112.     }
  113.     IF J<0 THEN GO TO 190
  114.     IF J=0 THEN return;
  115.     PRINT "OПЛAЧИBAEТE:"
  116.        
  117.     var str = {
  118.         " MAKЛEPA",
  119.         " BPAЧA  ",
  120.         " AДBOKAТA   ",
  121.         " ДEТEKТИBA    ",
  122.         " ЛИЧHУЮ OXPAHУ "
  123.     };
  124.    
  125.     for (i = 1; i <= 5; i++)
  126.     {
  127.         if ( -(1 - D[i]) ^ 2 < 0)
  128.         {
  129.             continue;
  130.         }
  131.         PRINT str[i - 1];
  132.     }
  133. };
  134.  
  135. void func3810()
  136. {
  137.     J = 0;
  138.     for (i = 1; i <= 5; i++)
  139.     {
  140.         J = J + C[5, i];
  141.     }
  142.     IF J<0 THEN GO TO 190
  143.     IF J=0 THEN return;
  144.     PRINT "B BAШEM BЛAДEHИИ:"
  145.    
  146.     var str = {
  147.         " БAP",
  148.         " PECТOPAH",
  149.         " MAГAЗИH",
  150.         " OТEЛЬ",
  151.         " 3ABOД"
  152.     };
  153.    
  154.     for (i = 1; i <= 5; i++)
  155.     {
  156.         J = J + 100;
  157.         if ( -(1 - C[5, i]) ^ 2 < 0)
  158.         {
  159.             continue;
  160.         }
  161.         PRINT str[i - 1];
  162.     }
  163. }
  164.  
  165. void func3901()
  166. {
  167.     PRINT "B AKЦИЯX      ";INT (P)
  168.     PRINT "CЧЁТ B БAHKE  ";INT (H)  
  169.     PRINT "HEДBИЖИMOCТЬ  ";INT (C)
  170.     PRINT "ДOXOДЫ        ";INT (V)
  171.     PRINT "PACXOДЫ       ";INT (U)
  172.     IF K<=0 THEN GO TO 3910
  173.     PRINT "KPEДИТ        ";INT (K+K*K1)  
  174.     PRINT "BECЬ KAПИТAЛ  ";INT (A+P+H+C+V-U)
  175. }
  176.  
  177. void func4010()
  178. {
  179.     PRINT "BAM BCЁ ЯCHO?"
  180. }
  181.  
  182. // в сущности функция задержки
  183. void func4110()
  184. {
  185.     for (f = 1; f <= 40; f++)
  186.     {
  187.         static float FF;
  188.         FF = std::sqrt(100);
  189.     }
  190. }
  191.  
  192. void func4710()
  193. {
  194.     if (-NS < 0)
  195.     {
  196.         return;
  197.     }
  198.    
  199.     if (S < 0)
  200.     {
  201.         PRINT
  202.         PRINT " BAC HAДУЛИ CO CCУДOЙ."
  203.         PRINT "ПOТEPЯHO-";S;"."
  204.         PRINT
  205.         PRINT
  206.         S = 0;
  207.         return;
  208.     }
  209.    
  210.     if (S == 0)
  211.     {
  212.         return;
  213.     }
  214.    
  215.     PRINT
  216.     PRINT " BЫ УДAЧHO CCУДИЛИ ДEHЬГИ."
  217.     PRINT " ПOЛУЧИТE CBOИ ";S;" И "
  218.     PRINT "БAPЫШ ";INT (S * S1);"."
  219.     PRINT
  220.     PRINT
  221.     A = A + S * (1 + S1)
  222.     S = 0;
  223. }
  224.  
  225. void func4810()
  226. {
  227.     IF (-NK)<0 THEN GO TO return;
  228.     4812 IF K<=0 THEN GO TO 4880
  229.     4820 X=K+K*K1
  230.     PRINT
  231.     PRINT " C BAC УДEPЖAЛИ KPEДИТ "
  232.     PRINT "И %%
  233.     ";INT (X);"."
  234.     PRINT
  235.     PRINT
  236.     func7110();
  237.     4880 K=0
  238. }
  239.  
  240. void func4910()
  241. {
  242.  func210();
  243.  IF (Y-.2)<0 THEN GO TO 4930
  244. }
  245.  
  246. void func5101()
  247. {
  248.     IF (N4 - N1) <= 0 THEN return;
  249.     N1 = N1 + J;
  250.     IF (N1 - N4) >= 0 THEN J = J + N4 - N1;
  251.    
  252.     J = J / N4;
  253.     func5210();
  254.     UU=500*(2+B^2+funcR())
  255.     VV=0
  256.     FOR W=1 TO 5
  257.         UU=UU+.45*C(3,W)*Q(3,W)+D(W)*E(W)
  258.         VV=VV+C(5,W)*W(W)
  259.     NEXT W
  260.     U=U+J*UU
  261.     V=V+J*VV
  262.     VV=LN (1+.02*B)
  263.     H=H*EXP (J*VV)
  264. }
  265.  
  266. void func5210()
  267. {
  268.     NK=NK-J
  269.     NS=NS-J
  270.     FOR W=1 TO 5
  271.         G(W)=G(W)-J
  272.     NEXT W
  273. }
  274.  
  275. void func6110()
  276. {
  277.     func6310();
  278.     PRINT " ";Q(M,I);
  279.     func6410();
  280.     PRINT
  281. }
  282.  
  283. void func6210()
  284. {
  285.     func6310();
  286.     PRINT " ";S(M,I);
  287.     func6410();
  288.     PRINT
  289. }
  290.  
  291. void func6310()
  292. {
  293.     PRINT I;" ";
  294.     GO SUB II
  295.     PRINT "   ";
  296. }
  297.  
  298. void func6410()
  299. {
  300.     IF (M-4)>=0 THEN PRINT "    ";INT (W(I));
  301. }
  302.  
  303. void func7110()
  304. {
  305.     A = A - X;
  306.     if (A < 0)
  307.     {
  308.         GO TO 7120
  309.     }
  310. }
  311.  
  312. void func9910()
  313. {
  314.     func210();
  315.     X = INT((2 + 5 * Y) * 20 * 5 ^ I);
  316.     Z = INT(0.7 * X * (Y + 0.3));
  317. }
  318.  
  319. float funcR()
  320. {
  321.     return -1.0 + 2.0 * RND;
  322. }
  323.  
  324. 10 BORDER 7
  325.  PAPER 7
  326.  INK 9
  327.  POKE 23624,56
  328.  CLS
  329.  BEEP 1,1
  330. 20 GO TO 100
  331.  
  332. func4110();
  333.  
  334. XX = INPUT(" ЖEЛAEТE ЛИ EЩЁ PA3 ПOПPOБOBAТЬ CBOИ CИЛЫ? ");
  335.  
  336. 52 IF XX=1 THEN CLS
  337.  PRINT AT 8,6;"   УДAЧИ BAM!!!"
  338.  func4110();
  339.  CLS
  340.  GO TO 100
  341. 54 CLS
  342.  PRINT AT 8,6;"ДO CKOPOГO CBИДAHИЯ!!!"
  343.  func4110();
  344.  NEW
  345. 100 POKE 23609,100
  346. // ПPEЗИДEHТ
  347. // 34014 БAЙТ
  348.  
  349.  float D[10];
  350.  float C[10, 10];
  351.  float O[10];
  352.  float D[10];
  353.  float Т[10];
  354.  float I[10];
  355.  float L[10];
  356.  float G[10];
  357.  float Z[10];
  358.  float P[10];
  359.  float R[10];
  360.  float S[10, 10];
  361.  float Q[10, 10];
  362.  float W[10];
  363.  float E[10];
  364.  
  365. 107 PRINT
  366.  PRINT " HA BOПPOCЫ OТBEЧAТЬ:HEТ=0/ДA=1."
  367.  PRINT
  368.  PRINT
  369. 110 GO TO 4501
  370.  
  371.  
  372.  
  373.  
  374.  
  375. 610 PRINT
  376.  PRINT "   National Bank";
  377. 620 PRINT "-БAHKPOТ!"
  378.  PRINT
  379.  PRINT
  380.  RETURN
  381. 710 INPUT "EЩЁ OДHA CДEЛKA?  ";X
  382.  RETURN
  383.  
  384.  
  385.  
  386. 920 PRINT
  387.  PRINT " УCBOИЛИ?"
  388.  RETURN
  389.  
  390.  
  391.  
  392. 2110 PRINT "BЫ MOЖEТE";
  393.  RETURN
  394. 2120 PRINT " KУПИТЬ  ";
  395.  RETURN
  396. 2210 PRINT " ПPOДAТЬ ";
  397.  RETURN
  398. 2310 PRINT " ГOДOBOЙ"
  399.  RETURN
  400. 2312 PRINT "                       ДOXOД";
  401.  RETURN
  402. 2410 PRINT "  CТOИMOCТЬ";
  403.  RETURN
  404. 2510 PRINT "      ЦEHA  ";
  405.  RETURN
  406.  
  407. 3110 PRINT " БИЗHECMEH       "
  408.  RETURN
  409. 3210 PRINT " ЛИДEP ПPOФCOЮЗA ";
  410.  RETURN
  411. 3310 PRINT " ШEPИФ           "
  412.  RETURN
  413. 3410 PRINT " CEHAТOP         "
  414.  RETURN
  415. 3510 PRINT " ПPEЗИДEHТ       "
  416.  RETURN
  417.  
  418.  
  419.  
  420. //
  421.  
  422.  
  423.  
  424.  
  425.  4501 PRINT
  426.  PRINT
  427.  PRINT
  428.  PRINT
  429.  PRINT "          ПPEЗИДEHТ "
  430.  PRINT
  431.  PRINT
  432.  PRINT
  433.  PRINT
  434.  PRINT
  435.  PRINT
  436.  PRINT
  437.  N = 0;
  438.  H = 10 ^ 6;
  439.  B = 1;
  440.  K = 0;
  441.  S = 0;
  442.  C = 0;
  443.  NS = 0;
  444.  NK = 0;
  445.  
  446.  do
  447.  {
  448.     L = INPUT("   BAШ KЛACC (1-3)   ");
  449.  }
  450.  while (3 - L < 0)
  451.  
  452.  PRINT
  453.  PRINT
  454.  PRINT
  455.  PRINT " ПOЗДPABЛЯEM C ПPИБЫТИEM B HAШУ CТPAHУ,";
  456.  PRINT "ГДE KAЖДЫЙ MOЖEТ CТAТЬ   ПPEЗИДEHТOM!!!"
  457.  PRINT
  458.  func4110();
  459.  CLS
  460.  PRINT " MOЖHO ДAЖE ПPEДCТABИТЬ,ЧТO..."
  461.  for (i = 1; i <= 5; i++)
  462.  {
  463.     C[3, i] = 1;
  464.     C(5, i) = 1;
  465.     D[i] = 1;
  466.  }
  467.  
  468.  func3610();
  469.  func3710();
  470.  func3810();
  471.  
  472. 4509 PRINT "И CЧЁТ B БAHKE ";H;
  473.  
  474.  func4110();
  475.  
  476.  PRINT ","
  477. 4510 PRINT "...HO ПOKA ЭТO MEЧТЫ."
  478.  PRINT "     PEAЛИЗУЙТE ИX!!!"
  479. 4511
  480.  float P[10];
  481.  float G[10];
  482. 4512
  483.  float H = 0;
  484.  
  485. for (i = 1; i <= 5; i++)
  486. {
  487.     C[3, i] = 0;
  488.     C[5, i] = 0;
  489.     D[i] = 0;
  490.     P[i] = 0;
  491.     G[i] = 0;
  492. }
  493.  
  494. 4513 INPUT " KAKOЙ CEЙЧAC ГOД? ";NN
  495. 4514 INPUT "BAШ BOЗPACТ?",N2
  496.  IF (N2-61)<0 THEN GO TO 4516
  497. 4515 CLS
  498.  PRINT AT 8,0;"     B MУMИЯX HE HУЖДAEMCЯ!"
  499.  GO TO 50
  500. 4516 IF (17-N2)<0 THEN GO TO 4518
  501. 4517 CLS
  502.  PRINT AT 8,0;"  MЛAДEHЦAM У HAC ДEЛAТЬ HEЧEГO!"
  503.  GO TO 50
  504. 4518 func210();
  505.  N3=60+20*Y
  506.  func210();
  507.  X=1500*L*(1+Y)
  508. 4520 INPUT "CKOЛЬKO ИMEEТE HAЛИЧHЫMИ? ";Y
  509.  IF (Y-X)<=0 THEN GO TO 4522
  510. 4521 Y=X*2/3
  511.  PRINT
  512.  PRINT "       OТKУДA?!"
  513.  PRINT " ПO HAШИM ДAHHЫM У BAC ";Y
  514. 4522 A=Y
  515.  K = 0;
  516.  S = 0;
  517.  P = 0;
  518. 4523 B3 = 0;
  519.  func210();
  520.  N4=L+(5-L)*Y
  521.  N1 = 0;
  522.  U = 0;
  523.  V = 0.2;
  524.  HH = 0;
  525. 4528
  526. for (i = 1; i <= 5; i++)
  527. {
  528.     func9910();
  529.     S[3, i] = X;
  530.     Q[3, i] = Z;
  531. }
  532.    
  533. for (i = 1; i <= 5; i++)
  534.     func9910();
  535.     S[5, i] = X;
  536.     Q[5, i] = Z;
  537.     W[i] = Z * (Y - 0.3);
  538. }
  539. 4532
  540. for (i = 1; i <= 5; i++)
  541. {
  542.     func210();
  543.     E[i]= 4500 * Y + 2000 * i;
  544. }
  545. 4536 func1010();
  546. 4540 PRINT "    ЧТO BAC ИHТEPECУEТ?"
  547.  PRINT " 1-ФИHAHCOBOE ПOЛOЖEHИE"
  548.  PRINT " 2-OБЩECТBEHHOE ПOЛOЖEHИE"
  549.  PRINT " 3-ЛИЧHOE ИMУЩECТBO"
  550.  PRINT " 4-ПOДЧИHЁHHЫE"
  551.  PRINT " 5-БИЗHEC"
  552.  PRINT " 6-БИPЖA"
  553.  PRINT " 7-БAHK"
  554.  PRINT " 8-PAЗBЛEЧEHИЯ"
  555.  PRINT
  556.  PRINT
  557. 4544 INPUT "(N)",M
  558.  M=INT (M)
  559.  IF M<=0 THEN GO TO 4536
  560. 4545 IF (M-9)>=0 THEN func310();
  561.  GO TO 4544
  562. 4546 I=4501+500*M
  563.  GO TO I
  564.  
  565.  
  566.  
  567. 4930 func210();
  568.  Y=INT (10*Y)
  569.  IF Y<=0 THEN GO TO 4920
  570. 4932 IF (5-Y)<0 THEN GO TO 4920
  571. 4934 IF (C(3,Y))<=0 THEN GO TO 4920
  572. 4936 X=Q(3,Y)
  573.  J=4930+10*Y
  574.  GO SUB J
  575.  IF (Y-5)<0 THEN GO TO 4990
  576. 4937 IF (Y-5)=0 THEN GO TO 4995
  577. 4940 PRINT
  578.  PRINT " BAШA KBAPТИPA CГOPEЛA."
  579.  RETURN
  580.  
  581. 4950 PRINT
  582.  PRINT " BЫ ПOПAЛИ B ABТOKAТACТPOФУ."
  583.  PRINT "BЫБPOCТE OCТAТKИ CBOEГO ABТOMO-"
  584.  PRINT "БИЛЯ!"
  585.  RETURN
  586. 4960 PRINT
  587.  PRINT " CИOHИCТЫ BЗOPBAЛИ BAШУ BИЛЛУ!"
  588.  RETURN
  589. 4970 PRINT
  590.  PRINT " ЭKCТPEMИCТЫ ЗAТOПИЛИ BAШУ ЯXТУ!"
  591.  RETURN
  592. 4980 PRINT
  593.  PRINT
  594.  PRINT " BЫ PAЗБИЛИCЬ HA CBOЁM CAMOЛЁТE."
  595.  RETURN
  596. 4990 PRINT "HAHECЁH УЩEPБ ";INT (X);"."
  597. 4992 C(3,Y)=0
  598.  Z=L(Y)
  599.  IF Z<=0 THEN GO TO 4920
  600. 4994 PRINT "BAM BЫПЛAЧИBAEТCЯ CТPAXOB-"
  601.  PRINT "KA:";INT (Z);"."
  602.  PRINT
  603.  PRINT
  604.  V=V+Z
  605.  L(Y)=0
  606.  RETURN
  607. 4995 GO TO 4110
  608.  CLS
  609.  PRINT AT 8,0;" ЛEТAЙТE CAMOЛЁТAMИ <AЭPOФЛOТA>!"
  610.  PRINT
  611. 4996 PRINT
  612.  PRINT
  613.  PRINT "         ГOCПOДA!"
  614.  PRINT " БИЗHEC ПOHЁC HEBOCПOЛHИMУЮ "
  615.  PRINT "УТPAТУ.";
  616. 4997 PRINT " HA ";N2;" ГOДУ OБOPBAЛACЬ"
  617.  PRINT "ЖИЗHЬ HAШEГO KOЛЛEГИ."
  618. 4998 PRINT
  619.  PRINT "    ПPИMИТE COБOЛEЗHOBAHИЯ."
  620.  PRINT
  621.  GO TO 50
  622. 5001 PRINT
  623.  PRINT
  624.  PRINT
  625.  PRINT "           ГOД ";NN+N
  626.  func1010();
  627. 5003 P=0
  628.  C=0
  629. 5005 FOR I=1 TO 5
  630.  P=P+P(I)*R(I)
  631.  C=C+C(3,I)*Q(3,I)+C(5,I)*Q(5,I)
  632.  NEXT I
  633. 5007 J=.1
  634.  func5101();
  635.  func3901();
  636.  PRINT
  637.  GO TO 5010
  638. 5009 J=.3
  639.  func5101();
  640.  GO TO 5012
  641. 5010 IF A<=0 THEN GO TO 5009
  642. 5012 func4710();
  643.  func4810();
  644.  func4910();
  645.  IF (N1-N4)<0 THEN GO TO 4540
  646. 5014 PRINT
  647.  PRINT
  648.  PRINT "    ЗAKOHЧИЛCЯ ";NN+N;" ГOД."
  649.  PRINT
  650.  PRINT " ПOДBEДЁM ИТOГИ:"
  651.  PRINT
  652. 5016 N=N+1
  653.  N2=N2+1
  654.  P=0
  655.  C=0
  656.  FOR I=1 TO 5
  657.  P=P+P(I)*R(I)
  658.  C=C+C(3,I)*Q(3,I)+C(5,I)*Q(5,I)
  659.  NEXT I
  660. 5018 func5810();
  661.  PRINT
  662.  func3610();
  663.  func3710();
  664.  func3810();
  665. 5019 FOR I=1 TO 5
  666.  U=U+.5*L(I)
  667.  V=V+Z(I)*P(I)
  668.  IF (-G(I))<0 THEN GO TO 5021
  669. 5020 L(I)=0
  670. 5021 NEXT I
  671. 5022 func1010();
  672.  func3901();
  673.  INPUT " OПЛAЧИBAEM PACXOДЫ? ";Z
  674. 5023 IF (C(3,1)+C(3,3))<0 THEN GO TO 190
  675. 5024 IF (C(3,1)+C(3,3))>0 THEN GO TO 5030
  676. 5025 func210();
  677.  X=1000+20*INT (Y*ABS (A)/19)
  678.  
  679.  A=A-X
  680. 5026 PRINT
  681.  PRINT " ЗA БPOДЯЖHИЧECТBO-ШТPAФ:";INT (X);"."
  682.  func4010();
  683. 5030 IF (1-Z)<=0 THEN GO TO 5040
  684. 5031 func210();
  685.  X=1000+25*INT (Y*ABS (A)/23)
  686.  A=A-X
  687. 5032 PRINT
  688.  PRINT " ШТPAФ HAЛOГOBOГO УПPABЛE-"
  689.  PRINT "HИЯ:";INT (X);" ЗA ЖMOТHИЧECТBO!"
  690. 5040 A=A+V-U
  691. 5042 IF A<0 THEN GO TO 5050
  692. 5043 IF (N3-N2)<0 THEN GO TO 4996
  693. 5044 PRINT
  694.  PRINT
  695.  PRINT "   HACТУПИЛ ";NN+N;" ГOД!"
  696.  PRINT
  697. 5048 GO TO 4523
  698. 5050 PRINT
  699.  PRINT " У BAC ДEФИЦИТ CPEДCТB
  700. ";-INT (A);"."
  701. 5051 IF H<=0 THEN GO TO 5053
  702. 5052 func8211();
  703.  GO TO 5042
  704. 5053 IF P<=0 THEN GO TO 5060
  705. 5054 func210();
  706.  X=P*Y
  707.  A=A+X
  708.  P=0
  709.  FOR I=1 TO 5
  710.  P(I)=0
  711.  NEXT I
  712. 5055 PRINT
  713.  PRINT " BAШИ AKЦИИ PACПPOДAHЫ HA "
  714.  PRINT "CУMMУ:";INT (X);"."
  715. 5056 IF A<0 THEN GO TO 5060
  716. 5057 GO TO 5043
  717. 5060 IF C<=0 THEN GO TO 5070
  718. 5061 func210();
  719.  X=C*Y
  720.  A=A+X
  721.  C=0
  722. 5062 PRINT
  723.  PRINT " ИMУЩECТBO ПOШЛO CMOЛOТKA."
  724.  PRINT "BЫPУЧEHO
  725. ";INT (X);"."
  726. 5064 GO SUB 6610
  727.  FOR I=1 TO 5
  728.  C(3,I)=0
  729.  C(5,I)=0
  730.  NEXT I
  731. 5066 GO TO 5056
  732. 5070 GO SUB 6610
  733.  GO SUB 4110
  734.  X=1+INT (-.002*A)
  735.  IF (15-X)<0 THEN GO TO 5080
  736. 5071 N2=N2+X
  737.  B=1
  738. 5072 PRINT
  739.  PRINT
  740.  PRINT " ЗA ДOЛГИ BЫ ПEPEE3ЖAEТE HA KA-"
  741.  PRINT "3ЁHHУЮ ";
  742. 5073 PRINT "KBAPТИPУ B Fort Leveck "
  743.  PRINT "CPOKOM HA ";INT (X);" ЛEТ."
  744.  PRINT " ПOCИДИM?"
  745. 5074 FOR I=1 TO X
  746.  PRINT "    ГOД ";NN+N
  747.  N=N+1
  748.  N1=0
  749.  J=N4
  750.  func5101();
  751.  GO SUB 4110
  752.  NEXT I
  753. 5075 func210();
  754.  A=1000*L*(1+Y)
  755. 5076 PRINT
  756.  PRINT " BAM BЫДAЛИ ПOДЬЁMHЫE";INT (A);"."
  757. 5077 PRINT
  758.  PRINT " ПOЛУЧИЛИ УPOK?"
  759.  GO TO 5043
  760. 5080 PRINT
  761.  PRINT
  762.  PRINT
  763.  PRINT " 3A OГPOMHЫE ДOЛГИ BЫ ПPИГOBOPEHЫ K BЫCШEЙ MEPE..."
  764.  GO TO 4996
  765.  
  766.  
  767. 5301 IF (-(S*S))<0 THEN GO TO 5350
  768. 5330 PRINT " 4-ДAТЬ CCУДУ"
  769. 5350 RETURN
  770. 5501 J=.3
  771.  func5101();
  772.  IF B3<0 THEN GO TO 190
  773. 5502 IF B3=0 THEN GO TO 5510
  774. 5504 PRINT
  775.  PRINT " У BAC CKЛEPO3."
  776.  GO SUB 4110
  777.  GO TO 5010
  778. 5510 func5810();
  779.  B3=1
  780.  IF (2*INT (.5*N+.1)-N)<0 THEN GO TO 5710
  781. 5512 J=.7
  782.  func5101();
  783.  func1010();
  784.  I=B+1
  785.  GO SUB 9910
  786.  I=I*100
  787.  Y=0
  788. 5514 FOR J=1 TO 5
  789.  Y=Y+.5*(C(3,J)+C(5,J))+2*D(J)
  790.  NEXT J
  791. 5516 J=Y/(5*I/100)
  792.  IF (J-1)<0 THEN GO TO 5520
  793. 5518 J=1
  794. 5520 PRINT " ПPИMИТE УЧACТИE B BЫБOPAX."
  795. 5522 II=3010+I
  796.  PRINT "ИЗБИPAEТCЯ ";
  797.  GO SUB II
  798.  IF (2-I/100)<0 THEN GO TO 5524
  799. 5523 PRINT "MУ- COPЩИKOB."
  800. 5524 PRINT "KAMПAHИЯ OБOЙДЁТCЯ B ";X;"."
  801.  PRINT " BEPOЯТHOCТЬ УCПEXA ";INT (100*J);"%"
  802. 5528 INPUT " УЧABCТBУEТE B BЫБOPAX? ";Y
  803.  IF (Y-1)<0 THEN GO TO 5610
  804. 5530 func210();
  805.  IF (X-A-H)<0 THEN GO TO 5540
  806. 5532 GO SUB 7310
  807.  GO TO 7210
  808. 5540 func7110();
  809.  IF (J-Y)<0 THEN GO TO 5550
  810. 5542 PRINT
  811.  PRINT "       ПOЗДPABЛЯEM BAC!"
  812.  PRINT "      ТEПEPЬ BЫ ";
  813.  GO SUB II
  814.  PRINT
  815.  B=I/100
  816.  IF (B-5)<0 THEN GO TO 7220
  817. 5544 PRINT
  818.  PRINT
  819.  PRINT
  820.  PRINT "   BЫ ДOCТИГЛИ HEBO3MOЖHOГO!!!"
  821.  PRINT
  822.  GO TO 50
  823. 5550 PRINT
  824.  PRINT " BЫ HAБPAЛИ ТOЛЬKO ";INT (50*(1-Y));"% ГOЛOCOB."
  825. 5610 PRINT
  826.  PRINT "CЛEДУЮЩИE BЫБOPЫ ЧEPE3 ДBA ГOДA."
  827.  GO TO 7220
  828. 5710 PRINT
  829.  PRINT "         B ЭТOM ГOДУ "
  830.  PRINT "      BЫБOPЫ HE ПPOBOДЯТCЯ."
  831.  GO TO 7210
  832. 5810 PRINT "        B HACТOЯЩEE BPEMЯ"
  833.  PRINT "         BЫ ";
  834.  I=3010+B*100
  835.  GO SUB I
  836.  RETURN
  837. 6001 JJ=0
  838. 6002 J=1
  839.  func5101();
  840. 6003 func1010();
  841.  J=0
  842.  FOR I=1 TO 5
  843.  J=J+C(M,I)
  844.  NEXT I
  845. 6004 IF J<0 THEN GO TO 190
  846. 6005 IF J=0 THEN GO TO 6014
  847. 6006 GO SUB 2110
  848.  PRINT
  849.  GO SUB 2210
  850.  GO SUB 2410
  851.  IF (M-4)>=0 THEN GO SUB 2310
  852.  GO SUB 2312
  853. 6007 PRINT
  854.  II=1010+JJ
  855. 6008 FOR I=1 TO 5
  856.  II=II+100
  857.  IF (C(M,I)-1)>=0 THEN func6110();
  858. 6010 NEXT I
  859. 6011 IF (4-J)<0 THEN GO TO 6030
  860. 6012 PRINT
  861. 6014 IF (4-J)<0 THEN GO TO 6030
  862. 6015 GO SUB 2110
  863.  PRINT
  864.  GO SUB 2120
  865.  GO SUB 2510
  866.  IF (M-4)>=0 THEN GO SUB 2310
  867.  GO SUB 2312
  868. 6016 PRINT
  869.  II=1010+JJ
  870.  FOR I=1 TO 5
  871.  II=II+100
  872.  IF (-C(M,I))>=0 THEN func6210();
  873. 6020 NEXT I
  874. 6021 IF (4-M)>=0 THEN PRINT
  875.  PRINT " PACXOДЫ HA COДEPЖAHИE
  876. 45% CТOИMOCТИ B ГOД."
  877. 6030 func510();
  878.  IF X<0 THEN GO TO 5010
  879. 6031 IF X=0 THEN GO TO 6050
  880. 6032 IF (C(M,Y))<0 THEN GO TO 190
  881. 6033 IF (C(M,Y))=0 THEN GO TO 6040
  882. 6034 PRINT
  883.  PRINT
  884.  PRINT " HE ГЛУПИТE ";
  885.  II=3010+B*100
  886.  GO SUB II
  887.  GO TO 7210
  888. 6040 IF (A-S(M,Y))<0 THEN GO TO 7230
  889. 6042 A=A-S(M,Y)
  890.  C(M,Y)=1
  891. 6044 GO SUB 710
  892.  IF (X-1)<0 THEN GO TO 7220
  893. 6045 IF (X-1)=0 THEN GO TO 6003
  894. 6046 func310();
  895.  GO TO 6044
  896. 6050 IF Y<0 THEN GO TO 5010
  897. 6051 IF Y=0 THEN GO TO 7220
  898. 6052 IF (C(M,Y)-1)<0 THEN GO TO 7240
  899. 6054 A=A+Q(M,Y)
  900.  C(M,Y)=0
  901.  GO TO 6044
  902.  
  903. 6501 J=1
  904.  func5101();
  905. 6502 func1010();
  906. 6503 IF (D(1)+D(2)+D(3)+D(4))<0 THEN GO TO 190
  907. 6504 IF (D(1)+D(2)+D(3)+D(4))=0 THEN GO TO 6520
  908. 6505 GO SUB 2110
  909.  PRINT
  910.  PRINT "   УBOЛИТЬ,3AПЛAТИB HEУCТOЙKУ "
  911. 6506 II=2510
  912.  FOR I=1 TO 5
  913.  II=II+100
  914.  IF (D(I))>0 THEN PRINT I;"  ";
  915.  GO SUB II
  916.  PRINT "   ";2*E(I)
  917. 6508 IF D(I)<0 THEN GO TO 190
  918. 6509 IF D(I)=0 THEN GO TO 6510
  919. 6510 NEXT I
  920. 6520 IF (5-D(1)-D(2)-D(3)-D(4)-D(5))<0 THEN GO TO 190
  921. 6521 IF (5-D(1)-D(2)-D(3)-D(4)-D(5))=0 THEN GO TO 6540
  922. 6525 PRINT
  923.  GO SUB 2110
  924.  PRINT " HAHЯТЬ,УПЛAТИB B ГOД "
  925. 6527 II=2510
  926.  FOR I=1 TO 5
  927.  II=II+100
  928.  IF (-D(I))>=0 THEN PRINT I;"  ";
  929.  GO SUB II
  930.  PRINT "   ";E(I)
  931. 6530 NEXT I
  932. 6540 func810();
  933.  IF X<0 THEN GO TO 6540
  934. 6541 IF X=0 THEN GO TO 6560
  935. 6542 IF Y<=0 THEN GO TO 6590
  936. 6544 IF (1-D(Y))<0 THEN GO TO 190
  937. 6545 IF (1-D(Y))=0 THEN GO TO 6034
  938. 6546 J=INT ((1-N1/N4)*E(Y)*.01)
  939.  IF J<=0 THEN GO TO 6550
  940. 6547 J=50*J
  941.  PRINT
  942.  PRINT " ABAHC ";J
  943.  IF (A-J)<0 THEN GO TO 6580
  944. 6548 INPUT " BЫПЛAЧИBAEТE? ";X
  945.  IF (X-1)<>0 THEN GO TO 6592
  946. 6549 A=A-J
  947.  E(Y)=E(Y)-J
  948. 6550 D(Y)=1
  949.  PRINT
  950.  PRINT " ДOГOBOP OФOPMЛEH."
  951. 6552 GO SUB 710
  952.  IF (X-1)<>0 THEN GO TO 7220
  953. 6553 IF (X-1)=0 THEN GO TO 6502
  954. 6560 IF Y<0 THEN GO TO 6590
  955. 6561 IF Y=0 THEN GO TO 7220
  956. 6562 IF (D(Y))<0 THEN GO TO 190
  957. 6563 IF D(Y)=0 THEN GO TO 6034
  958. 6564 A=A-2*E(Y)
  959.  D(Y)=0
  960.  PRINT
  961.  PRINT " ДOГOBOP PACТOPГHУТ."
  962. 6566 IF (-A)<0 THEN GO TO 6552
  963. 6567 IF (-A)=0 THEN GO TO 7220
  964. 6568 U=U-A
  965.  A=0
  966.  GO TO 7220
  967. 6580 PRINT
  968.  GO SUB 7310
  969.  GO TO 7210
  970. 6590 PRINT
  971.  PRINT " BЫ PEXHУЛИCЬ?"
  972.  GO TO 6502
  973. 6592 PRINT
  974.  PRINT " KAK XOТИТE,ДEЛO BAШE!"
  975.  GO TO 7220
  976.  
  977. void func6610()
  978. {
  979.     IF (D(1)+D(2)+D(3)+D(4)+D(5))<0 THEN GO TO 190
  980.     IF (D(1)+D(2)+D(3)+D(4)+D(5))=0 THEN return
  981.     FOR I=1 TO 5
  982.         D(I)=0
  983.     NEXT I
  984.     PRINT
  985.     PRINT " ПOДЧИHЁHHЫE BAC БPOCИЛИ!"
  986. }
  987.  
  988. void func6702()
  989. {
  990.     func210();
  991.     Y = INT(10 * Y);
  992.     if(-Y < 0)
  993.     {
  994.         GO TO 6712;
  995.     }      
  996. }
  997.  
  998. 6712 IF (5-Y)<0 THEN GO TO 6710
  999. 6713 IF (5-Y)=0 THEN GO TO 6785
  1000. 6714 IF (-D(Y))<0 THEN GO TO 6710
  1001. 6716 J=6700+20*Y
  1002.  func210();
  1003.  X=(A+200)*Y
  1004.  GO TO J
  1005. 6720 IF P<=0 THEN GO TO 6738
  1006. 6722 PRINT
  1007.  PRINT "BЫ HEПPABИЛЬHO OФOPMЛЯЛИ CДEЛKИ."
  1008. 6724 PRINT "УБЫТOK
  1009. ";INT (X);"."
  1010.  PRINT
  1011.  PRINT " 3ABEДИТE MAKЛEPA."
  1012.  func7110();
  1013. 6738 RETURN
  1014. 6740 PRINT
  1015.  PRINT " BЫ 3AБЫBAEТE O 3ДOPOBЬE."
  1016.  X=X+400
  1017. 6742 PRINT "ПPEБЫBAHИE B БOЛЬHИЦE OБOШЛOCЬ BAM B ";INT (X)
  1018.  func7110();
  1019.  RETURN
  1020. 6760 PRINT
  1021.  PRINT " ФИPMA <IBM> ПPEДЬЯBИЛA BAM ИCK B ";INT (X);"."
  1022.  Y=15*INT (X*.02)
  1023. 6762 PRINT " УCЛУГИ AДBOKAТA OБOЙДУТCЯ B ";INT (Y);"."
  1024. 6764 PRINT "BEPOЯТHOCТЬ УCПEXA 65%"
  1025.  INPUT " HAHИMAEТE? ";Z
  1026. 6766 IF (-Z)<0 THEN GO TO 6770
  1027. 6767 PRINT
  1028.  PRINT " ИCK <IBM> K BAM УДOBЛEТBOPЁH."
  1029.  PRINT "BЫ ПOТEPЯЛИ ";INT (X);"."
  1030.  func7110();
  1031.  RETURN
  1032. 6770 IF (.65-funcR())<0 THEN GO TO 6775
  1033. 6771 PRINT
  1034.  PRINT " <IBM> BЫПЛAЧИBAEТ HEУCТOЙ-"
  1035.  PRINT "KУ ";INT (2*Y);"."
  1036.  V=V+Y
  1037. 6772 PRINT
  1038.  PRINT " ИMEЙТE CBOEГO AДBOKAТA!"
  1039.  RETURN
  1040. 6775 PRINT
  1041.  PRINT " УBЫ,ДEЛO ПPOИГPAHO."
  1042.  U = U + X;
  1043.  X = Y;
  1044.  func7110();
  1045.  GO TO 6772
  1046. 6780 PRINT
  1047.  PRINT " BAC ШAHТAЖИPУЮТ,BЫMOГAЯ ";INT (X);"."
  1048.  func7110();
  1049. 6782 PRINT "OБPAЩAЙТECЬ K УCЛУГAM CЫCKHOГO "
  1050.  PRINT "БЮPO."
  1051. 6784 PRINT " ПPИДЁТCЯ ПЛAТИТЬ!"
  1052.  RETURN
  1053. 6785 IF (-D(5))<0 THEN GO TO 6710
  1054. 6786 PRINT
  1055.  PRINT " У BAC УKPAЛИ BCE ЦEHHЫE БУMAГИ."
  1056.  func210();
  1057. 6787 PRINT "УБЫТOK ";INT (X)
  1058.  I=10*INT (45*Y+80+.03*X)
  1059. 6788 PRINT " CЫCKHOE БЮPO ПPEДЛAГAEТ CBOИ "
  1060.  PRINT "УCЛУГИ ЗA ";INT (I);"."
  1061. 6789 PRINT " ШAHC ПOИMKИ BOPOB ";INT (Y*100);"%"
  1062.  INPUT " ДOГOBOPИЛИCЬ? ";X
  1063.  IF (-X)<0 THEN GO TO 6792
  1064. 6790 P=0
  1065.  FOR I=1 TO 5
  1066.  P(I)=0
  1067.  NEXT I
  1068. 6791 RETURN
  1069. 6792 IF (funcR()-Y)<0 THEN GO TO 6796
  1070. 6793 PRINT
  1071.  PRINT " BOPЫ ПOKИHУЛИ HAШУ CТPAHУ."
  1072.  Y=450*Y+800
  1073. 6795 PRINT "BЗЫCKИBAEM ТOЛЬKO HAKЛAДHЫE PACXOДЫ ";INT (Y)
  1074.  U=U+Y
  1075.  func910();
  1076.  GO TO 6790
  1077. 6797 PRINT
  1078.  PRINT " BOPЫ ПOЙMAHЫ!"
  1079.  U=U+I
  1080.  RETURN
  1081. 7001 JJ=500
  1082.  GO TO 6002
  1083.  
  1084. 7120 U=U-A
  1085.  A=0
  1086.  RETURN
  1087. 7210 PRINT
  1088.  PRINT " УCBOИЛИ?"
  1089. 7220 func1010();
  1090.  GO TO 5010
  1091. 7230 GO SUB 7310
  1092.  GO TO 7210
  1093. 7240 GO SUB 7410
  1094.  GO TO 7210
  1095. 7310 PRINT " BЫ HE ИMEEТE ТPEБУEMOЙ CУMMЫ   HAЛИЧHЫMИ."
  1096. 7320 X=1500+50*INT (10*funcR())
  1097. 7330 PRINT "3A MOШEЙHИЧECТBO ШТPAФ:";INT (X)
  1098. 7340 func7110();
  1099.  RETURN
  1100. 7410 PRINT
  1101.  PRINT " BAM HEЧEГO ПPOДABAТЬ!"
  1102. 7420 GO SUB 7320
  1103.  func7110();
  1104.  RETURN
  1105. 7501 J=.4
  1106.  func5101();
  1107.  IF (N1-N4)<0 THEN GO TO 7505
  1108. 7503 PRINT
  1109.  PRINT " KOHEЦ ГOДA-БИPЖA 3AKPЫЛACЬ."
  1110.  GO TO 7220
  1111. 7505 X=0
  1112.  FOR I=1 TO 5
  1113.  X=X+P(I)*R(I)
  1114.  NEXT I
  1115. 7507 IF X<0 THEN GO TO 190
  1116. 7508 IF X>0 THEN func6702();
  1117. 7510 J=.6
  1118.  GO SUB 5110
  1119.  FOR I=1 TO 5
  1120.  func210();
  1121.  R(I)=100*Y
  1122.  O(I)=0
  1123.  func210();
  1124.  Z(I)=20*Y
  1125.  NEXT I
  1126. 7520 func1010();
  1127.  PRINT
  1128. 7521 PRINT "AKЦИИ ФИPMЫ ИMEEТE KУPC ДИBИДEH-"
  1129. 7522 PRINT "                         ТЫ(%) "
  1130. 7523 J=7900
  1131.  FOR I=1 TO 5
  1132.  J=J+10
  1133.  PRINT I;" ";
  1134.  GO SUB J
  1135.  PRINT " ";P(I);"  ";R(I);"   ";Z(I)
  1136.  NEXT I
  1137. 7524 PRINT
  1138.  PRINT
  1139.  PRINT
  1140. 7525 INPUT " (ПPOДAЖA=0/ПOKУПKA=1)
  1141. ";X
  1142.  INPUT " (ФИPMЫ=M)
  1143. ",I
  1144.  INPUT " (KOЛИЧECТBO=N)
  1145. ";M
  1146. 7527 IF X<0 THEN GO TO 7220
  1147. 7528 IF X=0 THEN GO TO 7540
  1148. 7529 X=1
  1149.  IF (-I)<0 THEN GO TO 7531
  1150. 7530 func310();
  1151.  GO TO 7525
  1152. 7531 IF (5-I)<0 THEN GO TO 7530
  1153. 7532 M=INT (ABS (M))
  1154.  IF X<0 THEN GO TO 7550
  1155. 7533 IF (M*R(I)-A-.1)<0 THEN GO TO 7553
  1156. 7535 GO SUB 7310
  1157.  GO SUB 910
  1158.  GO TO 7220
  1159. 7540 IF I<0 THEN GO TO 7530
  1160. 7541 IF I=0 THEN GO TO 7220
  1161. 7542 X=-1
  1162.  GO TO 7531
  1163. 7550 IF (M-P(I)-.1)<0 THEN GO TO 7560
  1164. 7551 GO SUB 7410
  1165.  GO SUB 910
  1166.  GO TO 7220
  1167. 7553 Z=R(I)*5*(B+2*D(1))
  1168.  IF (O(I)+M-Z-.1)<0 THEN GO TO 7570
  1169. 7557 M=Z-O(I)
  1170.  PRINT " УДAЛOCЬ CKУПИТЬ ";M
  1171.  GO TO 7570
  1172. 7560 Z=(105-R(I))*5*(B+2*D(1))
  1173.  IF (M-O(I)-Z-.1)<0 THEN GO TO 7570
  1174. 7567 M=Z+O(I)
  1175.  PRINT " УДAЛOCЬ PEAЛИЗOBAТЬ ";M
  1176.  GO TO 7570
  1177. 7570 M=M*X
  1178.  IF (-(M*M))>=0 THEN PRINT
  1179.  PRINT " У HAC ДУPAKOB HEТ!"
  1180. 7571 P(I)=INT (P(I)+.1+M)
  1181.  O(I)=O(I)+M
  1182.  A=A-R(I)*M
  1183. 7573 IF (N4-N1-.1)<0 THEN GO TO 7503
  1184. 7575 GO SUB 710
  1185.  IF X<=0 THEN GO TO 7220
  1186. 7576 IF X>0 THEN GO TO 7520
  1187. 7910 PRINT "Standart Oil ";
  1188.  RETURN
  1189. 7920 PRINT "Stell Company";
  1190.  RETURN
  1191. 7930 PRINT "IBM          ";
  1192.  RETURN
  1193. 7940 PRINT "Suzuki       ";
  1194.  RETURN
  1195. 7950 PRINT "Krust & Co   ";
  1196.  RETURN
  1197. 8001 IF HH<0 THEN GO TO 190
  1198. 8002 IF HH=0 THEN GO TO 8004
  1199. 8003 GO SUB 610
  1200.  GO TO 5010
  1201. 8004 IF (funcR()-.97)<0 THEN GO TO 8007
  1202. 8005 GO SUB 610
  1203.  HH=1
  1204.  NK=N4-N1
  1205.  IF H=0 THEN GO TO 5010
  1206. 8006 X=.1*H
  1207.  A=A+H
  1208.  PRINT
  1209.  PRINT " BAM BЫПЛAЧEHA KOMПEHCAЦИЯ ";INT (X)
  1210.  H=0
  1211.  GO TO 7220
  1212. 8007 PRINT
  1213.  PRINT
  1214.  PRINT
  1215.  PRINT "          National Bank"
  1216.  PRINT "      ПPИBEТCТBУEТ KЛИEHТA!"
  1217.  J=1
  1218.  func5101();
  1219. 8008 PRINT
  1220.  PRINT "        ЧТO ЖEЛAEТE?"
  1221.  PRINT " 1-3ACТPAXOBAТЬ ИMУЩECТBO"
  1222.  PRINT " 2-CДEЛAТЬ BKЛAД"
  1223. 8009 PRINT " 3-CHЯТЬ CO CЧЁТA"
  1224.  GO SUB 5301
  1225.  GO SUB 8401
  1226.  INPUT " Ч ",X
  1227.  GO TO 8101
  1228. 8010 IF (C(3,1)+C(3,2)+C(3,3)+C(3,4)+C(3,5))<0 THEN GO TO 190
  1229. 8011 IF (C(3,1)+C(3,2)+C(3,3)+C(3,4)+C(3,5))=0 THEN GO TO 8090
  1230. 8012 PRINT
  1231.  PRINT
  1232.  PRINT "   MOЖEТE           HA CУMMУ"
  1233.  PRINT " 3ACТPAXOBAТЬ       HE БOЛEE
  1234. "
  1235. 8014 J=1010
  1236. 8016 FOR I=1 TO 5
  1237.  J=J+100
  1238.  IF (C(3,I))<0 THEN GO TO 190
  1239. 8017 IF C(3,I)>0 THEN PRINT I;" ";
  1240.  GO SUB J
  1241.  PRINT "          ";Q(3,I)
  1242. 8018 NEXT I
  1243. 8020 PRINT
  1244.  PRINT " ПPИ ГOДOBЫX B3HOCAX 5%"
  1245. 8022 INPUT " [CТPAXУEM ЧТO=N]
  1246. ";X
  1247.  INPUT " [HA CPOK=Т]
  1248. ",Y
  1249. 8024 IF X<=0 THEN GO TO 7220
  1250. 8026 IF C(3,X)<0 THEN GO TO 190
  1251. 8027 IF C(3,X)=0 THEN GO TO 8092
  1252. 8028 INPUT " HA CУMMУ ";J
  1253.  J=ABS (J)
  1254.  IF (J-Q(3,X))<=0 THEN GO TO 8040
  1255. 8030 PRINT
  1256.  PRINT " БOЛEE ЧEM HA CТOИMOCТЬ HE CТPAXУEM."
  1257.  GO TO 7210
  1258. 8040 G(X)=INT (ABS (Y))
  1259.  L(X)=J
  1260. 8041 INPUT " EЩЁ CТPAXOBKA? ";X
  1261.  IF (X-1)<0 THEN GO TO 8008
  1262. 8042 IF (X-1)=0 THEN GO TO 8022
  1263. 8043 IF (X-1)>0 THEN GO TO 7220
  1264. 8090 PRINT
  1265.  PRINT " BAM HEЧEГO CТPAXOBAТЬ!"
  1266.  GO TO 8407
  1267. 8092 PRINT
  1268.  PRINT " BЫ OШИБЛИCЬ."
  1269.  GO TO 8010
  1270. 8101 X=INT (X)
  1271.  IF X<=0 THEN GO TO 7220
  1272. 8102 IF (X-6)<0 THEN GO TO 8104
  1273. 8103 func310();
  1274.  GO TO 8008
  1275. 8104 IF S=0 THEN GO TO 8107
  1276. 8105 IF (X-4)<0 THEN GO TO 8109
  1277. 8106 IF (X-4)=0 THEN GO TO 8407
  1278. 8107 IF K<=0 THEN GO TO 8109
  1279. 8108 IF (X-5)=0 THEN GO TO 8407
  1280. 8109 X=7910+X*100
  1281.  GO TO X
  1282. 8110 PRINT
  1283.  func1010();
  1284.  PRINT " ГAPAHТИPУEM ДOXOД ";2*B;"% B ГOД."
  1285.  GO SUB 8115
  1286.  GO TO 8120
  1287.  
  1288. void func8115()
  1289. {
  1290.     PRINT "CТOИMOCТЬ OПEPAЦИИ 5%"
  1291. }
  1292.  
  1293. 8120 INPUT " CKOЛЬKO ПOMEЩAEТE? ";X
  1294.  X=ABS (X)
  1295.  IF (X-A)<=0 THEN GO TO 8140
  1296. 8130 GO SUB 7310
  1297.  GO TO 7210
  1298. 8140 A=A-X
  1299.  H=H+.95*X
  1300. 8150 GO TO 8008
  1301. 8210 func8211();
  1302.  GO TO 8150
  1303.  
  1304. void func8211()
  1305. {
  1306.     H=INT (.5+H)
  1307.     PRINT
  1308.     PRINT " CЧЁТ B БAHKE ";H
  1309.     func8115();
  1310.     8220 INPUT " CKOЛЬKO БEPЁТE? ";X
  1311.     X=ABS (X)
  1312.     IF (X-H)<=0 THEN GO TO 8240
  1313.     8230 PRINT
  1314.     PRINT " BHИMAТEЛЬHEE HAДO!"
  1315.     GO TO 8210
  1316. }
  1317.  
  1318. 8240 H=H-X
  1319.  A=A+.95*X
  1320.  RETURN
  1321. 8310 PRINT
  1322.  PRINT
  1323.  func1010();
  1324.  PRINT " ДOГOBOPИMCЯ OБ УCЛOBИЯX."
  1325. 8312 INPUT " CKOЛЬKO ДAДИТE? ";S
  1326.  S=ABS (S)
  1327.  IF (S-A)<=0 THEN GO TO 8320
  1328. 8314 PRINT
  1329.  PRINT " BЫ HE ИMEEТE ТPEБУEMOЙ CУMMЫ HAЛИЧHЫMИ."
  1330.  S=0
  1331.  GO TO 7220
  1332. 8320 INPUT " HA KAKOЙ CPOK? ";NS
  1333.  NS=ABS (NS)
  1334.  J=SQR (SQR (NS))
  1335.  IF (NS-11)<0 THEN GO TO 8340
  1336. 8330 PRINT
  1337.  PRINT " ЭK 3AГHУЛИ!"
  1338.  GO TO 8320
  1339. 8340 INPUT " ПOД KAKИE ПPOЦEHТЫ? ";S1
  1340.  S1=.01*ABS (S1)
  1341.  Y=32.94*J/(.6+S1)
  1342. 8345 PRINT
  1343.  PRINT " ШAHC 3APAБOТAТЬ
  1344. ";INT (Y);"%"
  1345.  func410();
  1346.  IF X<=0 THEN GO TO 8370
  1347. 8350 A=A-S
  1348.  X=Y/100
  1349.  func210();
  1350.  IF (Y-X)<0 THEN GO TO 8150
  1351. 8355 S=-S
  1352.  GO TO 8150
  1353. 8370 S=0
  1354.  GO TO 6592
  1355. 8401 IF (-K)<0 THEN GO TO 8405
  1356. 8403 PRINT " 5-ПOЛУЧИТЬ KPEДИТ"
  1357. 8405 RETURN
  1358. 8407 PRINT
  1359.  PRINT " ПPOCИM HE3AMEДЛИТEЛЬHO ПOKИHУТЬ БAHK!"
  1360.  GO TO 7210
  1361. 8410 func1010();
  1362.  Y=A+H+P+C-U+V
  1363.  IF (-Y)<0 THEN GO TO 8420
  1364. 8412 PRINT
  1365.  PRINT
  1366.  PRINT " БAHKPOТAM HE ДAЁM."
  1367.  GO TO 7210
  1368. 8420 PRINT
  1369.  PRINT
  1370.  PRINT " CO BCEMИ ПOТPOXAMИ BЫ CТOИ-"
  1371.  PRINT "ТE
  1372. ";INT (Y);"."
  1373. 8422 PRINT "ДAЁM HA CPOK HE БOЛEE 5 ЛEТ."
  1374.  INPUT " CKOЛЬKO? ";K
  1375.  K=ABS (K)
  1376. 8424 INPUT " CPOK? ";NK
  1377.  IF (NK-6)<0 THEN GO TO 8430
  1378. 8426 PRINT
  1379.  PRINT " ЧИТAТЬ HE УMEEТE?"
  1380.  GO TO 8424
  1381. 8430 K1=.01+(3+funcR())*K*NK/Y/(L+2)/5
  1382. 8432 PRINT
  1383.  PRINT " ДAЁM ПOД ";INT (K1*100);"%"
  1384.  INPUT " БEPЁТE? ";X
  1385.  IF (-X)<0 THEN GO TO 8440
  1386. 8434 K=0
  1387.  GO TO 8008
  1388. 8440 PRINT
  1389.  PRINT " 3AПOMHИТE BPEMЯ PACПЛAТЫ
  1390. ";NN+N+NK;"."
  1391.  A=A+K
  1392.  GO TO 8150
  1393. 8501 J=2.5
  1394.  func5101();
  1395. 8503 FOR I=1 TO 5
  1396.  GO SUB 9910
  1397.  Т(I)=X
  1398.  I(I)=Т(I)*(2-Y)
  1399.  O(I)=100*Y
  1400.  NEXT I
  1401. 8505 func1010();
  1402.  PRINT " PA3BЛEKAЯCЬ C УMOM,MOЖHO ПOЛУ-"
  1403.  PRINT "ЧИТЬ И БAPЫШ."
  1404.  PRINT
  1405. 8510 PRINT "  MOЖEM    3AТ- BO3M-HЫЙ BEP-ТЬ"
  1406. 8511 PRINT "ПPEДЛOЖИТЬ PAТЫ ДOXOД  УCПEXA(%)"
  1407.  PRINT  
  1408. 8513 J=8900
  1409.  FOR I=1 TO 5
  1410.  J=J+10
  1411.  PRINT I;" ";
  1412.  GO SUB J
  1413.  PRINT " ";Т(I);"  ";INT (I(I));"  ";O(I)
  1414.  NEXT I
  1415. 8515 INPUT " ГУЛЯEM? ";X
  1416.  IF (-X)<0 THEN GO TO 8520
  1417. 8517 PRINT
  1418.  PRINT " BЫ ЖMOТ?!"
  1419.  GO TO 7220
  1420. 8520 INPUT " ЧEГO ИЗBOЛИТE-C? ";X
  1421.  IF (-X)<0 THEN GO TO 8523
  1422. 8521 PRINT
  1423.  PRINT " ПPOТPE3BEЛ БЫ CHAЧAЛA..."
  1424.  GO TO 7220
  1425. 8523 IF (5-X)<0 THEN GO TO 8521
  1426. 8525 IF (Т(X)-A-H)<=0 THEN GO TO 8530
  1427. 8527 GO SUB 7310
  1428.  GO TO 7210
  1429. 8530 func210();
  1430.  IF (100*Y-O(X))<=0 THEN GO TO 8540
  1431. 8533 PRINT
  1432.  PRINT " BAM HE BEЗЁТ-OДHИ PACXOДЫ."
  1433.  X=Т(X)
  1434.  func7110();
  1435. 8534 IF A<0 THEN GO TO 7210
  1436. 8535 IF A=0 THEN GO TO 7220
  1437. 8536 INPUT " EЩЁ ПOДPA3BЛEЧЁMCЯ? ";X
  1438.  IF X<=0 THEN GO TO 7220
  1439. 8537 GO TO 8505
  1440. 8540 PRINT
  1441.  PRINT
  1442.  PRINT " BAM ПOДФAPТИЛO.ДOBOЛЬHЫ?"
  1443. 8543 A=A-Т(X)+I(X)
  1444.  GO TO 7220
  1445. 8910 PRINT "ПPEФEPAHC  ";
  1446.  RETURN
  1447. 8920 PRINT "MOHТE-KAPЛO";
  1448.  RETURN
  1449. 8930 PRINT "ЛЮБOBHИЦУ  ";
  1450.  RETURN
  1451. 8940 PRINT "БAHKEТ     ";
  1452.  RETURN
  1453. 8950 PRINT "KPУИЗ      ";
  1454.  RETURN
  1455.  
  1456.  
  1457.  
  1458. 9911 BORDER BIN
  1459.  PAPER BIN
  1460.  INK BIN
  1461.  POKE 23624,BIN
  1462.  IF PEEK 23635=203 THEN LOAD ""CODE
  1463.  GO TO 1
  1464. 9912 RANDOMIZE USR 15619
  1465. //
  1466.  LOAD "PREZIUDG"CODE
  1467. 9913 GO TO 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement