3. Объекты и средства исследования

1. Персональный IBM PC совместимый компьютер;

2. Среда программирования TurboPascal 7.0.

4. Задание на работу

Построить график функции y=sin(x) в интервале изменения x от 0 до 10.

program difur;

uses graph;

const h=0.05;

var gt,gm,ec,xm,ym,x,y,i:integer;

scalex,scaley:integer;

y1,y2,x1,x2,xk:real;

s:string;

begin

readln(xk);

gt:=detect;

initgraph(gt,gm,'d:\tp7\bgi');

ec:=graphresult;

if ec<>grok then

begin

write ('Ошибка в графике');

writeln(grapherrormsg(ec));

closegraph;

halt;

end;

xm:=getmaxx div 2;

ym:=getmaxy div 2;

scalex:=round(640/xk);scaley:=200;

line(0,0,0,480);

x:=79;for i:=1 to 8 do

begin

line(x,0,x,480);

str(x/scalex:2:3,s);

outtextxy(x+5,ym+5,s);

x:=x+80;

end;

line(0,0,640,0);

y:=79;for i:=1 to 6 do

begin

line(0,y,640,y);

str((ym-y)/scaley:2:3,s);

outtextxy(5,y+5,s);

y:=y+80;

end;

outtextxy(630,ym+5,'X');

outtextxy(5,5,'Y');

moveto(0,ym);

x1:=0.0;

y1:=sin(x1);

while x1<=xk do begin

x2:=x1+h;

y2:=sin(x2);

setlinestyle(solidln,0,normwidth);

line(round(scalex*x1),ym-round(scaley*y1),round(scalex*x2),ym-round(scaley*y2));

x1:=x2;

y1:=y2;

end;

readln;

closegraph;

end.

5. Порядок выполнения работы

Перед началом работы следует:

• Включить компьютер;

• Войти в локальную сеть со своим зарегистрированным именем и паролем;

1. Запустить среду программирования TurboPascal 7.0. Создать новый файл с расширением pas.

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

3. По разработанному алгоритму составить программу.

4. Произвести компиляцию программы, а также провести ее отладку при необходимости.

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

6. Завершить работу программы и закрыть среду программирования TurboPascal 7.0.

6. Содержание отчета

Отчет должен содержать название, цели и задачи лабораторной работы, задание, блок схему алгоритма работы программы в соответствии с ГОСТ 19.003 – 80, листинг программы, результат работы программы и выводы по работе.

7. Контрольные вопросы

1. Какие библиотеки Turbo Pascal обеспечиваю работу с графикой?

2. Как инициализируется графический режим?

3. Что представляет собой экран в графическом режиме?

4. Как нарисовать окружность? Как настроить стиль линии?

5. Как нарисовать линию? Как настроить стиль линии?

6. Как нарисовать прямоугольник? Как настроить стиль линии?

Список литературы

Основная литература

1. Костюкова, Н.И. Язык СИ и особенности работы с ним : учеб.пособие / Н.И.Костюкова,Н.А.Калинина .— М. : Интернет - ун-т информ.технологий:Бином.Лаборатория знаний, 2006 .— 207с.

2. Степанов, А.Н. Информатика : учеб.пособие для вузов / А.Н.Степанов .— 5-е изд. — М.[и др.] : Питер, 2007 .— 765с. .

3. Фаронов, В.В. Delphi. Программирование на языке высокого уровня : учебник для вузов / В.В.Фаронов .— М.[и др.] : Питер, 2007 .— 640с. : ил.

4. Фаронов, В.В. Turbo Pascal : учеб.пособие для вузов / В.В.Фаронов .— М.[и др.] : Питер, 2007 .— 367с. : ил.

Дополнительная литература

1.Подбельский, В.В. Язык Си+ : учеб.пособие для вузов / В.В.Подбельский .— 5-е изд. — М. : Финансы и статистика, 2005 .— 560с.

2. Страуструп, Б. Язык программирования Си+ : Спец.изд. / Б.Страуструп;Пер. с англ.С.Анисимова,М.Кононова;Под ред.Ф.Андреева,А.Ушаков .— М. : Бином, 2004 .— 1098с. : ил. — ISBN р.5-9989-0223-4(рус.) /в : 303.49. 2 экз.

3. Вирт Н. Алгоритмы и структуры данных с примерами на Паскале / Н.Вирт; пер.с англ. Д.Б. Подшивалова .— 2-е изд. — СПб. : Невский диалект, 2007 .— 352с.

4. Немнюгин С.А. Turbo Pascal. Программирование на языке высокого уровня : учебник для вузов / С.А. Немнюгин .— 2-е изд. — М.[и др.] : Питер, 2007 .— 544с.

5. Борисенко, В.В. Интернет университет информационных технологий Основы программирования / В.В.Борисенко .— М. : Интернет - ун-т информ.технологий, 2005 .— 328с.

Приложение. Образец титульного листа отчета по лабораторной работе