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

часам суток ,по формуле: ?VR %k = VR %k-V%средств. Скопировали,

затем представили данные в колонках в процентном формате кнопкой

процентный формат в панели форматирования.

3). Далее был проведен ряд вычислений:

Всего за сутки 24Si=1 = V k

Среднее значение в резервуаре 24 Si=1 VRk/24

Среднее значение в резервуаре в % 24 Si=1 VR%k/24

Часов работы насосов в сутки 24 Si=1 N k

Месячный расход электроэнергии 24 Si=1 N k* Pнас*30

Для высчитывания максимального отклонения количества

нефтепродуктов относительный заданного с учетом знака использовали

формулу ABS()b и МАКС(). Чтобы рассчитать расчетное количество

насосов в установке ОКРВВЕРХ для выражения МАКС(Vk)/Qнас исходя из

необходимости обеспечить перекачку нефтепродуктов в момент пиковой

нагрузки. Мы применили мастер функций для осуществления этой

задачи.

И, наконец, вычисление расхода электроэнергии с начала месяца

потребовало применения функций работы с датами. Это, прежде всего

функция СЕГОДНЯ(), а так же ДАТА(). Составили формулу вычисления

количества дней с начала месяца до текущей даты, а затем

использовали вычисленное ранее суточное потребление электроэнергии

насосной установкой.

После ввода формул:

- Включили трассировку влияющих и зависимых ячеек с целью

проверки правильности вычислений.

- Подсчитав все значения формул, можно перешли к построению

графиков. Это осуществляется с помощью Мастера диаграмм.

Построили графики, указанные в задании. Описание построения

графиков и диаграмм можно увидеть в теоретических сведениях

курсовой работы по информатике.

- Перешли к построению схемы нефтяного терминала, что будет

рассмотрено в теоретических частях нашей курсовой работы ниже по

тексту.

5. Значения ячеек таблицы, содержащих формулы и описание их

назначения и порядка формирования

|Адрес |Формула |Назначение |

|ячейки | | |

|А12:A36 | |Ввели согласно варианту |

|и | | |

|В12:B36 | | |

|С13:C36 |В13*60 |Высчитывает кол-во поступающих продуктов в |

| | |терминал на k-ый час нефтепродуктов |

| | |Vk=Zk*60 |

| | |Используется ссылка на относительный адрес |

|D13:D36 |В13+D12 |Вычисление поступления нефтепродуктов с начала |

| | |суток |

| | |VSk=VSk-1+Vk - такие вычисления называются |

| | |итерационными, т. к. результат, получаемый для |

| | |данной строки, зависит от значения, полученного |

| | |для предыдущей) |

| | |Используется ссылка на относительный адрес |

|Е13:E36 |ОКРУГЛ((F12+|Вычисление количества включенных на каждый час |

| |C13-$F$4*$F$|насосов |

| |5)/$F$6;0) |Nk=(VRk-1+Vk-Vрез*Qнас)/ Qнас |

| | |Для формирования обращаемся к мастеру функций: |

| | |выбираем в категории "Математические" функцию |

| | |ОКРУГЛ и используем ссылки на относительный и |

| | |абсолютный адрес. |

|F13:А36 |F12+C13-E13*|Вычисление объема нефтепродуктов по часам суток |

| |$F$6. |VRr=VRr-1+Vr-Nk*Qнас |

| | |В данной итерационной формуле используется ссылка|

| | |на относительный и абсолютный адрес |

|G13:G36 |F12+C13-E13*|Вычисление объема нефтепродуктов в резервуаре по |

| |$F$6. |часам суток в процентах от объема резервуара |

| | |VR%k=VRk/Vрез |

| | |В формуле используется ссылки на относительный и |

| | |абсолютный адрес, данные представлены в |

| | |процентном формате |

|H13:H36 |G12-$E$4 |Вычисление отклонения от среднего заданного |

| | |уровня в процентах |

