200 lines
5.5 KiB
QBasic
200 lines
5.5 KiB
QBasic
100 REM--E.A.GALLETTA,PATCHOGUE-H.S.,4/22/69 EARTH SIENCE (BIICAC)
|
||
110 REM--PROGRAM ON CLIMATES
|
||
120 REM--REWRITTEN--7/28/69--BASIC--<ROD>
|
||
130 REM REVISED BY TONY PEREZ, WALT WHITMAN HS, 8-69
|
||
140 REM RE-REVISED BY C.LOSIK 8-26-70
|
||
150 DIML(56)
|
||
160 READN,L(N)
|
||
170 IFN<>56THEN 160
|
||
180 T=0
|
||
190 PRINT"O.K., HERE ARE SOME VALUES FOR THE PRECIPIATION (P) AND FOR
|
||
200 PRINT"THE POTENTIAL EVAPOTRANSPIRATION (PE) OF AN AREA:"
|
||
210 PRINT
|
||
220 PRINT" ","MONTH"," P"," PE"
|
||
230 PRINT" ","=====","=====","======"
|
||
240 P=INT(10*RND(1))
|
||
250 IFP>6THEN240
|
||
260 IFP<1THEN240
|
||
270 E=INT(10*RND(1))
|
||
280 IFE>4THEN270
|
||
290 IFE<1THEN270
|
||
300 Z=5*E+6*P
|
||
310 IF (Z-21)*(Z-22)*(Z-17)*(Z-38)=0 THEN 240
|
||
320 FORI=1TO12
|
||
330 PRINT" ",I,
|
||
340 IFP>1THEN360
|
||
350 P1=12*COS(.261*I)^2+2*RND(1)
|
||
360 IFP<>2THEN380
|
||
370 P1=12*SIN(.261*I)+2*RND(1)
|
||
380 IFP<>3THEN400
|
||
390 P1=2+3*RND(1)
|
||
400 IFP<>4THEN420
|
||
410 P1=2*RND(1)
|
||
420 IFP<>5THEN440
|
||
430 P1=7+10*RND(1)
|
||
440 IFP<>6THEN460
|
||
450 P1=3*COS(.5+.15*I)^2
|
||
460 PRINTINT(P1),
|
||
470 IFE>1THEN490
|
||
480 E1=10*SIN(.261*I)^2
|
||
490 IFE<>2THEN510
|
||
500 E1=12*SIN(.261*I)^2
|
||
510 IFE<>3THEN530
|
||
520 E1=2*SIN(.5+.15*I)^2
|
||
530 IFE<>4THEN550
|
||
540 E1=8+4*RND(1)
|
||
550 T=T+INT(P1)
|
||
560 PRINTINT(E1+(E1/10)*2)
|
||
570 NEXTI
|
||
580 PRINT
|
||
590 PRINT"TOTAL PRECIPITATION =";T;"INCHES"
|
||
600 PRINT
|
||
610 PRINT"O.K., PLOT YOUR GRAPH ON THE PAPER PROVIDE YOU"
|
||
620 PRINT"AND WHEN YOU ARE READY TO CONTINUE.... MEREY TYPE"
|
||
630 PRINT"ANY NUMBER AND THE RETURN KEY. ";
|
||
640 INPUTQ
|
||
650 PRINT
|
||
660 PRINT"READY? GOOD, NOW TELL ME . . . DOES YOUR GRAPH SHOW THAT"
|
||
670 PRINT"THE CLIMATE HAS DEFINITE WET AND DRY SEASONS (1=YES, 0=NO) "
|
||
680 INPUT S
|
||
690 PRINT
|
||
700 IFS=0THEN880
|
||
710 IF S<>1 THEN 660
|
||
720 IFP<3THEN990
|
||
730 B=0
|
||
740 GOSUB 1960
|
||
750 PRINT"TELL ME, IS THE CLIMATE [1] WET, [2] DRY, R [3] MODERATE ALL"
|
||
760 PRINT"YEAR";
|
||
770 INPUT S
|
||
780 PRINT
|
||
790 IFS=1THEN920
|
||
800 IFS=3THEN960
|
||
810 IF S<>2 THEN 750
|
||
820 IFT<13THEN1130
|
||
830 IFT>80THEN860
|
||
840 GOSUB1950
|
||
850 GOTO1140
|
||
860 GOSUB1910
|
||
870 GOTO1140
|
||
880 IFP>2THEN750
|
||
890 IFP=2THEN820
|
||
900 GOSUB1910
|
||
910 GOTO990
|
||
920 IFT>80THEN1130
|
||
930 IFT>=13THEN840
|
||
940 GOSUB1930
|
||
950 GOTO1140
|
||
960 IF(T-13)*(80-T)>=0THEN1130
|
||
970 IFT<13THEN940
|
||
980 IFT>80THEN860
|
||
990 PRINT"TELL ME, WHICH IS THE WET SEASON, [1] THE WINTER OR [2] THE"
|
||
1000 PRINT"SUMMER";
|
||
1010 PRINT
|
||
1020 INPUT S
|
||
1030 PRINT
|
||
1040 IFS=1THEN1090
|
||
1050 IF S<>2 THEN 990
|
||
1060 IFP=2THEN1130
|
||
1070 GOSUB1910
|
||
1080 GOTO1140
|
||
1090 IFP=1THEN1130
|
||
1100 GOSUB1910
|
||
1110 GOTO1140
|
||
1120 PRINT
|
||
1130 PRINT"NICE GOING, SMARTY PANTS. KEEP UP THE GOODWORK."
|
||
1140 PRINT"BY CHECKING THE PE CURVE ON YOUR GRAPH, WOUD YOU SAY THAT THE"
|
||
1150 PRINT"SUMMERS ARE [1] HOT, [2] WARM, OR [3] COOL"
|
||
1160 INPUT S
|
||
1170 PRINT
|
||
1180 IFS=2THEN1260
|
||
1190 IFS=3THEN1300
|
||
1200 IF S<>1 THEN 1130
|
||
1210 IFE=2THEN1320
|
||
1220 IFE=4THEN1320
|
||
1230 IF E=1 THEN 1320
|
||
1240 GOSUB1910
|
||
1250 GOTO1330
|
||
1260 IFE=1THEN1320
|
||
1270 IFE<>3THEN1240
|
||
1280 GOSUB1950
|
||
1290 GOTO1330
|
||
1300 IFE=3THEN1320
|
||
1310 IFE<>3THEN1240
|
||
1320 PRINT"YOU HAVE RESTORED MY FAITH IN TEENAGERS."
|
||
1330 PRINT"FROM THE SAME INFORMATION (PE GRAPH), WOULD YOU SAY THAT THE"
|
||
1340 PRINT"WINTERS ARE [1] COLD, [2] MILD, OR [3] WARM";
|
||
1350 INPUT S
|
||
1360 PRINT
|
||
1370 IFS=2THEN1450
|
||
1380 IFS=3THEN1490
|
||
1390 IF S<>1 THEN 1330
|
||
1400 IFE<3THEN1520
|
||
1410 GOSUB1930
|
||
1420 GOTO1530
|
||
1430 GOSUB1950
|
||
1440 GOTO1530
|
||
1450 IFE=3THEN1520
|
||
1460 IFE=4THEN1430
|
||
1470 GOSUB1910
|
||
1480 GOTO1530
|
||
1490 IFE=3THEN1410
|
||
1500 IFE=4THEN1530
|
||
1510 GOTO1470
|
||
1520 PRINT"IT WARMS MY HEART TO HEAR YOU SAY THAT. GOOD GOING."
|
||
1530 PRINT
|
||
1540 PRINT"WELL, BY NOW YOU MUST HAVE AN INKLING AS TO THE TYPE OF"
|
||
1550 PRINT"CLIMATE WE HAVE HERE. BELOW IS A COMPLETE LISTING OF ALL THE
|
||
1560 PRINT"CLIMATES IN THE WORLD. REFER TO THEM BY THEIR NUMBER ONLY."
|
||
1570 PRINT
|
||
1580 PRINT
|
||
1590 PRINT"NUMBER","NAME OF CLIMATE"
|
||
1600 PRINT"======","==============="
|
||
1610 PRINT"1","TROPICAL RAINFOREST"
|
||
1620 PRINT"2","TROPICAL EAST COAST"
|
||
1630 PRINT"3","TROPICAL MONSOON"
|
||
1640 PRINT"4","TROPICAL SAVANNA"
|
||
1650 PRINT"5","TROPICAL DESERT"
|
||
1660 PRINT"6","MEDITERRANEAN"
|
||
1670 PRINT"7","MARINE WEST COAST"
|
||
1680 PRINT"8","HUMID CONTINENTAL"
|
||
1690 PRINT"9","HUMID SUBTROPICAL"
|
||
1700 PRINT"10","MIDDLE LATITUDE GRASSLANDS"
|
||
1710 PRINT"11","MIDDLE LATITUDE DESERT"
|
||
1720 PRINT"12","SUBARTIC CLIMATES"
|
||
1730 PRINT"13 OR 14","HIGHLAND CLIMATES"
|
||
1740 PRINT" ","(TROPICAL OR MIDDLE LATITUDES)"
|
||
1750 PRINT"15","POLAR TUNDRA"
|
||
1760 PRINT"16","POLAR ICECAP"
|
||
1770 PRINT
|
||
1780 PRINT"WHAT IS THE NUMBER OF THE CLIMATE WE HAVE (WE'LL ACCEPT THE"
|
||
1790 PRINT "FACT THAT THEY MAY OVERLAP)";
|
||
1800 INPUTS
|
||
1810 PRINT
|
||
1820 PRINT
|
||
1830 PRINT
|
||
1840 IFS=L(Z)THEN1880
|
||
1850 PRINT"MY SUGGESTION - STICK TO LANGUAGES OR SOCIAL STUDIES."
|
||
1860 PRINT"YOU SHOULD HAVE SAID";L(Z);". GOOD DAY TO YOU."
|
||
1870 STOP
|
||
1880 PRINT"YOUR FORTUNE AS A METEOROLOGIST IS BUDDING. IT WAS"
|
||
1890 PRINT"VERY NICE TO WORK WITH YOU. SO LONG."
|
||
1900 STOP
|
||
1910 B=1
|
||
1920 GOTO1960
|
||
1930 B=2
|
||
1940 GOTO1960
|
||
1950 B=3
|
||
1960 PRINT"AW C'MON, YOU COULDN'T POSSIBLY MEAN THAT..."
|
||
1970 PRINT"YOU SHOULD HAVE SAID";B
|
||
1980 PRINT
|
||
1990 RETURN
|
||
2000 DATA11,6,16,7,23,10,26,3,27,15
|
||
2010 DATA28,8,29,11,32,3,33,13,34,11
|
||
2020 DATA 35,9,39,16,40,8,41,13,44,5
|
||
2030 DATA46,10,45,16,50,1,51,12,56,4
|
||
2040 DATA39,4,44,5,35,9,40,8,45,1,41,15,46,12,51,5,56,16
|
||
2050 DATA0,0
|
||
2060 END
|
||
,44,5
|
||
2030 DATA46,10,45,16,50,1,51,12,56,4
|
||
2040 DATA39,4,44,5,35,9,40,8,45,1,41,15,46,12,51,5,56,16 |