програма о треугольниках Опции

[rubik]

надо сделать програму чтоб она выдовала два треугольника так чтоб основания были паралельны  
кто может помогите!!!!!

[GLuk]

В смысле рисовала, два пофигу каких треугольника с параллельными основаниями??

[rubik]

два равнобедреных и рисовала их при помощи '*'

[GLuk]

Дык это что-ли в текстовом, примерно вот так:

Код

Uses Crt;
Begin
ClrScr;
WriteLn('      *    ');
WriteLn('    ***  ');
WriteLn('   **** ');
WriteLn('  *****');
End.

Сообщение отредактировано: volvo - 17.12.2004 16:11

[rubik]

нет не в текстовом

[GLuk]

Значит в графическом с помощью какого-то подобия спрайтов типа: "*"??

[rubik]

да с помощью function или procedure

[GLuk]

Вот посмотри и скажи, то ли это, что тебе надо, единственная разница, ДыК это в использовании 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.