Машинка
program avto;
Uses crt,GraphABC;
Var x,y:integer;
Begin
X:=300; y:=200;
SetPenColor(clgray);
//колесо
Circle(x+10,y+50,20);
//колесо
Circle(x+100,y+50,20);
//корпус машины
MoveTo (x+30,y+50);
LineTo (x+80,y+50);
MoveTo (x+120,y+50);
LineTo (x+140,y+50);
MoveTo (x+140,y+50);
LineTo (x+140,y+20);
MoveTo (x+140,y+20);
LineTo (x+120,y+20);
MoveTo (x+120,y+20);
LineTo (x+100,y-30);
MoveTo (x+100,y-30);
LineTo (x+30,y-30);
MoveTo (x+30,y-30);
LineTo (x+10,y+20);
MoveTo (x+10,y+20);
LineTo (x-25,y+20);
MoveTo (x-25,y+20);
LineTo (x-25,y+50);
MoveTo (x-25,y+50);
LineTo (x-10,y+50);
//первое окно
MoveTo (x+20,y+20);
LineTo (x+60,y+20);
MoveTo (x+60,y+20);
LineTo (x+60,y-20);
MoveTo (x+60,y-20);
LineTo (x+35,y-20);
MoveTo (x+35,y-20);
LineTo (x+20,y+20);
//второе окно
MoveTo (x+70,y+20);
LineTo (x+110,y+20);
MoveTo (x+70,y+20);
LineTo (x+70,y-20);
MoveTo (x+70,y-20);
LineTo (x+95,y-20);
MoveTo (x+95,y-20);
LineTo (x+110,y+20);
End.
114.31
Объяснение:
writeln (s:6:2)
s - переменная
6 - количество знаков, выделяемых для вывода переменной
2 - количество знаков после запятой (точки) (они не являются добавочными к количеству знаков, а включены в это количество)
В данном случае: 3 знака до точки, 1 знак сама точка, 2 знака после точки.
Последний знак округляется (от 5 в большую сторону).
Если количество знаков, выделяемых под переменную больше, чем её размер, то перед переменной добавляются необходимые пробелы.
Если мы выводим не вещественную (дробную) переменную, то через двоеточие указывается только количество знаков, выделяемых для вывода переменной (второе двоеточие не используется).
