Измерение информации


Пример3.Нарисоватьрядзакрашенныхвзеленыйцветкруговрадиуса20пикселейвдольверхнегокраяэкранамонитора. Программарешениязадачиможетиметьвид: program



бет74/94
Дата27.09.2023
өлшемі11,54 Mb.
#110921
түріУрок
1   ...   70   71   72   73   74   75   76   77   ...   94
Байланысты:
8 класс КСП

Пример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.
Блок-схема цикла с предусловием:


Достарыңызбен бөлісу:
1   ...   70   71   72   73   74   75   76   77   ...   94




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет