Notes

5 CLS

SCREEN _NEWIMAGE(800, 600, 256)

9 PRINT "BU PROGRAM 3 "GRENCI ICIN NOT HESAPLAR"
10 PRINT "-------------------------------------"

11 DIM h_1 AS STRING
12 DIM h_2 AS STRING
13 DIM h_3 AS STRING

14 DIM snc1 AS STRING
15 DIM snc2 AS STRING
16 DIM snc3 AS STRING



20 DIM ad1 AS STRING

21 DIM ad2 AS STRING

22 DIM ad3 AS STRING


24 DIM v1_1, v1_2, v1_3, v2_1, v2_2, v2_3, f1, f2, f3, vort_1, vort_2, vort_3, s AS INTEGER





25 DIM s2 AS STRING

30 INPUT "1."GRENCININ AD VE SOYADI:", ad1

40 INPUT "2."GRENCININ AD VE SOYADI:", ad2

50 INPUT "3."GRENCININ AD VE SOYADI:", ad3




55 CLS

56 INPUT "VIZE NOTLARINI GIRMEK ICIN 1'e FINAL NOTLARINI GIRMEK ICIN 2'ye BASINIZ.", g

57 CLS

58 IF g = 1 THEN GOTO 65

59 IF g = 2 THEN GOTO 350

62 PRINT "HATALI GIRIS YAPTINIZ,YENIDEN DENEYINIZ"

60 IF g > 2 OR g < 1 THEN GOTO 56




65 INPUT "1."GRENCININ 1.VIZESI:", v1_1
CLS

IF v1_1 < 0 OR v1_1 > 100 THEN GOTO 65




70 INPUT "2."GRENCININ 1.VIZESI:", v1_2
CLS

IF v1_2 < 0 OR v1_2 > 100 THEN GOTO 70


80 INPUT "3."GRENCININ 1.VIZESI:", v1_3
CLS

IF v1_3 < 0 OR v1_3 > 100 THEN GOTO 80




85 CLS



90 INPUT "1."GRENCININ 2.VIZESI:", v2_1
CLS

IF v2_1 < 0 OR v2_1 > 100 THEN GOTO 90



100 INPUT "2."GRENCININ 2.VIZESI:", v2_2
CLS

IF v2_2 < 0 OR v2_2 > 100 THEN GOTO 100



110 INPUT "3."GRENCININ 2.VIZESI:", v2_3
CLS

IF v2_3 < 0 OR v2_3 > 100 THEN GOTO 110





115 CLS






150 PRINT "VIZE ORTALAMASINI HESAPLAMAK ICIN 1'e, FINAL NOTLARINI GIRMEK ICIN 2'ye, CIKIS ICIN 3'e BASINIZ."


160 INPUT "SECIMINIZ:", s

175 CLS

200 vort_1 = (v1_1 + v2_1) / 2

210 vort_2 = (v1_2 + v2_2) / 2

220 vort_3 = (v1_3 + v2_3) / 2


221 IF s = 1 THEN GOTO 230

222 IF s = 2 THEN GOTO 350

223 IF s = 3 THEN GOTO 2000

224 PRINT "HATALI GIRIS YAPTINIZ,YENIDEN DENEYINIZ"

225 IF s < 1 OR s > 3 THEN GOTO 150








230 CLS

240 PRINT "ADI SOYADI", "VIZE 1", "VIZE 2", "VIZE ORTALAMASI"

245 PRINT "------------------------------------------------------------------------------------------"

250 PRINT "1."; ad1, v1_1, v2_1, vort_1


255 PRINT "------------------------------------------------------------------------------------------"


260 PRINT


270 PRINT "2."; ad2, v1_2, v2_2, vort_2


275 PRINT "------------------------------------------------------------------------------------------"

280 PRINT


290 PRINT "3."; ad3, v1_3, v2_3, vort_3



292 PRINT "------------------------------------------------------------------------------------------"

295 PRINT


300 INPUT "YENI BIR HESAPLAMA YAPMAK ISTIYORMUSUNUZ (E/H)", s2

310 IF s2 = "E" OR s2 = "e" THEN GOTO 150

320 IF s2 = "H" OR s2 = "h" THEN GOTO 2000

330 PRINT "HATALI GIRIS YAPTINIZ,YENIDEN DENEYINIZ"

340 GOTO 300








350 INPUT "1."GRENCININ FINALI:", f1
CLS

IF f1 < 0 OR f1 > 100 THEN GOTO 350


352 INPUT "2."GRENCININ FINALI:", f2
CLS

IF f2 < 0 OR f2 > 100 THEN GOTO 352


356 INPUT "3."GRENCININ FINALI:", f3
CLS

