Xreferat.com » Рефераты по кибернетике » Курсовая работа по информатике

Курсовая работа по информатике

3

NEXT i

PRINT #2, "Suda s vilovom 75%-100% v por vosrast"

PRINT

FOR i = 1 TO n

IF f(i) < 100 AND f(i) > 75 THEN GOSUB 3

NEXT i

CLOSE #1, #2

REM risovanie

SCREEN 12

COLOR 2

LOCATE 1, 7

PRINT "Kursovai rabota po in-ke.y-11.Nikishova.V94"

h = 5

FOR i = 1 TO 10

h = h + 6

LOCATE 6, h: PRINT i

NEXT i

r = 6

FOR i = 1 TO 5

r = r + 3

LOCATE r, 7: PRINT i

NEXT i

LINE (70, 100)-(570, 350), 1, BF

FOR i = 70 TO 570 STEP 50

FOR j = 100 TO 350 STEP 50

LINE (i, 100)-(i, 350), 10

LINE (70, j)-(570, j), 10

NEXT j

NEXT i

FOR i = 1 TO n

d1 = INT(s(i) / 10)

d2 = ABS((d1 - s(i) / 10) * 10)

CIRCLE (72 + d1 * 50 + INT(RND(10) * 46), 102 + d2 * 50 + INT(RND(1) * 46)), 3, 10

NEXT i

REM shach1, snach2

a = 0: o = 0

FOR i = 1 TO n

IF s(i) <= 83 AND s(i) >= 11 THEN a = a + f(i): k = k + 1

IF s(i) <= 83 AND s(i) >= 11 AND c$(i) = "SRTM" THEN o = o + 1

NEXT i

LOCATE 24, 10: PRINT "Kolichestvo sudov v promislovom r-ne"; "-"; n

LOCATE 25, 18: PRINT "Danni po sudam 60-69 promislova r-na:"

LOCATE 26, 21: PRINT " kol-vo sudov tipa CPTM"; o

LOCATE 27, 21: PRINT "crednee snuch vilova vseh sudov"; a / k

END

2 : PRINT c$(i); n$(i); s(i); k(i); f(i); t(i)

RETURN

3 PRINT #2, c$(i), n$(i), s(i), k(i), f(i), t(i)

RETURN


Исходный файл

14

BATM, SUHONDAEVSKIJ, 14, 45, 12, 86

MRTM, ATIA, 21, 32, 28, 74

SRTM, NEIRON, 62, 76, 84, 22

BATM, P.CAHCIBADZE, 03, 11, 55, 48

MRTM, RAMIGALA, 60, 89, 48, 6

MRTM, DITUVA, 73, 26, 62, 18

SRTM, MONOKRISTALL, 52, 68, 36, 95

SRTM, TAVA, 51, 18, 87, 21

BATM, PLUNGE, 52, 58, 9, 88

BATM, P.SAFRANOV, 34, 93, 74, 36

MRTM, DUSETOS, 94, 47, 19, 72

SRTM, BERKLIJ, 71, 31, 40, 45

SRTM, KORIFENA, 52, 54, 69, 68

BATM, STARIJ ARBAT, 01, 40, 94, 59


Выходной файл

Suda s vilovom 0%-50%, otsortir v por vosrast

BATM SUHONDAEVSKIJ 14 45 12 86

MRTM RAMIGALA 60 89 48 6

BATM PLUNGE 52 58 9 88

SRTM MONOKRISTALL 52 68 36 95

MRTM DUSETOS 94 47 19 72

SRTM BERKLIJ 71 31 40 45

MRTM ATIA 21 32 28 74

Suda s vilovom 50%-75%, otsort v por vosrast

BATM P.SAFRANOV 34 93 74 36

BATM P.CAHCIBADZE 3 11 55 48

SRTM KORIFENA 52 54 69 68

MRTM DITUVA 73 26 62 18

Suda s vilovom 75%-100% v por vosrast

SRTM TAVA 51 18 87 21

BATM STARIJ ARBAT 1 40 94 59

SRTM NEIRON 62 76 84 22

Если Вам нужна помощь с академической работой (курсовая, контрольная, диплом, реферат и т.д.), обратитесь к нашим специалистам. Более 90000 специалистов готовы Вам помочь.
Бесплатные корректировки и доработки. Бесплатная оценка стоимости работы.

Поможем написать работу на аналогичную тему

Получить выполненную работу или консультацию специалиста по вашему учебному проекту
Нужна помощь в написании работы?
Мы - биржа профессиональных авторов (преподавателей и доцентов вузов). Пишем статьи РИНЦ, ВАК, Scopus. Помогаем в публикации. Правки вносим бесплатно.

Похожие рефераты: