Разработка открытого урока в 9 классе "Программирование циклов на языке Паскаль"
методическая разработка по информатике и икт

Практическая работа

Пример 1. Написать программу рисования ряда окружностей с радиусом 10 пикселей вдоль верхнего края графического окна

program primer_1;

uses GraphABC; {подключается графический модуль}

var x,y,r: integer; {описываем переменные}

begin

  r:=10; x:=10; y:=10; {задаем начальные значения переменных}

  while x<640 do

  begin

     circle(x,y,r); {рисуем окружность}

     x:=x+20; {увеличиваем координату х на величину диаметра}

  end;

 end.

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

program primer_2;

uses GraphABC; {подключаем графический модуль}

var a,x1,y1,x2,y2,i: integer; {описываем переменные}

begin

  writeln('Введите шаг изменения координат а = ');

  readln(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.

Пример 3. Цветные пузырьки. Нарисовать 30 окружностей произвольного радиуса, произвольного расположения, произвольного цвета.

Program tsv_puzirki;

uses graphABC;   { подключаем модуль GraphABC для работы }

var

R, x0, y0, n: Integer;

begin  {начало основного блока операторов программы}

   Randomize; {инициализируем генератор случайных чисел}

{цикл счета 30 окружностей}

   for n:=1 to 30 do

   begin

       SetBrushColor((rgb(random(256), random(256), random(256)))); {задаем случайный цвет заливки с помощью функции RGB}

        x0:=random(640);        {случайная координата х0 центра окружности из диапазона 0-640}

        y0:=random(400);        {случайная координата у0 центра окружности из диапазона 0-400}

        R:=5+random(45);        {случайная величина радиуса от 5 до 50}

        Circle(x0,y0,R);        {вывод окружности на экран}

   end;

End.

Задание

На оценку «3». Набрать все три программы, протестировать их работу.

На оценки «4» и «5».

В примере 1 изменить расположение окружности по диагонали окна и сделать их цветными, используя генерацию случайного цвета из примера 3.

В примере 2 изменить программу для рисования «мишеней» (квадраты заменить на окружности и сделать их цветными.  Использовать «Цикл для» в обратном порядке (вместо do использовать downto).

Если останется время, то набрать пример 3 и протестировать его работу.

Дополнительное задание.

Пример

Вывести на экран 64 вертикальные линии.

Program n4;
Uses Crt, GraphABC;
var x:Integer;
begin
    x:=1; 
      repeat
           Line (x,0,x,400);
           x:=x+10;
     until (x>640) 

end.

Задание. Вывести на экран следующий рисунок.