| | |VR%k=VR%k-V%ср |

| | |В формуле используется ссылка на относительный и |

| | |абсолютный адрес, данные представлены в |

| | |процентном формате |

|F43 |СУММ(C13:C36|Вычисление объема нефтепродуктов всего за сутки; |

| |) |[pic] |

| | |Для формирования используется функция СУММ и |

| | |ссылка на относительный и абсолютный адрес. |

|F44 |СУММ(F12:F36|Вычисление среднее количество в резервуаре; |

| |)/24 |[pic] |

| | |Используются ссылки на относительный адрес, |

| | |функция СУММ; |

|F45 |СУММ(G12:G36|Среднее значение нефтепродуктов в резервуаре в |

| |)/24 |процентах; |

| | |[pic] |

| | |Используются ссылки на относительный адрес, |

| | |функция СУММ, данные представлены в процентном |

| | |формате |

|F46 |ABS(МАКС |Вычисление максимального отклонения уровня от |

| |(H12:H36)) |заданного |

| | |ABS(МАКС( VR%k)) |

| | |Используются следующие функции: в категории |

| | |"Математические и "Статистические" - МАКС, ссылки|

| | |на относительный адрес |

|F47 |ОКРВВЕРХ |Вычисление расчетного количества насосов в |

| |(МАКС(C12:C3|установке |

| |6))/$E$5;0) |ОКРВВЕРХ(МАКС(Vk)/Qнас) |

| | |Используются мастер функций: : в категории |

| | |"Математические ОКРУГЛВВЕРХ и "Статистические" - |

| | |МАКС, ссылки на относительный адрес |

|F48 |СУММ(E12:E36| Вычисление количества часов работы насосов в |

| |) |сутки |

| | |[pic] |

| | |Используются ссылки на относительный адрес, |

| | |функция СУММ |

|F49 |СУММ(E12:E36|Вычисление месячного расхода электроэнергии |

| |)*$E$6*30 |[pic] |

| | |Используются ссылки на относительный и |

| | |абсолютный адрес, функция СУММ |

