Понедельник, 10.12.2018, 14:04
Приветствую Вас Гость | RSS

Сайт учителя информатики Швец Елены Петровны

Наш опрос
Как вы используете Интернет для подготовки к урокам?
Всего ответов: 11
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Сетевой этикет

Цикл с параметром

Пример. Нарисовать 20 квадратов  с  общим  центром. Длина  стороны самого большого  квадрата 400, верхний  левый  угол  расположен  в  точке (50; 50). Координаты верхнего левого и нижнего правого углов каждого следующего квадрата изменяются на a (a— вводится).

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

I. Исходные  данные:  a (введенное число).

II. Результат:  рисунок,  отображающий квадраты.

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

1. Первым рисуется самый большой квадрат. Координаты  его  верхнего  левого  угла  x1 =50, y1 =50. Координаты  нижнего  правого  угла  x2 =450, y2 =450.

2. Для определения положения другого квадрата нужно координаты верхнего  левого  угла  увеличить  на  a,  а нижнего правого— уменьшить на a.

3. Будем использовать цикл for, поскольку задано количество квадратов.

IV. Описание  переменных: a, x1, y1,

x2, y2 — integer.

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

uses GraphABC;

var a,x1,y1,x2,y2,i: integer;

begin

write('Введи  a = ');

read(a); write(a);

x1 := 50; y1 := 50;

x2 := 450; y2 := 450;

for i := 1 to 20  do

begin

Rectangle(x1,y1, x2,y2);

x1 := x1 + a;  y1 := y1 + a;

x2 := x2 - a;  y2 := y2 - a;

end;

end.

VI. Тестирование.

Запустить  программу  и  ввести значение a = 10. Результат:

Вход на сайт
Поиск
Календарь
«  Декабрь 2018  »
ПнВтСрЧтПтСбВс
     12
3456789
10111213141516
17181920212223
24252627282930
31
Часы

Погода
Яндекс.Погода

Copyright MyCorp © 2018
uCoz