IF f3 < 0 OR f3 > 100 THEN GOTO 356






145 CLS

360 INPUT "SONUCLARI HESAPLAMAK ICIN 1'e, CIKIS ICIN 2'ye BASINIZ.", s3

362 CLS

365 PRINT

370 IF s3 = 1 THEN GOTO 400

380 IF s3 = 2 THEN GOTO 2000

382 PRINT "HATALI GIRIS YAPTINIZ,YENIDEN DENEYINIZ"

390 IF s3 < 1 OR s3 > 2 THEN GOTO 360








400 dsn_1 = (vort_1 * 0.4) + (f1 * 0.6)

410 dsn_2 = (vort_2 * 0.4) + (f2 * 0.6)

420 dsn_3 = (vort_3 * 0.4) + (f3 * 0.6)



480 PRINT "NOT HESAPLAMA SISTEMI"
481 PRINT "---------------------"


500 PRINT "ADI SOYADI", "VIZE ORT.", "FINAL", "DSN", "HARF", "SONU€"
502 PRINT "------------------------------------------------------------------------------------------"


503 PRINT ad1, vort_1, f1, dsn_1,
504 IF dsn_1 >= 90 AND dsn_1 <= 100 THEN PRINT "AA"; h_1, "GECTIN", snc1
505 IF dsn_1 >= 80 AND dsn_1 < 90 THEN PRINT "BA"; h_1, "GECTIN", snc1
506 IF dsn_1 >= 70 AND dsn_1 < 80 THEN PRINT "BB"; h_1, "GECTIN", snc1
507 IF dsn_1 >= 60 AND dsn_1 < 70 THEN PRINT "CB"; h_1, "GECTIN", snc1
508 IF dsn_1 >= 50 AND dsn_1 < 60 THEN PRINT "CC"; h_1, "GECTIN", snc1
509 IF dsn_1 >= 40 AND dsn_1 < 50 THEN PRINT "DC"; h_1, "KALDIN", snc1
510 IF dsn_1 >= 30 AND dsn_1 < 40 THEN PRINT "DD"; h_1, "KALDIN", snc1
511 IF dsn_1 >= 0 AND dsn_1 < 30 THEN PRINT "FF"; h_1, "KALDIN", snc1


513 PRINT "------------------------------------------------------------------------------------------"

514 PRINT ad2, vort_2, f2, dsn_2,
515 IF dsn_2 >= 90 AND dsn_2 <= 100 THEN PRINT "AA"; h_2, "GECTIN", snc2
516 IF dsn_2 >= 80 AND dsn_2 < 90 THEN PRINT "BA"; h_2, "GECTIN", snc2
517 IF dsn_2 >= 70 AND dsn_2 < 80 THEN PRINT "BB"; h_2, "GECTIN", snc2
518 IF dsn_2 >= 60 AND dsn_2 < 70 THEN PRINT "CB"; h_2, "GECTIN", snc2
519 IF dsn_2 >= 50 AND dsn_2 < 60 THEN PRINT "CC"; h_2, "GECTIN", snc2
520 IF dsn_2 >= 40 AND dsn_2 < 50 THEN PRINT "DC"; h_2, "KALDIN", snc2
521 IF dsn_2 >= 30 AND dsn_2 < 40 THEN PRINT "DD"; h_2, "KALDIN", snc2
522 IF dsn_2 >= 0 AND dsn_2 < 30 THEN PRINT "FF"; h_2, "KALDIN", snc2


525 PRINT "------------------------------------------------------------------------------------------"

526 PRINT ad3, vort_3, f3, dsn_3,
527 IF dsn_3 >= 90 AND dsn_3 <= 100 THEN PRINT "AA"; h_3, "GECTIN", snc3
528 IF dsn_3 >= 80 AND dsn_3 < 90 THEN PRINT "BA"; h_3, "GECTIN", snc3
529 IF dsn_3 >= 70 AND dsn_3 < 80 THEN PRINT "BB"; h_3, "GECTIN", snc3
530 IF dsn_3 >= 60 AND dsn_3 < 70 THEN PRINT "CB"; h_3, "GECTIN", snc3
531 IF dsn_3 >= 50 AND dsn_3 < 60 THEN PRINT "CC"; h_3, "GECTIN", snc3
532 IF dsn_3 >= 40 AND dsn_3 < 50 THEN PRINT "DC"; h_3, "KALDIN", snc3
533 IF dsn_3 >= 30 AND dsn_3 < 40 THEN PRINT "DD"; h_3, "KALDIN", snc3
534 IF dsn_3 >= 0 AND dsn_3 < 30 THEN PRINT "FF"; h_3, "KALDIN", snc3



540 PRINT "------------------------------------------------------------------------------------------"











































2000 END