Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура GetAspectRatio.

  • Объявление:

    Procedure GetAspectRatio(Var XAsp, YAsp : Word);

  • Описание:

    Возвращает два числа, из которых может быть вычислен коэффициент сжатия.

  • Замечания:

    Коэффициент сжатия равен XAsp:YAsp.

  • Пример:

    { Пример программы для процедуры GetAspectRatio }
    Uses Graph;
    Var Gd, Gm : Integer;
    Xasp, Yasp : Word;
    XSideLength : Integer;
    YSideLength : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    GetAspectRatio(Xasp, Yasp);
    XSideLength := 20;
    { Просчитываем значение Y }
    YSideLength:=Round( (Xasp / Yasp) * XSideLength);
    { Рисуем квадрат }
    Rectangle(0, 0, XSideLength, YSideLength);
    ReadLn;
    CloseGraph;
    End.



Вернуться к оглавлению справочника