В качестве параметра возьмите координаты ка-кой-нибудь точки велосипеда (например, середина педалей – x1, y1). Назовем данную точку «центральной». Построение велосипеда ведите относительно центральной точки (например, чтобы нарисовать колесо велосипеда, можно воспользоваться следующим действием: circle(x1+50,y1,25)). Перемещение велосипеда по экрану можно получить, реализовав, например, следующий алгоритм: 1. Задаем начальные значения переменным x1 и y1. 2. Рисуем велосипед заданным цветом с данными значениями x1 и y1 (вызываем процедуру рисования велосипеда) 3. Изменяем цвет линий на цвет, соответствующий цвету фона. 4. Рисуем велосипед измененным цветом с теми же зна-чениями x1 и y1 (вызываем процедуру рисования вело-сипеда). 5. Изменяем координаты x1. 6. Изменяем цвет линий на цвет, соответствующий цвету велосипеда. 7. Рисуем велосипед заданным цветом с новыми значе- ниями x1 и y1 (вызываем процедуру рисования вело-сипеда). 8. Повторяем действия 2–7.
Спасибо
Ответ дал: Гость
varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении
Популярные вопросы