• Y ech ish . Yuqoridagi funksiyalardan foydalanam iz, talab qilingan constan talar
  • T o p sh iriq la r
  • Informatika va informatsion texnologiyalardan laboratoriya ishlari




    Download 4,62 Mb.
    Pdf ko'rish
    bet41/120
    Sana28.06.2024
    Hajmi4,62 Mb.
    #266132
    1   ...   37   38   39   40   41   42   43   44   ...   120
    Bog'liq
    A. Norov. Informatika

    S etC o lo r(C o lo r:W o rd ) 
    - j o r iy
    shakl 
    uchun 
    rang 
    o ‘rnatadi.
    G etM a x X
    - gorizontal y o ‘nalish bo^yicha nuqtalar 
    soni uchun o ‘zga rm as kattalik.
    G etM a x Y
    - vertikal y o ‘nalish b o ‘yicha nuqtalar soni 
    uchun o ‘zga rm as kattalik.
    2 -to p sh iriq . 
    E kranda “ Qarshi 
    DU 
    ” 
    m atnini 
    hosil 
    qilish dasturi tuzilsin:
    Y ech ish . 
    Yuqoridagi funksiyalardan foydalanam iz, 
    talab qilingan 
    constan talar 
    (shriftlar, shrift o ‘lcham i, rangi va 
    h.k) o ‘m ig a soddalik uchun tegishli son qiym atlarini q o ‘yib 
    yozish m um kin. S h unday qilib, da stur matnini kcltiramiz: 
    Program matn_graf.
    Uses Graph;
    Vai" Gd, Gm:integer.
    Begin
    Gd:=D elect;
    InitGraph( G d, Gm,1С :\B p\Bgi');
    SetFillStyle(5,7),
    Bar(2,2,GetMaxX, GetMaxY);
    SetTexUustify(l,l);
    SetTextStyle'1,0.8),
    SetColor(10);
    Out! extX Y(GetMaxX div 2,
    GetMaxY div 2, 'Qarshi D U '),
    SetColor(2),
    Readln,
    CloseGraph;
    End
    65


    U m u m an o lg an d a Graph m oduliga tegishli boMgan 
    b u nda y p ro tse d u ra lam in g soni j u d a ham k o ‘p. U la m in g har 
    birini q o ‘llash a snosida Turbo Paskal dasturlash tilining 
    im koniyatlari n a q a d ar boy va qiziqarli e ka nligining guvohi 
    b o ‘lasiz. T u rb o Paskal dasturlash tilida-nafaqat G raph m oduli, 
    balki S ystem , Dos, Crt va shunga o ‘xshagan boshqa bir qator 
    m od u llar ham uchraydiki, u lam in g har biri o ‘ziga xos 
    vazifalam i bajarishda da sturchiga qulay im tiyozlarni yaratadi.
    T o p sh iriq la r
    1. Ekran .markazida ( 3 2 0 ,2 4 0 ) koordinatali nuqtani 
    turli ranglarda hosil qilish dasturini tuzing.
    2. Uchlari (100, 100) va ( 1 0 0 ,4 0 ) nuqtalarda boMgan 
    kesm ani hosil qilish dasturini tuzing.
    3. M arkazi ( 2 0 0 ,2 0 0 ) nuqtada va radiusi R = 100 ga 
    teng b o ‘lgan aylanani chizing.
    4. M arkazi ( 2 0 0 ,2 0 0 ) nuqtada va radiusi R=100, 
    burchaklarining boshlangN ch va oxirgi qiym atlari 
    m os 
    ravishda 0° va 180" ga teng b o llgan yoyni chizing.
    5. Uchlari ( 1 0 ,3 0 ) , ( 4 0 ,1 0 ) , ( 7 0 , 3 0 ) va ( 4 0 ,5 0 )
    nuqtalarda yotgan rom bni chizing.
    6. 
    Uchlari ( 1 0 0 ,1 4 0 ) , ( 1 9 0 ,1 4 0 ) , ( 1 5 0 ,1 8 0 ) va 
    (60, 180) nuqtalarda yotgan parallclogram m ni chizing.
    7. M arkazi (300, 300) nuqtada, b o s h la n g ‘ich va oxirgi 
    burchak qiym atlari m os ravishda 0° va 360° ga, gorizontal va 
    vertikal radiuslari esa m os holda 100 va 50 ga teng boTgan 
    ellipsni chizing.
    8. M arkazi (300, 300) nuqtada, b o s h la n g ‘ich va oxirgi 
    burchak qiymatlari m os ravishda 180° va 360° ga, gorizontal 
    va vertikal radiuslari esa m os holda 100 va 50 ga teng boMgan 
    ellips yoyini chizing.
    9. Ikkita o ‘zaro perpendikulyar kesm ani hosil qilish 
    dasturi tuzilsin.
    M>


    10. Diagonalining uchlari ( 5 0 , 5 0 ) va ( 3 8 0 ,2 8 0 )
    nuqtalarda yotgan to ‘g ‘ri t o ‘rtburchakni chizing.
    11. D iagonalining uchlari ( 1 0 0 ,1 0 0 ) va ( 3 0 0 ,3 0 0 )
    nuqtalarda yotuvchi, asosining eni я = 100 ga teng b o ‘lgan 
    parallelepiped yuqori y o g ‘i bilan chizilsin.
    12. D iagonalining uchlari ( 1 0 0 ,1 5 0 ) va ( 4 0 0 ,6 0 0 )
    nuqtalarda yotuvchi, asosining eni 
    a
    = 2 0 0 ga teng b o ‘lgan 
    parallelepiped yuqori yogNsiz chizilsin.
    13. 0 ‘z ismingizni ekranda hosil qilish dasturini
    tuzing.
    14. Asosi kvadratdan iborat piram idani chizing.
    15. A sosining radiusi R=5, balandligi H = 10 ga teng 
    boMgan silindm i chizing.

    Download 4,62 Mb.
    1   ...   37   38   39   40   41   42   43   44   ...   120




    Download 4,62 Mb.
    Pdf ko'rish

    Bosh sahifa
    Aloqalar

        Bosh sahifa



    Informatika va informatsion texnologiyalardan laboratoriya ishlari

    Download 4,62 Mb.
    Pdf ko'rish