Пример3.Нарисоватьрядзакрашенныхвзеленыйцветкруговрадиуса20пикселейвдольверхнегокраяэкранамонитора.
Программарешениязадачиможетиметьвид:
programkrugi;
usesgraphabc;
varx,y,r:integer;
begin clearWindow(clViolet);
setBrushColor(clGreen);{устанавливаетзеленыйцветкисти}
x:=22;y:=22;r:=20;{начальныезначенияx,y,r}
whilex<660do begin circle(x,y,r);{рисуеточереднойкруг}
x:=x+40;{смещаеткоординатуxдляследующегокруга}
end;
end.
Спомощьюоператораwhileможнореализоватьимитациюдвиженияграфическихобъектов.
Пример4.Организоватьимитациюдвиженияшарикапоэкранумонитора.
Длятогочтобыграфическийобъектдвигалсяпоэкрану,необходимоорганизоватьповторениеследующихкоманд:
1)Нарисоватьобъект;
2)Организоватьвременнуюпаузу;
3)Стеретьобъект;
4)Изменитькоординатыобъекта.
Программарешениязадачиможетиметьвид:
programdvigenie;
usesgraphabc;
varx,y,r:integer;
begin x:=22;y:=22;r:=20;{начальныекоординатыобъекта}
whilex<800do{повторениеследующихдействий}
begin setBrushColor(clGreen);{задаемцветобъекта}
circle(x,y,r);{рисуемобъект}
Sleep(10);{паузавмиллисекундах}
setBrushColor(clWhite);{выбираемцветфона}
setPenColor(clWhite);{стираем(закрашиваемобъект}
circle(x,y,r);{цветомфона)}
x:=x+4;{изменяемкоординатыобъекта}
end;
end.
Реализуйтепрограммуdvigenieнакомпьютереиувидитерезультатеевыполнения.
Израссмотренныхвышепримеровможносделатьвывод:переменным,входящимвусловиезаголовкацикласпредусловиемдолжныбытьприсвоеныопределенныеначальныезначениядовходавцикл,автелецикладолжныбытьоператоры,которыеизменяютзначенияусловиядотехпор,покаононестанетложным. Как переводится слово While?
В программировании оно означает «пока условие верно, нужно выполнять действия».
A ‘for’ loop is usually used when we repeat something for definite number of times.
A ‘while’ loop is used when a program needs to loop until a particular condition happens.
For example, while wheels of the train rotate, the train keeps moving. If they stop the train also will stop.
Блок-схема цикла с предусловием: