|
Pascal ABC
|
|
|
Составление алгоритмов.
Часть 4
|
Пример. Нарисовать на экране треугольник, координаты вершин треугольника и
толщина линий вводятся с клавиатуры.
Этапы выполнения задания.
I. Определение исходных данных: переменные x1, y1, x2, y2, x3, y3 (координаты вершин треугольника),
с (толщина линий).
II. Определение результатов: рисунок треугольника, удовлетворяющий условию задачи.
III. Алгоритм решения
задачи.
1. Ввод исходных данных
2. Для того, чтобы построить треугольник нужно построить отрезки, соединяющие вершины треугольника.
IV. Описание
переменных:
Все переменные, определенные для решения задачи, имеют тип integer.
V. Программа:
uses graphabc; Var
x1,y1, x2,y2, x3,y3,c:integer;
begin
write('ввeдите координаты первой вершины');
readln(x1,y1);
write('ввeдите координаты второй вершины');
readln(x2,y2);
write('ввeдите координаты третьей вершины');
readln(x3,y3);
write('ввeдите толщину');
readln(c);
setwindowsize (420,250);
setwindowtitle ('Tреугольник');
SetPenWidth(c);
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x1,y1);
end.Можешь
загрузить!
Пример
VI. Тестирование
программы:
1. Запустите
программу
и введите значения:
-
координаты первой вершины 100 100
-
координаты второй вершины 100 400
-
координаты третьей вершины 200 100
Проверьте, результат должен быть следующим:
Для просмотра окна вывода рисунка выберите:
Вид/ Окно выполненной программы
2. Поэкспериментируйте с программой вводя различные значения.
3*. Закрасьте треугольник.
Самостоятельная работа
1. Нарисовать на экране прямоугольник, координаты вершин диагонали
прямоугольника, цвет линий, цвет и стиль заливки вводятся с
клавиатуры.
2. Нарисовать на экране пятиконечную звездочку, координаты вершин
звездочки и цвет линий вводятся с клавиатуры.
3. Нарисовать на экране треугольную пирамиду. Ввести координаты
некоторых точек (выбрать самостоятельно) и цвет контура.
4. Нарисовать на экране сердце. Ввести координаты некоторых точек
(выбрать самостоятельно) и цвет (контура или заливки).
|
|