close

Вход

Забыли?

вход по аккаунту

?

Kursovaya rabota(19)

код для вставкиСкачать
МИНОБОРОН НАУКИ
Федеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
"Ижевский государственный технический университет имени М.Т.Калашникова"
Сарапульский политехнический институт (филиал)
Кафедра ТММСиИ
КУРСОВАЯ РАБОТА
по дисциплине "Алгоритмизация и прикладное программирование"
тема "Решение задач в среде программирования Turbo Pascal"
Вариант 20
Выполнит студент гр.Б01-721-2 ЗТК.С.Солоницин
Проверил преподавательВ.М. Краева
Сарапул, 2013
СОДЕРЖАНИЕ
ВВЕДЕНИЕ.....................................................................................................3
1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ..............................................................................5
2. ПРАКТИЧЕСКАЯ ЧАСТЬ..............................................................................14
2.1. Тест на тему "Обработка металлов резанием"...............................................14
2.2. Оператор выбора CASE...........................................................................18
2.3. Одномерный массив...............................................................................20
2.4. Строки................................................................................................22
ЗАКЛЮЧЕНИЕ...............................................................................................25
ЛИТЕРАТУРА................................................................................................26
ВВЕДЕНИЕ
Язык программирования Паскаль (назван в честь выдающегося французского
математика и философа Блеза Паскаля (1623 - 1662)), разработан в 1968 - 1971 гг.
Никлаусом Виртом, профессором, директором Института информатики Швейцарской
высшей политехнической школы. Язык Паскаль, созданный первоначально для обу-
чения программированию как систематической дисциплине, скоро стал широко ис-
пользоваться для разработки программных средств в профессиональном программи-
ровании.
Широкой популярности Паскаля среди программистов способствовали следую-
щие причины:
• Благодаря своей компактности, удачному первоначальному описанию Пас-
каль оказался достаточно легким для изучения.
• Язык программирования Паскаль отражает фундаментальные и наиболее
важные концепции (идеи) алгоритмов в очевидной и легко воспринимаемой форме,
что предоставляет программисту средства, помогающие проектировать программы.
• Язык Паскаль позволяет четко реализовать идеи структурного программиро-
вания и структурной организации данных.
• Язык Паскаль сыграл большую роль в развитии методов аналитического дока-
зательства правильности программ и позволил реально перейти от методов отладки
программ к системам автоматической проверки правильности программ.
• Применение языка Паскаль значительно подняло "планку" надежности разра-
батываемых программ за счет требований Паскаля к описанию используемых в про-
грамме переменных, проверки согласованности программы при компиляции без ее
выполнения.
• Использование в Паскале простых и гибких структур управления: ветвлений,
циклов.
Для повышения качества и скорости разработки программ в середине 80-х гг.
была создана система программирования Турбо Паскаль. Слово Турбо в названии
системы программирования - это отражение торговой марки фирмы-разработчика
Borland International, Inc. (США).
Никлаус Вирт создал Паскаль именно для целей обучения. Поначалу никто и не предполагал, что на нем будут писать реальные программы, но язык получился настолько удачным и ясным, что и теперь, спустя десятки лет, и он, и его потомки используются очень широко.
Паскаль обладает рядом несомненных достоинств. Он прост - следовательно, ему легко обучаться и обучать, но при этом он содержит все типы данных и реализует все основные конструкции структурного и объектно-ориентированного программирования, присущие современным языкам высокого уровня так называемой "императивной парадигмы"1. Строгий синтаксис обеспечивает хорошую диагностику ошибок, что очень важно для начинающих.
Кроме того, наиболее распространенные среды программирования, такие как Borland Pascal with Objects, а также ее версия для DOS Turbo Pascal 7.0, при своей фантастической по современным меркам компактности обеспечивают удобные средства написания и отладки программ. Нельзя не упомянуть и тот важный факт, что в профессиональной среде программирования Delphi используется язык, базирующийся на Паскале.
Новые языки и средства программирования появляются непрерывно, поэтому программист вынужден учиться всю жизнь. Следовательно, очень важно это делать быстро и эффективно. Для этого надо подходить к освоению каждого языка системно: выделить составные части, понять их организацию и взаимосвязь, найти сходства и отличия от средств, изученных ранее, - короче говоря, за минимальное время разложить все в мозгу "по полочкам" так, чтобы новые знания гармонично дополнили имеющиеся. Только в этом случае ими будет легко и приятно пользоваться.
1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ
Графика. Процедуры и функции для работы с графическими изображениями. Графическое изображение представляет собой совокупность отдельных точек - пикселей, которые можно закрасить в различные цвета. Каждый пиксель имеет две координаты: X и Y. Ось OX направлена слева направо, начиная с 0, а ось OY - сверху вниз, также начиная с 0. То есть левый верхний пиксель имеет координаты (0,0). В состав стандартных средств языка Паскаль не входят операторы для работы с графикой. В каждой реализации транслятора для этого предназначена специальная библиотека, содержащая процедуры и функции для работы в графическом режиме, как в системе программирования ТурбоПаскаль, или с графическим окном системы PascalABC.
Начиная с версии 4.0, в состав Турбо Паскаля включена мощная библиотека графических подпрограмм Graph, остающаяся практически неизменной во всех последующих версиях. Библиотека содержит в общей сложности более 50 процедур и функций, предоставляющих программисту самые разнообразные возможности управления графическим экраном. Для облегчения знакомства с библиотекой все входящие в нее процедуры и функции сгруппированы по функциональному принципу.
Стандартное состояние ПК после его включения, а также к моменту запуска программы из среды Турбо Паскаля соответствует работе экрана в текстовом режиме, поэтому любая программа, использующая графические средства компьютера, должна определенным образом инициировать графический режим работы дисплейного адаптера. После завершения работы программы ПК возвращается в текстовый режим.
Настройка графических процедур на работу с конкретным адаптером достигается за счет подключения нужного графического драйвера. Драйвер - это специальная программа, осуществляющая управление теми или иными техническими средствами ПK. Графический драйвер, как это не трудно догадаться, управляет дисплейным адаптером и графическом режиме. Графические драйверы разработаны фирмой Borland практически для всех типов ада экран дисплея рассматривается как совокупность очень близко расположенных точек - пикселей, светимостью которых можно управлять с помощью программы.
Графические возможности конкретного адаптера определяются разрешением экрана, т.е. общим количеством пикселей, а также количеством цветов (оттенков), которыми может светиться любой из них. Кроме того, многие адаптеры могут работать с несколькими графическими страницами. Графической страницей называют область оперативной памяти, используемая для создания "карты" экрана, т.е. содержащая информацию о светимости (цвете) каждого пикселя. Ниже приводится краткая характеристика графических режимов работы наиболее распространенных адаптеров.
ПРОЦЕДУРЫ И ФУНКЦИЙ
Процедура InitGraph. Инициирует графический режим работы адаптера. Заголовок процедуры:
Procedure InitGraph(var Driver,Mode: Integer; Path: String);
Здесь Driver - переменная типа Integer, определяет тип графического драйвера; Mode - переменная того же типа, задаюшая режим работы графического адаптера; Path - выражение типа String, содержащее имя файла драйвера и, возможно, маршрут его поиска.
К моменту вызова процедуры на одном из дисковых носителей информации должен находиться файл, содержащий нужный графический драйвер. Процедура загружает этот драйвер в оперативную память и переводит адаптер в графический режим работы. Тип драйвера должен соответствовать типу графического адаптера.
Стандартный модуль GraphABC системы PascalABC содержит типы, константы, переменные, процедуры и функции, позволяющие создавать изображения в специальном в графическом окне.
В приложении приведены основные данные о возможностях модуля GraphABC: управление цветом, рисование простейших графических объектов, вывод текста, управление графическим окном. Описания подпрограмм модуля даны в алфавитном порядке: сначала процедуры, потом функции. УПРАВЛЕНИЕ ЦВЕТОМ
Стандартные цвета задаются константами, приведенными в алфавитном порядке в таблице 1. Таблица 1 Стандартные цвета модуля GraphABC ИмяЦветИнтенсивностьclAquaбирюзовый0,255,255clBlackчерный0,0,0clBlueсиний0,0,255clBrownкоричневый128,64,0clCreamкремовый255,251,240clDarkGrayтемно-серый64,64,64clFuchsiaсиреневый255,0,255clGrayсерый128,128,128
Продолжение таблицы 1 clGreenзеленый0,128,0clLtGrayсветло-серый192,192,192clLimeярко-зеленый0,255,0clMaroonтемно-красный128,0,0clMoneyGreenцвет зеленых денег192,220,192clNavyтемно-синий0,0,128clOliveоливковый128,128,0clPurpeфиолетовый128,0,128clRedкрасный255,0,0clSkyBlueголубой166,202,240clTealсине-зеленый0,128,128clWhiteбелый255,255,255clYellowжелтый255,255,0
Функции для работы с цветом Таблица 2 Функций для работы с цветом
ИмяНазначениеRGBкод цветаGetRedвыделение красной составляющей цветаGetGreenвыделение зеленой составляющей цветаGetBlueвыделение синей составляющей цветаGetPixelтекущий цвет пикселяclRandomслучайный цвет
Функция clRandom function clRandom: integer; Возвращает случайный цвет. Функция GetBlue -function GetBlue(color: integer): integer; Выделяет синюю составляющую из цвета color ( целое в диапазоне от 0 до 255 ). Функция GetGreen -function GetGreen(color: integer): integer; Выделяет зеленую составляющую из цвета color (целое в диапазоне от 0 до 255); Функция GetRed -function GetRed(color: integer): integer; Выделяет красную составляющую из цвета color (целое в диапазоне от 0 до 255); Функция GetPixel -function GetPixel(x,y: integer): integer; Возвращает текущее значение цвета пикселя с координатами (x,y). Функция RGB -function RGB(r,g,b: integer): integer; Возвращает код цвета, содержащий красную (Red), зеленую (Green) и синюю (Blue) составляющие с интенсивностями r, g и b соответственно (r, g и b - целые в диапазоне от 0 до 255, причем 0 соответствует минимальной интенсивности, 255 - максимальной). Количество возможных цветов равно 2563 =16777216.
ПРОСТЕЙШИЕ ГРАФИЧЕСКИЕ ОБЪЕКТЫ
Простейшие графические объекты называются графическими примитивами. Таблица 3 Процедуры рисования графических примитивов ИмяНазначениеSetPixelзакраска пикселя цветомLineрисование линииRectangeрисование прямоугольникаCircleрисование окружностиElipseрисование эллипса
Процедура Circle procedure Circle(x,y,r: integer); Рисует окружность с центром в точке (x,y) и радиусом r. Процедура Ellipse procedure Ellipse(x1,y1,x2,y2: integer); Рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2). Процедура Line procedure Line(x1,y1,x2,y2: integer); Рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). Процедура Rectangle procedure Rectangle(x1,y1,x2,y2: integer); Рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2). Процедура SetPixel procedure SetPixel(x,y,color: integer); Закрашивает один пиксель с координатами (x,y) цветом color. РИСОВАНИЕ ГРАФИЧЕСКИХ ОБЪЕКТОВ Рисование графических объектов осуществляется пером и кистью. Линии, ограничивающие объекты, рисуются пером. Таблица 4 Действия с пером
ИмяНазначениеPenXтекущая координата X пераPenYтекущая координата Y пера SetPenColorустановка цвета пера PenColorтекущий цвет пераMoveTo перемещение пера LineToрисование отрезка от текущего положения пераSetPenWidthустановка ширины пера PenWidthтекущая ширина пераSetPenStyleустановка стиля пераPenStyleтекущий стиль пераSetPenModeустановка режима пера PenModeтекущий режим пера
Процедура LineTo procedure LineTo(x,y: integer); Рисует отрезок от текущего положения пера до точки (x,y). Координаты пера при этом также становятся равными (x,y).
Процедура MoveTo procedure MoveTo(x,y: integer); Передвигает невидимое перо к точке с координатами (x,y). Эта функция работает в паре с функцией LineTo(x,y)
Процедура SetPenColor procedure SetPenColor(color: integer); Устанавливает цвет пера, задаваемый параметром color. Процедура SetPenMode procedure SetPenMode(m: integer); Устанавливает режим пера, задаваемый параметром m. Процедура SetPenStyle -procedure SetPenStyle(ps: integer); Устанавливает стиль пера, задаваемый параметром ps. Процедура SetPenWidth procedure SetPenWidth(w: integer); Устанавливает ширину пера, равную w пикселям. Функция PenColor -function PenColor: integer; Возвращает текущий цвет пера. Функция PenMode -function PenMode: integer; Возвращает текущий режим пера. Функция PenStyle -function PenStyle: integer; Возвращает текущий стиль пера. Функция PenWidth -function PenWidth: integer; Возвращает текущую ширину пера. Функция PenX function PenX: integer; Возвращает текущую координату X пера. Функция PenY function PenY: integer; Возвращает текущую координату Y пера. Стили пера задаются константами, приведенными в таблице 5.
Таблица 5 Стили пера
КодИмяЛиния0psSolid ------------------------ 1psDash -- -- -- -- -- -- -- --2psDot - - - - - - - - - - - - - - - - - - - - -3psDashDot _._._._._._._._._._._._._._._._4psDashDotDot _.._.._.._.._.._.._.._.._.._.._.._5psClear невидимая линия
По умолчанию используется стиль psSolid . Штриховые стили устанавливаются только для пера шириной 1. Режим пера определяет, как цвет пера взаимодействует с цветом поверхности. В GraphABC два режима пера: pmCopy - обычный режим: при рисовании цвет поверхности заменяется цветом пера; pmNot - режим инвертирования: при рисовании цвет поверхности инвертируется (становится негативным), а цвет пера при этом игнорируется. Внутренность объекта может закрашиваться кистью или заданным цветом процедурой FloodFill : procedure FloodFill (x,y: integer; color: integer); Точка (x,y) - любая точка внутри ограниченной области. Закрашивает одноцветную область цветом color, начиная с точки (x,y). Если область незамкнута, то заливка "разольется" по графическому окну.
Таблица 6 Действия с кистью ИмяНазначениеSetBrushColorустановка цвета кисти BrushColorтекущий цвет кистиFillRectтекущий цвет кисти
По умолчанию кисть имеет белый цвет.
Процедура SetBrushColor -procedure SetBrushColor(color: integer); Устанавливает цвет кисти, задаваемый параметром color. Функция BrushColor-function BrushColor: integer; Возвращает текущий цвет кисти. Процедура FillRect -procedure FillRect (x1,y1,x2,y2: integer); Закрашивает прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2), текущим цветом кисти. РАБОТА С ТЕКСТОМ Вывод текста в графическое окно осуществляется процедурой TextOut: procedure TextOut(x,y: integer; S: string); Точка (x,y)задает верхний левый угол прямоугольника, который будет содержать текст из строки S. Выводит текст ( строку S ) с позиции (x,y). Процедура TextOut меняет текущие координаты (x,y). Таблица 7 Действия со шрифтом ИмяНазначениеSetFontColorустановка цвета шрифтаFontColor текущий цвет шрифтаSetFontSizeустановка размера шрифта в пунктах FontSizeтекущий размер шрифта в пунктахSetFontNameустановка наименования шрифта FontNameтекущее наименование шрифта SetFontStyleустановка стиля шрифта SetFontSizeтекущий стиль шрифта TextWidthтекущая ширина строкиTextHeightтекущая высота строки
Процедура SetFontColor -procedure SetFontColor(color: integer); Устанавливает цвет шрифта.
Процедура SetFontName -procedure SetFontName(name: string); Устанавливает наименование шрифта. По умолчанию установлен шрифт MS Sans Serif. Наиболее распространенные шрифты: Times, Arial и Courier. Наименование шрифта можно набирать без учета регистра. Процедура SetFontSize -procedure SetFontSize(sz: integer); Устанавливает размер шрифта в пунктах (по умолчанию 8 пунктов; один пункт приблизительно равен 0,3 мм). Процедура SetFontStyle- procedure SetFontStyle(fs: integer); Устанавливает стиль шрифта. Функция FontColor -function FontColor: integer; Возвращает текущий цвет шрифта (по умолчанию черный). Функция FontName -function FontName: string; Возвращает текущее наименование шрифта. Функция FontSize -function FontSize: integer; Возвращает текущий размер шрифта в пунктах. Функция FontStyle -function FontStyle: integer; Возвращает текущий стиль шрифта. Функция TextHeight -function TextHeight(S: string): integer; Возвращает высоту строки S в пикселях при текущих настройках шрифта. Стили шрифта задаются константами, приведенными в таблице 8.
Таблица 8 Стили шрифта КодИмяНазвание0fsNormalобычный1fsBoldжирный2fsItalicнаклонный3fsBoldItalicжирный наклонный4fsUnderlineподчеркнутый5fsBoldUnderlineжирный подчеркнутый6fsItalicUnderlineнаклонный подчеркнутый7fsBoldItalicUnderlineжирный наклонный подчеркнутый
УПРАВЛЕНИЕ ГРАФИЧЕСКИМ ОКНОМ Часть процедур и функций, позволяющих управлять графическим окном, приведена ниже. Все размеры устанавливаются и возвращаются в пикселях. Таблица 9 Действия с графическим окном
SetWindowCaptionустановка заголовка графического окна WindowCaptionзаголовок графического окна ClearWindow очистка графического окна SetWindowWidthустановка ширины графического окнаWindowWidth ширина графического окнаSetWindowHeightустановка высоты графического окнаWindowHeightвысота графического окна SetWindowSizeустановка ширины и высоты графического окна Продолжение таблицы 9 SetWindowLeftустановка отступа графического окна от левого края экранаWindowLeft отступ графического окна от левого края экрана SetWindowTopустановка отступа графического окна от верхнего края экранаWindowTopотступ графического окна от верхнего края экрана SetWindowPos установка отступа графического окна от от левого и верхнего края экранаSaveWindowсохранение содержимого графического окна Процедура ClearWindow -procedure ClearWindow; Очищает графическое окно белымцветом. procedure ClearWindow(color: integer); Закрашивает графическое окно цветом color. Процедура SetWindowCaption procedure SetWindowCaption(s: string); Устанавливает заголовок графического окна. Процедура SetWindowHeight -procedure SetWindowHeight(h: integer); Устанавливает высоту графического окна. Процедура SetWindowLeft -procedure SetWindowLeft(l: integer); Устанавливает отступ графического окна от левого края экрана. Процедура SetWindowPos -procedure SetWindowPos(l,t: integer); Устанавливает отступ графического окна от левого и верхнего края экрана. Процедура SetWindowSize -procedure SetWindowSize(w,h: integer); Устанавливает ширину и высоту графического окна. Процедура SetWindowTop -procedure SetWindowTop(t: integer); Устанавливает отступ графического окна от верхнего края экрана. Процедура SetWindowWidth -procedure SetWindowWidth(w: integer); Устанавливает ширину графического окна. Процедура SaveWindow -procedure SaveWindow (fname: string); Сохраняет содержимое графического окна в файле формата bmp с именем fname. Функция WindowCaption -function WindowCaption: string; Возвращает заголовок графического окна. Функция WindowHeight -function WindowHeight: integer; Возвращает высоту графического окна. Функция WindowLeft -function WindowLeft: integer; Возвращает отступ графического окна от левого края экрана. Функция WindowTop unction WindowTop: integer; Возвращает отступ графического окна от верхнего края экрана. 2. ПРАКТИЧЕСКАЯ ЧАСТЬ
ПРОГРАММА ТЕСТ
Постановка задачи: Разработать программу в среде Turbo Pascal, которая позволит протестировать студента вашей специальности по какой-либо теме. Тема для теста выбирается студентом самостоятельно, но должна быть из курса какого-либо предмета по вашей специальности. Тест должен содержать не менее 10 вопросов, варианты ответов вводятся с клавиатуры. По завершению теста студенту выставляется оценка. Критерии оценки разрабатываются студентом самостоятельно.
Решение задачи: program test;
uses crt ;
var s,x,x1,x2,x3,x4,x5,x6,x7,x8,x9,o:integer;
begin
clrscr;
s:=0;
o:=0;
writeln('Вам предлагается тест по теме: "Обработка металлов резанием "');
writeln('1Режущий инструмент для сверления отверстий? ');
writeln ('1-сверло');
writeln ('2-зенкер ');
writeln ('3-развертка');
writeln ('4-зенковка');
readln(x);
if x=1 then s:=s+1 else S:=s+0 ;
writeln('Поверхность в процессе резанья?');
writeln('1-Плохая');
writeln('2-обрабатываемая поверхность');
writeln('3-обработанная поверхность');
writeln('4-поверхность резанья');
readln(x1);
if x1=4 then s:=s+1 else S:=s+0 ;
writeln('Часть токарного резца ,которая устанавливается в резцедержатель?');
writeln ('1-хвостовик');
writeln ('2-оправка');
writeln ('3-пуансон');
writeln ('4-державка');
readln(x2);
if x2=4 then s:=s+1 else S:=S+0;
writeln('Толщина слоя снимаемая за 1 проход?');
writeln('1- продольная подача');
writeln('2- припуск');
writeln('3- глубина резанья');
writeln('4- поперечная подача');
readln(x3);
if x3=3 then s:=s+1 else S:=S+0;
writeln('Какой реж. инструмент применяется для получения зубчатых колес ?');
writeln('1-резец');
writeln('2-шабер');
writeln('3-зубило');
writeln('4-фреза');
writeln('5-долбяк');
readln(x4);
if x4=4 then s:=s+1 else S:=s+0 ;
writeln('Чистовая обработка отверстий выполняется?');
writeln('1-сверлом');
writeln('2-зенковкой');
writeln('3-разверткой');
writeln('4-зенкером');
readln(x5);
if x5=3 then s:=s+1 else S:=s+0 ;
writeln('Чем нарезается внутренняя резьба?');
writeln('1-метчик');
writeln('2-гребенка');
writeln('3-плашка');
readln(x6);
if x6=3 then s:=s+1 else S:=s+0 ;
writeln('Какая операция применяется при получений фигурных отверстий в массовом производстве?');
writeln('1-растачивание');
writeln('2-долбление');
writeln('3-хонингование');
writeln('4-протягивание');
readln(x7);
if x7=4 then s:=s+1 else S:=S+0;
writeln('Назовите инструмент подача которого заложена конструкцией данного инструмента?');
writeln('1-резец');
writeln('2-долбяк');
writeln('3-шабер');
writeln('4-протяжка');
readln(x8);
if x8=4 then s:=s+1 else S:=s+0 ;
writeln('Назовите систему закономерности обработки металлов резанием?');
writeln('1-РАФ');
writeln('2-СИЗ');
writeln('3-СПИД');
writeln('4-ГПС');
readln(x9);
if x9=3 then s:=s+1 else S:=s+0 ;
O:=S;
if s>9 then o:=5 else if ( s>=7) and (s<9 ) then o:=4 else if (s>5) and (s<7) then o:=3 else if s<=5 then o:=2;
writeln('Ваши баллы: ',S,' Оценка:', o);
readln;
end.
Рис.1 Блок-схема программы "ТЕSТ" Рис.2 Контрольный пример программы "ТЕSТ"
ОПЕРАТОР ВЫБОРА CASE
Постановка задачи: Написать программу, которая после введенного с клавиатуры числа в диапазоне от 0 до 10, обозначающего денежную единицу, дописывает слово рубль в правильной форме. Если пользователь указывает недопустимое число, то выводится сообщение "Ошибка ввода данных".
Решение задачи: Program bablo;
uses crt ;
Var a: integer; Begin
clrscr;
reperat
writeln('Введите целое число (число 111 выход из программы) '); readln(a);
case a of
0 : writeln ('0 рублей');
1 : writeln ('1 рубль');
2 : writeln ('2 рубля');
3 : writeln ('3 рубля');
4 : writeln ('4 рубля');
5 : writeln ('5 рублей');
6 : writeln ('6 рублей ');
7 : writeln ('7 рублей');
8 : writeln ('8 рублей');
9 : writeln ('9 рублей');
10 : writeln ('10 рублей');
else writeln ('Ошибка ввода данных ');
end;
until a=111;
end. Рис.3 Блок-схема программы "BABLO" Рис.4 Контрольный пример программы "BABLO"
ОДНОМЕРНЫЙ МАССИВ
Постановка задачи: Дан массив A из 10 элементов. Вывести все элементы, значение которых превосходит среднего арифметического элементов массива.
Решение задачи: Program massiv;
uses crt; var i:integer; s,c:real; a:array [1..10] of integer; begin clrscr; writeln ('Введите 10 элементов массива'); for i:=1 to 10 do readln(a[i]); c:=0; for i:=1 to 10 do c:=c+a[i]; writeln ('Сумма массива ',c); s:=c/10; writeln ('Среднее арифметическое массива ',s); writeln ('Элементы массива значение которых выше среднего арифметического'); for i:=1 to 10 do if s<a[i] then writeln (a[i]:1); readln; end. Рис.5 Блок-схема программы "MASSIV" Рис.6 Контрольный пример программы "MASSIV"
СТРОКИ
Постановка задачи: Дано целое число N (32 <= N <= 126). Вывести символ с кодом, равным N.
Таблица 10 Коды символов
Решение задачи: program stroki; uses crt; var n:integer; begin clrscr; repeat write('Введите число n, чтобы 32<=n<=126 '); readln(n); until n in [32..126]; if n=32 then writeln('Символ с кодом ',n,' Space') else writeln('Символ с кодом ',n,' ',chr(n)); readln; end. Рис.7 Блок-схема программы "STROKI" Рис.8 Контрольный пример программы "STROKI"
ЗАКЛЮЧЕНИЕ
В ходе выполнения курсовой работы были рассмотрены теоретические вопросы и решены задачи в среде Тurbo Pascal.Были изучены теоретические вопросы на тему: "Графика. Процедуры и функции для работы с графическими изображениями".
В разделе "Практическая часть" была выполнена постановка задач, размещено решение, построены блок - схемы и вставлены скриншоты контрольных примеров данных заданий:
1.Программа тест на тему "Обработка металлов резанием ";
2.Программа с использованием оператора выбора CASE;
3.Программа обработки одномерных массивов;
4.Программа выведения символов с кодом равным переменной. Выполняя данную работу были приобретены практические навыки в решений задач и изучен представленный теоретический вопрос. ЛИТЕРАТУРА
1. Зубок Д.А., Маятин А.В., Краснов С.В. основы программирования в среде Turbo Pascal. учебное пособие. - СПб: СПбГУ ИТМО; 2009.
2. Павловская Т. А.Паскаль. Программирование на языке высокого уровня: Учебник для вузов. - СПб.: Питер, 2007.- 393 е.: ил.
3. Фаронов В.В.Турбо Паскаль 7,0, Начальный курс. Учебное пособие, -М: Издательство "ОМД Групп", 2006. -616 е., ил.
4. АлексеевЕ.Р., ЧесноковаО.В., КучерТ.В. Free Pascal и Lazarus: Учебник по программированию / Е.Р.Алексеев, О.В.Чеснокова, Т.В.Кучер М. : ALT Linux ; Издательский дом ДМК-пресс, 2010. 440с.
5. Потопахин В. В. Turbo Pascal:решение сложных задач. - СПб.: БХВ-Петербург, 2006. - 208 е.:ил.
2
Документ
Категория
Рефераты
Просмотров
54
Размер файла
212 Кб
Теги
kursovaya, rabota
1/--страниц
Пожаловаться на содержимое документа