|F50 |ДЕНЬ(СЕГОДНЯ|Вычисление расхода электроэнергии с начала месяца|

| |()*$F$49/30 | |

| | |Используются функции работы с датами: СЕГОДНЯ и |

| | |ДЕНЬ; Используются ссылки на относительный и |

| | |абсолютный адрес |

6. Таблица математических значений и других функций, используемых в

работе, с их кратким описанием

|Функция |Тип |Назначение |

|СУММ(число1;число2;…) |Математиче|Суммирует аргументы или выделенные |

| |ская |числа |

|ОКРУГЛ(число;число_разр|Математиче|Округляет число до указанного |

|ядов) |ская |количества десятичных разрядов. |

| | |В формате записи функции: |

| | |"Число" означает округляемое число. |

| | |"Число_разрядов" – количество |

| | |десятичных разрядов, до которого нужно|

| | |округлить число. |

|ОКРВВЕРХ(число;точность|Математиче|Округляет число до ближайшего общего |

|) |ская |целого или до ближайшего кратного |

| | |указанному значению |

| | |В формате записи функции : |

| | |"Число" означает округляемое значение.|

| | | |

| | |"Точность" – кратное до которого |

| | |нужно округлить. |

|ОКРУГЛВВЕРХ(число, |Математиче|Округляет число по модулю до |

|количество_ цифр) |ская |ближайшего общего целого |

| | |В формате записи функции : |

| | |"Число" означает округляемое значение.|

| | | |

| | |" количество_ цифр " – количество цифр|

| | |в округленном числе |

|МАКС(число1;число2;…), |Статистиче|Данная функция находит максимальное |

|МИН(число1;число2;…) |ская |(минимальное) значение из набора |

| | |данных. Набор данных может быть |

| | |выражен, также, в виде области ячеек, |

| | |логических выражений и т.д. |

| | |В формате записи функции : |

| | |" Число1, Число2" означает числа, |

| | |среди которых ищется максимальное |

| | |(минимальное) значение. |

|ABS(число) |Математиче|Данная функция возвращает модуль |

| |ская |(абсолютную величину) числа. |

| | |В формате записи функции : |

| | |"Число" означает действительное число,|

| | |абсолютную величину которого требуется|

| | |найти. |

|ДЕНЬ(дата_как_число) |Дата-время|Данная функция преобразует дату в день|

| | |месяца (число от 1 до 31) |

| | |В формате записи функции : |

| | |"Дата как число" код даты-время, |

| | |используемый в Microsoft Office для |

| | |вычислений. Дата может заноситься, |

| | |как, к примеру, 21.01, так и 21 |

| | |января. |

|СЕГОДНЯ() |Дата- |Данная функция возвращает текущую дату|

| |время |в виде даты в числовом формате. Если |

| | |введена функция ТДАТА, то Microsoft |

| | |Excel форматирует значение как дату |

Кроме того, в работе использовались комбинации из нескольких

функций, к примеру, функция ДЕНЬ(СЕГОДНЯ()), которая позволяет

посчитать в числовом формате количество дней от начала месяца. В

работе встречались следующие комбинации: ABS(МАКС ()), ОКРВВЕРХ

(МАКС ())

7.Описание построения графической схемы терминала

Описания построения схемы терминала с краткой характеристикой

используемых графических инструментов, приёмов редактирования

графических объектов, копирования и форматирования

Для изображения графической схемы воспользуемся средствами

создания графических объектов. Для этого включим панель рисования и

с помощью графических примитивов (прямоугольник, эллипс, линия)

изобразим условные обозначения объектов. В некоторых случаях ,

когда изображение располагается под углом и/или с края листа нужно

использовать инструмент Рисованная кривая.

Выполнение схемы может быть ускоренно широким использованием

операции копирования для создания однотипных графических объектов,

например, насосы, цистерны и подъездные пути (из курсовой работы).

При необходимости все объекты могут быть отредактированы

(перемещение, изменение размеров) и отформатированы.

Поясняющие надписи на схеме рекомендуется выполнять с

использованием инструмента Надпись, который дает возможность

объединить текст и графическую рамку. После выполнения схемы

желательно сгруппировать все графические объекты схемы, что бы

избежать случайного перемещения элементов чертежа относительно друг

друга.

Рисование линии

1. На панели инструментов Рисование нажмите кнопку Автофигуры и

выберите команду Линии, а затем — нужный тип линии.

2. Проведите линию.

Чтобы угол наклона линии был кратен 15 градусам, при

выполнении описанных выше действий удерживайте нажатой клавишу

SHIFT.

Для проведения обычной прямой линии нажмите кнопку Линия на

панели инструментов Рисование.

Кривые и полилинии

Меню Автофигуры на панели инструментов Рисование содержит

несколько категорий инструментов. В категорию Линии включены

инструменты Кривая, Рисованная кривая и Полилиния ,

предназначенные для рисования прямых и кривых линий, а также

создания комбинированных форм. Для рисования произвольной кривой

выберите инструмент Рисованная кривая. Для получения более гладкой

линии — без зубчатых линий и резких изменений направления —

используйте инструмент Полилиния.

Для повышения точности и достижения наилучшего контроля над

формой кривой используйте инструмент Кривая. Для улучшения формы

кривой или полилинии путем перемещения, удаления и добавления

узлов, служит команда - Начать изменение узлов (панель Рисование,

меню Действия).

Для улучшения вида кривых и полилиний используйте те же

приемы, что и для других автофигур: добавьте цвет или заливку,

измените тип линии, выполните отражение или вращение и т. п.

Следует отметить, что отсутствует возможность добавления текста к

полилинии или кривой, а также ее преобразования в другую

автофигуру.

Добавление или изменение автофигуры

Excel поставляется вместе с набором готовых фигур,

предназначенных для использования в документах. Для фигур

допускаются следующие действия: изменение размеров и цвета фигуры,

вращение, отражение, а также комбинирование с другими фигурами ѕ

например, кругами и квадратами ѕ для составления более сложных

фигур. Используйте маркеры изменения формы для изменения наиболее

выступающих деталей фигуры ѕ например, для изменения размера

указателя на стрелке. Меню Автофигуры на панели инструментов

Рисование содержит несколько категорий фигур: линии, основные

фигуры, фигурные стрелки, блок-схемы, звезды, ленты и выноски.

Существует возможность добавления текста к автофигурам. Для

этого щелкните фигуру правой кнопкой мыши, выберите команду

Добавить текст в контекстном меню, а затем введите необходимый

текст. Этот текст становится частью фигуры ѕ при перемещении фигуры

он перемещается вместе с ней. Однако при вращении или отражении

фигуры текст не вращается и не отражается вместе с ней. Для

поворота текста на 90 градусов вправо или влево выберите команду

Направление текста в меню Формат.

Изменение размеров и обрезка графического объекта

При выделении графического объекта по периметру

прямоугольника выделения появляются маркеры изменения размера.

Размеры объекта изменяются путем перетаскивания маркеров изменения

размера или точного задания его высоты и ширины.

Если объект является рисунком — фотографией, точечным

рисунком, картинкой и т. п. — то его можно обрезать, а затем, при

необходимости, восстановить его исходный вид.

Изменение формы кривой или полилинии

1. Выделите полилинию или кривую, которую следует изменить.

2. На панели инструментов Рисование нажмите кнопку Действия и

выберите команду Начать изменение узлов.

Для изменения формы объекта перетащите один из его узлов.

Для добавления узла к объекту щелкните место, куда его

следует добавить.

После выбора команды Начать изменение узлов щелкните узел

правой кнопкой мыши. На экране появится контекстное меню,

содержащее команды, предназначенные для добавления, удаления и

изменения вида узлов.

Изменение цвета заливки графического объекта

1. Выделите графический объект, который следует изменить.

2. На панели инструментов Рисование щелкните стрелку рядом с

кнопкой Цвет заливки

3. Выберите нужный цвет.

Если нужный цвет отсутствует в предложенном списке, выберите

команду Дополнительные цвета, а затем выберите цвет на вкладке

Обычные или используйте вкладку Спектр для создания нового цвета.

По окончании нажмите кнопку OK.

Добавление, изменение или удаление объема для графического

объекта

Существует возможность добавления объема к линиям,

автофигурам и полилиниям. Таким образом, можно изменить глубину,

угол поворота, угол наклона, направление освещения и текстуру

поверхности объекта. Изменение цвета объема не влияет на цвет

самого объекта. К объекту можно добавить тень либо объем, но не оба

эффекта сразу; при добавлении объема к объекту, который имеет тень,

она исчезает.

8. Описание построения требуемых графиков и диаграмм, (включая

использования Мастера диаграмм, способов форматирования графиков и

диаграмм).

В Microsoft Excel имеется возможность графического

представления данных в виде диаграммы. Диаграммы связаны с данными

листа, на основе которых они были созданы, и изменяются каждый раз,

когда изменяются данные на листе.

Если на листе присутствуют многоуровневые названия строк или

столбцов, то их также можно отразить на диаграмме. При создании

диаграммы выделите названия строк и столбцов для каждого уровня.

Чтобы при добавлении данных в диаграмму была сохранена заданная

иерархия, измените диапазон ячеек, использованных при создании

диаграммы. Диаграммы могут использовать данные несмежных ячеек.

Диаграмма может также использовать данные сводной таблицы.

Мастер диаграмм - мощное средство визуализации полученных

результатов. Для построения необходимо знать типы диаграмм и их

виды, хорошо представлять, что является диапазоном представляемых

данных. Кроме того, нужно иметь представление об объектах,

составляющих собственно диаграмму: ряды данных, метки, оси, область

построения диаграммы, легенда и т.д.

Создание диаграммы.

1. Выделите ячейки, содержащие данные, которые должны быть отражены

на диаграмме. Если необходимо, чтобы в диаграмме были отражены и

названия строк или столбцов, выделите также содержащие их

ячейки.

2. Нажмите кнопку Мастер диаграмм.

3. Следуйте инструкциям мастера.

Мастер диаграмм предлагает 4 шага для построения диаграммы,

следует сказать, что их количество может быть сокращено в

зависимости относительный желания пользователя.

- Первый шаг предлагает вам выбрать тип диаграммы (в нашем случае

это линейчатая, гистограмма, с областями, график)

- Во втором шаге нужно подтвердить источник данных диаграммы:

столбцы или строки и их диапазон. На вкладке Ряд можно исправить

заглавие легенды диаграммы.

- Третий шаг. Здесь мастер запрашивает название диаграммы,

название легенды (а также её наличие), расположение легенды,

необходимые подписи к данным.

- На последнем шаге вам предоставляется выбор по расположению

самой диаграммы – на отдельном листе книги или на текущем.

После этого пользователь нажимает на кнопку Готово и на

экране появляется диаграмма. Теперь доступно форматирование

диаграммы. При двойном щелчке по любой области диаграммы

(активизации) вы можете задать нужный шрифт, цвета диаграммы. Также

при форматировании в некоторых случаях требуется включить оси

координат, задать минимальное деление, установить атрибут Тень,

включить основную и вспомогательную сетки и их формат и т.д.

В области построения диаграммы как и на обычном листе, при

включении панели Рисование можно добавить нужный вам нарисованный

объект. При помощи меню Вставить - Вставить объект, Рисунок и т.п.

9. Выводы по первой части.

Выполняя данную часть курсовой работы, можно было убедится,

что возможности электронных таблиц Microsoft Excel не ограничены.

Данная программа позволила мне решить поставленную передо мной

задачу в кратчайшие сроки, используя минимум усилий и получить

результат в необходимом для меня виде. Работая над задачей, я

отработала основные приемы составления и форматирования таблицы,

диаграмм и графических рисунков, научилась пользованию мастером

диаграмм и мастером функций, систематизировала основные знания о

возможностях программы. Поработав с Excel, что программа выгодно

отличается относительно других высокой степенью автоматизации,

простотой в использовании большим набором возможностей. Excel

действительно позволяет в различных видах обрабатывать и оформлять

информацию, что является несомненным преимуществом этой программы

перед другими подобными программами. Выполнив поставленную передо

мной задачу, я поняла, что, решая задачи подобного типа с

применением Microsoft Excel, можно получить более полный

результат, отвечающий более высокому критерию эргономичности.

10. Задание по второй части курсовой работы с данными по своему

варианту.

Условия задания

Разработать подробную блок-схему алгоритма и программы на

языке Basic (Qbasic, TurboBasic) для решения следующей задачи.

С района промыслов на базу флота поступает информация, в виде

текстового файла, содержащего строки:

"Количество судов на промысле",14

"БАТМ","К.Сухондяевский","14",45,12,86

"МPТМ","Атия","21",32,28,74

"СPТМ","Нейрон","62",76,84,22

"БАТМ","П.Чанчибадзе","03",11,55,48

"МPТМ","Pамигала","60",89,48,06

"МPТМ","Дитува","73",26,62,18

"СPТМ","Монокристалл","52",68,36,95

"СPТМ","Тава","51",18,87,21

"БАТМ","Плунге","52",58,09,88

"БАТМ","П.Шафранов","34",93,74,36

"МPТМ","Дусетос","94",47,19,72

"СPТМ","Берклий","71",31,40,45

"СPТМ","Корифена","52",54,69,68

"БАТМ","Старый Арбат","01",40,94,59

- В первой строке указано через запятую строка текста и количество

судов на промысле;

- Во второй и последующих строках указано через запятую: тип

судна, наименование судна, номер квадрата промыслового района,

текущий запас топлива в процентах от максимального, текущий

вылов в процентах от емкости грузовых трюмов, текущий запас тары

в процентах от максимальной.

Известно также, что база флота имеет на своем вооружении

только три типа судов – БАТМ, СРТМ, МРТМ. Промысловый район имеет

прямоугольную форму и разбит на квадраты, по длине на 10, по ширине

на 5. Квадраты пронумерованы двузначными числами: первое число –

номер столбца, второе – номер строки.

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

1. Ввод исходной информации из файла, содержащего данные по

указанному количеству судов (имя файла вводится пользователем в

диалоговом режиме).

2. Группировку данных по судам по вылову рыбы принципу вылову рыбы:

0-50%, 50%-75%, 75%-100%

3. Сортировку данных по судам внутри каждой группы по названию

судна, порядок обратный.

4. Вывод сгруппированных и отсортированных данных с заголовком для

каждой группы в файл на жесткий диск компьютера.

5. Построение на экране монитора схемы промыслового района и

указание место расположения каждого судна. При построении учесть

следующие требования:

- Цвет экрана / шрифта – черный / темно-зеленый;

- Размер схемы промыслового района на экране – 500 на 250

пикселей;

- Цвет области построения – темно-синий;

- Цвет координатной сетки – темно-зеленый;

- Изображение судна –закрашенный круг диаметром 4 пикселей

светло-зеленого цвета;

- Изображение судна должно быть нанесено в квадрате, с номером,

указанным в исходном файле, а внутри этого квадрата с

координатами, выбранными по случайному закону.

6. Вывод в нижней части экрана монитора общих данных для квадратов

11-83: количества судов типа МРТМ и среднее значение вылова

судов всех типов.

11. Описание постановки задачи и блок-схемы алгоритма ее решения

Прежде чем приступать к решению задачи необходимо

осуществить постановку задачи.

Исходная информация (данные о судах) является упорядоченной

совокупностью однотипных данных, следовательно необходимо

представить в виде массивов, исходные данные вводятся с файла,

предварительного созданного.

Для обработки массива исходных данных (как и для ввода) нужно

применить циклический вычислительный процесс. Сама обработка

связана как с простейшими вычислениями, например, подсчетом

количества судов, средних значений вылова, запаса топлива и тары

для судов, находящихся в заданных квадратах промыслового района,

так и более сложными процедурами сортировки в соответствии с

указанными в задании принципом.

Вывод результатов обработки предусматривает операции с

записью на жесткий диск и с выводом на экран монитора текста,

численных данных и графических объектов.

Для описания процедуры решения задачи на ЭВМ базовым понятием

является понятие алгоритма. Алгоритм должен обладать свойством

массовости, конечностью, детерминированностью. В нашем случае это

означает, что алгоритм должен решать поставленную задачу при любом

количестве судов и их данных в исходном файле и приводить к

получению единственного для данного набора исходных данных

результата за конечное число шагов. Опишем этот алгоритм словесно:

- Затребовать у пользователя имя файла, содержащего исходные

данные по судам в районе промысла;

- Открыть файл с указанным именем для ввода;

- Вывести из файла количество судов N;

- Объявить использование 6 массивов, где каждый является столбцом

(имя судна, тип и т.д.) со строками N для хранения исходных

данных.

- Организовать ввод данных из файла в массив с учетом формата

этого файла и типов данных;

- Последовательно отсортировать элементы этих массивов в указанном

в задании порядке;

- Объявить вспомогательные массивы по числу групп с размерностью,

определяемую числом судов определенного типа в каждой группе и

записать в эти массивы данные судов;

- Затребовать у пользователя название и путь для выходного файла и

открыть его для вывода;

- Последовательно вывести отсортированные данные для судов каждой

группы с соответствующей строкой – заголовком;

- Построить на экране изображение промыслового района с

координатной сеткой и отобразить на ней расположение судов;

- Вычислить для судов, находящихся в заданном диапазоне квадратов

и заданного типа общие данные (количество судов и средние

значения);

- Вывести на экран диапазон квадратов и рассчитанные общие данные;

12. Текст программы на языке Basic

Программа

CLS

REM Вводи данные

INPUT "Введи имя исходного файла"; file$

OPEN file$ FOR INPUT AS #1

INPUT #1, n

DIM c$(n), n$(n), s$(n), k(n), f(n), t(n)

PRINT "Исходный массив"

FOR i = 1 TO n

INPUT #1, c$(i), n$(i), s$(i), k(i), f(i), t(i)

GOSUB 2

NEXT i

FOR i = 1 TO n

FOR j = 1 TO n - 1

IF n$(j) > n$(j + 1) GOTO 1

SWAP n$(j), n$(j + 1): SWAP c$(j), c$(j + 1): SWAP s$(j), s$(j + 1)

SWAP k(j), k(j + 1): SWAP f(j), f(j + 1): SWAP t(j), t(j + 1)

1 : NEXT j

NEXT i

REM Сортируем в обратном порядке поназванию судна

PRINT "Данные после сортировки"

FOR i = 1 TO n

GOSUB 2

NEXT i

REM Группируем

PRINT "0%-50%"

FOR i = 1 TO n

IF f(i) > 0 AND f(i) < 50 THEN GOSUB 2

NEXT i

PRINT "50%-75%"

FOR i = 1 TO n

IF f(i) >= 50 AND f(i) < 75 THEN GOSUB 2

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) = 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)) = 11 THEN a = a + f(i): k = k + 1

