9-sinf informatika amaliy ish

9-SINF INFORMATIKA AMALIY ISH
1-variant

1. Quyidagi ifodani Paskal dasturlash tilida yozing

2. Quyidagi dastur bajarilgach ekranda nima hosil bo`ladi

Uses Crt;

Begin

TextColor(14); {yoki TextColor(yellow)}

WriteLn(Men 9-sinf o`quvchisiman);

End.
3. Quyidagi dastur bajarilgach ekranda nima hosil bo`ladi
Program aylana uzunligi;

Var R:Intejer; L:Real;

Begin

Write(Radiusni kiriting : ); ReadLn(r);

r :=9; L :=2*pi*R; WriteLn(L=,L,birlik.); ReadLn;

End.
4. 1 dan 19 gacha bo`lgan toq sonlar yig`indisini hisoblash dasturini tuzing.

5. Berilgan Buyuk shoir Alisher Navoiy, yilda tug`ilgan, jumlalari va 1441 sondan Buyuk shoir Alisher Navoiy 1441-yilda tug`ilgan satrni hosil qiluvchi dastur tuzing.

Javob

1-variant

1.((x-y)/(sqr(x)*x)-sqr(y)*y)
2.


3. Radiusni kiriting: 9

L=5.6548667765E+01 birlik

4. Program Summ;

Var s: word; i: byte;

Begin

S:=0;

For i:=1 to 19 Do If odd(i) then S:=S+i;

WriteLn(S= , S);

End.

Ekrandagi natija

S=100
5. Program Alisher_Navoiy;

Const a= Alisher Navoiy ; b= yilda tug`ilgan; c=1441;

d=Buyuk shoir;

Var yil, s : String;

Begin

Str(c, yil); {c=1441 dan yil=1441 hosil qilindi}

s:=Concat(d,a,yil,b);

WriteLn(s);

End.
Ekrandagi natija

Buyuk Alisher Navoiy 1441-yilda tug`ilgan

2-Variant

1.Quyidagi ifodani Paskal dasturlash tilida yozing.

;
2. Quyidagi dastur bajarilgach ekranda nima hosil bo’ladi
Uses Crt;

Begin

TextColor(Red); TextBackGround(Blue);

WriteLn(Men Axmedov Jasur yoshim 15 da);

End.
3.Quyidagi dastur bajarilgach ekranda nima hosil bo`ladi
Program Uchburchak_yuzi;

Var a,b,c:Intejer; {uchburchak tomonlari}

yp,s:Real; {ypyarim perimeter, syuza}

Begin

a:=3; b:=4; c:=5; yp:=(a+b+c)/2;

s:=sqrt(yp*(ypa)*(ypb)*(ypc));

WriteLn(S= s, kvadrat birlik);

ReadLn;

End.
4. S=0,5+1,5+2,5+…+19,5 yig`indining hisoblash dasturini tuzing.
5. Saodat va qadoq so`zlaridan sadoqat so`zini yasovchi dastur tuzing.

Javob__2-variant__1.'>Javob

2-variant

1.((x+y)/x*y*z)+sqrt(sin(x))
2.


3. S = 6.0000000000E+00 kvadrat birlik
4. Program Summ_real

Var J, S: real;

Begin S:=0; J:=0.5;

While J= 19.5 do begin

S:=S+J; J:=J+1; end;

WriteLn(S= , S);

End.

Ekrandagi natija

S=200
5. Program So`z_yasash

Var a,b : String;

Begin

a:=saodat; b:=qadoq;

Delete(a,3,2); {a=saat bo`ldi}

Delete(b,1,2); {b=doqbo`ldi}

Insert(b,a,3); {a=sadoqat}

WriteLn(a);

End.

Ekrandagi natija

Sadoqat

3-variant

1.Quyidagi ifodani Paskal dasturlash tilida yozing.

2.Quyidagi dastur bajarilgach ekranda nima hosil bo`ladi

.

Program misol

Var a,b,c,f:Intejer;

Begin

Readln(a,b);

Read(c); f:=a+c+b;

WriteLn(Natija= ,f);

End.
3. Quyidagi dastur bajarilgach ekranda nima hosil bo`ladi.

Label N1;

Var a,b,c:Intejer;

Begin a:=15; b:=13; c:=a+b; GoTo N1; {Boshqarish N1 nishonli operatorga uzatildi }

c:=a-b; N1: WriteLn(c= ,c);

End.

4. Tomonini uzunligi R bo`lgan teng tomonli uchburchak yuzini topish dasturini tuzing va R=4 da hisoblang.

5. Kvadrat tenglamani yechish dasturidan foydalanib quyidagi kvadrat tenglamani yeching



Javob
3-varint
1.(5*sqr(a)+2*x)+((3*x)/sqr(a)*a)+sqr(tg(sqr(a)))
2. 10

11

12

Natija=33

3. c=28
4. Program Yuza_hisoblash

Var r: Intejer; s:Real;

Begin

Write(R ning qiymati kiritilsin); ReadLn(r);

s:=sqr(r)*sqrt(3)/4;

WriteLn(Uchburchak yuzi = ,s); ReadLn;

End.

Ekrandagi natija

R ning qiymati kiritilsin 4

Uchburchak yuzi =6.9282032303E+00
5. Program Kvadrat_tenglama

Label Tamom;

Var a,b,c,d,x1,x2: Real;

Begin

Write(a,b,c larning qiymatini kiriting:); ReadLn(a,b,c);

d:=Sqr(b)4*a*c; {Diskriminant hisoblandi}

If d0 Then begin WriteLn(Haqiqiy yechim yo`q); Goto tamom;

End.

Ekrandagi natija

a,b,c larning qiymatini kiriting: 1,-7,14

Haqiqiy yechim yo`q