Автор: Пользователь скрыл имя, 31 Января 2013 в 19:53, курсовая работа
Составить расчетную таблицу для своего варианта, содержащую следующие колонки:
1. часы суток;
2. поступление нефтепродуктов на участок слива в железнодорожных цистернах;
3. поступление нефтепродуктов в куб. м. по часам суток;
4. поступление нефтепродуктов в куб. м. с начала суток с накоплением;
5. количество включенных насосов по часам суток;
3. КРАТКОЕ ОПИСАНИЕ НАЗНАЧЕНИЯ И ВОЗМОЖНОСТЕЙ EXCEL 4
4. ПОРЯДОК ФОРМИРОВАНИЯ ТАБЛИЦЫ ПО СВОЕМУ ВАРИАНТУ 7
5. ЗНАЧЕНИЯ ЯЧЕЕК ТАБЛИЦЫ, СОДЕРЖАЩИХ ФОРМУЛЫ И ОПИСАНИЕ ИХ НАЗНАЧЕНИЯ И ПОРЯДКА ФОРМИРОВАНИЯ 8
6. ТАБЛИЦА МАТЕМАТИЧЕСКИХ ЗНАЧЕНИЙ И ДРУГИХ ФУНКЦИЙ, ИСПОЛЬЗУЕМЫХ В РАБОТЕ, С ИХ КРАТКИМ ОПИСАНИЕМ 10
7.ОПИСАНИЕ ПОСТРОЕНИЯ ГРАФИЧЕСКОЙ СХЕМЫ ТЕРМИНАЛА 11
8. ОПИСАНИЕ ПОСТРОЕНИЯ ТРЕБУЕМЫХ ГРАФИКОВ И ДИАГРАММ, (ВКЛЮЧАЯ ИСПОЛЬЗОВАНИЯ МАСТЕРА ДИАГРАММ, СПОСОБОВ ФОРМАТИРОВАНИЯ ГРАФИКОВ И ДИАГРАММ). 12
9. ВЫВОДЫ ПО ПЕРВОЙ ЧАСТИ. 13
10. ЗАДАНИЕ ПО ВТОРОЙ ЧАСТИ КУРСОВОЙ РАБОТЫ С ДАННЫМИ ПО СВОЕМУ ВАРИАНТУ. 13
11. ОПИСАНИЕ ПОСТАНОВКИ ЗАДАЧИ И БЛОК-СХЕМЫ АЛГОРИТМА ЕЕ РЕШЕНИЯ 14
12. ТЕКСТ ПРОГРАММЫ НА ЯЗЫКЕ BASIC 15
13. ВЫВОДЫ ПО ВТОРОЙ ЧАСТИ. 17
14. ЛИТЕРАТУРНЫЕ ИСТОЧНИКИ: 18
15. ПРИЛОЖЕНИЯ 19
NEXT i
PRINT "75%-100%"
FOR i = 1 TO n
IF f(i) >= 75 AND f(i) < 100 THEN GOSUB 2
NEXT i
REM Выводим в выходной файл
INPUT "Введите имя выходного файла"; file2$
OPEN file2$ FOR OUTPUT AS #2
PRINT #2, "Суда с выловом 0%-50%, отсортированные по названию"
FOR i = 1 TO n
IF f(i) < 50 AND f(i) > 0 THEN GOSUB 3
NEXT i
PRINT #2, "Суда с выловом 50%-75%, отсортированные по названию"
FOR i = 1 TO n
IF f(i) <= 75 AND f(i) >= 50 THEN GOSUB 3
NEXT i
PRINT #2, "Суда с выловом 75%-100%, отсортированные по названию"
FOR i = 1 TO n
IF f(i) < 100 AND f(i) > 75 THEN GOSUB 3
NEXT i
CLOSE #1, #2
REM Рисование
SCREEN 12
COLOR 2
LOCATE 1, 7
PRINT "Курсовая работа по инфор-ке.y-11.Никишова Н.Ю. Вариант 94"
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(VAL(s$(i)) / 10)
d2 = ABS((d1 - VAL(s$(i)) / 10) * 10)
CIRCLE (72 + d1 * 50 + INT(RND(10) * 46), 102 + d2 * 50 + INT(RND(1) * 46)), 3, 10
NEXT i
REM Считаем сумму и среднее значение
a = 0: o = 0
FOR i = 1 TO n
IF VAL(s$(i)) <= 83 AND VAL(s$(i)) >= 11 THEN a = a + f(i): k = k + 1
NEXT i
FOR i = 1 TO n
IF VAL(s$(i)) <= 83 AND VAL(s$(i)) >= 11 AND c$(i) = "SRTM" THEN o = o + 1
NEXT i
LOCATE 24, 10: PRINT "Кол-во судов в промысловом районе"; "-"; n
LOCATE 25, 18: PRINT "Данные по судам 11-83 промыслового района:"
LOCATE 26, 21: PRINT " кол-во судов типа CPTM"; o; "шт"
LOCATE 27, 21: PRINT "среднее значение вылова всех судов"; a / k; "%"
END
REM Подпрограммы
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
Выходной файл
Суда с выловом 0%-50%, отсортированные по названию
BATM SUHONDAEVSKIJ 04 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 01 32 28 74
Суда с выловом 50%-75%, отсортированные по названию
BATM P.SAFRANOV 34 93 74 36
BATM P.CAHCIBADZE 03 11 55 48
SRTM KORIFENA 52 54 69 68
MRTM DITUVA 73 26 62 18
Суда с выловом75%-100% , отсортированные по названию
SRTM TAVA 51 18 87 21
BATM STARIJ ARBAT 01 40 94 59
SRTM NEIRON 62 76 84 22
Выполнив вторую
часть задания курсовой
Никишова Н. - 2000г.
Информатика