NEXT i

FOR i = 1 TO n

IF 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

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

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

MRTM RAMIGALA 60 89 48

BATM PLUNGE 52 58 9

SRTM MONOKRISTALL 52 68 36

MRTM DUSETOS 94 47 19

SRTM BERKLIJ 71 31 40

MRTM ATIA 01 32 28

Суда с выловом 50%-75%, отсортированные по названию

BATM P.SAFRANOV 34 93 74

BATM P.CAHCIBADZE 03 11 55

SRTM KORIFENA 52 54 69

MRTM DITUVA 73 26 62

Суда с выловом75%-100% , отсортированные по названию

SRTM TAVA 51 18 87

BATM STARIJ ARBAT 01 40 94

SRTM NEIRON 62 76 84

13. Выводы по второй части.

Выполнив вторую часть задания курсовой работы, я убедилась,

что язык программирования Basic позволяет создавать программы,

способные решить задачи, связанные с обработкой, сортировкой,

группировкой, и выводом информации в различных видах. Особенно

важен вывод информации, так как он позволяет легко ориентироваться

и делать различные анализы (прогнозы). Впервые создавая программу

такой сложности на языке программирования Basic, я освоила

некоторые методы программирования, программирование с помощью

циклов , условное, научилась производить графические построения.

Так как язык программирования Basic довольно прост, я собираюсь и в

дальнейшем использовать его в своей работе.

14. Литературные источники:

1. «Microsoft Excel для Windows 95. Шаг за шагом»

Microsoft Press. Изд. "Москва - Эком - 1996г."

2. «IBM PC для пользователя. Краткий курс.»

В.Э. Фигурнов. Изд. "Москва - Инфра - 1997г."

3. «Использование Microsoft Office».

Специальное издание. Изд. "Киев - Диалектика - 1995г."

15. Приложения

Таблица Excel

Диаграммы

Графическая схема терминала

Вывод на экран

-----------------------

[pic]

Страницы: 1, 2

МЕНЮ

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

ИНТЕРЕСНОЕ