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

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

жүктеу/скачать 11,54 Mb.

бет	74/94
Дата	27.09.2023
өлшемі	11,54 Mb.
	#110921
түрі	Урок

1 ... 70 71 72 73 74 75 76 77 ... 94

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

жүктеу/скачать 11,54 Mb.

Достарыңызбен бөлісу:

1 ... 70 71 72 73 74 75 76 77 ... 94