Вот посмотри и скажи, то ли это, что тебе надо, единственная разница, ДыК это в использовании Line, а не спрайтов и ишшо не совсем понял твой ответ:
Я спрашиваю:
Цитата
С помощью спрайтов?
Ты отвечаешь: Да с помощью function/procedure
Здесь есть какой-то скрытый смысл??! ;)
ВОТ:
Код
Program Isosceles_Triangle;
Uses
Crt,Graph;
Const
StartScreenOffset = 10;
Var
Gd,Gm:Integer;
Base:Real;
Rib:Real;
Offs:Byte;
H:Real;
Procedure ShowTriangle(Offst:Byte);
begin
MoveTo(StartScreenOffset+Offst,Round(H)+Offst);
LineTo(StartScreenOffset+Round(Base)+Offst,Round(H)+Offst);
LineTo(StartScreenOffset+Round(Base) DIV 2+Offst,1+Offst);
LineTo(StartScreenOffset+Offst,Round(H)+Offst);
end;
Begin
ClrScr;
WriteLn('‚ў®¤ ¤ ле:');
Write('ђ §¬Ґа ®б®ў Ёп: '); ReadLn(Base);
Write('ђ §¬Ґа ॡа : '); ReadLn(Rib);
Write('‘¬ҐйҐЁҐ ®в®бЁвҐ«м® ¤агЈ ¤агЈ : '); ReadLn(Offs);
H:=Sqrt(4*Rib*Rib-Base*Base)/2; {‚лб®в }
InitGraph(Gd,Gm,'');
ShowTriangle(0);
ShowTriangle(Offs);
ReadLn;
CloseGraph;
End.