Автокресло Inglesina "Prime Miglia I-Fix" (цвет: blue, 9-36 кг)

Программ-игра «Морской бой», с использованием анимированных графических объектов и возможностью...

Рисование всех двигающихся объектов производится для удобства в отдельных процедурах. В качестве параметров туда передаётся координата по оси или x или y, так же туда передаётся флаг, указывающий на то – рисовать объект или стирать. Под стиранием объекта понимается его рисование цветом фона. Движение всех графических объектов в программе осуществляется стандартным методом: сначала рисуется объект, а после временной задержки он рисуется на том же месте цветом фона (стирается) и рисуется в новом месте. Скорости всех двигающихся в программе объектов различны: Vснаряда > Vкорабля №1 > Vкорабля №2 > Vкорабля №3 Временная задержка во всей программе постоянная и используется один раз за цикл. Если один проход цикла назвать тактом, то разность скоростей объектов реализована за счёт того, что каждый объект перемещается на единицу расстояния не за каждый такт, а за каждый -ный такт, а определено для каждого объекта по-разному. Чем меньше , тем быстрее скорость. В данной программе все скорости постоянны.Алгоритм: Procedure arge (ix: i eger; bb: boolea ) Входные данные: ix:цел bb:лог Внутренние постоянные переменные: iy=200начало если bb то {Отображение} Установить цвет(gree ) Установить тип заливки(SolidFill,gree ) Нарисовать закрашенный эллипс(ix,430,26,100) Выбрать цвет(ligh gree ) Нарисовать линию(ix-10,iy,ix 10,iy) Нарисовать линию(ix,iy-10,ix,iy 10) иначе {Стирание} Установить тип заливки(SolidFill,blue) Установить цвет(blue) Нарисовать закрашенный эллипс( (ix,430,26,100) Установить цвет(blue) Нарисовать линию(ix-10,iy,ix 10,iy) Нарисовать линию(ix,iy-10,ix,iy 10) всё конец Часть 2: Поиск в тексте единиц и вставка после них нулей Входные данные: var s :мас:стр r:цел var o e:лог Выходные данные: rez:масс:стр iz:цел Внутренние переменные: k,l:целначало o e:=ложь цикл для k:=1 до r делать l:=1 цикл пока l