Скачать 0.87 Mb.
|
setwindowsize(640,480); setwindowtitle('Picture'); setbrushcolor(clgreen); rectangle(0,350,640,480); setbrushcolor(clbrown); rectangle(70,275,215,415); line(150,180,70,275); line(70,275,215,275); line(215,275,150,180); floodfill(150,250,clbrown); {заливка, точка, цвет} circle(150,250,18); setbrushcolor(clblue); {цвет фона} setbrushstyle(bsfdiagonal); {стиль фона} floodfill(150,250,clblue); {заливка, голубым цветом} setbrushcolor(clblue); setbrushstyle(bscross); rectangle(75,315,120,375); setbrushstyle(bsfdiagonal); setbrushcolor(clsilver); rectangle(150,315,200,415); setpencolor(clyellow); setbrushcolor(clyellow); line(25,25,150,75); line(25,25,145,80); line(25,25,140,85); line(25,25,130,95); line(25,25,125,100); line(25,25,115,110); line(25,25,110,115); line(25,25,100,125); line(25,25,95,130); line(25,25,85,135); line(25,25,80,140); line(25,25,75,145); setbrushstyle(bssolid); circle(25,25,30); setbrushcolor(clbrown); setpencolor(clbrown); rectangle(307,425,317,400); setbrushcolor(cllime); setpencolor(clblack); ellipse(250,150,375,400); {эллипс, вписывается в прямоугольник, координаты диагонали} setbrushcolor(clDkGray); setpencolor(clblack); rectangle(450,400,465,375); rectangle(500,400,515,375); setbrushcolor(clDkGray); rectangle(425,375,540,365); end. Допустим требуется построить график функции у= х2-3 на отрезке [-3,3]. Кроме кривой, изображающей график этой функции, на экране должны быть высвечены координатные оси Ох и Оу. Договоримся располагать начало системы координат Оху в середине экрана (т.е. в точке, определённой парой чисел 160, 100). Необходимо условиться ещё и о количестве точек экрана, соответствующих единице измерения в системе координат Оху, т.е. о масштабном множителе. Пусть его значение равно 10. В этом случае положение точки графика с координатами (х,у) на экране определяется парой значений 160+10*х, 100-10*у. Напишем программу построения графика: program parabola; uses graphabc; var i:integer; x,y:real; begin line(0,240,620,240); line(300,0,300,900); for i:=-150 to 150 do begin x:=0.03*i; y:=x*x-3; setpixel(round(300+20*x),round(240-20*y),clRed ); textout(10,10,'y=x*x-3'); end; end. Пример №4. Построение графика функции f(x) = x2 – 4 abs(x) + 3 в новом окне. uses graphABC; const x1=-3; x2=3; function F(a,x:real):real; begin F:=sqr(x)- 4*abs(x) + 3; end; var mx,my,x,dx:real; x0,y0,i,n:integer; s:string; begin x0:=windowwidth div 2; y0:=windowheight div 2; mx:=(x0-30)/x2; my:=(y0-50)/F(1.5,0); n:=6; line(20,y0,windowwidth-20,y0); line(x0,20,x0,windowheight-20); for i:=1 to n do begin line(x0-3,y0-round(i*my/2),x0+3,y0-round(i*my/2)); line(x0-3,y0+round(i*my/2),x0+3,y0+round(i*my/2)); line(x0+round(i*mx/2),y0+3,x0+round(i*mx/2),y0-3); line(x0-round(i*mx/2),y0+3,x0-round(i*mx/2),y0-3); str(i/2:0:1,s); textout(x0-20,y0-round(i*my/2),s); textout(x0-25,y0+round(i*my/2),'-'+s); textout(x0+round(i*mx/2),y0+10,s); textout(x0-round(i*mx/2),y0+10,'-'+s); end; textout(x0+5,y0+10,'0'); textout(windowwidth-30,y0-20,'X'); textout(x0+10,10, 'Y'); x:=x1; dx:=0.001; while x<=x2 do begin setpixel(x0+round(x*mx),y0-round(F(-1,x)*my),clRed); setpixel(x0+round(x*mx),y0-round(F(0.5,x)*my),clBlue); setpixel(x0+round(x*mx),y0-round(F(1,x)*my),clGreen); setpixel(x0+round(x*mx),y0-round(F(1.5,x)*my),clMaroon); x:=x+dx; end; textout(80,20,'Y=x*x – 4*abs(x) + 3 '); setfontcolor(clRed); end. Задание №1
Порядок выполнения работы: 1. Изучить краткую теорию 2.Разобрать и проанализировать приведенные программы. 3. Составьте программу, которая выводит на экран одно из приведенных изображений 4. На основе примера 3, нарисуйте свою картинку Программу, и результат запишите в отчёт. 5. Выполнить Задание №2 6. Оформить работу , сделать вывод Литература.
Список литературы. Основная: 1. Канцедал С.А. Алгоритмизация и программирование : учебное пособие.-М.: ИД «ФОРУМ»: ИНФРА –М,2008- 352с. 2. Попов И.и. Партыка Т.Л. Языки программирования: учебное пособие.- М.: «ФОРУМ»: ИНФРА –М,2008 – 400с. 3. Семакин И.Г Основы алгоритмизации и программирования: учебник для студ. учреждений сред. проф. образования/И.Г Семакин, А.П Шестаков. – 3-е изд., стер. – М: Издательский центр «Академия», 2012.- 400с. Дополнительная: 1. Голицына О.Л., Попов И.И. Основы алгоритмизации и программирования: Учебное пособие.– М.: Форум: Инфра-М, 2006. – 432с.. 2.Климова Л.М Pascal 7.0 Практическое программирование. Решение типовых задач.- М.: КУДИЦ-ОБРАЗ,2003. – 528с. 3.Крупник А. Ассемблер.Самоучитель – СПБ.: Питер,2005.-235с. 4.Немнюгин С.А Тurbo Pascal – СПб: Издательство «Питер», 2001. – 496с. 5.Фараонов В.В Тurbo Pascal : Учебное пособие. -СПб: Издательство «Питер», 2007. – 367с. |
Методические указания по выполнению лабораторных работ Издательство Инженерная геодезия. Методические указания по выполнению лабораторных работ. Составители: Шешукова Л. В., Тютина Н. М., Клевцов Е.... |
Методические указания по выполнению лабораторных работ по дисциплине... Методические указания по выполнению лабораторных работ рассмотрены и утверждены на заседании кафедры «Безопасность труда и инженерная... |
||
Методические указания для студентов по выполнению лабораторных и... Методические указания для студентов по выполнению лабораторных и практических работ |
Методические указания по выполнению практических и лабораторных работ... Учебно-методическое пособие предназначенодля студентов 3 курса, обучающихся по профессии 23. 01. 03 Автомеханик. Пособие содержит... |
||
Сборник методических указаний для студентов по выполнению лабораторных работ дисциплина «химия» Методические указания для выполнения лабораторных работ являются частью основной профессиональной образовательной программы Государственного... |
Методические указания по выполнению лабораторных работ по дисциплине «Сметное дело» ... |
||
Методические указания по выполнению лабораторных работ Казань 201 Эксплуатация, диагностика и надежность гту: метод указания/ сост.: Б. М. Осипов, А. В. Титов, Р. Г. Сагадеев. Казань: Казан гос... |
Методические указания по выполнению лабораторных работ Казань 2013 Эксплуатация, диагностика и надежность гту: метод указания/ сост.: Б. М. Осипов, А. В. Титов, Р. Г. Сагадеев. Казань: Казан гос... |
||
Методические указания для студентов по выполнению Правила техники безопасности при выполнении лабораторных и практических работ по химии |
Методические указания по выполнению лабораторных работ по дисциплине... Государственное бюджетное профессиональное образовательное учреждение московской области |
||
Методические указания по выполнению лабораторных работ по дисциплине... Федерального государственного бюджетного образовательного учреждения высшего образования |
Лабораторная работа №7 Тема: «Арифметические операции. Битовые команды» Методические указания к выполнению лабораторных работ по мдк 01. 01 «Системное программирование» |
||
Методические указания по выполнению лабораторных работ по дисциплине... Федерального государственного бюджетного образовательного учреждения высшего образования |
Методические указания к выполнению лабораторных работ по дисциплине радиолокационные системы Лабораторная работа №1 «Изучение принципов построения штатной радиолокационной киа» |
||
Методические указания по выполнению лабораторных работ по междисциплинарному курсу мдк02. 01 ПМ02. Применение микропроцессорных систем, установка и настройка периферийного оборудования |
Методические указания по выполнению практических и лабораторных работ... Методические указания предназначены для обучающихся по специальностям технического профиля 21. 02. 08 Прикладная геодезия |
Поиск |