Velo: VeloT;

Wheel: WheelT;

gd,gm: integer;

X,y: integer; { позиция }

u, up: real; { угол }

scalecheck: boolean; { проверка размера }

{ ГЛАВА ПРОГРАММЫ }

begin

gd:= 9;

gm:= 2;

u:= 0;

up:= 0;

{ ВВОД ЗНАЧЕНИЙ И ИХ ПРОВЕРКА }

scalecheck := false;

while scalecheck <> true do

begin

writeln('Введите данные, где R больше 10’);

write('Радиус колеса:');

readln(Wheel.r1);

clrscr;

writeln('Введите данные!!');

write(Радиус ведущей шестерёнки: ');

readln(Velo.r2);

clrscr;

writeln(‘Введите данные!!!');

write(Радиус ведомой шестерёнки:');

readln(Velo.r3);

clrscr;

writeln('Введите данные!!!');

write('Количество спиц:');

readln(Wheel.n);

clrscr;

if (Wheel.r1>Velo.r2) and (Velo.r2>Velo.r3) then

begin

scalecheck := true;

end

else

begin

writeln('Ошибка!!! Попробуйте ввести данные ещё раз!!!');

end;

end;

{ ОФОРМЛЕНИЕ }

Initgraph(gd,gm,'');

x :=170; { координата Х }

y := getmaxY -201 - (Wheel.r1); { координата Y с поправкой на радиус колеса }

setfillstyle(4,0); { цвет заливки }

bar(0,0,getmaxX,getmaxY); { чёрный экран }

setlinestyle(4,4,4); { стиль линии }

setcolor(18); { цвет линии }

line(0,getmaxY -200,getmaxX,getmaxY - 200);

{ линия по которой передвигается велик }

VelVelo(X,y,Wheel.R1,Velo.R2,Velo.R3,Wheel.N,u,up,Velo,Wheel);

{ процедура отвечающяя за ВСЁ }

end. {КОНЕЦ программы!!}

5. Скриншоты программы.

{ ВЕЛОСИПЕД. ЗАПУСК ПРОГРАММЫ }

{ ВВОД ДАННЫХ.}

{радиус колеса}

{ведущая шестерёнка}

{ведомая шестерёнка}

{количество спиц}

{ ВЕЛОСИПЕД + мини инструкция }

Санкт-Петербург

2014