Пятница, 14.06.2024, 05:19
Информатика и математика в Плесской школе
Приветствую Вас Гость | RSS
Меню сайта
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа

Графические задачи на циклы.

Рассмотрим три различных способа решения одной графической задачи.

Необходимо вывести на экран следующую картинку.

В большинстве языков программирования существует три вида циклов. И мы рассмотрим три способа решения этой задачи.  Первый способ - используя цикл с параметром. Если брать расстояние между линиями десять пикселей, то при размере формы 640х380 их получится 64 штуки. По этому используем цикл с параметром, где точно устанавливается количество повторений.

Program n;
  Uses Crt, GraphABC;
  var x,y,i:Integer;
begin
       x:=1;                    
// устанавливаем координату  Х первой линии
       For i:=1 to 64 do begin             // перебираем от 1 до 64
                                      Line (x,0,x,400);     
// рисуем очередную линию
                                      x:=x + 10;             
// увеличиваем координату на 10 пикселей
                                    end;
end.

В цикле с предусловием  количество повторений определяется условием X<640. Т.е. пока условие истинно будут рисоваться очередная линия и координата увеличивается на 10 пикселей. Как только Х  станет больше 640 выполнение цикла прекратиться.

Program n;
Uses Crt, GraphABC;
var x:Integer;
begin
     x:=1;
       while(x<640) do begin  
//  повторять пока Х меньше 640
                                      Line (x,0,x,400);
                                      x:=x+
10;
                                 end;
end.

Цикл с постусловием выполняется пока условие ложно. Увеличивая координату Х  рано или поздно ее значение превысит 640, т.е. условие станет истинным и цикл прекратиться.

Program n;
Uses Crt, GraphABC;
var x:Integer;
begin
    x:=1;
      repeat
           Line (x,0,x,400);
           x:=x+10;
     until (x>640) 
//  повторять до тех пор пока условие ложно Х больше  640
end.

 

Поиск
Календарь
«  Июнь 2024  »
ПнВтСрЧтПтСбВс
     12
3456789
10111213141516
17181920212223
24252627282930
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Учительский портал
    Copyright MyCorp © 2024