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

1. Оператор повтора FOR.

2. Оператор Repeat.

3. Оператор While.

3. Задания и технология выполнения.

3.1. Составить программу для вычисления следующего выражения:

;

при х = 1..10, h = 1.

Технология работы:

3.1.1.Первый вариант:

• Программа:

Program K4;

Uses CRT;

Var X, Y: Integer;

Begin

ClrScr;

For X : = 1 To 10 Do

Begin

Y: = Sqr(X) + 4;

Writeln (‘Y = ‘,Y );

End;

End.

• <Ctrl> + <F9> — запуск программы.

• <Alt> + <F5> — просмотр результатов выполнения программы.

2. Второй вариант.

• Программа:

Program K5;

Uses CRT;

Var X,Y:Integer;

Begin

X: =1;

While X<=10 Do

Begin

Y: =Sqr(X)+4;

Writeln(‘Y=’,Y);

X: =X+1

End;

End.

• <Ctrl> + <F9> — запуск программы.

• <Alt> + <F5> — просмотр результатов выполнения программы.

2. Третий вариант:

• Программа:

Program K6;

Uses CRT;

Var X, Y:Integer;

Begin

X:=1;

Repeat

Y:= Sqr(X) +4;

Writeln (‘Y = ‘,Y);

X:=X+1;

Until ( X>10 );

End.

• <Ctrl> + <F9> — компиляция и запуск программы.

• <Alt> + <F5> — просмотр результатов выполнения программы.

4. Контрольные задания.

4.1. Разработать алгоритм и составить программу вычисления следующего выражения.

4.1.1. , x = 1..5, h = 1.

4.1.2. , x = 1..5, h = 0.5.

4.1.3. , x = -pi/2..pi/2, h = pi/4

4.1.4. , x = -pi..pi, h = pi/2

4.1.5. y = x³ – 2x, x = -3..3, h = 1

4.1.6. y = 2x² + x³, x = 3..-3, h = -1

4.1.7.

4.1.8.

4.1.9.

4.1.10.

5. Рекомендуемая литература

5.1.Бородич Ю.С. и др.

Паскаль для персональных компьютеров.- Мн.: Высш.шк.: БФ ГИТМП

«НИКА», 1991.- с.39-43.

Практическое занятие № 5

Тема: Основы алгоритмизации и программирования.

Тема занятия: Использование алгоритмических структур в графике.

Цель: Сформировать знания об использовании графических возможностей языка программирования.

Техническое обеспечение: ПЭВМ

Программное обеспечение: Паскаль.

Место проведения занятий: Лаборатория ПЭВМ

Продолжительность занятия: 4 часа.

1. Краткая справка.

Всякое графическое изображение представляет собой совокупность точек – пикселей. Каждая из них задается своими координатами и цветом.

Количество отображаемых на экране пикселей называют разрешающей способностью (разрешением) графического экрана. Разрешение экрана может быть различным в зависимости от типа графического адаптера и графического драйвера.

Графический адаптер -печатная плата, на которой размещаются электронные компоненты видеодисплея.

Графический драйвер -специальная программа, которая осуществляет управление графическим адаптером.

Графика в стандартном видеорежиме среды программирования Borland Pascal, поддерживает следующие параметры экрана компьютера: 640 х 480 х 16 ( 640 точек по горизонтали, 480 точек по вертикали, 16 цветов).

Каждая точка (позиция) экрана задается номером пикселей по горизонтали и вертикале.

Например, пиксель (150, 120) находится в 150-м столбце и 120-й строке.

Для управления графическим экраном предназначен модуль GRAPH. Сам модуль представляет собой отдельный файл Graph.tpu. При программировании он должен быть доступным для компилятора. Также доступным (для запуска программ) должен быть драйвер EGAVGA.bgi. Файл Graph.tpu хранится в папке UNITS, а файл EGAVGA.bgi – в папке BGI, вложенной в папку BP.

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

1. Подключить модуль GRAPH – USES GRAPH;

2. Выполнить инициализацию графического режима (переход в графический режим):

А) в разделе описания переменных описать две целочисленные переменные для указания драйвера и режима работы графического адаптера, например gd и gr соответственно: Var gd, gr: Integer;

Б) в разделе операторов установить графический режим с помощью процедуры INITGRAPH:

….

Begin

Gd:=DETECT;

INITGRAPH (gd, gr, '');

3. Выполнить графические построения.

4. В конце программы выполнить возврат в текстовый режим с помощью процедуры CLOSEGRAPH:

….

Readln; {задержка результата на экране монитора}

CloseGraph;

End.

Примечание: Общий вид процедуры INITGRAPH: