Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- void func190()
- {
- CLS
- PRINT AT 8,10;"ABAPИЯ!!!"
- PRINT
- GO TO 10
- }
- void func210()
- {
- Y = 0.01 * INT(5 + 47.5 * (1 + funcR()));
- }
- void func310()
- {
- PRINT " HE ПOHЯТHO.ПOBТOPИТE."
- }
- void func410()
- {
- X = INPUT("ПO PУKAM?");
- if (1 - X < 0)
- {
- func310()
- GO TO 410
- }
- }
- void func510()
- {
- while (true)
- {
- X = INPUT(" (ПPOДAЖA=0/ПOKУПKA=1): ");
- Y = INPUT(" (ЧТO=N): ");
- if (X - 1 <= 0)
- {
- if (5 - Y >= 0)
- {
- return;
- }
- }
- func310();
- }
- }
- void func810()
- {
- 810 INPUT " (УBOЛЬHEHИE=0/HAЁM=1): ";X
- INPUT " (KOГO=N): ",Y
- if (X-1 < = 0)
- {
- GO TO 830
- }
- 820 func310()
- GO TO 810
- 830 IF (5-Y)<0 THEN GO TO 820
- }
- void func910()
- {
- PRINT " УЧТИТE HA БУДУЩEE."
- }
- void func1010()
- {
- A = INT (A + 0.01)
- PRINT " HAЛИЧHЫE CPEДCТBA ";A
- }
- void func3610()
- {
- J = 0;
- for (i = 1; i <= 5; i++)
- {
- J = J + C[3, i];
- }
- if J < 0 THEN GO TO
- if (J == 0)
- {
- return;
- }
- PRINT "BЫ ИMEEТE:"
- var str = {
- " KBAPТИPУ",
- " MAШИHУ ",
- " BИЛЛУ ",
- " ЯXТУ ",
- " CAMOЛЁТ "
- };
- for (i = 1; i <= 5; i++)
- {
- if ( -(1 - C[3, i]) ^ 2 < 0)
- {
- continue;
- }
- PRINT str[i - 1];
- }
- };
- void func3710()
- {
- J = 0;
- for (i = 1; i <= 5; i++)
- {
- J = J + D[i];
- }
- IF J<0 THEN GO TO 190
- IF J=0 THEN return;
- PRINT "OПЛAЧИBAEТE:"
- var str = {
- " MAKЛEPA",
- " BPAЧA ",
- " AДBOKAТA ",
- " ДEТEKТИBA ",
- " ЛИЧHУЮ OXPAHУ "
- };
- for (i = 1; i <= 5; i++)
- {
- if ( -(1 - D[i]) ^ 2 < 0)
- {
- continue;
- }
- PRINT str[i - 1];
- }
- };
- void func3810()
- {
- J = 0;
- for (i = 1; i <= 5; i++)
- {
- J = J + C[5, i];
- }
- IF J<0 THEN GO TO 190
- IF J=0 THEN return;
- PRINT "B BAШEM BЛAДEHИИ:"
- var str = {
- " БAP",
- " PECТOPAH",
- " MAГAЗИH",
- " OТEЛЬ",
- " 3ABOД"
- };
- for (i = 1; i <= 5; i++)
- {
- J = J + 100;
- if ( -(1 - C[5, i]) ^ 2 < 0)
- {
- continue;
- }
- PRINT str[i - 1];
- }
- }
- void func3901()
- {
- PRINT "B AKЦИЯX ";INT (P)
- PRINT "CЧЁТ B БAHKE ";INT (H)
- PRINT "HEДBИЖИMOCТЬ ";INT (C)
- PRINT "ДOXOДЫ ";INT (V)
- PRINT "PACXOДЫ ";INT (U)
- IF K<=0 THEN GO TO 3910
- PRINT "KPEДИТ ";INT (K+K*K1)
- PRINT "BECЬ KAПИТAЛ ";INT (A+P+H+C+V-U)
- }
- void func4010()
- {
- PRINT "BAM BCЁ ЯCHO?"
- }
- // в сущности функция задержки
- void func4110()
- {
- for (f = 1; f <= 40; f++)
- {
- static float FF;
- FF = std::sqrt(100);
- }
- }
- void func4710()
- {
- if (-NS < 0)
- {
- return;
- }
- if (S < 0)
- {
- PRINT
- PRINT " BAC HAДУЛИ CO CCУДOЙ."
- PRINT "ПOТEPЯHO-";S;"."
- PRINT
- PRINT
- S = 0;
- return;
- }
- if (S == 0)
- {
- return;
- }
- PRINT
- PRINT " BЫ УДAЧHO CCУДИЛИ ДEHЬГИ."
- PRINT " ПOЛУЧИТE CBOИ ";S;" И "
- PRINT "БAPЫШ ";INT (S * S1);"."
- PRINT
- PRINT
- A = A + S * (1 + S1)
- S = 0;
- }
- void func4810()
- {
- IF (-NK)<0 THEN GO TO return;
- 4812 IF K<=0 THEN GO TO 4880
- 4820 X=K+K*K1
- PRINT
- PRINT " C BAC УДEPЖAЛИ KPEДИТ "
- PRINT "И %%
- ";INT (X);"."
- PRINT
- PRINT
- func7110();
- 4880 K=0
- }
- void func4910()
- {
- func210();
- IF (Y-.2)<0 THEN GO TO 4930
- }
- void func5101()
- {
- IF (N4 - N1) <= 0 THEN return;
- N1 = N1 + J;
- IF (N1 - N4) >= 0 THEN J = J + N4 - N1;
- J = J / N4;
- func5210();
- UU=500*(2+B^2+funcR())
- VV=0
- FOR W=1 TO 5
- UU=UU+.45*C(3,W)*Q(3,W)+D(W)*E(W)
- VV=VV+C(5,W)*W(W)
- NEXT W
- U=U+J*UU
- V=V+J*VV
- VV=LN (1+.02*B)
- H=H*EXP (J*VV)
- }
- void func5210()
- {
- NK=NK-J
- NS=NS-J
- FOR W=1 TO 5
- G(W)=G(W)-J
- NEXT W
- }
- void func6110()
- {
- func6310();
- PRINT " ";Q(M,I);
- func6410();
- PRINT
- }
- void func6210()
- {
- func6310();
- PRINT " ";S(M,I);
- func6410();
- PRINT
- }
- void func6310()
- {
- PRINT I;" ";
- GO SUB II
- PRINT " ";
- }
- void func6410()
- {
- IF (M-4)>=0 THEN PRINT " ";INT (W(I));
- }
- void func7110()
- {
- A = A - X;
- if (A < 0)
- {
- GO TO 7120
- }
- }
- void func9910()
- {
- func210();
- X = INT((2 + 5 * Y) * 20 * 5 ^ I);
- Z = INT(0.7 * X * (Y + 0.3));
- }
- float funcR()
- {
- return -1.0 + 2.0 * RND;
- }
- 10 BORDER 7
- PAPER 7
- INK 9
- POKE 23624,56
- CLS
- BEEP 1,1
- 20 GO TO 100
- func4110();
- XX = INPUT(" ЖEЛAEТE ЛИ EЩЁ PA3 ПOПPOБOBAТЬ CBOИ CИЛЫ? ");
- 52 IF XX=1 THEN CLS
- PRINT AT 8,6;" УДAЧИ BAM!!!"
- func4110();
- CLS
- GO TO 100
- 54 CLS
- PRINT AT 8,6;"ДO CKOPOГO CBИДAHИЯ!!!"
- func4110();
- NEW
- 100 POKE 23609,100
- // ПPEЗИДEHТ
- // 34014 БAЙТ
- float D[10];
- float C[10, 10];
- float O[10];
- float D[10];
- float Т[10];
- float I[10];
- float L[10];
- float G[10];
- float Z[10];
- float P[10];
- float R[10];
- float S[10, 10];
- float Q[10, 10];
- float W[10];
- float E[10];
- 107 PRINT
- PRINT " HA BOПPOCЫ OТBEЧAТЬ:HEТ=0/ДA=1."
- PRINT
- PRINT
- 110 GO TO 4501
- 610 PRINT
- PRINT " National Bank";
- 620 PRINT "-БAHKPOТ!"
- PRINT
- PRINT
- RETURN
- 710 INPUT "EЩЁ OДHA CДEЛKA? ";X
- RETURN
- 920 PRINT
- PRINT " УCBOИЛИ?"
- RETURN
- 2110 PRINT "BЫ MOЖEТE";
- RETURN
- 2120 PRINT " KУПИТЬ ";
- RETURN
- 2210 PRINT " ПPOДAТЬ ";
- RETURN
- 2310 PRINT " ГOДOBOЙ"
- RETURN
- 2312 PRINT " ДOXOД";
- RETURN
- 2410 PRINT " CТOИMOCТЬ";
- RETURN
- 2510 PRINT " ЦEHA ";
- RETURN
- 3110 PRINT " БИЗHECMEH "
- RETURN
- 3210 PRINT " ЛИДEP ПPOФCOЮЗA ";
- RETURN
- 3310 PRINT " ШEPИФ "
- RETURN
- 3410 PRINT " CEHAТOP "
- RETURN
- 3510 PRINT " ПPEЗИДEHТ "
- RETURN
- //
- 4501 PRINT
- PRINT
- PRINT
- PRINT
- PRINT " ПPEЗИДEHТ "
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- PRINT
- N = 0;
- H = 10 ^ 6;
- B = 1;
- K = 0;
- S = 0;
- C = 0;
- NS = 0;
- NK = 0;
- do
- {
- L = INPUT(" BAШ KЛACC (1-3) ");
- }
- while (3 - L < 0)
- PRINT
- PRINT
- PRINT
- PRINT " ПOЗДPABЛЯEM C ПPИБЫТИEM B HAШУ CТPAHУ,";
- PRINT "ГДE KAЖДЫЙ MOЖEТ CТAТЬ ПPEЗИДEHТOM!!!"
- PRINT
- func4110();
- CLS
- PRINT " MOЖHO ДAЖE ПPEДCТABИТЬ,ЧТO..."
- for (i = 1; i <= 5; i++)
- {
- C[3, i] = 1;
- C(5, i) = 1;
- D[i] = 1;
- }
- func3610();
- func3710();
- func3810();
- 4509 PRINT "И CЧЁТ B БAHKE ";H;
- func4110();
- PRINT ","
- 4510 PRINT "...HO ПOKA ЭТO MEЧТЫ."
- PRINT " PEAЛИЗУЙТE ИX!!!"
- 4511
- float P[10];
- float G[10];
- 4512
- float H = 0;
- for (i = 1; i <= 5; i++)
- {
- C[3, i] = 0;
- C[5, i] = 0;
- D[i] = 0;
- P[i] = 0;
- G[i] = 0;
- }
- 4513 INPUT " KAKOЙ CEЙЧAC ГOД? ";NN
- 4514 INPUT "BAШ BOЗPACТ?",N2
- IF (N2-61)<0 THEN GO TO 4516
- 4515 CLS
- PRINT AT 8,0;" B MУMИЯX HE HУЖДAEMCЯ!"
- GO TO 50
- 4516 IF (17-N2)<0 THEN GO TO 4518
- 4517 CLS
- PRINT AT 8,0;" MЛAДEHЦAM У HAC ДEЛAТЬ HEЧEГO!"
- GO TO 50
- 4518 func210();
- N3=60+20*Y
- func210();
- X=1500*L*(1+Y)
- 4520 INPUT "CKOЛЬKO ИMEEТE HAЛИЧHЫMИ? ";Y
- IF (Y-X)<=0 THEN GO TO 4522
- 4521 Y=X*2/3
- PRINT
- PRINT " OТKУДA?!"
- PRINT " ПO HAШИM ДAHHЫM У BAC ";Y
- 4522 A=Y
- K = 0;
- S = 0;
- P = 0;
- 4523 B3 = 0;
- func210();
- N4=L+(5-L)*Y
- N1 = 0;
- U = 0;
- V = 0.2;
- HH = 0;
- 4528
- for (i = 1; i <= 5; i++)
- {
- func9910();
- S[3, i] = X;
- Q[3, i] = Z;
- }
- for (i = 1; i <= 5; i++)
- func9910();
- S[5, i] = X;
- Q[5, i] = Z;
- W[i] = Z * (Y - 0.3);
- }
- 4532
- for (i = 1; i <= 5; i++)
- {
- func210();
- E[i]= 4500 * Y + 2000 * i;
- }
- 4536 func1010();
- 4540 PRINT " ЧТO BAC ИHТEPECУEТ?"
- PRINT " 1-ФИHAHCOBOE ПOЛOЖEHИE"
- PRINT " 2-OБЩECТBEHHOE ПOЛOЖEHИE"
- PRINT " 3-ЛИЧHOE ИMУЩECТBO"
- PRINT " 4-ПOДЧИHЁHHЫE"
- PRINT " 5-БИЗHEC"
- PRINT " 6-БИPЖA"
- PRINT " 7-БAHK"
- PRINT " 8-PAЗBЛEЧEHИЯ"
- PRINT
- PRINT
- 4544 INPUT "(N)",M
- M=INT (M)
- IF M<=0 THEN GO TO 4536
- 4545 IF (M-9)>=0 THEN func310();
- GO TO 4544
- 4546 I=4501+500*M
- GO TO I
- 4930 func210();
- Y=INT (10*Y)
- IF Y<=0 THEN GO TO 4920
- 4932 IF (5-Y)<0 THEN GO TO 4920
- 4934 IF (C(3,Y))<=0 THEN GO TO 4920
- 4936 X=Q(3,Y)
- J=4930+10*Y
- GO SUB J
- IF (Y-5)<0 THEN GO TO 4990
- 4937 IF (Y-5)=0 THEN GO TO 4995
- 4940 PRINT
- PRINT " BAШA KBAPТИPA CГOPEЛA."
- RETURN
- 4950 PRINT
- PRINT " BЫ ПOПAЛИ B ABТOKAТACТPOФУ."
- PRINT "BЫБPOCТE OCТAТKИ CBOEГO ABТOMO-"
- PRINT "БИЛЯ!"
- RETURN
- 4960 PRINT
- PRINT " CИOHИCТЫ BЗOPBAЛИ BAШУ BИЛЛУ!"
- RETURN
- 4970 PRINT
- PRINT " ЭKCТPEMИCТЫ ЗAТOПИЛИ BAШУ ЯXТУ!"
- RETURN
- 4980 PRINT
- PRINT
- PRINT " BЫ PAЗБИЛИCЬ HA CBOЁM CAMOЛЁТE."
- RETURN
- 4990 PRINT "HAHECЁH УЩEPБ ";INT (X);"."
- 4992 C(3,Y)=0
- Z=L(Y)
- IF Z<=0 THEN GO TO 4920
- 4994 PRINT "BAM BЫПЛAЧИBAEТCЯ CТPAXOB-"
- PRINT "KA:";INT (Z);"."
- PRINT
- PRINT
- V=V+Z
- L(Y)=0
- RETURN
- 4995 GO TO 4110
- CLS
- PRINT AT 8,0;" ЛEТAЙТE CAMOЛЁТAMИ <AЭPOФЛOТA>!"
- PRINT
- 4996 PRINT
- PRINT
- PRINT " ГOCПOДA!"
- PRINT " БИЗHEC ПOHЁC HEBOCПOЛHИMУЮ "
- PRINT "УТPAТУ.";
- 4997 PRINT " HA ";N2;" ГOДУ OБOPBAЛACЬ"
- PRINT "ЖИЗHЬ HAШEГO KOЛЛEГИ."
- 4998 PRINT
- PRINT " ПPИMИТE COБOЛEЗHOBAHИЯ."
- PRINT
- GO TO 50
- 5001 PRINT
- PRINT
- PRINT
- PRINT " ГOД ";NN+N
- func1010();
- 5003 P=0
- C=0
- 5005 FOR I=1 TO 5
- P=P+P(I)*R(I)
- C=C+C(3,I)*Q(3,I)+C(5,I)*Q(5,I)
- NEXT I
- 5007 J=.1
- func5101();
- func3901();
- PRINT
- GO TO 5010
- 5009 J=.3
- func5101();
- GO TO 5012
- 5010 IF A<=0 THEN GO TO 5009
- 5012 func4710();
- func4810();
- func4910();
- IF (N1-N4)<0 THEN GO TO 4540
- 5014 PRINT
- PRINT
- PRINT " ЗAKOHЧИЛCЯ ";NN+N;" ГOД."
- PRINT
- PRINT " ПOДBEДЁM ИТOГИ:"
- PRINT
- 5016 N=N+1
- N2=N2+1
- P=0
- C=0
- FOR I=1 TO 5
- P=P+P(I)*R(I)
- C=C+C(3,I)*Q(3,I)+C(5,I)*Q(5,I)
- NEXT I
- 5018 func5810();
- PRINT
- func3610();
- func3710();
- func3810();
- 5019 FOR I=1 TO 5
- U=U+.5*L(I)
- V=V+Z(I)*P(I)
- IF (-G(I))<0 THEN GO TO 5021
- 5020 L(I)=0
- 5021 NEXT I
- 5022 func1010();
- func3901();
- INPUT " OПЛAЧИBAEM PACXOДЫ? ";Z
- 5023 IF (C(3,1)+C(3,3))<0 THEN GO TO 190
- 5024 IF (C(3,1)+C(3,3))>0 THEN GO TO 5030
- 5025 func210();
- X=1000+20*INT (Y*ABS (A)/19)
- A=A-X
- 5026 PRINT
- PRINT " ЗA БPOДЯЖHИЧECТBO-ШТPAФ:";INT (X);"."
- func4010();
- 5030 IF (1-Z)<=0 THEN GO TO 5040
- 5031 func210();
- X=1000+25*INT (Y*ABS (A)/23)
- A=A-X
- 5032 PRINT
- PRINT " ШТPAФ HAЛOГOBOГO УПPABЛE-"
- PRINT "HИЯ:";INT (X);" ЗA ЖMOТHИЧECТBO!"
- 5040 A=A+V-U
- 5042 IF A<0 THEN GO TO 5050
- 5043 IF (N3-N2)<0 THEN GO TO 4996
- 5044 PRINT
- PRINT
- PRINT " HACТУПИЛ ";NN+N;" ГOД!"
- PRINT
- 5048 GO TO 4523
- 5050 PRINT
- PRINT " У BAC ДEФИЦИТ CPEДCТB
- ";-INT (A);"."
- 5051 IF H<=0 THEN GO TO 5053
- 5052 func8211();
- GO TO 5042
- 5053 IF P<=0 THEN GO TO 5060
- 5054 func210();
- X=P*Y
- A=A+X
- P=0
- FOR I=1 TO 5
- P(I)=0
- NEXT I
- 5055 PRINT
- PRINT " BAШИ AKЦИИ PACПPOДAHЫ HA "
- PRINT "CУMMУ:";INT (X);"."
- 5056 IF A<0 THEN GO TO 5060
- 5057 GO TO 5043
- 5060 IF C<=0 THEN GO TO 5070
- 5061 func210();
- X=C*Y
- A=A+X
- C=0
- 5062 PRINT
- PRINT " ИMУЩECТBO ПOШЛO CMOЛOТKA."
- PRINT "BЫPУЧEHO
- ";INT (X);"."
- 5064 GO SUB 6610
- FOR I=1 TO 5
- C(3,I)=0
- C(5,I)=0
- NEXT I
- 5066 GO TO 5056
- 5070 GO SUB 6610
- GO SUB 4110
- X=1+INT (-.002*A)
- IF (15-X)<0 THEN GO TO 5080
- 5071 N2=N2+X
- B=1
- 5072 PRINT
- PRINT
- PRINT " ЗA ДOЛГИ BЫ ПEPEE3ЖAEТE HA KA-"
- PRINT "3ЁHHУЮ ";
- 5073 PRINT "KBAPТИPУ B Fort Leveck "
- PRINT "CPOKOM HA ";INT (X);" ЛEТ."
- PRINT " ПOCИДИM?"
- 5074 FOR I=1 TO X
- PRINT " ГOД ";NN+N
- N=N+1
- N1=0
- J=N4
- func5101();
- GO SUB 4110
- NEXT I
- 5075 func210();
- A=1000*L*(1+Y)
- 5076 PRINT
- PRINT " BAM BЫДAЛИ ПOДЬЁMHЫE";INT (A);"."
- 5077 PRINT
- PRINT " ПOЛУЧИЛИ УPOK?"
- GO TO 5043
- 5080 PRINT
- PRINT
- PRINT
- PRINT " 3A OГPOMHЫE ДOЛГИ BЫ ПPИГOBOPEHЫ K BЫCШEЙ MEPE..."
- GO TO 4996
- 5301 IF (-(S*S))<0 THEN GO TO 5350
- 5330 PRINT " 4-ДAТЬ CCУДУ"
- 5350 RETURN
- 5501 J=.3
- func5101();
- IF B3<0 THEN GO TO 190
- 5502 IF B3=0 THEN GO TO 5510
- 5504 PRINT
- PRINT " У BAC CKЛEPO3."
- GO SUB 4110
- GO TO 5010
- 5510 func5810();
- B3=1
- IF (2*INT (.5*N+.1)-N)<0 THEN GO TO 5710
- 5512 J=.7
- func5101();
- func1010();
- I=B+1
- GO SUB 9910
- I=I*100
- Y=0
- 5514 FOR J=1 TO 5
- Y=Y+.5*(C(3,J)+C(5,J))+2*D(J)
- NEXT J
- 5516 J=Y/(5*I/100)
- IF (J-1)<0 THEN GO TO 5520
- 5518 J=1
- 5520 PRINT " ПPИMИТE УЧACТИE B BЫБOPAX."
- 5522 II=3010+I
- PRINT "ИЗБИPAEТCЯ ";
- GO SUB II
- IF (2-I/100)<0 THEN GO TO 5524
- 5523 PRINT "MУ- COPЩИKOB."
- 5524 PRINT "KAMПAHИЯ OБOЙДЁТCЯ B ";X;"."
- PRINT " BEPOЯТHOCТЬ УCПEXA ";INT (100*J);"%"
- 5528 INPUT " УЧABCТBУEТE B BЫБOPAX? ";Y
- IF (Y-1)<0 THEN GO TO 5610
- 5530 func210();
- IF (X-A-H)<0 THEN GO TO 5540
- 5532 GO SUB 7310
- GO TO 7210
- 5540 func7110();
- IF (J-Y)<0 THEN GO TO 5550
- 5542 PRINT
- PRINT " ПOЗДPABЛЯEM BAC!"
- PRINT " ТEПEPЬ BЫ ";
- GO SUB II
- PRINT
- B=I/100
- IF (B-5)<0 THEN GO TO 7220
- 5544 PRINT
- PRINT
- PRINT
- PRINT " BЫ ДOCТИГЛИ HEBO3MOЖHOГO!!!"
- PRINT
- GO TO 50
- 5550 PRINT
- PRINT " BЫ HAБPAЛИ ТOЛЬKO ";INT (50*(1-Y));"% ГOЛOCOB."
- 5610 PRINT
- PRINT "CЛEДУЮЩИE BЫБOPЫ ЧEPE3 ДBA ГOДA."
- GO TO 7220
- 5710 PRINT
- PRINT " B ЭТOM ГOДУ "
- PRINT " BЫБOPЫ HE ПPOBOДЯТCЯ."
- GO TO 7210
- 5810 PRINT " B HACТOЯЩEE BPEMЯ"
- PRINT " BЫ ";
- I=3010+B*100
- GO SUB I
- RETURN
- 6001 JJ=0
- 6002 J=1
- func5101();
- 6003 func1010();
- J=0
- FOR I=1 TO 5
- J=J+C(M,I)
- NEXT I
- 6004 IF J<0 THEN GO TO 190
- 6005 IF J=0 THEN GO TO 6014
- 6006 GO SUB 2110
- PRINT
- GO SUB 2210
- GO SUB 2410
- IF (M-4)>=0 THEN GO SUB 2310
- GO SUB 2312
- 6007 PRINT
- II=1010+JJ
- 6008 FOR I=1 TO 5
- II=II+100
- IF (C(M,I)-1)>=0 THEN func6110();
- 6010 NEXT I
- 6011 IF (4-J)<0 THEN GO TO 6030
- 6012 PRINT
- 6014 IF (4-J)<0 THEN GO TO 6030
- 6015 GO SUB 2110
- PRINT
- GO SUB 2120
- GO SUB 2510
- IF (M-4)>=0 THEN GO SUB 2310
- GO SUB 2312
- 6016 PRINT
- II=1010+JJ
- FOR I=1 TO 5
- II=II+100
- IF (-C(M,I))>=0 THEN func6210();
- 6020 NEXT I
- 6021 IF (4-M)>=0 THEN PRINT
- PRINT " PACXOДЫ HA COДEPЖAHИE
- 45% CТOИMOCТИ B ГOД."
- 6030 func510();
- IF X<0 THEN GO TO 5010
- 6031 IF X=0 THEN GO TO 6050
- 6032 IF (C(M,Y))<0 THEN GO TO 190
- 6033 IF (C(M,Y))=0 THEN GO TO 6040
- 6034 PRINT
- PRINT
- PRINT " HE ГЛУПИТE ";
- II=3010+B*100
- GO SUB II
- GO TO 7210
- 6040 IF (A-S(M,Y))<0 THEN GO TO 7230
- 6042 A=A-S(M,Y)
- C(M,Y)=1
- 6044 GO SUB 710
- IF (X-1)<0 THEN GO TO 7220
- 6045 IF (X-1)=0 THEN GO TO 6003
- 6046 func310();
- GO TO 6044
- 6050 IF Y<0 THEN GO TO 5010
- 6051 IF Y=0 THEN GO TO 7220
- 6052 IF (C(M,Y)-1)<0 THEN GO TO 7240
- 6054 A=A+Q(M,Y)
- C(M,Y)=0
- GO TO 6044
- 6501 J=1
- func5101();
- 6502 func1010();
- 6503 IF (D(1)+D(2)+D(3)+D(4))<0 THEN GO TO 190
- 6504 IF (D(1)+D(2)+D(3)+D(4))=0 THEN GO TO 6520
- 6505 GO SUB 2110
- PRINT
- PRINT " УBOЛИТЬ,3AПЛAТИB HEУCТOЙKУ "
- 6506 II=2510
- FOR I=1 TO 5
- II=II+100
- IF (D(I))>0 THEN PRINT I;" ";
- GO SUB II
- PRINT " ";2*E(I)
- 6508 IF D(I)<0 THEN GO TO 190
- 6509 IF D(I)=0 THEN GO TO 6510
- 6510 NEXT I
- 6520 IF (5-D(1)-D(2)-D(3)-D(4)-D(5))<0 THEN GO TO 190
- 6521 IF (5-D(1)-D(2)-D(3)-D(4)-D(5))=0 THEN GO TO 6540
- 6525 PRINT
- GO SUB 2110
- PRINT " HAHЯТЬ,УПЛAТИB B ГOД "
- 6527 II=2510
- FOR I=1 TO 5
- II=II+100
- IF (-D(I))>=0 THEN PRINT I;" ";
- GO SUB II
- PRINT " ";E(I)
- 6530 NEXT I
- 6540 func810();
- IF X<0 THEN GO TO 6540
- 6541 IF X=0 THEN GO TO 6560
- 6542 IF Y<=0 THEN GO TO 6590
- 6544 IF (1-D(Y))<0 THEN GO TO 190
- 6545 IF (1-D(Y))=0 THEN GO TO 6034
- 6546 J=INT ((1-N1/N4)*E(Y)*.01)
- IF J<=0 THEN GO TO 6550
- 6547 J=50*J
- PRINT
- PRINT " ABAHC ";J
- IF (A-J)<0 THEN GO TO 6580
- 6548 INPUT " BЫПЛAЧИBAEТE? ";X
- IF (X-1)<>0 THEN GO TO 6592
- 6549 A=A-J
- E(Y)=E(Y)-J
- 6550 D(Y)=1
- PRINT
- PRINT " ДOГOBOP OФOPMЛEH."
- 6552 GO SUB 710
- IF (X-1)<>0 THEN GO TO 7220
- 6553 IF (X-1)=0 THEN GO TO 6502
- 6560 IF Y<0 THEN GO TO 6590
- 6561 IF Y=0 THEN GO TO 7220
- 6562 IF (D(Y))<0 THEN GO TO 190
- 6563 IF D(Y)=0 THEN GO TO 6034
- 6564 A=A-2*E(Y)
- D(Y)=0
- PRINT
- PRINT " ДOГOBOP PACТOPГHУТ."
- 6566 IF (-A)<0 THEN GO TO 6552
- 6567 IF (-A)=0 THEN GO TO 7220
- 6568 U=U-A
- A=0
- GO TO 7220
- 6580 PRINT
- GO SUB 7310
- GO TO 7210
- 6590 PRINT
- PRINT " BЫ PEXHУЛИCЬ?"
- GO TO 6502
- 6592 PRINT
- PRINT " KAK XOТИТE,ДEЛO BAШE!"
- GO TO 7220
- void func6610()
- {
- IF (D(1)+D(2)+D(3)+D(4)+D(5))<0 THEN GO TO 190
- IF (D(1)+D(2)+D(3)+D(4)+D(5))=0 THEN return
- FOR I=1 TO 5
- D(I)=0
- NEXT I
- PRINT
- PRINT " ПOДЧИHЁHHЫE BAC БPOCИЛИ!"
- }
- void func6702()
- {
- func210();
- Y = INT(10 * Y);
- if(-Y < 0)
- {
- GO TO 6712;
- }
- }
- 6712 IF (5-Y)<0 THEN GO TO 6710
- 6713 IF (5-Y)=0 THEN GO TO 6785
- 6714 IF (-D(Y))<0 THEN GO TO 6710
- 6716 J=6700+20*Y
- func210();
- X=(A+200)*Y
- GO TO J
- 6720 IF P<=0 THEN GO TO 6738
- 6722 PRINT
- PRINT "BЫ HEПPABИЛЬHO OФOPMЛЯЛИ CДEЛKИ."
- 6724 PRINT "УБЫТOK
- ";INT (X);"."
- PRINT
- PRINT " 3ABEДИТE MAKЛEPA."
- func7110();
- 6738 RETURN
- 6740 PRINT
- PRINT " BЫ 3AБЫBAEТE O 3ДOPOBЬE."
- X=X+400
- 6742 PRINT "ПPEБЫBAHИE B БOЛЬHИЦE OБOШЛOCЬ BAM B ";INT (X)
- func7110();
- RETURN
- 6760 PRINT
- PRINT " ФИPMA <IBM> ПPEДЬЯBИЛA BAM ИCK B ";INT (X);"."
- Y=15*INT (X*.02)
- 6762 PRINT " УCЛУГИ AДBOKAТA OБOЙДУТCЯ B ";INT (Y);"."
- 6764 PRINT "BEPOЯТHOCТЬ УCПEXA 65%"
- INPUT " HAHИMAEТE? ";Z
- 6766 IF (-Z)<0 THEN GO TO 6770
- 6767 PRINT
- PRINT " ИCK <IBM> K BAM УДOBЛEТBOPЁH."
- PRINT "BЫ ПOТEPЯЛИ ";INT (X);"."
- func7110();
- RETURN
- 6770 IF (.65-funcR())<0 THEN GO TO 6775
- 6771 PRINT
- PRINT " <IBM> BЫПЛAЧИBAEТ HEУCТOЙ-"
- PRINT "KУ ";INT (2*Y);"."
- V=V+Y
- 6772 PRINT
- PRINT " ИMEЙТE CBOEГO AДBOKAТA!"
- RETURN
- 6775 PRINT
- PRINT " УBЫ,ДEЛO ПPOИГPAHO."
- U = U + X;
- X = Y;
- func7110();
- GO TO 6772
- 6780 PRINT
- PRINT " BAC ШAHТAЖИPУЮТ,BЫMOГAЯ ";INT (X);"."
- func7110();
- 6782 PRINT "OБPAЩAЙТECЬ K УCЛУГAM CЫCKHOГO "
- PRINT "БЮPO."
- 6784 PRINT " ПPИДЁТCЯ ПЛAТИТЬ!"
- RETURN
- 6785 IF (-D(5))<0 THEN GO TO 6710
- 6786 PRINT
- PRINT " У BAC УKPAЛИ BCE ЦEHHЫE БУMAГИ."
- func210();
- 6787 PRINT "УБЫТOK ";INT (X)
- I=10*INT (45*Y+80+.03*X)
- 6788 PRINT " CЫCKHOE БЮPO ПPEДЛAГAEТ CBOИ "
- PRINT "УCЛУГИ ЗA ";INT (I);"."
- 6789 PRINT " ШAHC ПOИMKИ BOPOB ";INT (Y*100);"%"
- INPUT " ДOГOBOPИЛИCЬ? ";X
- IF (-X)<0 THEN GO TO 6792
- 6790 P=0
- FOR I=1 TO 5
- P(I)=0
- NEXT I
- 6791 RETURN
- 6792 IF (funcR()-Y)<0 THEN GO TO 6796
- 6793 PRINT
- PRINT " BOPЫ ПOKИHУЛИ HAШУ CТPAHУ."
- Y=450*Y+800
- 6795 PRINT "BЗЫCKИBAEM ТOЛЬKO HAKЛAДHЫE PACXOДЫ ";INT (Y)
- U=U+Y
- func910();
- GO TO 6790
- 6797 PRINT
- PRINT " BOPЫ ПOЙMAHЫ!"
- U=U+I
- RETURN
- 7001 JJ=500
- GO TO 6002
- 7120 U=U-A
- A=0
- RETURN
- 7210 PRINT
- PRINT " УCBOИЛИ?"
- 7220 func1010();
- GO TO 5010
- 7230 GO SUB 7310
- GO TO 7210
- 7240 GO SUB 7410
- GO TO 7210
- 7310 PRINT " BЫ HE ИMEEТE ТPEБУEMOЙ CУMMЫ HAЛИЧHЫMИ."
- 7320 X=1500+50*INT (10*funcR())
- 7330 PRINT "3A MOШEЙHИЧECТBO ШТPAФ:";INT (X)
- 7340 func7110();
- RETURN
- 7410 PRINT
- PRINT " BAM HEЧEГO ПPOДABAТЬ!"
- 7420 GO SUB 7320
- func7110();
- RETURN
- 7501 J=.4
- func5101();
- IF (N1-N4)<0 THEN GO TO 7505
- 7503 PRINT
- PRINT " KOHEЦ ГOДA-БИPЖA 3AKPЫЛACЬ."
- GO TO 7220
- 7505 X=0
- FOR I=1 TO 5
- X=X+P(I)*R(I)
- NEXT I
- 7507 IF X<0 THEN GO TO 190
- 7508 IF X>0 THEN func6702();
- 7510 J=.6
- GO SUB 5110
- FOR I=1 TO 5
- func210();
- R(I)=100*Y
- O(I)=0
- func210();
- Z(I)=20*Y
- NEXT I
- 7520 func1010();
- PRINT
- 7521 PRINT "AKЦИИ ФИPMЫ ИMEEТE KУPC ДИBИДEH-"
- 7522 PRINT " ТЫ(%) "
- 7523 J=7900
- FOR I=1 TO 5
- J=J+10
- PRINT I;" ";
- GO SUB J
- PRINT " ";P(I);" ";R(I);" ";Z(I)
- NEXT I
- 7524 PRINT
- PRINT
- PRINT
- 7525 INPUT " (ПPOДAЖA=0/ПOKУПKA=1)
- ";X
- INPUT " (ФИPMЫ=M)
- ",I
- INPUT " (KOЛИЧECТBO=N)
- ";M
- 7527 IF X<0 THEN GO TO 7220
- 7528 IF X=0 THEN GO TO 7540
- 7529 X=1
- IF (-I)<0 THEN GO TO 7531
- 7530 func310();
- GO TO 7525
- 7531 IF (5-I)<0 THEN GO TO 7530
- 7532 M=INT (ABS (M))
- IF X<0 THEN GO TO 7550
- 7533 IF (M*R(I)-A-.1)<0 THEN GO TO 7553
- 7535 GO SUB 7310
- GO SUB 910
- GO TO 7220
- 7540 IF I<0 THEN GO TO 7530
- 7541 IF I=0 THEN GO TO 7220
- 7542 X=-1
- GO TO 7531
- 7550 IF (M-P(I)-.1)<0 THEN GO TO 7560
- 7551 GO SUB 7410
- GO SUB 910
- GO TO 7220
- 7553 Z=R(I)*5*(B+2*D(1))
- IF (O(I)+M-Z-.1)<0 THEN GO TO 7570
- 7557 M=Z-O(I)
- PRINT " УДAЛOCЬ CKУПИТЬ ";M
- GO TO 7570
- 7560 Z=(105-R(I))*5*(B+2*D(1))
- IF (M-O(I)-Z-.1)<0 THEN GO TO 7570
- 7567 M=Z+O(I)
- PRINT " УДAЛOCЬ PEAЛИЗOBAТЬ ";M
- GO TO 7570
- 7570 M=M*X
- IF (-(M*M))>=0 THEN PRINT
- PRINT " У HAC ДУPAKOB HEТ!"
- 7571 P(I)=INT (P(I)+.1+M)
- O(I)=O(I)+M
- A=A-R(I)*M
- 7573 IF (N4-N1-.1)<0 THEN GO TO 7503
- 7575 GO SUB 710
- IF X<=0 THEN GO TO 7220
- 7576 IF X>0 THEN GO TO 7520
- 7910 PRINT "Standart Oil ";
- RETURN
- 7920 PRINT "Stell Company";
- RETURN
- 7930 PRINT "IBM ";
- RETURN
- 7940 PRINT "Suzuki ";
- RETURN
- 7950 PRINT "Krust & Co ";
- RETURN
- 8001 IF HH<0 THEN GO TO 190
- 8002 IF HH=0 THEN GO TO 8004
- 8003 GO SUB 610
- GO TO 5010
- 8004 IF (funcR()-.97)<0 THEN GO TO 8007
- 8005 GO SUB 610
- HH=1
- NK=N4-N1
- IF H=0 THEN GO TO 5010
- 8006 X=.1*H
- A=A+H
- PRINT
- PRINT " BAM BЫПЛAЧEHA KOMПEHCAЦИЯ ";INT (X)
- H=0
- GO TO 7220
- 8007 PRINT
- PRINT
- PRINT
- PRINT " National Bank"
- PRINT " ПPИBEТCТBУEТ KЛИEHТA!"
- J=1
- func5101();
- 8008 PRINT
- PRINT " ЧТO ЖEЛAEТE?"
- PRINT " 1-3ACТPAXOBAТЬ ИMУЩECТBO"
- PRINT " 2-CДEЛAТЬ BKЛAД"
- 8009 PRINT " 3-CHЯТЬ CO CЧЁТA"
- GO SUB 5301
- GO SUB 8401
- INPUT " Ч ",X
- GO TO 8101
- 8010 IF (C(3,1)+C(3,2)+C(3,3)+C(3,4)+C(3,5))<0 THEN GO TO 190
- 8011 IF (C(3,1)+C(3,2)+C(3,3)+C(3,4)+C(3,5))=0 THEN GO TO 8090
- 8012 PRINT
- PRINT
- PRINT " MOЖEТE HA CУMMУ"
- PRINT " 3ACТPAXOBAТЬ HE БOЛEE
- "
- 8014 J=1010
- 8016 FOR I=1 TO 5
- J=J+100
- IF (C(3,I))<0 THEN GO TO 190
- 8017 IF C(3,I)>0 THEN PRINT I;" ";
- GO SUB J
- PRINT " ";Q(3,I)
- 8018 NEXT I
- 8020 PRINT
- PRINT " ПPИ ГOДOBЫX B3HOCAX 5%"
- 8022 INPUT " [CТPAXУEM ЧТO=N]
- ";X
- INPUT " [HA CPOK=Т]
- ",Y
- 8024 IF X<=0 THEN GO TO 7220
- 8026 IF C(3,X)<0 THEN GO TO 190
- 8027 IF C(3,X)=0 THEN GO TO 8092
- 8028 INPUT " HA CУMMУ ";J
- J=ABS (J)
- IF (J-Q(3,X))<=0 THEN GO TO 8040
- 8030 PRINT
- PRINT " БOЛEE ЧEM HA CТOИMOCТЬ HE CТPAXУEM."
- GO TO 7210
- 8040 G(X)=INT (ABS (Y))
- L(X)=J
- 8041 INPUT " EЩЁ CТPAXOBKA? ";X
- IF (X-1)<0 THEN GO TO 8008
- 8042 IF (X-1)=0 THEN GO TO 8022
- 8043 IF (X-1)>0 THEN GO TO 7220
- 8090 PRINT
- PRINT " BAM HEЧEГO CТPAXOBAТЬ!"
- GO TO 8407
- 8092 PRINT
- PRINT " BЫ OШИБЛИCЬ."
- GO TO 8010
- 8101 X=INT (X)
- IF X<=0 THEN GO TO 7220
- 8102 IF (X-6)<0 THEN GO TO 8104
- 8103 func310();
- GO TO 8008
- 8104 IF S=0 THEN GO TO 8107
- 8105 IF (X-4)<0 THEN GO TO 8109
- 8106 IF (X-4)=0 THEN GO TO 8407
- 8107 IF K<=0 THEN GO TO 8109
- 8108 IF (X-5)=0 THEN GO TO 8407
- 8109 X=7910+X*100
- GO TO X
- 8110 PRINT
- func1010();
- PRINT " ГAPAHТИPУEM ДOXOД ";2*B;"% B ГOД."
- GO SUB 8115
- GO TO 8120
- void func8115()
- {
- PRINT "CТOИMOCТЬ OПEPAЦИИ 5%"
- }
- 8120 INPUT " CKOЛЬKO ПOMEЩAEТE? ";X
- X=ABS (X)
- IF (X-A)<=0 THEN GO TO 8140
- 8130 GO SUB 7310
- GO TO 7210
- 8140 A=A-X
- H=H+.95*X
- 8150 GO TO 8008
- 8210 func8211();
- GO TO 8150
- void func8211()
- {
- H=INT (.5+H)
- PRINT
- PRINT " CЧЁТ B БAHKE ";H
- func8115();
- 8220 INPUT " CKOЛЬKO БEPЁТE? ";X
- X=ABS (X)
- IF (X-H)<=0 THEN GO TO 8240
- 8230 PRINT
- PRINT " BHИMAТEЛЬHEE HAДO!"
- GO TO 8210
- }
- 8240 H=H-X
- A=A+.95*X
- RETURN
- 8310 PRINT
- PRINT
- func1010();
- PRINT " ДOГOBOPИMCЯ OБ УCЛOBИЯX."
- 8312 INPUT " CKOЛЬKO ДAДИТE? ";S
- S=ABS (S)
- IF (S-A)<=0 THEN GO TO 8320
- 8314 PRINT
- PRINT " BЫ HE ИMEEТE ТPEБУEMOЙ CУMMЫ HAЛИЧHЫMИ."
- S=0
- GO TO 7220
- 8320 INPUT " HA KAKOЙ CPOK? ";NS
- NS=ABS (NS)
- J=SQR (SQR (NS))
- IF (NS-11)<0 THEN GO TO 8340
- 8330 PRINT
- PRINT " ЭK 3AГHУЛИ!"
- GO TO 8320
- 8340 INPUT " ПOД KAKИE ПPOЦEHТЫ? ";S1
- S1=.01*ABS (S1)
- Y=32.94*J/(.6+S1)
- 8345 PRINT
- PRINT " ШAHC 3APAБOТAТЬ
- ";INT (Y);"%"
- func410();
- IF X<=0 THEN GO TO 8370
- 8350 A=A-S
- X=Y/100
- func210();
- IF (Y-X)<0 THEN GO TO 8150
- 8355 S=-S
- GO TO 8150
- 8370 S=0
- GO TO 6592
- 8401 IF (-K)<0 THEN GO TO 8405
- 8403 PRINT " 5-ПOЛУЧИТЬ KPEДИТ"
- 8405 RETURN
- 8407 PRINT
- PRINT " ПPOCИM HE3AMEДЛИТEЛЬHO ПOKИHУТЬ БAHK!"
- GO TO 7210
- 8410 func1010();
- Y=A+H+P+C-U+V
- IF (-Y)<0 THEN GO TO 8420
- 8412 PRINT
- PRINT
- PRINT " БAHKPOТAM HE ДAЁM."
- GO TO 7210
- 8420 PRINT
- PRINT
- PRINT " CO BCEMИ ПOТPOXAMИ BЫ CТOИ-"
- PRINT "ТE
- ";INT (Y);"."
- 8422 PRINT "ДAЁM HA CPOK HE БOЛEE 5 ЛEТ."
- INPUT " CKOЛЬKO? ";K
- K=ABS (K)
- 8424 INPUT " CPOK? ";NK
- IF (NK-6)<0 THEN GO TO 8430
- 8426 PRINT
- PRINT " ЧИТAТЬ HE УMEEТE?"
- GO TO 8424
- 8430 K1=.01+(3+funcR())*K*NK/Y/(L+2)/5
- 8432 PRINT
- PRINT " ДAЁM ПOД ";INT (K1*100);"%"
- INPUT " БEPЁТE? ";X
- IF (-X)<0 THEN GO TO 8440
- 8434 K=0
- GO TO 8008
- 8440 PRINT
- PRINT " 3AПOMHИТE BPEMЯ PACПЛAТЫ
- ";NN+N+NK;"."
- A=A+K
- GO TO 8150
- 8501 J=2.5
- func5101();
- 8503 FOR I=1 TO 5
- GO SUB 9910
- Т(I)=X
- I(I)=Т(I)*(2-Y)
- O(I)=100*Y
- NEXT I
- 8505 func1010();
- PRINT " PA3BЛEKAЯCЬ C УMOM,MOЖHO ПOЛУ-"
- PRINT "ЧИТЬ И БAPЫШ."
- PRINT
- 8510 PRINT " MOЖEM 3AТ- BO3M-HЫЙ BEP-ТЬ"
- 8511 PRINT "ПPEДЛOЖИТЬ PAТЫ ДOXOД УCПEXA(%)"
- PRINT
- 8513 J=8900
- FOR I=1 TO 5
- J=J+10
- PRINT I;" ";
- GO SUB J
- PRINT " ";Т(I);" ";INT (I(I));" ";O(I)
- NEXT I
- 8515 INPUT " ГУЛЯEM? ";X
- IF (-X)<0 THEN GO TO 8520
- 8517 PRINT
- PRINT " BЫ ЖMOТ?!"
- GO TO 7220
- 8520 INPUT " ЧEГO ИЗBOЛИТE-C? ";X
- IF (-X)<0 THEN GO TO 8523
- 8521 PRINT
- PRINT " ПPOТPE3BEЛ БЫ CHAЧAЛA..."
- GO TO 7220
- 8523 IF (5-X)<0 THEN GO TO 8521
- 8525 IF (Т(X)-A-H)<=0 THEN GO TO 8530
- 8527 GO SUB 7310
- GO TO 7210
- 8530 func210();
- IF (100*Y-O(X))<=0 THEN GO TO 8540
- 8533 PRINT
- PRINT " BAM HE BEЗЁТ-OДHИ PACXOДЫ."
- X=Т(X)
- func7110();
- 8534 IF A<0 THEN GO TO 7210
- 8535 IF A=0 THEN GO TO 7220
- 8536 INPUT " EЩЁ ПOДPA3BЛEЧЁMCЯ? ";X
- IF X<=0 THEN GO TO 7220
- 8537 GO TO 8505
- 8540 PRINT
- PRINT
- PRINT " BAM ПOДФAPТИЛO.ДOBOЛЬHЫ?"
- 8543 A=A-Т(X)+I(X)
- GO TO 7220
- 8910 PRINT "ПPEФEPAHC ";
- RETURN
- 8920 PRINT "MOHТE-KAPЛO";
- RETURN
- 8930 PRINT "ЛЮБOBHИЦУ ";
- RETURN
- 8940 PRINT "БAHKEТ ";
- RETURN
- 8950 PRINT "KPУИЗ ";
- RETURN
- 9911 BORDER BIN
- PAPER BIN
- INK BIN
- POKE 23624,BIN
- IF PEEK 23635=203 THEN LOAD ""CODE
- GO TO 1
- 9912 RANDOMIZE USR 15619
- //
- LOAD "PREZIUDG"CODE
- 9913 GO TO 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement