Имитация движения. Составить программу, которая имитирует движение автомобиля

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Имитация движения. Составить программу, которая имитирует движение автомобиля. Доклад-сообщение содержит 7 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

Имитация движения Составить программу, которая имитирует движение автомобиля

Слайд 2

Описание слайда:

uses GraphABC; uses GraphABC; var x, y, w, h:integer; p, p1:picture; Begin SetWindowSize(600,300); p:=new Picture('gorod.jpg'); p1:=new Picture('avto.jpg'); x:=0; y:=150; w:=240; h:=100; while x<400 do Begin clearwindow; p.Draw(0,0); p1.Draw(x,y,w,h); x:=x+10; sleep(20); redraw; end; end.

Слайд 3

Описание слайда:

uses GraphABC; uses GraphABC; var x, y, w, h:integer; p, p1:picture; Begin SetWindowSize(600,300); p:=new Picture('gorod.jpg'); p1:=new Picture('avto.jpg'); p1.Transparent:=true; x:=0; y:=150; w:=240; h:=100; while x<400 do Begin clearwindow; p.Draw(0,0); p1.Draw(x,y,w,h); x:=x+10; sleep(20); redraw; end; end.

Слайд 4

Описание слайда:

uses GraphABC; uses GraphABC; var x, y, w, h : integer; p, p1:picture; Begin SetWindowSize(600,300); p:=new Picture('gorod.jpg'); p1:=new Picture('avto.jpg'); p1.Transparent:=true; x:=0; y:=150; w:=240; h:=100; while x<400 do Begin clearwindow; p.Draw(0,0); p1.Draw(x,y,w,h); x:=x+10; w:=w-2; h:=h-2; sleep(20); redraw; end; end.