• Cos(x:real): real; cos(pi) = -1 Exp Argument eksponcnti. Yozilishi: Exp(x:real): real; Exp(2)=7.389... Frac
  • Frac(x:real): real; Frac(2.8)= 8.000000E 101; Int
  • Sin(x:real): real; Sin(Pi/2)= 1.000 Sqr Argument kvadratini beradi. Yozilishi: Sqr(x); Sqr(4)= 16; Sqrt
  • Chr(/i:byte):char; Write(Chr(33)); Ord ASCII char tipli belgisining tartib sonini aniqlaydi. Yozilishi: Ord(x): longint;
  • Tnmc(x:real):longint; Trunc(2.8)=2; 15 1-topshiriq.
  • Informatika va informatsion texnologiyalardan laboratoriya ishlari




    Download 4,62 Mb.
    Pdf ko'rish
    bet10/120
    Sana28.06.2024
    Hajmi4,62 Mb.
    #266132
    1   ...   6   7   8   9   10   11   12   13   ...   120
    Bog'liq
    A. Norov. Informatika

    Nomi
    Bajaradigan vazifasi 

    Misol
    1. A r i f m e t i k
    f u n k s i y a l a r
    Abs
    Argumentning absolyut qiymati­
    ni beradi. Yozilishi: 
    Abs(x);
    Abs(4)= 4, 
    Abs(-4)= 4
    Arctan
    Argument arclangcnst. Yozi­
    lishi: 
    Arctan(x:real):real;
    Arctan(l)«0.78
    Cos
    Argumentning kosinusi. 
    Yozilishi: 
    Cos(x:real): real;
    cos(pi) = -1
    Exp
    Argument eksponcnti. 
    Yozilishi: 
    Exp(x:real): real;
    Exp(2)=7.389...
    Frac
    Haqiqiy tipli argument kasr 
    qismini haqiqiy tipda beradi. 
    Yozilishi: 
    Frac(x:real): real;
    Frac(2.8)= 
    8.000000E 101;
    Int
    Haqiqiy tipli argument butun 
    qismini haqiqiy tipda beradi. 
    Yozilishi: 
    Int(x:real): real;
    Int(2.8)=
    2.000000E+00;
    Pi
    7t sonining qiymati. 
    Yozilishi: 
    Pirreal;
    Pi =3.141592...
    Sin
    Argumentning sinusi. 
    Yozilishi: 
    Sin(x:real): real;
    Sin(Pi/2)= 1.000
    Sqr
    Argument kvadratini beradi. 
    Yozilishi: 
    Sqr(x);
    Sqr(4)= 16;
    Sqrt
    Argumentning kvadrat ildizini 
    beradi.Yoz: 
    Sqrt(x:real): real;
    Sqrl(4) = 
    =2.00000E+00;
    2 . T i p l a r n i a l m a s h t i r i s h f u n k s i y a l a r i
    Chr
    ASCII ning byte tipli 
    n
    butun 
    • soni bilan aniqlanadigan char 
    tipli belgisini ifodalaydi. 
    Yozilishi: 
    Chr(/i:byte):char;
    Write(Chr(33));
    Ord
    ASCII char tipli belgisining tartib 
    sonini aniqlaydi.
    Yozilishi: 
    Ord(x): longint;
    Ch: char; 
    Write(Ord(ch));
    !->зз
    Round
    Haqiqiy sonni butun qiymatga 
    yaxlitlaydi. Yozilishi: 
    Round(x:real):longint;
    Round(2.4)=2,
    Round(2.5)=3
    Trunc
    Haqiqiy tipli son butun qismini 
    butun tipda beradi.Yozilishi: 
    Tnmc(x:real):longint;
    Trunc(2.8)=2;
    15


    1-topshiriq.
    Berilgan uchta m u sb a t butun son lar o ‘rta 
    arifm etigining 
    butun 
    qism ini 
    h am da 
    o^rta 
    geom etrik 
    qiy m a tin in g kasr qism ini hisoblash dasturi tuzilsin.
    Avval belgilash kiritamiz: uchta butun 
    a, b
    va 
    с
    sonlam i berilgan deb qarab, u la m in g o ‘rta arifmetik qiymatini 
    V
    bilan, o ‘rta geom etrik qiym atini esa 
    G
    bilan belgilaylik. U 
    holda 
    U = (а + Ь + с)1У, 
    G

    Ija b c.
    Endi dastur matnini 
    keltiramiz:
    Program Hisob ',
    Var a, b, c: integer, U, G

    real]
    Begin
    Readln (a, b, c) ,
    Z7:=(«2+o+e)/3;
    G
    := exp((l/3)*ln(i3*£*c;));
    W rileln(‘[ U ] = , int(U ):\:3)]
    l¥ri£e( ‘ ( G ) — ,/rac(G
     ): 
    1
    :
    3
    );
    End.
    2 -topshiriq.
    0 ‘zlashtirish operatoridan foydalanm agan 
    holda quyidagi
    5 ,2 3 + 7 ,6 2 + s i n y
    cos у + 
    - In 2
    sonli ifodaning qiym atini hisoblash dasturi ni tuzing.
    D astur m atni quyidagicha:
    Program hisob2]
    Begin
    Wnte{{5.2~S+sqrQ
    .b)+sin(j>i
    / 7))/(cos(pz 
    i
    7 )+

    exp(sqrt(3.
     l))-/«(2)));
    End.
    16


    T o p sh iriq la r
    Quyidagi funksiyalam ing qiym atini hisoblash dasturi 
    tuzilsin (1 - 4):
    2. V = 
    e 1'
    5 + lo g 2 / g 2 - a r c s i n j r ; ;
    3. >^ = xc osA :4-sin3 x - l o g 3( | x | + l ) ; ;
    6. K vadrat tcnlam aning ikkita ildizi bcrilganda, uning 
    koeffisiyentlarini hisoblab c hop etuvchi da stur tuzilsin.
    7. Berilgan radiusdagi a y lananing uzunligi, doiraning 
    yuzasi va sh a m in g hajmi hisoblansin.
    8. Parallelepiped qirralarining uzunliklari m os ravishda 
    <7=1,4 
    m; b = l,8 m
    va c = 8 ,6
    m
    ga teng 
    b o ‘lsa, 
    parallelcpipedning hajm i va asosi diagonalini hisoblang:
    9. Berjlgan ikkita katetlari b o ‘y icha t o ‘g ‘ri burchakli 
    uchburchakning perim etri va yuzasi topilsin.
    10. U c h burchakning bitta tom oni va uchala burchagi 
    m a ’lum, y a ’ni 
    a
    = 2,7 sm, a = 60°, (3 = 90°, 
    у =
    30° b o ‘lsa, 
    b
    va 
    d
    tom onlarini h am da shu uchburchakka tashqi chizilgan 
    aylana radiusini toping.
    11. Berilgan t o ‘rt xonali son raqamlari k o ‘paytm asi 
    topilsin.
    12. Kesik konusning kichik va katta asoslari radiusi 
    m os holda г = 2 ,5
    sm
     
    va /?=4,8 
    sm
     
    b o ‘lsa, konusning to ‘la 
    sirtini toping.
    13. U chburchakning ikkita tomoni va ular orasidagi 
    burchagi m a ’lum b o ‘lsa, ( y a ’ni m
    va 
    Ф = 45 ) uning uchinchi tom oni va yuzini toping.
    14. Quyidagi ifodalam ing qiymati hisoblansin:
    a) 3 * 7 div 2 m od 7/3 - trunc(sin( 1));
    b) succ(round(5/2)-pred(3));
    15. Berilgan uch xonali son raqam larini teskari tartibda 
    yozishdan hosil b o ‘lgan son topilsin.
    у =
    arcsin(V x2 + я 7 4 ) ;
    17

    Alisher \ Tavcly 
    nom idagi 
    O 'z b ek isto n M h



    Download 4,62 Mb.
    1   ...   6   7   8   9   10   11   12   13   ...   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