ГДЗ по информатике 8 класс Босова, номер §4.5 ПМ 1

§. ПМ Цикл while и ряд окружностей

Пример 1. Следующая программа изображает в центральной части графического окна ряд окружностей радиусом 20:

uses GraphABC;
var x: integer;
begin
  x := 20;
  while x <= 620 do
  begin
    circle(x, 240, 20);
    x := x + 40
  end
end.

Внесите изменения в программу так, чтобы:
а) рисовались окружности радиусом 30;
б) рисовался вертикальный ряд окружностей.

Решение

В исходной программе x обозначает горизонтальную координату центра, а вертикальная координата всегда равна . Шаг равен диаметру окружности радиуса : , поэтому соседние окружности касаются друг друга.

а) Новый диаметр равен . Чтобы первая и последняя окружности помещались в окне шириной , можно начинать с и повторять построение при . После каждой окружности увеличиваем x на .

uses GraphABC;
var x: integer;
begin
  x := ;
  while x <=  do
  begin
    circle(x, , );
    x := x + 
  end
end.

Центры получаются при ; следующее значение больше , поэтому цикл заканчивается. Окружностей десять.

б) Для вертикального ряда изменяем координату y, а x оставляем постоянной, например . При прежнем радиусе шаг по вертикали равен . Начальное значение и верхняя граница позволяют разместить окружности в окне высотой .

uses GraphABC;
var y: integer;
begin
  y := ;
  while y <=  do
  begin
    circle(, y, );
    y := y + 
  end
end.

Здесь x каждого центра равен , а y меняется от до ; поэтому ряд направлен сверху вниз.

Ответ

а) Радиус , начальный x = и шаг ; б) постоянный x = , переменная y с шагом .

Помогло?

Номер §4.5 ПМ 1