GraphABC ◊ Точка, отрезок, окружность, прямоугольникРисуем линииРисуем окружностиПодписываем рисункиМаленькие картиныСоставление алгоритмлв. Часть1 Часть 2Часть 3Часть 4Часть 5Более сложные  программы Составление алгоритмов. Часть 3

  Пример. Нарисовать на экране прямоугольный треугольник, с катетами параллельными сторонам экрана. Длины катетов и координаты прямого угла вводятся в клавиатуры.

 

Этапы выполнения задания.

I. Определение исходных данных: переменные а и b (катеты), переменные x и y (координаты прямого угла).

II. Определение результатов: рисунок прямоугольного треугольника, удовлетворяющий условию задачи.

III. Алгоритм решения задачи.

1.  Ввод исходных данных

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

   а) провести линии из точки с координатой (x, y) в точки с координатами (x+a, y) и (x, y+b)

   б) соединить линией точки (x+a, y) и (x, y+b).

IV. Описание переменных:

Все переменные, определенные для решения задачи, имеют тип integer.

V. Программа:

uses graphabc; Var a,b,x,y:integer;
begin

write('ввeдите координаты'); readln(x,y);          write('ввeдите длины катетов'); readln(a,b); setwindowsize (420,250);                       setwindowtitle ('Прямоугольный треугольник');  line(x,y,x+a,y); line(x,y,x,y+b); line(x+a,y,x,y+b);

end.

Можешь загрузить!       Пример

VI. Тестирование программы:

1. Запустите программу и введите значения:

• координаты 100 100

• катеты 70 120

Проверьте, результат должен быть следующим:

Для просмотра окна вывода рисунка выберите:

Вид/ Окно выполненной программы

2. Поэкспериментируйте с программой вводя различные значения.

3. Что произойдет, если ввести отрицательные значения катетов? Объясните результат.

4. Что произойдет, если ввести отрицательные значения координат? Объясните результат.

5. Закрасьте треугольник.

  Самостоятельная работа      

1.   Нарисовать на экране квадрат, со сторонами параллельными сторонам экрана. Длина стороны квадрата и координаты верхнего левого угла вводятся в клавиатуры.

2.   Нарисовать на экране ромб. Длины диагоналей и координаты точки пересечения диагоналей ромба вводятся в клавиатуры (Ромб расположить так, чтобы его диагонали были параллельны сторонам экрана).

3.   Нарисовать на экране треугольник, заданный координатами своих вершин. Провести медианы этого треугольника. Точку пересечения медиан выделить контрастным цветом (Построить круг радиуса 3).

 

Copyright © 2008 Гимназия №1 имени К.Калиновского г.Свислочь © Синица А.А.